;       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_lneg


; HL = !HL
.l_lneg   
        ld a,h
        or l
        jr z,l_lneg1
        ld hl,0
        ret
.l_lneg1  
        inc   hl
        ret