'*******************************************************************************
$regfile = "m1284pdef.dat"            
$crystal = 9830400                                          
$framesize = 800                                          
$hwstack = 550                                            
$swstack = 550                                              
$frameprotect = 1


'---------------------------------------------------------------------
'Config the RTC
'RTC is incremented by incrementing a flag local_secL
Config Clock = User
Config Date = Dmy , Separator = Slash                       'dd/mm/yy


 '-----------------------------------------------------------
 'Timer 0 = 8 bit counter, 9.8304mhx xtal, 1024 prescaler = overflows 37.5 times per sec
 'Flashes the heartbeat led
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
 'Start Timer0

On Timer0 Timer0overflow Nosave                             'happens 37.5 times/sec        

 '---------------------------------------------------------------------------------
'Timer 3 = 16 bit rolls over every 1 second,set by timer preset in the ISR
'This timer checks TTRN
'takes care of the RTC

Config Timer3 = Timer , Prescale = 1024                     'Counts 9830400/1024 = 9600 ck pulses per sec                '
                                        '

On Timer3 Timer3overflow
Enable Timer3
Start Timer3

dim local_secL as long
dim TTRN as byte    
dim Dn5 as byte   ' done
TTRN = 0


'-------------------------------------------------------------------------------
'MAIN LOOP
DO
       
          If TTRN = 1 then

               ' do lots of things
               'upload to server. 'The standard server HTTP GMT response (with junk removed)  is now in "responseSTR
               verify_time(responsestr)      'function
              call UpdatemyRTC
 
               TTRN = 0
 
          end if


LOOP



'*****************************************************************************
Function Verify_time(byval Responsestr As String) As String

        'input dd/MM/yyyy,HH:mm:ss,nnnnnnnnnn and is 30 bytes long
        'output dd/MM/yyyy,HH:mm:ss,nnnnnnnnnn 30 bytes long  OR "null"
   Local Error As Byte
   Error = 1

   If Len(responsestr) = 30 Then

      If Mid(responsestr , 3 , 1) = "/" Then
         If Mid(responsestr , 6 , 1) = "/" Then
            If Mid(responsestr , 14 , 1) = ":" Then
               If Mid(responsestr , 17 , 1) = ":" Then
                  If Mid(responsestr , 7 , 2) = "20" Then
                     If Mid(responsestr , 11 , 1) = "," Then
                        If Mid(responsestr , 20 , 1) = "," Then

                           Error = 0                        'no errors, no changes to responsestr
                           Print #1 , ">> good verify"
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If

   End If

   If Error <> 0 Then
      Responsestr = "null"
      Print #1 , "time from server failed at function verify_time "
   End If

   Verify_time = Responsestr


End Function






'***************************************************************************
sub updatemyRTC()
         
        'format is now dd/MM/yyyy,HH:mm:ss,nnnnnnnnnn and needs to be   dd/MM/yy,HH:mm:ss,nnnnnnnnnn  


         If Len(responsestr) = 30 Then

            Delchar responsestr , 7                            'delete y
            Delchar responsestr , 7                            'delete y  string is now dd/MM/yy,HH:mm:ss .. etc
            Time$ = Mid(responsestr , 10 , 8)             'HH:mm:ss
            Date$ = Left(responsestr , 8)                    'dd/MM/yy
            Local_secl = Syssec()                               'this is local time  i.e. includes DST
           
             
            Print #1 , ">> local_secL=" ; Local_secl:
         Else
            Print #1 , ">> bad local time response length from server. Len was" ; Len(responsestr)
         End If


end sub



 '*****************************************************************************
Sub Check_ttrn()
   'is it TTRN  (time to read noise).
   'This sub called once every sec under interrupt of timer3
   'Dn5 lets  ttrn->1  happen only once per 15 min
   'TTRN is latched in this sub and unlatched when data is sent

   

      If Dn5 = 0 Then
         If _min = 0 Or _min = 15 Or _min = 30 Or _min = 45 Then
            Dn5 = 1
            Ttrn = 1                                        'time to read noise
            Print #1 , ">> time to read 15min noise"
         End If

      Else

         If Ttrn = 0 And _min <> 0 And _min <> 15 And _min <> 30 And _min <> 45 Then
            Dn5 = 0

         End If

      End If
 
End Sub

'****************************************************

Timer0overflow:

   'called 37 x per second
   'flashes heartbeat LED once per sec




   $asm

      push r24                                             ;save r24
      in r24, sreg                                         ;r24<-sreg
      push r24                                             ;save status register to stack
      lds r24, {btimer0}                                   ;load direct
      inc r24
      cpi r24,37                                           ;compare
      brlo timer0ovf                                       ;br if r24 < 37
      clr r24                                              ;clear r24
      sbi heartbeat_pin,heartbeat_bit                       ; write 1 to pin = toggle led
Timer0ovf:
      sts {btimer0},r24                                     ;store btimer0 <- r24
      pop r24
      Out Sreg , R24                                        'get Sregister back
      pop r24

   $end Asm

Return
'******************************************************************************


Timer3overflow:
   'T3 rolls over every 1 second


   Timer3 = 55936                                           '65536 - 9600x1
   Call Check_ttrn                                          'is it time to read the noisemeter
   Incr Local_secl
   Time$ = Time(local_secl)                                 'calculate time & update RTC
Return

'*******************************************************************************

End

 Config Timer0 = Timer , Prescale = 1024


 On Ovf0 Tim0_isr                                           'Define ISR handler
 

Tim0_isr:



         Bres = Bres + 262144                               '262144 = prescaler:1024 * timer0:256
         If Bres > 8000000 Then                             '8 000 000 = xtal frequency
         Bres = Bres - 8000000
         'Top = 1
            'Set Portd.6                                     'top test 1 second
            ' Waitms 10
             'Reset Portd.6
         End If


         Return


 

verify_time(responsestr)

Function Verify_time(byval Responsestr As String) As String

disable interrupts
   Time$ = Mid(responsestr , 10 , 8)             'HH:mm:ss
    Date$ = Left(responsestr , 8)                    'dd/MM/yy
    Local_secl = Syssec()                               'this is local time  i.e. includes DST
enable interrupts