PIC单片机控制DS1302子程序

;================================================
;DS1302控制子程序
;=================================================
;程序包括:DS1302初始化,时间数据写入和读取程序

;DS1302_init;initds1302
;Set_DS1302;settimetods1302
;Get_DS1302;gettimefromds1302
;=================================================

;==============1302定义===========================================
#DEFINET_IOPORTE,2;1302I_O
#DEFINET_CLKPORTE,1;1302时钟
#DEFINET_RSTPORTE,0;1302使能位
#DEFINEDS1302_RX20H;保存接受的1个数据
#DEFINEDS1302_TX28H;准备写入到DS1302的一个数据

counterequxxxh
cntequxxxh

;**************************************************
;DS1302初始化程序
;**************************************************
DS1302_init
;未写
return
;**********************************************************
;子程序名：Set_DS1302
;功能：设置DS1302初始时间,并启动计时。
;说明：
;调用：Write_byte
;入口参数：初始时间在:W_Second,W_Minute,W_Hour,W_Day,W_Month,W_Week.W_YearL(地址连续)
;出口参数：无
;消耗资源：counter,SecAddr(预定义)
;设计：zhengYanbo日期：2005.4.21
;修改：日期：
;**********************************************************
Set_DS1302:
bcfT_RST
bcfT_CLK
bsfT_RST
MOVlw8eh
MOVwfDS1302_TX;数据发送寄存器
callWrite_byte;发送字节
MOVlw00h;WP=0
MOVwfDS1302_TX
callWrite_byte
bsfT_CLK
bcfT_RST

MOVlwW_Second
MOVwfFSR
MOVlwcounter,D’7’
MOVlw80h
MOVwfSecAddr;秒写地址
S13021:
bcfT_RST
bcfT_CLK
bsfT_RST
MOVfSecAddr,W
MOVwfDS1302_TX
callWrite_byte;写秒地址
MOVfINDF,W
MOVwfDS1302_TX
callWrite_byte;写秒数据
incfFSR
incfSecAddr
incfSecAddr
bsfT_CLK
bcfT_RST
decfszcounter,F
gotoS13021

bcfT_RST
bcfT_CLK
bsfT_RST
MOVlw8eh;控制寄存器
MOVwfDS1302_TX
callWrite_byte
MOVlw80h;控制WP=1，写保护
MOVwfDS1302_TX
callWrite_byte
bsfT_CLK
bcfT_RST
return

;**********************************************************
;子程序名：Get_DS1302
;功能：从DS1302读时间
;说明：
;调用：Write_byte,Read_byte
;入口参数：时间保存在:R_Second,R_Minute,R_Hour,R_Day,R_Month,R_Week.R_YearL
;出口参数：无
;消耗资源:counter,SecAddr(预先定义)
;设计：zhengYanbo日期：2005.4.21
;修改：日期：
;**********************************************************
Get_DS1302:
MOVlwR_Second;准备地址
MOVwfFSR
MOVlwD’7’
MOVwfcounter
MOVlw81h;秒读地址
MOVwfSecAddr
G13021
bcfT_RST
bcfT_CLK
bsfT_RST
MOVfSecAddr,W
MOVwfDS1302_TX
callWrite_byte
callRead_byte
MOVfDS1302_RX,W
MOVwfINDF
incfFSR
incfSecAddr
incfSecAddr
bsfT_CLK
bcfT_RST
decfszcounter,F;接受7个数据
gotoG13021
return
;**********************************************************
;功能：写1302一字节（内部子程序）
;入口：数据预先在DS1302_TX中
;出口：无
;消耗资源：cnt(预先定义)
;**********************************************************
Write_byte
MOVlwD’8’
MOVwftmp_cnt
W_shift
rrfDS1302_TX,F;带C移位(低位在前)
btfscSTATUS,C
gotosend_1
bcfT_IO
gotosend_0
send_1
bsfT_IO
send_0
bsfT_CLK;上升沿写
nop
bcfT_CLK
decfszcnt,F
gotoW_shift
return
;**********************************************************
;功能：读1302一字节（内部子程序）
;入口：无
;出口：数据保存在DS1302_RX中
;消耗资源：cnt(预先定义)
;**********************************************************
Read_byte
bsfSTATUS,RP0;bank1
bsfTRISE,2;设置串行数据口为输入
bcfSTATUS,RP0;bank0
MOVlwD’8’
MOVwfcnt
R_shift
btfscT_IO
gotoget_1
bcfSTATUS,C;clrc
gotoget_0
get_1
bsfSTATUS,C
get_0
rrfDS1302_RX,F
bsfT_CLK
nop
bcfT_CLK;下降沿读
decfszcnt,F
gotoR_shift

;resetoutput
bsfSTATUS,RP0;bank1
bcfTRISE,2;设置T_IO为输出
bcfSTATUS,RP0;bank0
return
这个程序一定要,PIC默认PORTA为A/D口,切记,切记!改为其他口时候请参考PIC的DATASHEET
;=============================================
;初始化端口
;=============================================
Port_Init
bsfSTATUS,RP0;bank1
bcfADCON1,PCFG0
bsfADCON1,PCFG1
bsfADCON1,PCFG2
bcfADCON1,PCFG3;PORTAandPORTE:digitalI/O
bcfSTATUS,RP0;bank0
return