30 lines
462 B
Text
Executable file
30 lines
462 B
Text
Executable file
#
|
|
;
|
|
; (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
|