ack/lang/m2/libm2/absf.e

31 lines
453 B
Plaintext
Raw Normal View History

1987-05-13 14:36:45 +00:00
#
1988-02-19 15:54:01 +00:00
;
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
; See the copyright notice in the ACK home directory, in the file "Copyright".
;
;
; Module: REAL abs function
; Author: Ceriel J.H. Jacobs
; Version: $Header$
;
1987-05-13 14:36:45 +00:00
mes 2,EM_WSIZE,EM_PSIZE
1988-03-23 17:55:57 +00:00
exp $absf
pro $absf,0
1987-05-13 14:36:45 +00:00
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