rf-web/vendor/bundle/gems/rouge-3.12.0/lib/rouge/demos/m68k
2019-10-21 10:18:17 +02:00

17 lines
303 B
Plaintext

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