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

                PUBLIC    l_long_bool


; HL = !!HL

.l_long_bool
        ld a,h
        or l
        or e
        or d
        ret z
        ld hl,1
        ld e,h
        ld d,h
        ret
