sbit T_CLK=P1^2;
sbit T_IO =P1^1;
sbit T_RST=P1^0;
sbit ACC0=ACC^0;
sbit ACC7=ACC^7;
//********DS1302讀寫程序***************
/******************************************************************** 
 函 數 名：RTInputByte()
 功    能：實時時鐘寫入一字節
 說    明：往DS1302寫入1Byte數據 (內部函數)
 入口參數：d 寫入的數據 
 返 回 值：無  
 ***********************************************************************/
void RTInputByte(unsigned char d) 
{ 
    unsigned char 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
 修    改：                     日    期： 
***********************************************************************/
unsigned char RTOutputByte(void) 
{ 
    unsigned char i;
    for(i=8; i>0; i--)
    {
        ACC = ACC >>1;         //相當于匯編中的 RRC
        ACC7 = T_IO;
        T_CLK = 1;
        T_CLK = 0;
    } 
    return(ACC); 
}
/******************************************************************** 
 函 數 名：Write1302()
 功    能：往DS1302寫入數據
 說    明：先寫地址，后寫命令/數據 (內部函數)
 調    用：RTInputByte() , RTOutputByte()
 入口參數：ucAddr: DS1302地址, ucData: 要寫的數據
 返 回 值：無
 ***********************************************************************/
void Write1302(unsigned char ucAddr, unsigned char ucDa)
{
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(ucAddr);       // 地址，命令 
    RTInputByte(ucDa);         // 寫1Byte數據
    T_CLK = 1;
    T_RST = 0;
}
/******************************************************************** 
 函 數 名：Read1302()
 功    能：讀取DS1302某地址的數據
 說    明：先寫地址，后讀命令/數據 (內部函數)
 調    用：RTInputByte() , RTOutputByte()
 入口參數：ucAddr: DS1302地址
 返 回 值：ucData :讀取的數據
***********************************************************************/
unsigned char Read1302(unsigned char ucAddr)
{
    unsigned char ucData;
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(ucAddr);             // 地址，命令 
    ucData = RTOutputByte();         // 讀1Byte數據
    T_CLK = 1;
    T_RST = 0;
    return(ucData);
}
/******************************************************************** 
 函 數 名：Set1302()
 功    能：設置初始時間
 說    明：先寫地址，后讀命令/數據(寄存器多字節方式)
 調    用：Write1302()
 入口參數：pClock: 設置時鐘數據地址 格式為: 秒 分 時 日 月 星期 年
                               7Byte (BCD碼)1B 1B 1B 1B 1B  1B  1B
 返 回 值：無
***********************************************************************/
void Set1302(unsigned char *pClock) 
{
    unsigned char i;
    unsigned char ucAddr = 0x80; 
    Write1302(0x8e,0x00);           // 控制命令,WP=0,寫操作
    for(i =7; i>0; i--)
    { 
        Write1302(ucAddr,*pClock);  // 秒 分 時 日 月 星期 年
        pClock++;
        ucAddr +=2;
    }
    Write1302(0x8e,0x80);           // 控制命令,WP=1,寫保護
}