.TITLE EXST Exit With Status .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index EXST Exit With Status ; ; Usage ; ; #include ; word statwd; /* Exit status code */ ; ; exst(ststwd); ; ; Notes ; ; Exit status codes (EX$xxx) in CX.H. ; Failure causes task abort. ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial edit ; V1.1 01-Jul-82 RBD Changed name to exitt() to avoid clash. ; V1.2 19-Oct-82 RBD Change P-Section. Fix Documentation .mcall exst$s exst:: mov 2(sp),r0 ;r0 = status word exst$s r0 jmp abort .end