DS1302 时钟芯片的程序.doc

《DS1302 时钟芯片的程序.doc》由会员分享，可在线阅读，更多相关《DS1302 时钟芯片的程序.doc（6页珍藏版）》请在三一文库上搜索。

1、/*公司名称：模块名称：DS1302.c功 能：实时时钟模块 时钟芯片型号：DS1302 说 明：程序设计：zhaojunjie 设计时间：2002.03.02 版 本 号: 20020302*/#include sbit T_CLK = P27; /*实时时钟时钟线引脚 */sbit T_IO = P14; /*实时时钟数据线引脚 */sbit T_RST = P15; /*实时时钟复位线引脚 */sbit ACC0 = ACC0;sbit ACC7 = ACC7;void RTInputByte(uchar); /* 输入 1Byte */uchar RTOutputByte(void);

2、 /* 输出?1Byte */void W1302(uchar, uchar);uchar R1302(uchar);void Set1302(uchar *); /* 设置时间 */void Bcd2asc(uchar,uchar *);void Get1302(uchar curtime); /* 读取1302当前时间 */* 函 数 名：RTInputByte()功 能：实时时钟写入一字节说 明：往DS1302写入1Byte数据 (内部函数)入口参数：d 写入的数据 返 回 值：无 设 计：zhaojunjie 日 期：2002-03-19修 改： 日 期： */void RTInput

3、Byte(uchar d) uchar i; ACC = d; for(i=8; i0; 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; i0; i-) ACC = ACC 1; /*

4、相当于汇编中的 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

5、= 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 ucD

6、ata; 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 1

7、B 1B 1B返 回 值：无设 计：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:时钟多字节写命令 */ for (i = 8; i0; i-) /*8Byte = 7Byte 时钟数据 + 1Byte 控制*/ RTInputByte(*pWClock); /* 写1Byte数据*/ pW

8、Clock+; T_CLK = 1; T_RST = 0; /* 函 数 名：BurstR1302T()功 能：读取DS1302时钟数据说 明：先写地址/命令,后读数据(时钟多字节方式)调 用：RTInputByte() , RTOutputByte()入口参数：pRClock: 读取时钟数据地址 格式为: 秒 分 时 日 月 星期 年 7Byte (BCD码)1B 1B 1B 1B 1B 1B 1B返 回 值：无设 计：zhaojunjie 日 期：2002-03-19修 改： 日 期： */void BurstR1302T(uchar *pRClock) uchar i; T_RST =

9、0; T_CLK = 0; T_RST = 1; RTInputByte(0xbf); /* 0xbf:时钟多字节读命令 */ for (i=8; i0; i-) *pRClock = RTOutputByte(); /* 读1Byte数据 */ pRClock+; T_CLK = 1; T_RST = 0;/* 函 数 名：BurstW1302R()功 能：往DS1302寄存器数写入数据(多字节方式)说 明：先写地址,后写数据(寄存器多字节方式)调 用：RTInputByte()入口参数：pWReg: 寄存器数据地址返 回 值：无设 计：zhaojunjie 日 期：2002-03-19修

10、改： 日 期： */void BurstW1302R(uchar *pWReg) uchar i; W1302(0x8e,0x00); /* 控制命令,WP=0,写操作*/ T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(0xfe); /* 0xbe:时钟多字节写命令 */ for (i=31; i0; i-) /* 31Byte 寄存器数据 */ RTInputByte(*pWReg); /* 写1Byte数据*/ pWReg+; T_CLK = 1; T_RST = 0; /* 函 数 名：BurstR1302R()功 能：读取DS1302寄存器数

11、据说 明：先写地址,后读命令/数据(寄存器多字节方式)调 用：RTInputByte() , RTOutputByte()入口参数：pRReg: 寄存器数据地址返 回 值：无设 计：zhaojunjie 日 期：2002-03-19修 改： 日 期： */void BurstR1302R(uchar *pRReg) uchar i; T_RST = 0; T_CLK = 0; T_RST = 1; RTInputByte(0xff); /* 0xff:时钟多字节读命令 */ for (i=31; i0; i-) /*31Byte 寄存器数据 */ *pRReg = RTOutputByte()

12、; /* 读1Byte数据 */ pRReg+; T_CLK = 1; T_RST = 0;/* 函 数 名：Set1302()功 能：设置初始时间说 明：先写地址,后读命令/数据(寄存器多字节方式)调 用：W1302()入口参数：pClock: 设置时钟数据地址 格式为: 秒 分 时 日 月 星期 年 7Byte (BCD码)1B 1B 1B 1B 1B 1B 1B返 回 值：无设 计：zhaojunjie 日 期：2002-03-19修 改： 日 期： */void Set1302(uchar *pClock) uchar i; uchar ucAddr = 0x80; W1302(0x8

13、e,0x00); /* 控制命令,WP=0,写操作?*/ for(i =7; i0; i-) W1302(ucAddr,*pClock); /* 秒 分 时 日 月 星期 年 */ pClock+; ucAddr +=2; W1302(0x8e,0x80); /* 控制命令,WP=1,写保护?*/* 函 数 名：Get1302()功 能：读取DS1302当前时间说 明：调 用：R1302() 入口参数：ucCurtime: 保存当前时间地址。当前时间格式为: 秒 分 时 日 月 星期 年 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B返 回 值：无设 计：zhaojunjie 日 期：2002-03-19修 改： 日 期： */void Get1302(uchar ucCurtime) uchar i; uchar ucAddr = 0x81; for (i=0; i7; i+) ucCurtime = R1302(ucAddr);/*格式为: 秒 分 时 日 月 星期 年 */ ucAddr += 2; /*/*/