#include
sbit T_CLK = P2^7; /*實(shí)時(shí)時(shí)鐘時(shí)鐘線引腳 */ sbit T_IO = P1^4; /*實(shí)時(shí)時(shí)鐘數(shù)據(jù)線引腳 */ sbit T_RST = P1^5; /*實(shí)時(shí)時(shí)鐘復(fù)位線引腳 */
sbit ACC0 = ACC^0; sbit ACC7 = ACC^7;
void RTInputByte(uchar); /* 輸入 1Byte */ uchar RTOutputByte(void); /* 輸出?1Byte */ void W1302(uchar, uchar); uchar R1302(uchar); void Set1302(uchar *); /* 設(shè)置時(shí)間 */ void Bcd2asc(uchar,uchar *); void Get1302(uchar curtime[]); /* 讀取1302當(dāng)前時(shí)間 */
/******************************************************************** 函 數(shù) 名:RTInputByte() 功 能:實(shí)時(shí)時(shí)鐘寫入一字節(jié) 說(shuō) 明:往DS1302寫入1Byte數(shù)據(jù) (內(nèi)部函數(shù)) 入口參數(shù):d 寫入的數(shù)據(jù) 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void RTInputByte(uchar d) { uchar i; ACC = d; for(i=8; i>0; i--) { T_IO = ACC0; /*相當(dāng)于匯編中的 RRC */ T_CLK = 1; T_CLK = 0; ACC = ACC >> 1; } }
/******************************************************************** 函 數(shù) 名:RTOutputByte() 功 能:實(shí)時(shí)時(shí)鐘讀取一字節(jié) 說(shuō) 明:從DS1302讀取1Byte數(shù)據(jù) (內(nèi)部函數(shù)) 入口參數(shù):無(wú) 返 回 值:ACC 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ uchar RTOutputByte(void) { uchar i; for(i=8; i>0; i--) { ACC = ACC >>1; /*相當(dāng)于匯編中的 RRC */ ACC7 = T_IO; T_CLK = 1; T_CLK = 0; } return(ACC); }
/******************************************************************** 函 數(shù) 名:W1302() 功 能:往DS1302寫入數(shù)據(jù) 說(shuō) 明:先寫地址,后寫命令/數(shù)據(jù) (內(nèi)部函數(shù)) 調(diào) 用:RTInputByte() , RTOutputByte() 入口參數(shù):ucAddr: DS1302地址, ucData: 要寫的數(shù)據(jù) 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void W1302(uchar ucAddr, uchar ucDa) { T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(ucAddr); /* 地址,命令 */ RTInputByte(ucDa); /* 寫1Byte數(shù)據(jù)*/ T_CLK = 1; T_RST = 0; }
/******************************************************************** 函 數(shù) 名:R1302() 功 能:讀取DS1302某地址的數(shù)據(jù) 說(shuō) 明:先寫地址,后讀命令/數(shù)據(jù) (內(nèi)部函數(shù)) 調(diào) 用:RTInputByte() , RTOutputByte() 入口參數(shù):ucAddr: DS1302地址 返 回 值:ucData :讀取的數(shù)據(jù) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ uchar R1302(uchar ucAddr) { uchar ucData; T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(ucAddr); /* 地址,命令 */ ucData = RTOutputByte(); /* 讀1Byte數(shù)據(jù) */ T_CLK = 1; T_RST = 0; return(ucData); }
/******************************************************************** 函 數(shù) 名:BurstW1302T() 功 能:往DS1302寫入時(shí)鐘數(shù)據(jù)(多字節(jié)方式) 說(shuō) 明:先寫地址,后寫命令/數(shù)據(jù) 調(diào) 用:RTInputByte() 入口參數(shù):pWClock: 時(shí)鐘數(shù)據(jù)地址 格式為: 秒 分 時(shí) 日 月 星期 年 控制 8Byte (BCD碼)1B 1B 1B 1B 1B 1B 1B 1B 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void BurstW1302T(uchar *pWClock) { uchar i; W1302(0x8e,0x00); /* 控制命令,WP=0,寫操作?*/ T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(0xbe); /* 0xbe:時(shí)鐘多字節(jié)寫命令 */ for (i = 8; i>0; i--) /*8Byte = 7Byte 時(shí)鐘數(shù)據(jù) + 1Byte 控制*/ { RTInputByte(*pWClock); /* 寫1Byte數(shù)據(jù)*/ pWClock++; } T_CLK = 1; T_RST = 0; }
/******************************************************************** 函 數(shù) 名:BurstR1302T() 功 能:讀取DS1302時(shí)鐘數(shù)據(jù) 說(shuō) 明:先寫地址/命令,后讀數(shù)據(jù)(時(shí)鐘多字節(jié)方式) 調(diào) 用:RTInputByte() , RTOutputByte() 入口參數(shù):pRClock: 讀取時(shí)鐘數(shù)據(jù)地址 格式為: 秒 分 時(shí) 日 月 星期 年 7Byte (BCD碼)1B 1B 1B 1B 1B 1B 1B 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void BurstR1302T(uchar *pRClock) { uchar i; T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(0xbf); /* 0xbf:時(shí)鐘多字節(jié)讀命令 */ for (i=8; i>0; i--) { *pRClock = RTOutputByte(); /* 讀1Byte數(shù)據(jù) */ pRClock++; } T_CLK = 1; T_RST = 0; }
/******************************************************************** 函 數(shù) 名:BurstW1302R() 功 能:往DS1302寄存器數(shù)寫入數(shù)據(jù)(多字節(jié)方式) 說(shuō) 明:先寫地址,后寫數(shù)據(jù)(寄存器多字節(jié)方式) 調(diào) 用:RTInputByte() 入口參數(shù):pWReg: 寄存器數(shù)據(jù)地址 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void BurstW1302R(uchar *pWReg) { uchar i; W1302(0x8e,0x00); /* 控制命令,WP=0,寫操作*/ T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(0xfe); /* 0xbe:時(shí)鐘多字節(jié)寫命令 */ for (i=31; i>0; i--) /* 31Byte 寄存器數(shù)據(jù) */ { RTInputByte(*pWReg); /* 寫1Byte數(shù)據(jù)*/ pWReg++; } T_CLK = 1; T_RST = 0; }
/******************************************************************** 函 數(shù) 名:BurstR1302R() 功 能:讀取DS1302寄存器數(shù)據(jù) 說(shuō) 明:先寫地址,后讀命令/數(shù)據(jù)(寄存器多字節(jié)方式) 調(diào) 用:RTInputByte() , RTOutputByte() 入口參數(shù):pRReg: 寄存器數(shù)據(jù)地址 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void BurstR1302R(uchar *pRReg) { uchar i; T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(0xff); /* 0xff:時(shí)鐘多字節(jié)讀命令 */ for (i=31; i>0; i--) /*31Byte 寄存器數(shù)據(jù) */ { *pRReg = RTOutputByte(); /* 讀1Byte數(shù)據(jù) */ pRReg++; } T_CLK = 1; T_RST = 0; }
/******************************************************************** 函 數(shù) 名:Set1302() 功 能:設(shè)置初始時(shí)間 說(shuō) 明:先寫地址,后讀命令/數(shù)據(jù)(寄存器多字節(jié)方式) 調(diào) 用:W1302() 入口參數(shù):pClock: 設(shè)置時(shí)鐘數(shù)據(jù)地址 格式為: 秒 分 時(shí) 日 月 星期 年 7Byte (BCD碼)1B 1B 1B 1B 1B 1B 1B 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void Set1302(uchar *pClock) { uchar i; uchar ucAddr = 0x80; W1302(0x8e,0x00); /* 控制命令,WP=0,寫操作?*/ for(i =7; i>0; i--) { W1302(ucAddr,*pClock); /* 秒 分 時(shí) 日 月 星期 年 */ pClock++; ucAddr +=2; } W1302(0x8e,0x80); /* 控制命令,WP=1,寫保護(hù)?*/ }
/******************************************************************** 函 數(shù) 名:Get1302() 功 能:讀取DS1302當(dāng)前時(shí)間 說(shuō) 明: 調(diào) 用:R1302() 入口參數(shù):ucCurtime: 保存當(dāng)前時(shí)間地址。當(dāng)前時(shí)間格式為: 秒 分 時(shí) 日 月 星期 年 7Byte (BCD碼) 1B 1B 1B 1B 1B 1B 1B 返 回 值:無(wú) 設(shè) 計(jì):zhaojunjie 日 期:2002-03-19 修 改: 日 期: ***********************************************************************/ void Get1302(uchar ucCurtime[]) { uchar i; uchar ucAddr = 0x81; for (i=0; i<7; i++) { ucCurtime = R1302(ucAddr);/*格式為: 秒 分 時(shí) 日 月 星期 年 */ ucAddr += 2; } } /*//////////////////////////////////////////////////////////////////////*/  |
|