.TITLE SRRA Specify Receive-by-Reference AST .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index SRRA Specify Receive-by-Reference AST ; ; ; Usage ; ; #include ; {typ} astsrv(); /* AST service function */ ; word status; /* Returned DSW */ ; ; status = srra(astsrv); ; ; ; Notes ; ; Call with NULL pointer to turn off receive by reference AST's. ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix Documentation. ; .mcall srra$s srra:: mov 2(sp),r0 ;r0 --> AST service entry point srra$s r0 mov $dsw,r0 ;return dsw return .end