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
|
|
|
|
|
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
|
