ack/lang/m2/libm2/rcku.e

29 lines
298 B
Plaintext
Raw Normal View History

1987-10-27 11:55:59 +00:00
#
#include <em_abs.h>
mes 2,EM_WSIZE,EM_PSIZE
exp $rcku
pro $rcku, 0
lal EM_PSIZE
loi EM_WSIZE
lal 0
loi EM_PSIZE
loi EM_WSIZE
cmu EM_WSIZE
zlt *1
lal EM_PSIZE
loi EM_WSIZE
lal 0
loi EM_PSIZE
adp EM_WSIZE
loi EM_WSIZE
cmu EM_WSIZE
zgt *1
ret 0
1
loc ERANGE
trp
ret 0
end 0