31 lines
449 B
Plaintext
31 lines
449 B
Plaintext
#
|
|
;
|
|
; (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: $Id$
|
|
;
|
|
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
|