int2long_s_float.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/l/sccz80/crt0_long/int2long_s_float.asm
;       Small C+ Z88 Support Library
;
;       Convert signed int to long

SECTION code_clib
SECTION code_l_sccz80

PUBLIC l_int2long_s_float

EXTERN float

l_int2long_s_float:

   ; If MSB of h sets de to 255, if not sets de=0

   ld de,0
   
   bit 7,h
   jp z, float
   
   dec de
   jp float
