ds1302.c

这是在凌阳061单片机上写的程序.功能是ds1302的时间显示.

/***************************************************************
 模块名称：DS1302.c 
 功    能：实时时钟模块           时钟芯片型号：DS1302 
 说    明：  此源程序适合于凌阳061单片机，不适用于51单片机 
 说    明    **使用了IOB0，IOB1，IOB2 与DS1302连接
 包含的头文件：reg 061.h //SPCE061A硬件端口操作 位操做
 程序设计：mcl     
 设计时间：2007.08.19        
 版 本 号: 2007819
*********************************************************************/
#include "reg 061.h"

#define  uchar    unsigned char
#define  uint     unsigned int 

///////////设置IOB口的0，1，2分别为与DS1302的接口/////////////
#define  T_CLK     PB->bit.bit8   /*实时时钟时钟线引脚 */
#define  T_IO      PB->bit.bit9   /*实时时钟数据线引脚 */
#define  T_RST     PB->bit.bit10   /*实时时钟复位线引脚 */
/////////////设置端口属性用///////////////////////////////////
//#define T_CLK_Data    PB->bit.bit0
#define T_CLK_Dir     PB_Dir->bit.bit8
#define T_CLK_Attrib  PB_Attrib->bit.bit8

//#define T_IO_Data     PB->bit.bit1
#define T_IO_Dir      PB_Dir->bit.bit9
#define T_IO_Attrib   PB_Attrib->bit.bit9

//#define T_RST_Data    PB->bit.bit2
#define T_RST_Dir     PB_Dir->bit.bit10
#define T_RST_Atttrib PB_Attrib->bit.bit10
/////////////////////////////////////////////////////////////////////

void   IO_Init(void);            //端口初始化
void   IO_ExChange(uint i);      //用于IO端口输入输出的转换 1为转高电平输出  0为转高电平输入

void RTInputByte(uchar d);       /* 写入 1Byte 数据*/
uchar  RTOutputByte(void);       /* 读出 1Byte 数据*/

void W1302(uchar ucAddr, uchar ucDa);
uchar R1302(uchar ucAddr);

void Set1302(uchar *pClock);         /* 设置时间 */
void Get1302(uchar ucCurtime[]);    /* 读取1302当前时间 */
//void   Bcd2asc(uchar,uchar *);

/*****************************************************************8
函数名：IO_Init(void)
功能：  初始化IO端口
说明：   设置T_CLK,T_RST 为上拉输出  T_IO也为上拉输出
入口参数：
返回值：
设  计：mcl       日   期：2007.08.19
修  改：          日   期：
*********************************************************************/
void IO_Init(void)
{
  T_CLK=1;       //正常高电平输出  IOB0
  T_CLK_Dir=1;
  T_CLK_Attrib=1;

  T_IO=0;        //正常低电平输出 IOB1
  T_IO_Dir=1;   
  T_IO_Attrib=1;

  T_RST=0;       //正常低电平输出 IOB2
  T_RST_Dir=1; 
  T_RST_Atttrib=1;
  
}


/*********************************************************************
函数名：IO_ExChang(uint i)
功  能：   IO端口输入输出的转换
说  明：   用于IO端口输入输出的转换 1为转高电平输出  0为转高电平输入
         此处只用于T_IO 端口的输出输入的转换   
入口参数：uint i
返回值：
设  计：mcl       日 期：2007.08.19
修  改：          日 期：
*********************************************************************/
void   IO_ExChange(uint i)
{
  if(i==1)
  { 
   T_IO_Dir=1;   //正常低电平输出 IOB1
   T_IO_Attrib=1;
   T_IO=0; 
  }
  else 
  {
   T_IO_Dir=0;   // 上拉输入 IOB1
   T_IO_Attrib=0;
   T_IO=1;
  }
}

/*******************************************************************
 函 数 名：delay(int i)
 功    能：延时
 说    明：
 入口参数：i 延时长度
 返 回 值：  
 设    计：mcl              日    期：2007.08.20
 修    改：                 日    期：
 ********************************************************************/
 void DS1302delay(int i)
 {
  while(i--);
 }
 
 
