Timer SubRoutine

[keithv]

Maybe try using the TMR0 interrupt. You'll need to configure the TRIS and ANSEL registers to your specific peripherals. It's basically a clock that runs in the background. Every 60th of a second it goes to the dualcounter subroutine (or whatever subroutine you tell it to go to) without you having to call it so that you're free to write code to do other things. The last three bits of the OPTION_REG set up the prescaler which is what tells it how often to interrupt. I'm not exactly sure, but I think 1:64 is about 1/60th of a second. You may need to tweak that a bit though.

#config 
    __CONFIG _CP_OFF & _WDTE_OFF & _BOREN_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT & _MCLRE_OFF & _IOSCFS_8MHZ
#endconfig

ADCON0 = %00000000
ADCON1 = %00110000
ANSEL = %00000110
define ADC_SAMPLEUS 50
define ADC_BITS 8
DEFINE ADC_CLOCK 3
CM1CON0 = %00000000     
CM2CON0 = %00000000     
TRISA = %00001111        
TRISC = %00000000
   
    
    ' Set TMR0 interrupt prescaler to 1:64
    OPTION_REG = %10000101        ' Set TMR0 configuration and enable PORTB pullups
    INTCON = %10100000           ' Enable TMR0 interrupts
    On Interrupt Goto dualcounter

1minutecounter var word
5minutecounter var word

MAIN:
   
     ' insert main code here

     if 1minutecounter > 3600 then
          ' insert code to handle 1 minute timer here
          1minutecounter = 0          ' clear counter
     endif

     if 5minutecounter > 18000 then
          ' insert code to hand 5 minute time here
          5minutecounter = 0          'clear counter
     endif

goto MAIN

''''''''''''''''''''''''''''''''''''''''''''''''''''''''INTERRUPT'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Disable                                 ' Disable interrupts during interrupt handler
dualcounter:                                    ' Interrupt routine to handle each timer tick      
    1minutecounter = 1minutecounter + 1            ' add 1 on every interrupt
    5minutecounter = 5minutecounter + 1
tiexit: 
   INTCON.2 = 0                             ' Reset timer interrupt flag
   Resume
enable
end

[towlerg]

what speed is the PIC clock? (thats what drives the timers in most cases)

[keithv]

what speed is the PIC clock? (thats what drives the timers in most cases)

I believe the 16F616 has options for either 4MHz or 8MHz internal clock.

[towlerg]

Using the Mikro timer calculator @ 8MHz

'Timer1
'Prescaler 1:4; TMR1 Preload = 15536; Actual Interrupt Time : 100 ms
 
'Place/Copy this part in declaration section
sub procedure InitTimer1()
  T1CON	 = 0x21
  TMR1IF_bit	 = 0
  TMR1H	 = 0x3C
  TMR1L	 = 0xB0
  TMR1IE_bit	 = 1
  INTCON	 = 0xC0
end sub
 
sub procedure Interrupt()
  if (TMR1IF_bit) then
    TMR1IF_bit = 0
    TMR1H	 = 0x3C
    TMR1L	 = 0xB0
    'Enter your code here
  end if
end sub

Of course the syntax is wrong but the values are correct. I couldn't get 1 second so I did 0.1 second. Same principle count to 10 for one sec and 50 for five sec.