//Seconds Routine using a Bresenham Algorithm from an idea by Bob Ammerman and 
//Roman Black
//This algorithm works for any crystal frequency; and jitter and accuracy can be 
//altered at will.
//******************************************************************************
//To use a different crystal just take the frequency divide by 4 (for pics) to
//get the internal frequency. EG. 8MHz crystal has an internal cycle of 2MHz, 
//therefore load the counter with 2,000,000 (0x1E 84 80) the 24 bit maths does
// the rest.
//
// For periods just do a further division 
//EG: 1200baud with 8MHz crystal = 8,000,000/4 /1200 = 500 (0x07 A1 20)
//4:32 PM 8/5/2002



//CDB  12/6/2002  

//defines for lcd_shiftout
//#define shiftport PORTE
//#define clockport PORTE
//#define latchport PORTE
#define LCDPORT PORTB
#define RSPORT  PORTB
#define ENPORT  PORTB
#define TOP
//const char bit_no=0;
//unsigned char rs_state;
//const char clockbit=1;
//const char latchbit=2;
const char rsbit=2;
const char ebit=3;



#include <P16F873.h>
//Includes extra headers to access register bits in asm style
#include <P16F877_2_INC.h>


#include <strings.h>
#include <datalib.h>
#include "sprinkler.h"
#include <lcd_1.c>
#include "ButtonPress.h"

 
#__config 16242

unsigned char bt;
void main()
{
  unsigned char button;
   
   setup();
   pTotals=(unsigned char *)&Totals; 
   FirstBoot(0x10,sizeof(Totals));     //test EEPROM for previous price and total information
   lcd_init();
       
   while(1)
    { 
      if(SysFlag&(1<<Tmr0))
        {
          SysFlag.Tmr0=0;    //This produces in assembler bcf SysFlag,4
          clock(sec);
        }
        
      if(SysFlag&(1<<Tmr2))
        {
        
          SysFlag.Tmr2=0;
          if(++bt==2)
            {
              bt=0;
              button=WhichKey();
              DoKey(button);
              Display();
            }  
        }  
      
              
      if(SysFlag&(1<<Tmr1E))
        {
          SysFlag.Tmr1E=0;
          Usage();
        }
              
      if(SysFlag&(1<<ChckE))
        {
          SysFlag.ChckE=0;
          EventOnTime();
        }
   
     }
   
}


void setup()
{
   
   ADCON1=(1<<PCFG2)|(1<<PCFG1)|(1<<PCFG0);  //Switch ADC off
//   PORTE=0x00;
   PORTC=0x00;
   PORTB=0x00;
   PORTA=0;
 //  TRISE=0x00;
   TRISC=0x01;				//bit 0 input for flow sensor
   TRISB=0x00;
   TRISA=0x07;                          //bits 0 to 3 inputs for buttons
   TickHigh=COUNTH;			//2,500,000 
   TickMid=COUNTM+1;			//add 256 to initial count	
   TickLow=COUNTL;			//Total 24 bit number = 2500256
   PIE1=PIR1=0;                         //Make sure interrupts are off
   TMR1H=TMR1L=0;                       //Ensure Timer1 is cleared
   T1CON=(1<<TMR1CS);                    //Put Timer1 in counter mode
   CCPR1H=SENSH;                        //Load MSB of Compare Register, 0x04B0
   CCPR1L=SENSL;                        //Load LSB of Compare Register=1200 pulses 
   CCP1CON=(1<<CCP1M3)|(1<<CCP1M1)|(1<<CCP1M0); //Compare Mode/Trigger Interrupt
   PR2=250;                   //TMR2 preload with 250. 1/(2.5MHz/16/16/250)=25.6mS
   //Post scale *16 prescale *16
   T2CON=0x7B;                          //TOUTPS3/2/1/0=1 T2CKPS1/2=1  
   T1CON|=(1<<TMR1ON);                  //Switch Timer1 on before Periph Int
   T2CON|=(1<<TMR2ON);                  //Timer2 on
   PIE1=(1<<TMR1IE)|(1<<TMR2IE)|(1<<CCP1IE);  //Enable T1/T2 and Compare Int 
   OPTION_REG=(1<<PSA);			//No divide assign timer to WDT
   INTCON=(1<<GIE)|(1<<PEIE)|(1<<T0IE);		//Enable Interrupts
   Dy=0;				//Day=Monday
   hour=min=sec=0;                          //Set time to midnight
   line=1;
   item=2 ;                //at switch on default to setting current day/time
   disptype=0;                         //Standard display
   index=0;
   z=0;
}

