25 lines
264 B
Text
25 lines
264 B
Text
#
|
|
mes 2,EM_WSIZE,EM_PSIZE
|
|
exp $execle
|
|
pro $execle,0
|
|
lal EM_PSIZE
|
|
1
|
|
dup EM_PSIZE
|
|
loi EM_PSIZE
|
|
zer EM_PSIZE
|
|
cmp
|
|
zeq *2
|
|
adp EM_PSIZE
|
|
bra *1
|
|
2
|
|
adp EM_PSIZE
|
|
loi EM_PSIZE
|
|
lal EM_PSIZE
|
|
lal 0
|
|
loi EM_PSIZE
|
|
loc 59
|
|
mon
|
|
ste errno
|
|
loc -1
|
|
ret EM_WSIZE
|
|
end
|