initialize:                     ; go into super user mode
   clr.l -(a7)
   move.w #32,-(a7)
   trap #1
   addq.l #6,a7
   move.l d0,oldstack
   rts

restore:                        ; go back into user mode
   move.l oldstack,-(a7)
   move.w #32,-(a7)
   trap #1
   addq.l #6,a7
   rts

oldstack dc.l 0