.TITLE SREX Specify Requested Exit AST .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index SREX Specify Requested Exit AST ; ; ; Usage ; ; #include ; {typ} astsrv(); /* AST service routine */ ; word status; /* Returned DSW */ ; ; status = srex(astsrv); ; ; [end] ;- ; Edits: ; V1.0 12-Sep-82 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix Documentation. ; .mcall srex$s srex:: mov sp,r0 ;r0 --> parameters stack frame srex$s 2(r0) mov $dsw,r0 ;return DSW return .end