100 ! 					sendAST.BAS		
    !								
    !	This routine requests an AST with a nowait qio	
    !								
	SUB send_digitizer_ast(N%)
    %include "digitcom.bas"
    EXTERNAL INTEGER digitizer_ast,IO$_READVBLK

    BUFf$ = SPACE$(13%)
    BUFf% = LEN(BUFf$)
    CALL SYS$QIO(n% by value , CHAN1% BY VALUE,IO$_READVBLK,&
	IOSB,digitizer_ast,N%,BUFf$ BY REF,BUFf% BY VALUE,,,,)
110 SUBEND


200 ! 					sendAST.BAS		
    !								
    !	This routine requests an AST with a wait for completion qio
    !								
	SUB send_ast_with_wait(N%)
    %include "digitcom.bas"
    EXTERNAL INTEGER digitizer_ast,IO$_READVBLK

    BUFf$ = SPACE$(13%)
    BUFf% = LEN(BUFf$)
    CALL SYS$QIOW(n% by value , CHAN1% BY VALUE,IO$_READVBLK,&
	IOSB,digitizer_ast,N%,BUFf$ BY REF,BUFf% BY VALUE,,,,)
220 SUBEND