?? 時(shí)鐘芯片ds1302 的程序.txt
字號:
時(shí)鐘芯片DS1302 的程序（jyh.h頭文件)
發(fā)布時(shí)間:2003年6月26日
點(diǎn)擊次數(shù):7753
詳細(xì)內(nèi)容:時(shí)鐘芯片DS1302 的程序（jyh.h頭文件)
#include
#include
#include
#include
#define uchar unsigned char
#define uint unsigned int
#define byte unsigned char
#define word unsigned int
extern void Set1302(uchar *); /* 設(shè)置時(shí)間 */
extern void Get1302(uchar curtime[]); /* 讀取1302當(dāng)前時(shí)間 */
extern void Bcd2asc(uchar,uchar *);
時(shí)鐘芯片DS1302 的程序
發(fā)布時(shí)間:2003年6月26日
點(diǎn)擊次數(shù):12353
詳細(xì)內(nèi)容:時(shí)鐘芯片DS1302 的程序
/*********************************************************************
公司名稱：
模塊名稱：DS1302.c
功 能：實(shí)時(shí)時(shí)鐘模塊 時(shí)鐘芯片型號：DS1302
說 明：
程序設(shè)計(jì)：zhaojunjie
設(shè)計(jì)時(shí)間：2002.03.02
版 本 號: 20020302
*********************************************************************/
#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é)
說 明：往DS1302寫入1Byte數(shù)據(jù) (內(nèi)部函數(shù))
入口參數(shù)：d 寫入的數(shù)據(jù)
返 回 值：無
設(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é)
說 明：從DS1302讀取1Byte數(shù)據(jù) (內(nèi)部函數(shù))
入口參數(shù)：無
返 回 值：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ù)
說 明：先寫地址,后寫命令/數(shù)據(jù) (內(nèi)部函數(shù))
調(diào) 用：RTInputByte() , RTOutputByte()
入口參數(shù)：ucAddr: DS1302地址, ucData: 要寫的數(shù)據(jù)
返 回 值：無
設(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ù)
說 明：先寫地址,后讀命令/數(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é)方式)
說 明：先寫地址,后寫命令/數(shù)據(jù)
調(diào) 用：RTInputByte()
入口參數(shù)：pWClock: 時(shí)鐘數(shù)據(jù)地址 格式為: 秒 分 時(shí) 日 月 星期 年 控制
8Byte (BCD碼)1B 1B 1B 1B 1B 1B 1B 1B
返 回 值：無
設(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ù)
說 明：先寫地址/命令,后讀數(shù)據(jù)(時(shí)鐘多字節(jié)方式)
調(diào) 用：RTInputByte() , RTOutputByte()
入口參數(shù)：pRClock: 讀取時(shí)鐘數(shù)據(jù)地址 格式為: 秒 分 時(shí) 日 月 星期 年
7Byte (BCD碼)1B 1B 1B 1B 1B 1B 1B
返 回 值：無
設(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é)方式)
說 明：先寫地址,后寫數(shù)據(jù)(寄存器多字節(jié)方式)
調(diào) 用：RTInputByte()
入口參數(shù)：pWReg: 寄存器數(shù)據(jù)地址
返 回 值：無
設(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ù)
說 明：先寫地址,后讀命令/數(shù)據(jù)(寄存器多字節(jié)方式)
調(diào) 用：RTInputByte() , RTOutputByte()
入口參數(shù)：pRReg: 寄存器數(shù)據(jù)地址
返 回 值：無
設(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í)間
說 明：先寫地址,后讀命令/數(shù)據(jù)(寄存器多字節(jié)方式)
調(diào) 用：W1302()
入口參數(shù)：pClock: 設(shè)置時(shí)鐘數(shù)據(jù)地址 格式為: 秒 分 時(shí) 日 月 星期 年
7Byte (BCD碼)1B 1B 1B 1B 1B 1B 1B
返 回 值：無
設(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í)間
說 明：
調(diào) 用：R1302()
入口參數(shù)：ucCurtime: 保存當(dāng)前時(shí)間地址。當(dāng)前時(shí)間格式為: 秒 分 時(shí) 日 月 星期 年
7Byte (BCD碼) 1B 1B 1B 1B 1B 1B 1B
返 回 值：無
設(shè) 計(jì)：zhaojunjie 日 期：2002-03-19
修 改： 日 期：
***********************************************************************/
void Get1302(uchar ucCurtime[])
{
uchar i;
uchar ucAddr = 0x81;
for (i=0; i<7; i++)
{
ucCurtime[i] = R1302(ucAddr);/*格式為: 秒 分 時(shí) 日 月 星期 年 */
ucAddr += 2;
}
}
/*//////////////////////////////////////////////////////////////////////*/
時(shí)鐘芯片DS1302 的程序（匯編）
發(fā)布時(shí)間:2003年6月26日
點(diǎn)擊次數(shù):13001
詳細(xì)內(nèi)容:時(shí)鐘芯片DS1302 的程序（匯編）
;*********************************************************************
; 公司名稱：
; 模塊名稱：DS1302.a51
; 功 能：實(shí)時(shí)時(shí)鐘模塊 時(shí)鐘芯片型號：DS1302
; 說 明：(修改版)
; 程序設(shè)計(jì)：zhaojunjie
; 設(shè)計(jì)時(shí)間：2002.05.04
; 版 本 號：20020504
;*********************************************************************/
T_CLK Bit P2.7 ;實(shí)時(shí)時(shí)鐘時(shí)鐘線引腳
T_IO Bit P1.4 ;實(shí)時(shí)時(shí)鐘數(shù)據(jù)線引腳
T_RST Bit P1.5 ;實(shí)時(shí)時(shí)鐘復(fù)位線引腳
;**********************************************************
;子程序名：Set1302
;功 能：設(shè)置DS1302 初始時(shí)間,并啟動(dòng)計(jì)時(shí)。
;說 明：
;調(diào) 用：RTInputByte
;入口參數(shù)：初始時(shí)間在:Second,Minute,Hour,Day,Month,Week.YearL(地址連續(xù))
;出口參數(shù)：無
;影響資源：A B R0 R1 R4 R7
;設(shè) 計(jì)：zhaojunjie 日 期：2002-03-19
;修 改： 日 期：
;**********************************************************
Set1302:
CLR T_RST
CLR T_CLK
SETB T_RST
MOV B, #8EH ;控制寄存器
LCALL RTInputByte
MOV B, #00H ;寫操作前WP=0
LCALL RTInputByte
SETB T_CLK
CLR T_RST
MOV R0, #Second;
MOV R7, #7 ;秒 分 時(shí) 日 月 星期 年
MOV R1, #80H ;秒寫地址
S13021: CLR T_RST
CLR T_CLK
SETB T_RST
MOV B, R1 ;寫秒 分 時(shí) 日 月 星期 年 地址
LCALL RTInputByte
MOV A, @R0 ;寫秒數(shù)據(jù)
MOV B, A
LCALL RTInputByte
INC R0
INC R1
INC R1
SETB T_CLK
CLR T_RST
DJNZ R7, S13021
CLR T_RST
CLR T_CLK
SETB T_RST
MOV B, #8EH ;控制寄存器
LCALL RTInputByte
MOV B, #80H ;控制,WP=1,寫保護(hù)
LCALL RTInputByte
SETB T_CLK
CLR T_RST
RET
;**********************************************************
;子程序名：Get1302
;功 能：從DS1302 讀時(shí)間
;說 明：
;調(diào) 用：RTInputByte,RTOutputByte
;入口參數(shù)：時(shí)間保存在:Second,Minute,Hour,Day,Month,Week.YearL
;出口參數(shù)：無
;影響資源：A B R0 R1 R4 R7
;設(shè) 計(jì)：zhaojunjie 日 期：2002-03-19
;修 改： 日 期：
;**********************************************************
Get1302:
MOV R0, #Second;
MOV R7, #7
MOV R1, #81H ;秒地址
G13021: CLR T_RST
CLR T_CLK
SETB T_RST
MOV B, R1 ;秒 分 時(shí) 日 月 星期 年 地址
LCALL RTInputByte
LCALL RTOutputByte
MOV @R0, A ;秒
INC R0
INC R1
INC R1
SETB T_CLK
CLR T_RST
DJNZ R7, G13021
RET
;**********************************************************
;功 能：寫1302一字節(jié) （內(nèi)部子程序）
;**********************************************************
RTInputByte:
MOV R4, #8
Inbit1: MOV A, B
RRC A
MOV B, A
MOV T_IO, C
SETB T_CLK
CLR T_CLK
DJNZ R4, Inbit1
RET
;**********************************************************
;功 能：讀1302一字節(jié) （內(nèi)部子程序）
;**********************************************************
RTOutputByte:
MOV R4, #8
Outbit1: MOV C, T_IO
RRC A
SETB T_CLK
CLR T_CLK
DJNZ R4, Outbit1
RET
;/////////////////////////////////////////////////////////////////////////////
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -