firqb = 0402 .psect .prog. /03 rstsys: mov (pc)+,-(sp) / Build cleanup command on stack jsr sp,*(sp)+ / Returns from command exec. mov 2+2(sp),-(sp) / Get user emt code jsr pc,(sp) / Execute the stuff clr r0 / Error code is a pos. byte bisb *$firqb,r0 / Get error code from firqb rts pc / And exit .globl rstsys