; > LEDDelay
; Source for LEDDelay function
;
; ***********************************
; ***    C h a n g e   L i s t    ***
; ***********************************
;
; Date       Who  Version       Description
; ----       ---  -------       -----------
; 30-May-96  BAR  0.01		Started
; 12 Jun 97  BAR  0.02          Change value of 1/4 delay time.
;
; Will provide a 1/4 second delay for flashing the LED's



;ld_quarter_sec		*	(35000*8)	; 1/4 Second delay !
ld_quarter_sec		*	(100000*6)	; 1/4 Second delay ! For Boca Units

ld_LED_Delay	ROUT
; Generate the required delay between changing the LED status
; On entry ....
;	r4 = required delay time
; Register usage ....
; 	r0, general scratch pad
;
01	LDR     r0,=ld_quarter_sec		; Load r0 with 1/4 seconds delay
02	SUBS    r0,r0,#1                	; subtract one
        BNE     %02	                   	; back we go .... pause for a 1/4 second
	SUBS	r4,r4,#1			; subtract one
	BNE	%01				; repeat the pause for the flash duration

	MOV	pc,r14				; Return to caller

        END