program OneLEDCeralock001

' Declarations section

main:
' Main program
dim i as word
dim counter as word
dim seccounter as word
dim seccmod 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
seccmod = 0

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

wend
INTCON.T0IF = 0
counter=counter+1
if counter>61 then
   counter=0
   goto LEDLoop
end if
goto WaitLoop

LEDLoop:
      GPIO.0 = 1
      Delay_ms(10)
      GPIO.0 = 0
      seccounter=seccounter+1
      seccmod = seccounter mod 100
      EEPROM_Write(0x89+seccmod, 0xff)
      EEPROM_Write(0x90+seccmod, seccounter >> 8)
      EEPROM_Write(0x91+seccmod, seccounter)
goto WaitLoop

end.