const int  QuickInt=1;

void Interrupt()
{
  

 if(PIR1&(1<<TMR2IF))
  {
    #asmline bcf PIR1,TMR2IF            ;Timer 2 Flag
    SysFlag.Tmr2=1;
  }
  
 if(INTCON&(1<<T0IF)) 		        // Test TMR0 interrupt flag
  {
    #asmline bcf INTCON,T0IF           ;  Clear TMR0 interrupt flag
    SysFlag.Tmr0=1;    		
       
    if(TickMid!=0)			//Has TickMid reached zero
      {
    	if(--TickMid!=0)	
        return;               	        //if not decrease and check for zero
      }
    else				//Tickmid was zero so decrease TickHigh
      {
    	 --TickHigh;
    	 if(--TickMid!=0);		//Has Tickmid reached zero now?	
     	 return;
      }	
     
     if(TickHigh==0)			//TickMid is zero so check TickHigh if
       { 				//zero reload counter
          TickHigh=COUNTH;
          TickMid=COUNTM;
          TickLow+=COUNTL;		//Load counter with initial+ remainder
          #asmline btfsc STATUS,C	;Has a carry occurred from low to mid
          TickMid++;			//yes so increase TickMid
          sec++;
       }    
     }
   if(PIR1&(1<<CCP1IF))
   {
      #asmline bcf PIR1,CCP1IF
      SysFlag.Tmr1E=1; 
   }    
    
}


void clock(unsigned char secs)
{
  
   if (secs!=60);
     return;
      
       SysFlag.ChckE=1;
       sec=0;
        
     if (++min!=60);
          	
     	  return;
     	  hour++;
     	  min=0;
       
          if (hour==24) 
            {             
              hour=0;
              if(++Dy==7)
              Dy=0;                          
            }
 
}


  unsigned char M_Diff,H_Diff; 
 void EventOnTime()
 {
  
  unsigned char ev;
  
  pEvent=Event;         //Pointer to event structure.
   
   
  for(ev=0;ev<MAX_EV;ev++)       //run through all the events
   {
     
     if(min==pEvent->Mins && hour==pEvent->Hours && Dy==pEvent->Day)
      {
        if(++z> (MAX_EV-1))
         {z=0;}                 //z=index for next event to be displayed
        OUTPUT|=(SOLENOID|LED);		//Switch Solenoid and ON LED
        M_Diff=pEvent->Mins + pEvent->PeriodM;  //add duration time to start time
        H_Diff=pEvent->Hours + pEvent->PeriodH;
               
        if(M_Diff>59)
         {
           M_Diff-=60;           //check for minutes going past the hour
           H_Diff+=1;            //add one to hour if so
         }
        else
          { 
            H_Diff+=0;
          }
         if(H_Diff>23)        //check for hour going past midnight==0:00
          {
            H_Diff-=24;
          } 
      } 
    
      if(hour==H_Diff && min==M_Diff)
       {
    	  OUTPUT&=~(SOLENOID|LED);   //Switch Solenoid and LED off
    	  H_Diff=M_Diff=0;
    	  WriteData(0x10,pTotals,sizeof(Totals));
       }
    
    pEvent++;		// move to next event in structure.	
    
   }
    	
 }  
 

