ds1302.c

51单片机实现的温湿度采集监控

#include<DS1302.h>
#include<reg52.h>

sbit ACC0	=ACC^0;
sbit ACC7	= ACC^7;
sbit DS_CLK	= P1^0;
sbit DS_IO	= P1^1;
sbit DS_RST	= P1^2;

/******************************************************************** 
函 数 名：RTInputByte()
功    能：实时时钟写入一字节
说    明：往DS1302写入1Byte数据 (内部函数)
入口参数：d 写入的数据 
返 回 值：无  
***********************************************************************/
void RTInputByte(uchar d) 
{ 
    uchar i;
    ACC = d;
    for(i=8; i>0; i--)
    {
        DS_IO = ACC0;           /*相当于汇编中的 RRC */
        DS_CLK = 1;
        DS_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 = DS_IO;
        DS_CLK = 1;
        DS_CLK = 0;
    } 
    return(ACC); 
}
/******************************************************************** 
函 数 名：W1302()
功    能：往DS1302写入数据
说    明：先写地址，后写命令/数据 (内部函数)
调    用：RTInputByte() , RTOutputByte()
入口参数：ucAddr: DS1302地址, ucData: 要写的数据
返 回 值：无
***********************************************************************/
void W1302(uchar ucAddr, uchar ucDa)
{
    DS_RST = 0;
    DS_CLK = 0;
    DS_RST = 1;
    RTInputByte(ucAddr);       /* 地址，命令 */
    RTInputByte(ucDa);       /* 写1Byte数据*/
    DS_CLK = 1;
    DS_RST = 0;
}
/******************************************************************** 
函 数 名：R1302()
功    能：读取DS1302某地址的数据
说    明：先写地址，后读命令/数据 (内部函数)
调    用：RTInputByte() , RTOutputByte()
入口参数：ucAddr: DS1302地址
返 回 值：ucData :读取的数据
***********************************************************************/
uchar R1302(uchar ucAddr)
{
    uchar ucData;
    DS_RST = 0;
    DS_CLK = 0;
    DS_RST = 1;
    RTInputByte(ucAddr);             /* 地址，命令 */
    ucData = RTOutputByte();         /* 读1Byte数据 */
    DS_CLK = 1;
    DS_RST = 0;
    return(ucData);
}

/******************************************************************** 
函 数 名：Set1302()
功    能：设置初始时间
说    明：先写地址，后读命令/数据(寄存器多字节方式)
调    用：W1302()
入口参数：pClock: 设置时钟数据地址 格式为: 秒 分 时 日 月 星期 年
                               7Byte (BCD码)1B 1B 1B 1B 1B  1B  1B
返 回 值：无
***********************************************************************/
void Set1302(uchar *pClock) 
{
    uchar i;
    uchar ucAddr = 0x80; 
    W1302(0x8e,0x00);           /* 控制命令,WP=0,写操作*/
    for(i =7; i>0; i--)
    { 
        W1302(ucAddr,*pClock);  /* 秒 分 时 日 月 星期 年 */ 
        pClock++;
        ucAddr +=2;
    }
    W1302(0x8e,0x80);           /* 控制命令,WP=1,写保护*/
}
/*
void Get1302(uchar *pTime)
{
	uchar i;
	uchar ucAddr = 0x81;
	for(i=7;i>0;i--)
	{
		*pTime=R1302(ucAddr);
		pTime++;
		ucAddr+=2;
	}
}		  
*/