/******************************************************************** 
 函 数 名：RTInputByte()
 功    能：实时时钟写入一字节
 说    明：往DS1302写入1Byte数据 (内部函数)
 入口参数：d 写入的数据 
 返 回 值：  
 设    计：mcl              日    期：2007.08.19
 修    改：                 日    期：
***********************************************************************/
void RTInputByte(uchar d) 
{ 
    uchar i,data,a;
    data = d;
    for(i=8; i>0; i--)
    {
    	a=data&0x0001; /*取出数据的最低一位的数据 */
    	if(a==1)
        T_IO=1; 
        else
        T_IO=0;         
        T_CLK = 1; //上升沿发出数据
        DS1302delay(2);               
        T_CLK = 0;
        data = data >> 1; 
    } 
    
}
/******************************************************************** 
 函 数 名：RTOutputByte()
 功    能：实时时钟读取一字节
 说    明：从DS1302读取1Byte数据 (内部函数)
 入口参数：  
 调用函数： vod IO_ExChange(uint i)   i=0;转换为输入
 返 回 值：data
 设    计：mcl         日    期：2007.08.19
 修    改：            日    期：
***********************************************************************/
uchar RTOutputByte(void) 
{ 
    uchar i,data,temp;
    data=0;
    IO_ExChange(0);
    for(i=8; i>0; i--)
    {
        data = data >>1; 
        temp=T_IO;                     /*接受数据的最低位，再移位到最高位 */
        if(temp==1)            
       data = data|0x0080;            //下降沿接收数据
        else
        data=data&0x007f;  
        T_CLK = 1;
        DS1302delay(2);
        T_CLK = 0;
    } 
    IO_ExChange(1);//恢复IO端口的高电平输出状态
    return(data);
                   
}

/******************************************************************** 
 函 数 名：W1302()
 功    能：往DS1302写入数据
 说    明：先写地址，后写命令/数据 (内部函数)  已经包括使能T-RST
 调    用：RTInputByte() 
 入口参数：ucAddr: DS1302地址, ucData: 要写的数据
 返 回 值：
 设    计：mcl                  日    期：2007.08.19
 修    改：                     日    期：
***********************************************************************/
void W1302(uchar ucAddr, uchar ucDa)
{
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(ucAddr);       /* 地址，命令 */
    RTInputByte(ucDa);         /* 写1Byte数据*/
    T_CLK = 1;
    DS1302delay(2);
    T_RST = 0;
   
} 

/******************************************************************** 
 函 数 名：R1302()
 功    能：读取DS1302某地址的数据
 说    明：先写地址，后读命令/数据 (内部函数)
 调    用：RTInputByte() , RTOutputByte()
 入口参数：ucAddr: DS1302地址
 返 回 值：ucData :读取的数据
 设    计：mcl              日    期：2007.08.19
 修    改：                 日    期：
***********************************************************************/
uchar R1302(uchar ucAddr)
{
    uchar ucData;
    T_RST =0;
    T_CLK =0;
    T_RST =1;
    RTInputByte(ucAddr);             /* 地址，命令 */
    ucData = RTOutputByte();         /* 读1Byte数据 */
    T_CLK = 1;
    DS1302delay(2);
    T_RST = 0;
    return(ucData);
}

