ack/lang/occam/lib/misc.e

50 lines
492 B
Plaintext
Raw Normal View History

1987-02-25 16:41:09 +00:00
#
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