program OneLED001

' Declarations section

main:
' Main program
dim i as word
dim counter as word
dim seccounter as word

     CMCON = %10100111 ' No Comparater
    TRISIO = %00000000 ' GP0,1,2,3,4,5 is OUT
     ANSEL = %00000000 ' No A/D
OPTION_REG = %00000111
    INTCON = %00100000

counter = 0
seccounter = 0
OSCCAL = 0x64

WaitLoop:
INTCON.T0IF = 0
while INTCON.T0IF = 0

wend
'      GPIO.0 = 1
'      Delay_ms(50)
'      GPIO.0 = 0
'      Delay_ms(50)
INTCON.T0IF = 0
counter=counter+1
if counter>15 then
   counter=0
   goto LEDLoop
end if
goto WaitLoop

LEDLoop:
      GPIO.0 = 1
      Delay_ms(10)
      GPIO.0 = 0
      seccounter=seccounter+1
      EEPROM_Write(0x80, seccounter >> 8)
      EEPROM_Write(0x81, seccounter)
goto WaitLoop

end.