//////////////////////////////////////////////////////////////////////////
////                               DS1305.C                           ////
////                     Driver for Real Time Clock                   ////
////                                                                  ////
////  rtc_init()                                   Call after power up////
////                                                                  ////
////  rtc_set_datetime(day,mth,year,dow,hour,min)  Set the date/time  ////
////                                                                  ////
////  rtc_get_date(day,mth,year,dow)               Get the date       ////
////                                                                  ////
////  rtc_get_time(hr,min,sec)                     Get the time       ////
////                                                                  ////
////  rtc_write_nvr(address,data)                  Write to NVR       ////
////                                                                  ////
////  data = rtc_read_nvr(address)                 Read from NVR      ////
////                                                                  ////
////  get_bcd(data)                              Convert data to BCD  ////
////                                                                  ////
////  rm_bcd(data)                               Convert data to int  ////
////                                                                  ////
//////////////////////////////////////////////////////////////////////////
////        (C) Copyright 1996,2003 Custom Computer Services          ////
//// This source code may only be used by licensed users of the CCS C ////
//// compiler.  This source code may only be distributed to other     ////
//// licensed users of the CCS C compiler.  No other use, reproduction////
//// or distribution is permitted without written permission.         ////
//// Derivative programs created using this software in object code   ////
//// form are not restricted in any way.                              ////
//////////////////////////////////////////////////////////////////////////

#ifndef RTC_SCLK

#define RTC_SCLK PIN_B1
#define RTC_IO   PIN_B3
#define RTC_RST  PIN_B2

#endif

void write_ds1305_byte(BYTE cmd) {
   BYTE i;

   for(i=0;i<=7;++i) {
      output_bit(RTC_IO, shift_right(&cmd,1,0) );
      output_high(RTC_SCLK);
		delay_us(1);
      output_low(RTC_SCLK);
   }
}

void write_ds1305(BYTE cmd, BYTE data) {
   output_high(RTC_RST);
	delay_us(1);
   write_ds1305_byte(cmd);
   write_ds1305_byte(data);
   output_low(RTC_RST);
}

BYTE read_ds1305(BYTE cmd) {
   BYTE i,data;

   output_high(RTC_RST);
   write_ds1305_byte(cmd);

   for(i=0;i<=7;++i) {
      shift_right(&data,1,input(RTC_IO));
      output_high(RTC_SCLK);
		delay_us(1);
      output_low(RTC_SCLK);
   }
   output_low(RTC_RST);
   return(data);
}

void rtc_init() {
   output_low(RTC_RST);
   output_low(RTC_SCLK);
   write_ds1305(0x8f,0);		//osc enabled; no write protect; no interrupts
}

int get_bcd(BYTE data)
{
   int nibh;
   int nibl;

   nibh=data/10;
   nibl=data-(nibh*10);

   return((nibh<<4)|nibl);
}

int rm_bcd(BYTE data)
{
   int i;

   i=data;
   data=(i>>4)*10;
   data=data+(i<<4>>4);

   return data;
}

void rtc_set_datetime(BYTE day, BYTE mth, BYTE year, BYTE dow, BYTE hr, BYTE min) {
   write_ds1305(0x84,get_bcd(day));
   write_ds1305(0x85,get_bcd(mth));
   write_ds1305(0x86,get_bcd(year));
   write_ds1305(0x83,get_bcd(dow));
   write_ds1305(0x82,get_bcd(hr));
   write_ds1305(0x81,get_bcd(min));
   write_ds1305(0x80,0);
}

void rtc_get_date(BYTE& day, BYTE& mth, BYTE& year, BYTE& dow) {
   day = rm_bcd(read_ds1305(0x04));
   mth = rm_bcd(read_ds1305(0x05));
   year = rm_bcd(read_ds1305(0x06));
   dow = rm_bcd(read_ds1305(0x03));
}


void rtc_get_time(BYTE& hr, BYTE& min, BYTE& sec) {
   hr = rm_bcd(read_ds1305(0x02));
   min = rm_bcd(read_ds1305(0x01));
   sec = rm_bcd(read_ds1305(0x00));
}

void rtc_write_nvr(BYTE address, BYTE data) {	//valid address: 0x00 to 0x5F
   write_ds1305(address|0xa0,data);
}

BYTE rtc_read_nvr(BYTE address) {
    return(read_ds1305(address|0x20));
}
