29 lines
300 B
Plaintext
29 lines
300 B
Plaintext
|
#
|
||
|
#include <em_abs.h>
|
||
|
|
||
|
mes 2,EM_WSIZE,EM_PSIZE
|
||
|
exp $rckul
|
||
|
pro $rckul, 0
|
||
|
|
||
|
lal EM_PSIZE
|
||
|
loi EM_LSIZE
|
||
|
lal 0
|
||
|
loi EM_PSIZE
|
||
|
loi EM_LSIZE
|
||
|
cmu EM_LSIZE
|
||
|
zlt *1
|
||
|
lal EM_PSIZE
|
||
|
loi EM_LSIZE
|
||
|
lal 0
|
||
|
loi EM_PSIZE
|
||
|
adp EM_LSIZE
|
||
|
loi EM_LSIZE
|
||
|
cmu EM_LSIZE
|
||
|
zgt *1
|
||
|
ret 0
|
||
|
1
|
||
|
loc ERANGE
|
||
|
trp
|
||
|
ret 0
|
||
|
end 0
|