;Test Program
LIST P=PIC18F452, F=INHX32, N=0, ST=OFF, R=HEX
#INCLUDE P18F452.INC
CONFIG OSC=HS, OSCS=OFF
CONFIG WDT=OFF
CONFIG BOR = OFF
;CONFIG BORV=0, PWRT=OFF
CONFIG PWRT=OFF
CONFIG DEBUG=OFF, LVP=OFF, STVR=OFF

;Equates Section
TRISB EQU H'0F93'
PORTB EQU H'0F81'
R1 EQU 0x07
R2 EQU 0x08

ORG 0000H

CLRF TRISB
MOVLW 0x55
MOVWF PORTB
L3 COMF PORTB,F
CALL QDELAY
BRA L3


;------------1/4 SECOND DELAY
QDELAY
MOVLW D'200'
MOVWF R1
D1 MOVLW D'250'
MOVWF R2
D2 NOP
NOP
DECF R2,F
BNZ D
DECF R1,F
BNZ D1
RETURN

END