49 lines
492 B
Text
49 lines
492 B
Text
#
|
|
mes 2,EM_WSIZE,EM_PSIZE
|
|
|
|
oldtrp
|
|
bss EM_PSIZE, 0, 0
|
|
|
|
exp $init
|
|
pro $init, 0
|
|
loc -321-1
|
|
sim
|
|
lpi $catch1
|
|
sig
|
|
lae oldtrp
|
|
sti EM_PSIZE
|
|
cal $initfile
|
|
ret 0
|
|
end 0
|
|
|
|
pro $catch1, 0
|
|
lae oldtrp
|
|
loi EM_PSIZE
|
|
sig
|
|
asp EM_PSIZE
|
|
loe 0
|
|
lae 4
|
|
loi EM_PSIZE
|
|
lol 0
|
|
cal $catch
|
|
asp 2*EM_WSIZE+EM_PSIZE
|
|
lol 0
|
|
trp
|
|
rtt
|
|
end 0
|
|
|
|
exp $block_move
|
|
pro $block_move, 0
|
|
lal 4
|
|
loi EM_PSIZE
|
|
lal 8
|
|
loi EM_PSIZE
|
|
|
|
lal 0
|
|
loi EM_LSIZE
|
|
loc EM_LSIZE
|
|
loc EM_WSIZE
|
|
cuu
|
|
bls EM_WSIZE
|
|
ret 0
|
|
end 0
|