/******************************************************************** 
 函 数 名：BurstW1302T()
 功    能：往DS1302写入时钟数据(多字节方式)
 说    明：先写地址，后写命令/数据
 调    用：RTInputByte() 
 入口参数：pWClock: 时钟数据地址 格式为: 秒 分 时 日 月 星期 年 控制
                            8Byte (BCD码)1B 1B 1B 1B 1B  1B  1B 1B
 返 回 值：无
 设    计：mcl                  日    期：2007.08.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; i>0; i--)     /*8Byte = 7Byte 时钟数据 + 1Byte 控制*/
    {
        RTInputByte(*pWClock); /* 写1Byte数据*/
        pWClock++;
    }
    T_CLK = 1;
    DS1302delay(2);
    T_RST = 0;
} 
/******************************************************************** 
 函 数 名：BurstR1302T()
 功    能：读取DS1302时钟数据
 说    明：先写地址/命令，后读数据(时钟多字节方式)
 调    用：RTInputByte() , RTOutputByte()
 入口参数：pRClock: 读取时钟数据地址 格式为: 秒 分 时 日 月 星期 年
                               7Byte (BCD码)1B 1B 1B 1B 1B  1B  1B
 返 回 值：无
 设    计：mcl                  日    期：2007.08.19
 修    改：                     日    期： 
***********************************************************************/
void BurstR1302T(uchar *pRClock)
{
    uchar i;
    IO_Init();
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(0xbf);             /* 0xbf:时钟多字节读命令 */
    for (i=8; i>0; i--) 
    {
       *pRClock = RTOutputByte();   /* 读1Byte数据 */
       pRClock++;
    }
    T_CLK = 1;
    DS1302delay(2);
    T_RST = 0;
}
/******************************************************************** 
 函 数 名：BurstW1302R()
 功    能：往DS1302寄存器数写入数据(多字节方式)
 说    明：先写地址，后写数据(寄存器多字节方式)31bty的数据
 调    用：RTInputByte()
 入口参数：pWReg: 寄存器数据地址
 返 回 值：无
 设    计：mcl                  日    期：2007.08.19
 修    改：                     日    期： 
***********************************************************************/
void BurstW1302R(uchar *pWReg)
{
    uchar i;
    IO_Init();
    W1302(0x8e,0x00);         /* 控制命令,WP=0,写操作*/
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(0xfe);         /* 0xbe:时钟多字节写命令 */
    for (i=31; i>0; i--)       /* 31Byte 寄存器数据 */
    {
        RTInputByte(*pWReg);    /* 写1Byte数据*/
        pWReg++;
    }
    T_CLK = 1;
    DS1302delay(2);
    T_RST = 0;
} 
/******************************************************************** 
 函 数 名：BurstR1302R()
 功    能：读取DS1302寄存器数据
 说    明：先写地址，后读命令/数据(寄存器多字节方式) 31Byte数据
 调    用：RTInputByte() , RTOutputByte()
 入口参数：pRReg: 寄存器数据地址
 返 回 值：无
 设    计：mcl                  日    期：2007.08.19
 修    改：                     日    期： 
***********************************************************************/
void BurstR1302R(uchar *pRReg)
{
    uchar i;
    IO_Init();
    T_RST = 0;
    T_CLK = 0;
    T_RST = 1;
    RTInputByte(0xff);            /* 0xff:时钟多字节读命令 */
    for (i=31; i>0; i--)          /*31Byte 寄存器数据 */
    {
        *pRReg = RTOutputByte();  /* 读1Byte数据 */
        pRReg++;
    }
    T_CLK = 1;
    DS1302delay(2);
    T_RST = 0;
}
/******************************************************************** 
 函 数 名：Set1302()
 功    能：设置初始时间
 说    明：先写地址，后读命令/数据(寄存器多字节方式)
 调    用：W1302()
 入口参数：pClock: 设置时钟数据地址 格式为: 秒 分 时 日 月 星期 年
                               7Byte (BCD码)1B 1B 1B 1B 1B  1B  1B
 返 回 值：无
 设    计：mcl                  日    期：2007.08.19
 修    改：                     日    期： 
***********************************************************************/
void Set1302(uchar *pClock) 
{
  uchar i,dat,ucAddr;
    IO_Init();
    ucAddr = 0x80;  
    W1302(0x8e,0x00);           /* 控制命令,WP=0,写操作*/
    for(i =7; i>0; i--)
    { 
    	dat=*pClock;
        W1302(ucAddr,dat);  /* 秒 分 时 日 月 星期 年 */ 
        pClock++;
        ucAddr +=2;
    }
    W1302(0x8e,0x80);           /* 控制命令,WP=1,写保护?*/
}
/******************************************************************** 
 函 数 名：Get1302()
 功    能：读取DS1302当前时间
调    用：R1302() 
 入口参数：ucCurtime: 保存当前时间地址。当前时间格式为: 秒 分 时 日 月 星期 年 
                                        7Byte (BCD码)   1B 1B 1B 1B 1B  1B  1B
 返 回 值：无
 设计：mcl       日期：2007.08.19
 修    改：                     日    期： 
***********************************************************************/
void Get1302(uchar ucCurtime[]) 
{
    uchar i,a,ucAddr;
    IO_Init();
    ucAddr = 0x81;
    for (i=0; i<7; i++)
    {
        ucCurtime[i] = R1302(ucAddr);/*格式为: 秒 分 时 日 月 星期 年 */
        a=R1302(ucAddr);
        ucAddr += 2;
    }
}