ozdelay.asm
bitfixer_bitfixer/dg/z88dk/libsrc/oz/ozmisc/ozdelay.asm
;
;	Sharp OZ family functions
;
;	ported from the OZ-7xx SDK by by Alexander R. Pruss
;	by Stefano Bodrato - Oct. 2003
;
;
;	void ozdelay(unsigned d)
;
; ------
; $Id: ozdelay.asm,v 1.2 2015/01/19 01:33:02 pauloscustodio Exp $
;

	PUBLIC	ozdelay
	

ozdelay:
        ;ld       hl,2
        ;add      hl,sp
        ;call     $gint
        pop	bc
        pop	hl
        push	hl
        push	bc
delaylp:
        dec     hl
        ld      a,h
        or      l
        jr      nz,delaylp
        ret
