ds1302的51子程序

void wr1302(unsigned char dat) //向1302寫1個字節(jié)
{
unsigned char i;
for(i=0;i<8;i++) //從最低位開始發(fā)送
{
ACC=dat;
DATA1302=BIT0;//位傳送至數(shù)據(jù)總線
;
SCLK1302=0; //清時鐘總線
;
SCLK1302=1; //時鐘上升沿，發(fā)送數(shù)據(jù)有效
dat=dat>>1; //數(shù)據(jù)右移
;
}
}
unsigned char rd1302(void) //從1302讀1個字節(jié)
{
unsigned char i;
for(i=0;i<8;i++) //從最低位開始接收
{
ACC=ACC>>1;
DATA1302=1; //讀數(shù)據(jù)之前，P1口輸出1
SCLK1302=1;//時鐘置高電平
;
SCLK1302=0;//時鐘下降沿，接收數(shù)據(jù)有效
;
BIT7=DATA1302;//接收1位數(shù)據(jù)
;
}
return ACC;
}
void v_wr1302(unsigned char add,unsigned char dat)//先寫地址，后寫1字節(jié)數(shù)據(jù)
{ // 地址或命令 數(shù)據(jù)
RST1302=0;//復(fù)位引腳低電平，所有數(shù)據(jù)傳送終止
;
SCLK1302=0;//清時鐘總線
;
RST1302=1;//復(fù)位引腳高電平，控制邏輯有效
;
wr1302(add); //寫地址或命令
;
wr1302(dat); //寫1個數(shù)據(jù)
;
SCLK1302=1;
RST1302=0;
}
unsigned char v_rd1302(unsigned char add) //先寫地址，后讀1字節(jié)命令或數(shù)據(jù)
{ // 地址
unsigned char i;
RST1302=0;//復(fù)位引腳低電平，所有數(shù)據(jù)傳送終止
;
SCLK1302=0;//清時鐘總線
;
RST1302=1;//復(fù)位引腳高電平，控制邏輯有效
;
wr1302(add); //寫地址或命令
;
i=rd1302();
SCLK1302=1;
RST1302=0;
return i; //返回讀取的數(shù)據(jù)
}
/********************************************************************
* 名稱: send_byte1302
* 說明: 先寫地址，后寫數(shù)據(jù)(時鐘多字節(jié)方式)
* 功能: 往DS1302寫入時鐘數(shù)據(jù)(多字節(jié)方式)
* 調(diào)用: wr1302();v_wr1302();
* 輸入: *p: 時鐘數(shù)據(jù)地址 格式為: 秒 分 時 日 月 星期 年 控制
* 8Byte (BCD碼) 1B 1B 1B 1B 1B 1B 1B 1B
* 返回值: 無
***********************************************************************/
void send_byte1302(unsigned char *p)
{
unsigned char i;
v_wr1302(0x8e,0x00); // 控制命令,WP=0,寫操作
RST1302=0;//復(fù)位引腳低電平，所有數(shù)據(jù)傳送終止
;
SCLK1302=0;//清時鐘總線
;
RST1302=1;//復(fù)位引腳高電平，控制邏輯有效
;
wr1302(0xbe); //0xbe:時鐘多字節(jié)寫命令
for(i=0;i<8;i++)//發(fā)送數(shù)據(jù)8字節(jié)
{
wr1302(*p);
p++;
}
SCLK1302=1;
RST1302=0;
}
/********************************************************************
* 名稱: rcv_byte1302
* 說明: 先寫地址，后讀命令/數(shù)據(jù)(時鐘多字節(jié)方式)
* 功能: 讀取DS1302時鐘數(shù)據(jù)
* 調(diào)用: wr1302() , rd1302()
* 輸入: *p1: 時鐘數(shù)據(jù)地址 格式為: 秒 分 時 日 月 星期 年
* 7Byte (BCD碼) 1B 1B 1B 1B 1B 1B 1B
* 返回值: ucDa :讀取的數(shù)據(jù)
***********************************************************************/
unsigned char rcv_byte1302(unsigned char *p1)
{
unsigned char i;
RST1302=0;//復(fù)位引腳低電平，所有數(shù)據(jù)傳送終止
;
SCLK1302=0;//清時鐘總線
;
RST1302=1;//復(fù)位引腳高電平，控制邏輯有效
;
wr1302(0xbf);// 0xbf:時鐘多字節(jié)讀命令
for(i=0;i<8;i++)//接收數(shù)據(jù)8字節(jié)
{
*p1=rd1302();
p1++;
}
SCLK1302=1;
RST1302=0;
}
/********************************************************************
* 名稱: v_set1302
* 說明:
* 功能: 設(shè)置初始時間
* 調(diào)用: v_wr1302()
* 輸入: *p2: 初始時間地址。初始時間格式為: 秒 分 時 日 月 星期 年
* 7Byte (BCD碼) 1B 1B 1B 1B 1B 1B 1B
* 返回值: 無
***********************************************************************/
void v_set1302(unsigned char *p2)
{
unsigned char i;
unsigned char addr=0x80;
v_wr1302(0x8e,0x00); //控制命令,WP=0,允許寫
for(i=0;i<7;i++)
{
v_wr1302(addr,*p2); /* 秒 分 時 日 月 星期 年 */
p2++;
addr=addr+2;
}
v_wr1302(0x8e,0x80); // 控制命令,WP=1,寫保護(hù)
}
/********************************************************************
* 名稱: v_get1302
* 說明:
* 功能: 讀取DS1302當(dāng)前時間
* 調(diào)用: v_rd1302()
* 輸入: time: 保存當(dāng)前時間地址。當(dāng)前時間格式為: 秒 分 時 日 月 星期 年
* 7Byte (BCD碼) 1B 1B 1B 1B 1B 1B 1B
* 返回值: 無
***********************************************************************/
void v_get1302(void)
{
unsigned char i;
unsigned char addr=0x81;
for(i=0;i<7;i++)
{
time[i]=v_rd1302(addr); //格式為: 秒 分 時 日 月 星期 年
addr=addr+2;
}
}