void Display()
{
  unsigned char ind;
  
  
     
     if(disptype==0)//not using Ds
       {
          lcd_pos(line,1);
          lcd_st(Day[Dy]);
          lcd_num(hour,2,1);
          lcd_packet(sep,1);
          lcd_num(min,2,0); 
          lcd_pos(line,11);
          lcd_st(mode[item]);
          lcd_st(Padd[0]);
          lcd_pos(2,0);
          lcd_st("On @ ");
          lcd_num(Event[z].Hours,2,1);
          lcd_packet(sep,1);
          lcd_num(Event[z].Mins,2,0);
          lcd_packet('-',1);
          lcd_st(Day[Event[z].Day]);
          
        } 
  
       
       if(disptype==1)
      {  
         lcd_pos(line,1);
         lcd_st(indx[index]);
         lcd_num(Event[event_no].Hours,2,1);
         lcd_packet(sep,1);
         lcd_num(Event[event_no].Mins,2,0);
         lcd_st(Padd[0]);
         lcd_st(mode[item]);
         lcd_pos(line+1,0);
         lcd_st("Ev ");
         lcd_num(event_no+1,1,1);
         lcd_st(Padd[0]);
         lcd_num(Event[event_no].PeriodH,2,1);
         lcd_packet(sep,1); 
         lcd_num(Event[event_no].PeriodM,2,0);
         //lcd_st(Padd[0]);
         lcd_packet('-',1); 
         lcd_st(Day[Event[event_no].Day]);
         
      } 
     
    //display for cost and usage 
       if(disptype==2)
         {    lcd_pos(line,1);
              lcd_num(Totals.TotalMSD,4,1);
              lcd_packet('.',1);
              lcd_num(Totals.TotalLSD,2,0);
              lcd_pos(line,8);
              lcd_st(Padd[0]);
              lcd_pos(line,11);
              lcd_num(Totals.CostMSD,1,1);
              lcd_packet('.',1);
              lcd_num(Totals.CostLSD,2,0);
              
              //lcd_st(Padd[0]);
              lcd_pos(line+1,0);
              lcd_st(Padd[0]);
              lcd_num(Totals.Klt,3,0);        
              lcd_packet('.',1);              
              lcd_num(Totals.HunLt,1,0);
              lcd_num(Totals.TenLt,2,0);
              lcd_packet('-',1);
              if(item==(-1))
               lcd_st("Klt ");
              else
               lcd_st(mode[item]); 
               lcd_packet(' ',1);
        }      
              
         
  
       

}


 
void Usage()       // Function to 
{
   
   Totals.TenLt++;
   if(Totals.TenLt>99)
    {
      Totals.TenLt=0;
      Totals.HunLt++;
      if(Totals.HunLt>9)
       {
         Totals.HunLt=0;
         Totals.Klt++;
         AddCost();
         if(Totals.Klt>999)
          {
            Totals.Klt=0;
            Totals.TenLt=1;
          } 
       }
    }
    
      
 }

void AddCost()
{
 //Only addition is required as we only get here after each 1Kltr has passed
  
  Totals.TotalLSD+=Totals.CostLSD;
  if(Totals.TotalLSD<100)
   {
    // TotalMSD+=CostMSD;
    #asm
     bsf STATUS,RP0   ;get into right bank - found by trial and error
     movlw Totals     ;Get address of Totals Structure
     movwf FSR        ;put it in indirect addressing register
     movf  Totals+3,W ;Put contents of Totals.TotalLSD into W 
     addwf INDF,W     ;add W to contents of FSR= Totals.CostMSD, result imto W
     movwf Totals+3   ;update Totals.TotalLSD with W(W held sum of costmsd+total)
     btfsc STATUS,C   ;goto end of function unless a 'C'arryover to next byte
     incf  Totals+4   ; yes so increment high byte
     bcf STATUS,RP0
    #asmend
   }
  else
   {
    Totals.TotalLSD-=100;  //adjust c/p amount to amount - 100
    Totals.TotalMSD++;     //add one to $/£ amount
    #asm
     bsf STATUS,RP0   
     movlw Totals     
     movwf FSR        
     movf  Totals+3,W 
     addwf INDF,W     
     movwf Totals+3   
     btfsc STATUS,C   
     incf  Totals+4 
     bcf STATUS,RP0
    #asmend
   }  
}

//Left justifies zero's
void LZero(char digit,char *st) 
{
  if(digit<10)
  {
    *st='0';
    st++;
  }
  cPrtString(st,digit);
}

void FirstBoot(unsigned char addr,unsigned char structsize)
{
  unsigned char loop;
  
  if(ReadEEData(0)=='#')          //Check if '#' sign is in EEPROM at addr 0x00
    {
      for(loop=structsize;loop;loop--)
       {
         *pTotals=ReadEEData(addr); //copy data into Totals via pointer pTotals
         addr++;                    //move to next address 
         pTotals++;                 //move pointer to next element in structure
       }
       pTotals-=structsize;        // move pointer back to beginning of totals
       if(!(PCON&(1<<NOT_POR)))    //If power on reset flash led to show we may have
        {                          //had a power cut no events have taken place
          B_PCON.NOT_POR=1;
          while(!(ButtonPort&ENTER_BUTTON)) //enter button must be pressed to restart
           {
             OUTPUT^=LED;      //led or buzzer pin
             Wait(200);
           }
          OUTPUT&=~1<<LED;  
        }
    }
}

 char WhichKey()
{
 unsigned char KeyDetect,KeyPress;

  
 KeyPress=0;
     
  if (ButtonPort&ENTER_BUTTON)
   {
    
    KeyPress=ENTER_KEY;
           
   }
   
  if (ButtonPort&WHOLE_DIGITS)
   {
   
     KeyPress=BUTTON_2;
     
   }
  
  if (ButtonPort&TENTH_DIGITS)
   {
   
     KeyPress=BUTTON_3;
   }

  if(KeyPress==0)
     {
       KeyDetect=0;
     } 
  else
     {
      // SysFlag.KeyE=1;
       KeyDetect=KeyPress;
     }
        
     return KeyPress;
 
}



