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

SECTION code_clib
SECTION code_fp_math48

PUBLIC am48_dge

EXTERN am48_dcmp, error_oc, error_znc

am48_dge:

   ; Return bool (AC >= AC')
   ;
   ; enter : AC'= double y
   ;         AC = double x
   ;
   ; exit  : HL = 0 and carry reset if false
   ;         HL = 1 and carry set if true
   ;
   ; uses  : af, hl
   
   call am48_dcmp

   jp nc, error_oc             ; if x >= y true
   jp error_znc
