55 lines
521 B
Plaintext
55 lines
521 B
Plaintext
#
|
|
#include <em_abs.h>
|
|
|
|
mes 2,EM_WSIZE,EM_PSIZE
|
|
|
|
.1
|
|
bss EM_PSIZE,0,0
|
|
.2
|
|
bss EM_WSIZE,0,0
|
|
|
|
pro $ctch,0
|
|
lol 0
|
|
loc EHEAP
|
|
beq *1
|
|
lae .1
|
|
loi EM_PSIZE
|
|
sig
|
|
asp EM_PSIZE
|
|
lol 0
|
|
trp
|
|
rtt
|
|
1
|
|
loc 1
|
|
ste .2
|
|
rtt
|
|
end
|
|
|
|
|
|
exp $brk
|
|
pro $brk,0
|
|
lal 0
|
|
loi EM_PSIZE
|
|
lpi $ctch
|
|
sig
|
|
lae .1
|
|
sti EM_PSIZE
|
|
loc 0
|
|
ste .2
|
|
str 2 ; The - possibly - occurring trap is caught
|
|
lae .1
|
|
loi EM_PSIZE
|
|
sig
|
|
asp EM_PSIZE
|
|
loe .2
|
|
zgt *1
|
|
zer EM_PSIZE
|
|
ret EM_PSIZE
|
|
1
|
|
loc -1
|
|
loc EM_WSIZE
|
|
loc EM_PSIZE
|
|
cii
|
|
ret EM_PSIZE
|
|
end
|