NAME	Delay_FUNC

?PR?Delay_func?Delay_FUNC    SEGMENT CODE
	PUBLIC	Delay_func

	RSEG  ?PR?Delay_func?Delay_FUNC
Delay_func:

					; Delays by 100ms * A

		MOV     A,#50
		MOV	R0,A		; Acc holds delay variable
 DLY0:		MOV	R1,#019h	; Set up delay loop0
 DLY1:		MOV	R2,#0FEh	; Set up delay loop1
		DJNZ	R2,$		; Dec R2 & Jump here until R2 is 0
		DJNZ	R1,DLY1         ; Dec R1 & Jump DLY1 until R1 is 0
		DJNZ	R0,DLY0		; Dec R0 & Jump DLY0 until R0 is 0
		RET			; Return from subroutine

;======================================================================
	END