31 lines
462 B
Text
31 lines
462 B
Text
|
#
|
||
|
|
;
|
||
|
|
; (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$
|
||
|
|
;
|
||
|
|
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
|