// RCTIME.C (PIC16C505), CCS-PCB
//
// Charges capacitor in parallel with a resistor on PORTC1 for one second.
// PORTC1 is then made an input and capacitor discharges though capacitor and
// and the time for detection of a one to zero transition is measured.
//
// Result in number of 1 usec ticks is displayed in hex on serial LCD
// on PORTC0.
//
// Illustrates use of TMR0.
//
//   PORTC1 (term 9) --- 330 ----- --------
//                               |        |
//                             1.0 uFd    10K Pot
//                               |        |
//                               |        10K Resistor
//                               |        |
//                              GRD       GRD
//
//   PORTC0 (term 10) ---------------- To Serial LCD or PC COM Port
//
//
// Tested using RICE-17A on July 19, '01
//
// copyright, Peter H. Anderson, Elmore, VT, July, '01

#case

#device PIC16C505 *=8

#include <defs_505.h>
#include <delay.h>
#include <ser_505.h>

#define TxData 0
#define INV

void main(void)
{
    byte count_hi, count_lo, tmr0_old, tmr0_new;

    DIRB = 0x3f;
    DIRC = 0x3f;

    while(1)
    {
       ser_init();

       t0cs = 0; // fosc / 4 is clock source
       psa = 0;  // prescale assigned to WDT
       ps2 = 0;  // 1:1 prescale
       ps1 = 0;
       ps0 = 0;

#asm
   MOVF OPTIONS, W
   OPTION
#endasm

       dirc1 = 0;   // output
#asm
   MOVF DIRC, W
   TRIS PORTC
#endasm
       portc1 = 1; // charge capacitor

       delay_ms(10);

       count_hi = 0;
       count_lo = 0;

       tmr0_old = 0x00;
       TMR0 = 0x03; // start at 3 to account for the following instructions
#asm
    BSF DIRC, 1
    MOVF DIRC, W
    TRIS PORTC
#endasm
       while(1) // wait for cap to discharge
       {
          tmr0_new = TMR0;
          if ((tmr0_new < 0x80) && (tmr0_old >= 0x80))		// there was a roll over
          {
             ++count_hi;
             if (count_hi == 0) // no zero crossing with 65 ms
             {
                count_hi = 0xff;
                count_lo = 0xff;
                break;
             }

          }
          if (!portc1) // if capacitor discharged below zero corssing
          {
              count_lo = tmr0_new;
              break;
          }
          tmr0_old = tmr0_new;
       }
       ser_hex_byte(count_hi);
       ser_hex_byte(count_lo);
       delay_ms(1000);
    }
}

#include <delay.c>
#include <ser_505.c>