50 lines
492 B
Plaintext
50 lines
492 B
Plaintext
|
#
|
||
|
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
|