#include "time.h"
#include "ac2a.h"
#include <intrins.h>

void rtc_delay(){_nop_();_nop_();_nop_();}
/*********************************************************************

 公司名稱：
 模塊名稱：DS1302.c
 功    能：實時時鐘模塊           時鐘芯片型號：DS1302 
 說    明：
 程序設計：zhaojunjie       修改和增加：Gary Wong    
 設計時間：2002.03.02        
 版 本 號: 20020302
*********************************************************************/

/******************************************************************** 

 函 數 名：RTInputByte()
 功    能：實時時鐘寫入一字節
 說    明：往DS1302寫入1Byte數據 (內部函數)
 入口參數：d 寫入的數據 
 返 回 值：無  
 設    計：zhaojunjie           日    期：2002-03-19
 修    改：                     日    期： 
***********************************************************************/
void RTInputByte(uchar d) 
{ 
    uchar i;
    ACC = d;
    for(i=8; i>0; i--)
    {
        T_IO = ACC0;           /*相當于匯編中的 RRC */
        T_CLK = 1;
        T_CLK = 0;
        ACC = ACC >> 1; 
    } 
}
/******************************************************************** 

 函 數 名：RTOutputByte()
 功    能：實時時鐘讀取一字節
 說    明：從DS1302讀取1Byte數據 (內部函數)
 入口參數：無  
 返 回 值：ACC
 設    計：zhaojunjie           日    期：2002-03-19
 修    改：                     日    期： 
***********************************************************************/
uchar RTOutputByte(void) 
{ 
    uchar i;
    for(i=8; i>0; i--)
    {
        ACC = ACC >>1;         /*相當于匯編中的 RRC */
        ACC7 = T_IO;
        T_CLK = 1;
        T_CLK = 0;
    } 
    return(ACC); 
}
/******************************************************************** 

 函 數 名：W1302()
 功    能：往DS1302寫入數據
 說    明：先寫地址，后寫命令/數據 (內部函數)
 調    用：RTInputByte() , RTOutputByte()
 入口參數：ucAddr: DS1302地址, ucData: 要寫的數據
 返 回 值：無
 設    計：zhaojunjie           日    期：2002-03-19
 修    改：                     日    期： 
***********************************************************************/
void W1302(uchar ucAddr, uchar ucDa)
{
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(ucAddr);       /* 地址，命令 */
    RTInputByte(ucDa);       /* 寫1Byte數據*/
    T_CLK = 1;
    T_RST = 0;
} 
/******************************************************************** 

 函 數 名：R1302()
 功    能：讀取DS1302某地址的數據
 說    明：先寫地址，后讀命令/數據 (內部函數)
 調    用：RTInputByte() , RTOutputByte()
 入口參數：ucAddr: DS1302地址
 返 回 值：ucData :讀取的數據
 設    計：zhaojunjie           日    期：2002-03-19
 修    改：                     日    期： 
***********************************************************************/
uchar R1302(uchar ucAddr)
{
    uchar ucData;
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(ucAddr);             /* 地址，命令 */
    ucData = RTOutputByte();         /* 讀1Byte數據 */
    T_CLK = 1;
    T_RST = 0;
    return(ucData);
}
/******************************************************************** 

 函 數 名：BurstW1302T()
 功    能：往DS1302寫入時鐘數據(多字節方式)
 說    明：先寫地址，后寫命令/數據
 調    用：RTInputByte() 
 入口參數：pWClock: 時鐘數據地址 格式為: 秒 分 時 日 月 星期 年 控制
                            8Byte (BCD碼)1B 1B 1B 1B 1B  1B  1B 1B
 返 回 值：無
 設    計：zhaojunjie           日    期：2002-03-19
 修    改：                     日    期： 
***********************************************************************/
void set_time(TIME_STRUCT *ts)
{
    uchar i;
	BCD buf[8];

	buf[0]=ts->sec;buf[1]=ts->min;
	buf[2]=ts->hr; buf[3]=ts->dat;
	buf[4]=ts->mon;buf[5]=ts->week;buf[6]=ts->yr;
	buf[7]=0x80;

    W1302(0x8e,0x00);         /* 控制命令,WP=0,寫操作?*/
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(0xbe);        /* 0xbe:時鐘多字節寫命令 */
    for (i = 0; i<8; i++)     /*8Byte = 7Byte 時鐘數據 + 1Byte 控制*/
    {
        RTInputByte(buf[i]); /* 寫1Byte數據*/     
    }
    T_CLK = 1;
    T_RST = 0;
} 
/******************************************************************** 

 函 數 名：BurstR1302T()
 功    能：讀取DS1302時鐘數據
 說    明：先寫地址/命令，后讀數據(時鐘多字節方式)
 調    用：RTInputByte() , RTOutputByte()
 入口參數：pRClock: 讀取時鐘數據地址 格式為: 秒 分 時 日 月 星期 年
                               7Byte (BCD碼)1B 1B 1B 1B 1B  1B  1B
 返 回 值：無
 設    計：zhaojunjie           日    期：2002-03-19
 修    改：Gary Wong            日    期： 2004-11-17
***********************************************************************/
void read_time(TIME_STRUCT *ts)
{
    uchar i;
	BCD buf[8];

    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(0xbf);             /* 0xbf:時鐘多字節讀命令 */
    for (i=0; i<8; i++) 
    {
       buf[i] = RTOutputByte();   /* 讀1Byte數據 */
    }
    T_CLK = 1;
    T_RST = 0;

	ts->sec=buf[0];ts->min=buf[1];ts->hr  =buf[2];
	ts->dat=buf[3];ts->mon=buf[4];ts->week=buf[5];
	ts->yr=buf[6];	   
}

/******************************************************************************/
/*author:Gary Wong
/******************************************************************************/
void rd_rtc_ram(BYTE addr,BYTE *buf,BYTE len)
{
	BYTE i;
	for(i=0;i<len;i++)buf[i]=R1302(0xc1 + (i+addr)*2);
}

void wr_rtc_ram(BYTE addr,BYTE *buf,BYTE len)
{
	BYTE i;
    W1302(0x8e,0x00);           /* 控制命令,WP=0,寫操作?**/
	rtc_delay();
	for(i=0;i<len;i++)
	{
		W1302(0xc0+(addr+i)*2,buf[i]);			
	}
	rtc_delay();
	W1302(0x8e,0x80);
}