Is not Working Help
INCLUDE "modedefs.bas"

DEFINE OSC 4
DEFINE PULSIN_MAX 6000 '6000 Define el tiempo de espera por el Pulsin
DEFINE ADC_BITS 8
DEFINE ADC_CLOCK 3 'Uses internal RC clock
DEFINE ADC_SAMPLEUS 10 'Microsecond sample time


'-------------- Timer Use ------------------------
PowerLED VAR PORTB.5 'Pin 26 Red
StatusLED VAR PORTB.4 'Pin 27 Green
'---------------------Timre --------------------------------------------------------
hour var byte ' Define hour variable
minute var byte ' Define minute variable
second var byte ' Define second variable
ticks var byte ' Define pieces of seconds variable

'----------------------------------------------
LCDScreen VAR PORTC.7 'LCD Out Pin 18
LCDCmd CON 254 'LCD Command prefix
LCDHome CON 2 'Move cursor home, Pause
LCDClr CON 1 'Clear LCD screen, Pause
LCDLine1 CON 128 'First cell line 1
LCDLine2 CON 192 'First cell line 2


' T1CON = $01 ' Turn on Timer1, prescaler = 1
' INTCON = $C0 ' Enable global interrupts, peripheral interrupts
T0CON=%11010101
INTCON = $a0 ' Enable TMR0 interrupts


On Interrupt Goto Gettime
enable
RsetAll:
High PowerLED 'RED LED
pause 1000
low PowerLED 'RED LED
goto RsetAll
' Interrupt routine to handle each timer tick
disable ' Disable interrupts during interrupt handler
Gettime:
ticks = ticks + 1 ' Count pieces of seconds
SerOut LCDScreen, N2400, [LCDCmd, LCDLine2,#hour,":",#minute,":",#second]
pause 200
If ticks < 59 Then tiexit ' 61 ticks per second (16.384ms per tick)

' One second elasped - update time
ticks = 0
second = second + 1
If second >= 60 Then
second = 0
minute = minute + 1
If minute >= 60 Then
minute = 0
hour = hour + 1
Endif
write 43,hour
write 44,minute
write 45,second
Endif

tiexit: INTCON.2 = 0 ' Reset timer interrupt flag
Resume
'-------------------------------------------
end