cm48_sccz80p_ifix.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/math/float/math48/c/sccz80/cm48_sccz80p_ifix.asm

SECTION code_clib
SECTION code_fp_math48

PUBLIC cm48_sccz80p_ifix

EXTERN am48_dfix32

   ; sccz80 float primitive
   ; Convert math48 float to signed long
   ;
   ; enter : AC'(BCDEHL') = double x
   ;
   ; exit  : DEHL = (long)(x) truncates (round toward zero)
   ;
   ; uses  : AF, BC, DE, HL, AF', BC', DE', HL'

defc cm48_sccz80p_ifix = am48_dfix32
