.TITLE QIOAST .IDENT /01/ .PSECT .PROG. .ENABL LC ; ; P. Hays 15 February 79 ; ; Assist routine to allow 'C' functions to handle the directive- ; completion asynchronous trap (AST) which can be requested when ; a QIO executive directive is issued. ; .mcall astx$s r0save: .blkw 1 r1save: .blkw 1 qioast:: mov r1,r1save ; save registers not protected by _save mov r0,r0save mov (sp),r0 ; r0 <- address of iosb beq 9$ ; Duck if no iosb was specified -> call @4(r0) ; Call high level handler via iosb !! 9$: mov r0save,r0 ; Pop registers mov r1save,r1 tst (sp)+ ; Pop iosb address word astx$s ; Return to executive land. .end