void DoKey(unsigned char Key)
{
 unsigned char button,ev;
 unsigned char DayNo=0;
  
 button=Key;
 
       
 if(item && !button)
   {
    --TimeOut;           //20 second delay before returning to normal mode
   }
 else
   {
    TimeOut=DELAY;
   }
 
  if(!TimeOut)
   {
     item=0;
     index=0;
     disptype=0;
     lcd_clear();
     button=0;        //Not sure why this is required
   }
   
 if(button==ENTER_KEY)
  {
   
    item++;
  
    if(item==6)
     {
       disptype=0;
       lcd_clear();
       item=0;
     }
  }
 
 
 switch(item)
  {
    case RUN_MODE : if(RUN_MODE && item==-1)
                      {disptype=2;break;}disptype=0;break;
    case ON_TIME  : disptype=1;break;
    case SET_DAY  : disptype=0;break;
    case SET_TIME : disptype=0;break;
    case SET_COST : disptype=2;break;
    case RESET    : disptype=2;break;
  
 }
 
 
  
 if (button==BUTTON_2)
 {
  
  switch (item)
   {    case RUN_MODE :             disptype=2;item=-1;break; 
 	case ON_TIME  :	            if(index==0)
 	                             {
 	                               Event[event_no].Day++;
        			       if(Event[event_no].Day==7);
        			       Event[event_no].Day=0;
 	                             }
 	                             
 	                            if(index==1)
 	                             {
 	                               Event[event_no].Hours++;
				       if(Event[event_no].Hours==24)
				       Event[event_no].Hours=0;
				     }
				     
				    if(index==2)
				     {
				       Event[event_no].Mins++;
				       if(Event[event_no].Mins==60)
				       Event[event_no].Mins=0;
				     }
				     
				    if(index==3)
				     {
				       Event[event_no].PeriodH++;
				       if(Event[event_no].PeriodH==5)
				       Event[event_no].PeriodH=0;
				     }
				    
				    if(index==4)
				     {
				       Event[event_no].PeriodM+=15;
				       if(Event[event_no].PeriodM==60)
				       Event[event_no].PeriodM=0;
				     }
				    
				    if(index==5)
				     {
	                               if(++event_no==MAX_EV)
				        {
				          event_no=0;
				        }
				     }
				    break; 
       	        
 	
	case SET_DAY  :         Dy++;
				if(Dy==7)
				Dy=0;
				break;
	
	case SET_TIME : 	hour++;
 				if(hour==24)
 				hour=0;
 				break;
	
	case SET_COST : 	Totals.CostMSD++;
	                        if(Totals.CostMSD==10)
	                        Totals.CostMSD=0;
	                        WriteData(0x10,pTotals,sizeof(Totals));
	                        break;
		
				
	case RESET    :	      	Totals.Klt=0;
	                        Totals.TenLt=0;
	                        Totals.HunLt=0;
 				break;
	
   }
   

  }
  
  
  
  if (button==BUTTON_3)
  {
    switch (item)
      {		
      	case ON_TIME    :	ChangeEvent();
				break;
	
 				
 	case SET_TIME   :	min++;
 			 	if(min==60)
 			 	 {
 				   min=0 ; 
 				 }
 				sec=0;
 				break;
 		         
 		          
        case SET_COST   : 	Totals.CostLSD++;
                                if(Totals.CostLSD==100)
                                Totals.CostLSD=0;
                                WriteData(0x10,pTotals,sizeof(Totals));
				break;
	
	
	case RESET      :	Totals.TotalMSD=0;
	                        Totals.TotalLSD=0;
 				break;  
      }
  }
 
 }
 
void ChangeEvent()
{
  if(++index==6)
   {
     index=0;
   }
}

void WriteData(unsigned char addr,unsigned char *data,unsigned char structsize)
{
  unsigned char loop;
  
  for(loop=structsize;loop;loop--)
   {
     WriteEEData(addr,*data);
     data++;
     addr++;
   }
  WriteEEData(0x00,'#');
}