# ; ; (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