l_declong.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0_long/l_declong.asm
;       Small C+ Z88 Support Library
;
;       Decrement long by 1
;
;       djm 21/2/99
;       Rewritten so that I know it works

                PUBLIC    l_declong

.l_declong
        ld      a,h
        or      l
        dec     hl
        ret     nz
        dec     de
        ret



IF ARCHAIC

.l_declong
        ld      bc,-1
        add     hl,bc
        ret     nc
        dec     de
        ret
ENDIF
