$regfile = "m168def.dat"
$crystal = 8000000
Baud = 9600
$baud = 9600
$hwstack = 60
$swstack = 60
$framesize = 60

Dim Date_saved as Eram string * 8
Dim Time_saved as Eram string * 8

Dim Timerflag As Byte
Dim Uart As Bit
Dim Messageflag As Byte

Config Serialin = Buffered , Size = 40 , Bytematch = 10
Config Serialout = Buffered , Size = 120
Config Clock = Soft , Gosub = Sectic
Config Date = Dmy , Separator = /

Ddrb = &B110111                                             'Configure inputs and outputs
Ddrc = &B0011110                                             'Configure inputs and outputs
Ddrd = &B11111100                                           'Configure inputs and outputs

Const On = 1
Const Off = 0

Solenoid Alias PortB.2
Blue_led Alias Portc.3
Power_on Alias Pinc.5

Config Adc = Single , Prescaler = Auto , Reference = INTERNAL_1.1

Config Watchdog = 8192                                'Set the watchdog to time out at 8 seconds
On Wdt Wdt_isr
Enable Wdt
Start Watchdog
Enable Interrupts

Date$ = Date_saved                                    'Recover the saved date & time
Time$ = Time_saved

'===========================================================================
'Main program
'===========================================================================
Do
   If Power_on = 1 Then                           'Is mains power on?
      If Uart = Off Then
         Ucsr0b.txen0 = 1
         Ucsr0b.rxen0 = 1
         Uart = On                                        'Set flag indicating startup of these functions when power is restored after power cut
         Start Adc
         Start Watchdog
      End If

'=========================================
' Main code
' ========================================
      If Timerflag = 1 Then                                'Executed once per second
         Timerflag = 0

         Blue_led = On                                         'Flash heartbeat briefly once per second
         Waitus 250
         Blue_led = Off

         Print "Tick"                                             'Monitor via UART
      End if
'=========================================
' End of main code
' ========================================

   Else                                                           'If power has gone off, then Powersave
      If Uart = On Then
         Solenoid = Off
         Blue_led = Off
         Ucsr0b.txen0 = 0                                'Disable USART0 transmit
         Ucsr0b.rxen0 = 0                                'Disable USART0 receive
         Uart = Off                                             'Reset flag indicating shutdown of these functions when power is cut
         Stop Adc
         Stop Watchdog
      End If
      Powersave
   End If
   Reset Watchdog                                            'Watchdog is reset every loop
Loop

'===========================================================================
'Timer interrupt subroutine
'===========================================================================
Sectic:
   Timerflag = 1
Return

'=========================================
' Serial input interrupt routine
' ========================================
Serial0charmatch:
   Incr Messageflag
Return

'=========================================
' Watchdog interrupt routine
' ========================================
Wdt_isr:                                                                                     'This is executed if the main loop has been stopped for more than 8 seconds
   Date_saved = Date$ : Time_saved = Time$
   !jmp $0000
Return

End