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

SECTION code_clib
SECTION code_fp_math48

PUBLIC cm48_sccz80p_dgt

EXTERN cm48_sccz80p_dcallee1_0, am48_dgt

cm48_sccz80p_dgt:

   ; sccz80 float primitive
   ; left_op > right_op ?
   ;
   ; enter : AC'(BCDEHL') = right_op (math48)
   ;              stack   = left_op (sccz80), ret
   ;
   ; exit  : if true
   ;
   ;            HL = 1
   ;            carry set
   ;
   ;         if false
   ;
   ;            HL = 0
   ;            carry reset
   ;
   ; uses  : all except iy

   call cm48_sccz80p_dcallee1_0
   exx
   
   ; AC'= right_op
   ; AC = left_op
   
   jp am48_dgt
