l_long_lneg.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0_long/l_long_lneg.asm
;       Z88 Small C+ Run Time Library 
;       Long functions
;

PUBLIC    l_long_lneg

; deHL = !deHL
; set carry if result true and return val in dehl

.l_long_lneg

        ld a,h
        or l
        or      e
        or      d
        jr z,l_long_lneg1

        ld hl,0
	ld	d,h
	ld	e,l
        ret
        
.l_long_lneg1
  
        inc l
	scf
        ret
