l_long_dec.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0_long/l_long_dec.asm
;       Small C+ Z88 Support Library
;
;	Decrement long on hl
;	Kept little endian
;
;       djm 26/2/2000

PUBLIC    l_long_dec

.l_long_dec

   ld a,$ff
   
   dec (hl)
   cp (hl)
   ret nz
   
   inc hl
   dec (hl)
   cp (hl)
   ret nz

   inc hl
   dec (hl)
   cp (hl)
   ret nz
   
   inc hl
   dec (hl)
   ret
