LIST P=PIC18F458, F=INHX32, N=0, ST=OFF, R=HEX
	#include P18F458.INC
	CONFIG OSC = HS, OSCS = OFF  
	CONFIG WDT = OFF 
	CONFIG BORV = 45, PWRT = ON, BOR = ON
	CONFIG DEBUG = OFF, LVP = OFF, STVR = OFF
R1 	EQU 	0x07
R2 	EQU 	0x08
R3 	EQU 	0x09
	ORG 0
	CLRF	TRISB		
	MOVLW	0x55		
	MOVWF	PORTB		
L3	COMF	PORTB,F	
	CALL	QDELAY	
	BRA	L3		
QDELAY
	MOVLW	D'2'
	MOVWF	R1
D1	MOVLW	D'250'
	MOVWF	R2
D2	MOVLW	D'250'
	MOVWF	R3
D3	NOP
	NOP
	DECF	R3, F
	BNZ	D3
	DECF	R2, F
	BNZ 	D2
	DECF	R1, F
	BNZ 	D1
	RETURN
	END