;       Z88 Small C+ Run time Library
;       Moved functions over to proper libdefs
;       To make startup code smaller and neater!
;
;       6/9/98  djm

                XLIB    l_ucmp

; unsigned compare of DE and HL
;   carry is sign of difference [set => DE < HL]
;   zero is zero/non-zero

.l_ucmp
        ld a,d
        cp h
        jr nz,l_ucmp1
        ld a,e
        cp l
.l_ucmp1  
        ld hl,1    ;preset true
        ret