cm48_sdccixp_ds2slong_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/math/float/math48/c/sdcc_ix/cm48_sdccixp_ds2slong_callee.asm

; signed long __fs2slong_callee(float f)

SECTION code_clib
SECTION code_fp_math48

PUBLIC cm48_sdccixp_ds2slong_callee

EXTERN cm48_sdccixp_dcallee1, am48_dfix32

cm48_sdccixp_ds2slong_callee:

   ; double to signed long
   ;
   ; enter : stack = sdcc_float x, ret
   ;
   ; exit  : dehl = (long)(x)
   ;
   ; uses  : af, bc, de, hl, bc', de', hl'

   call cm48_sdccixp_dcallee1    ; AC'= math48(x)

   jp am48_dfix32
