l_le.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0/l_le.asm
;       Z88 Small C+ Run time Library
;       Moved functions over to proper libdefs
;       To make startup code smaller and neater!
;
;       6/9/98  djm

PUBLIC    l_le

;
; DE <= HL [signed]
; set carry if true

.l_le

   ld a,d
   add a,$80
   ld b,a
   ld a,h
   add a,$80

   cp b
   ccf
   ret nz
   ld a,l
   cp e
   ccf
   ret

;        call    l_cmp
;        ret     c
;        scf
;        ret     z
;        ccf
;        ret
