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

                PUBLIC    l_inclong

.l_inclong

   inc l
   ret nz
   inc h
   ret nz
   inc de
   ret
   
;        inc     hl
;        ld      a,h
;        or      l
;        ret     nz
;        inc     de
;        ret


IF ARCHAIC

.l_inclong
        ld      bc,1
        add     hl,bc
        ret     nc
        inc     de
        ret
ENDIF
