l_long_uge.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/l/sccz80/crt0_long/l_long_uge.asm
;       Z88 Small C+ Run Time Library 
;       Long functions
;

SECTION code_clib
SECTION code_l_sccz80

PUBLIC l_long_uge

EXTERN l_long_ucmp

l_long_uge:

   ; PRIMARY >= SECONDARY, carry set if true
   ; HL set to 0 (false) or 1 (true)
   
   ; dehl  = secondary
   ; stack = primary, ret
   
   call l_long_ucmp
   
   ccf
   ret c
   
   dec l
   ret
