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
