ack/lang/m2/libm2/absf.e

22 lines
215 B
Plaintext
Raw Normal View History

1987-05-13 14:36:45 +00:00
#
mes 2,EM_WSIZE,EM_PSIZE
exp $_absf
pro $_absf,0
mes 5
mes 9,8
lal 0
loi EM_FSIZE
zrf EM_FSIZE
cmf EM_FSIZE
zlt *3
lal 0
loi EM_FSIZE
bra *4
3
lal 0
loi EM_FSIZE
ngf EM_FSIZE
4
ret EM_FSIZE
end 0