DEFINE OSC 8 'Internal RC Oscillator at 8 MHz
OSCCON.4 = 1
OSCCON.5 = 1
OSCCON.6 = 1
OPTION_REG.3 = 0 'Prescaler to TMR0
OPTION_REG.2 = 1 '1:256
OPTION_REG.1 = 1
OPTION_REG.0 = 1
INTCON.7 = 1 'Enable interrupts
INTCON.5 = 1 'Enables TMR0 interrupt
INTCON.2 = 0 'TMR0 overflow interrupt (not active)
led var porta.1
Counter var word
Counter = 0
i var byte
Main:
high led
goto main
disable
ClockInt:
for i = 0 to 2
low led
pause 1000
high led
pause 1000
next i
Counter = Counter + 1
INTCON.2 = 0
Resume
enable
End