/script>初學(xué)PIC,原來(lái)是搞51的.寫(xiě)了個(gè)程序,經(jīng)過(guò)幾天辛苦調(diào)試,終于在PIC16F877上運(yùn)行通過(guò),特此發(fā)布,算我初學(xué)PIC給大家見(jiàn)面禮,呵呵,希望能有用.
;================================================
;DS1302控制子程序
;=================================================
;程序包括:DS1302初始化,時(shí)間數(shù)據(jù)寫(xiě)入和讀取程序
;DS1302_init ;init ds1302
;Set_DS1302 ;set time to ds1302
;Get_DS1302 ;get time from ds1302
;=================================================
;============== 1302定義 ===========================================
#DEFINE T_IO PORTE,2 ;1302 I_O
#DEFINE T_CLK PORTE,1 ;1302時(shí)鐘
#DEFINE T_RST PORTE,0 ;1302使能位
#DEFINE DS1302_RX 20H ;保存接受的1個(gè)數(shù)據(jù)
#DEFINE DS1302_TX 28H ;準(zhǔn)備寫(xiě)入到DS1302的一個(gè)數(shù)據(jù)
counter equ xxxh
temp_cnt equ xxxh
;**************************************************
; DS1302初始化程序
;**************************************************
DS1302_init
;未寫(xiě)
return
;**********************************************************
;子程序名：Set_DS1302
;功 能：設(shè)置DS1302 初始時(shí)間,并啟動(dòng)計(jì)時(shí)。
;說(shuō) 明：
;調(diào) 用：Write_byte
;入口參數(shù)：初始時(shí)間在:W_Second,W_Minute,W_Hour,W_Day,W_Month,W_Week.W_YearL(地址連續(xù))
;出口參數(shù)：無(wú)
;消耗資源：counter,SecAddr(預(yù)定義)
;設(shè) 計(jì)：zhengYanbo 日 期：2005.4.21
;修 改： 日 期：
;**********************************************************
Set_DS1302:
bcf T_RST
bcf T_CLK
bsf T_RST
movlw 8eh
movwf DS1302_TX ;數(shù)據(jù)發(fā)送寄存器
call Write_byte ;發(fā)送字節(jié)
movlw 00h ;WP=0
movwf DS1302_TX
call Write_byte
bsf T_CLK
bcf T_RST
movlw W_Second
movwf FSR
movlw counter,D'7'
movlw 80h
movwf SecAddr ;秒寫(xiě)地址
S13021:
bcf T_RST
bcf T_CLK
bsf T_RST
movf SecAddr,W
movwf DS1302_TX
call Write_byte ;寫(xiě)秒地址
movf INDF,W
movwf DS1302_TX
call Write_byte ;寫(xiě)秒數(shù)據(jù)
incf FSR
incf SecAddr
incf SecAddr
bsf T_CLK
bcf T_RST
decfsz counter,F
goto S13021
bcf T_RST
bcf T_CLK
bsf T_RST
movlw 8eh ;控制寄存器
movwf DS1302_TX
call Write_byte
movlw 80h ;控制WP=1，寫(xiě)保護(hù)
movwf DS1302_TX
call Write_byte
bsf T_CLK
bcf T_RST
return
;**********************************************************
;子程序名：Get_DS1302
;功 能：從DS1302 讀時(shí)間
;說(shuō) 明：
;調(diào) 用：Write_byte,Read_byte
;入口參數(shù)：時(shí)間保存在:R_Second,R_Minute,R_Hour,R_Day,R_Month,R_Week.R_YearL
;出口參數(shù)：無(wú)
;消耗資源: counter,SecAddr(預(yù)先定義)
;設(shè) 計(jì)：zhengYanbo 日 期：2005.4.21
;修 改： 日 期：
;**********************************************************
Get_DS1302:
movlw R_Second ;準(zhǔn)備地址
movwf FSR
movlw D'7'
movwf counter
movlw 81h ;秒讀地址
movwf SecAddr
G13021
bcf T_RST
bcf T_CLK
bsf T_RST
movf SecAddr,W
movwf DS1302_TX
call Write_byte
call Read_byte
movf DS1302_RX,W
movwf INDF
incf FSR
incf SecAddr
incf SecAddr
bsf T_CLK
bcf T_RST
decfsz counter,F ;接受7個(gè)數(shù)據(jù)
goto G13021
return
;**********************************************************
;功 能：寫(xiě)1302一字節(jié) （內(nèi)部子程序）
;入口：數(shù)據(jù)預(yù)先在DS1302_TX中
;出口：無(wú)
;消耗資源：temp_cnt(預(yù)先定義)
;**********************************************************
Write_byte
movlw D'8'
movwf tmp_cnt
W_shift
rrf DS1302_TX,F ;帶C移位(低位在前)
btfsc STATUS,C
goto send_1
bcf T_IO
goto send_0
send_1
bsf T_IO
send_0
bsf T_CLK ;上升沿寫(xiě)
nop
bcf T_CLK
decfsz temp_cnt,F
goto W_shift
return
;**********************************************************
;功 能：讀1302一字節(jié) （內(nèi)部子程序）
;入口：無(wú)
;出口：數(shù)據(jù)保存在DS1302_RX中
;消耗資源：temp_cnt(預(yù)先定義)
;**********************************************************
Read_byte
bsf STATUS,RP0 ;bank1
bsf TRISE,2 ;設(shè)置串行數(shù)據(jù)口為輸入
bcf STATUS,RP0 ;bank0
movlw D'8'
movwf temp_cnt
R_shift
btfsc T_IO
goto get_1
bcf STATUS,C ;clr c
goto get_0
get_1
bsf STATUS,C
get_0
rrf DS1302_RX,F
bsf T_CLK
nop
bcf T_CLK ;下降沿讀
decfsz temp_cnt,F
goto R_shift
;reset output
bsf STATUS,RP0 ;bank1
bcf TRISE,2 ;設(shè)置T_IO為輸出
bcf STATUS,RP0 ;bank0
return
這個(gè)程序一定要,PIC默認(rèn)PORTE為A/D口,切記,切記!改為其他口時(shí)候請(qǐng)參考PIC的DATASHEET
;=============================================
; 初始化端口
;=============================================
Port_Init
bsf STATUS,RP0 ;bank1
bcf ADCON1,PCFG0
bsf ADCON1,PCFG1
bsf ADCON1,PCFG2
bcf ADCON1,PCFG3 ;PORTA and PORTE:digital I/O
bcf STATUS,RP0 ;bank0
return |
|
66821730(技術(shù)支持)
