gosup: clr.l -(sp) move.w #$20,-(sp) trap #1 addq.l #6,sp move.l d0,savesp rts gouser: move.l savesp,-(sp) move.w #$20,-(sp) trap #1 addq.l #6,sp rts savesp: dc.l 0