.title stse .enable lc .ident /wrg/ ; ; stse(efn); ; int efn; ; ; Written by Wayne R. Graves 23-Jul-80 ; .mcall dir$ efn=2 dpb: .byte 135.,2 .blkw 1 stse:: mov efn(sp),dpb+2 ; get efn clr r0 ; init r0 for return status dir$ #dpb ; abort efn bcc 10$ ; br if no error mov @#$dsw,r0 ; save error for return 10$: return ; return to caller .end