am48_fabs.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/math/float/math48/z80/am48_fabs.asm

; double fabs(double x)

SECTION code_clib
SECTION code_fp_math48

PUBLIC am48_fabs

am48_fabs:

   ; return absolute value of x
   ;
   ; enter : AC' = double x
   ;
   ; exit  : AC' = |x|
   ;
   ; uses  : b'
   
   exx
   res 7,b
   exx
   
   ret
