include

CBLOCK20H
SEC;秒
MIN;分

HOU;小時(shí)
DATE;日期
MON;月
DAY;日
YERR;年
DDD;寫使能位
TIME_TX;1302發(fā)送寄存器
TIME_RX;1302接收寄存器
COUNT1;
COUNT2;
DELAY1
DELAY2
ENDC

;=================================
;1302子程序說明
;DS1302INI;1302初始化，先禁止RST,設(shè)定充電方式
;SET_TIME;一次發(fā)送7個(gè)數(shù)據(jù)設(shè)定時(shí)間,包含寫使能寄存器，8個(gè)數(shù)據(jù)
;GET_TIME;一次接收7個(gè)數(shù)據(jù)顯示時(shí)間
;TIME_WRITE_1;一次寫入1302一個(gè)字節(jié)
;TIME_READ_1;一次接收一個(gè)字節(jié)數(shù)據(jù)

;==============1302定義===================
#DEFINEI_OPORTC,7;1302I_O
#DEFINESCLKPORTC,6;1302時(shí)鐘
#DEFINERSTPORTA,0;1302使能位
#DEFINERX_ADD40H;保存接受的7個(gè)數(shù)據(jù)
#DEFINETX_ADD20H;開始保存7個(gè)要寫入的時(shí)間數(shù)據(jù)
BANK1MACRO
BSFSTATUS,RP0
ENDM
BANK0MACRO
BCFSTATUS,RP0
ENDM

;======================================
ORG00H
NOP
GOTOMAIN
MAIN
CALLCLR_RAM;清除RAN
CALLPORT_INI;端口定義
CALLDS1302_INI
CALLSET_TIME;一次寫入7個(gè)時(shí)間數(shù)據(jù)
CALLGET_TIME;一次讀回7個(gè)時(shí)間數(shù)據(jù)
GOTO$


;寫入秒，可以寫任意的7個(gè)時(shí)間數(shù)據(jù)，單字節(jié)
MOVLWB’10000000’
MOVWFTIME_TX
BSFRST
CALLCMD
MOVLWB’00100101’
MOVWFTIME_TX
CALLCMD
BCFRST

;讀秒，可以讀任意7個(gè)時(shí)間，單字節(jié)
MOVLWB’10000001’
MOVWFTIME_TX
BSFRST
CALLCMD
CALLTIME_READ_1
BCFRST
GOTO$

;**************************************************
;DS1302_INI：子程序
;作用：初始化1302，先禁止RST,允許寫使能
;**************************************************
DS1302_INI
BCFSCLK
BCFRST;先禁止
MOVLWB’10001110’;寫使能寄存器
MOVWFTIME_TX
BSFRST
CALLCMD
MOVLWB’0’;允許寫使能
MOVWFTIME_TX
CALLCMD;發(fā)送一個(gè)字節(jié)的數(shù)據(jù)
BCFRST

;設(shè)定充電方式?jīng)]有設(shè)定
RETURN

;**************************************************
;SET_TIME
;作用：一次輸入7個(gè)數(shù)據(jù)來一次性的設(shè)定時(shí)間，同時(shí)使能寫寄存器
;突發(fā)模式寫入，必須寫入8個(gè)數(shù)據(jù)，不是7個(gè)
;INPUT:要設(shè)定的8個(gè)數(shù)據(jù)已經(jīng)寫入到TIME_TX_ADD開始的8個(gè)字節(jié)里面
;**************************************************
SET_TIME
MOVLWB’10111110’;標(biāo)志位
MOVWFTIME_TX
BSFRST
CALLCMD
;TIME_WRITE_8;發(fā)送8個(gè)數(shù)據(jù)
MOVLWTX_ADD;//發(fā)送數(shù)據(jù)的起始地址
MOVWFFSR
MOVLWD’8’
MOVWFCOUNT2
TW1
MOVFINDF,W
MOVWFTIME_TX
CALLCMD
INCFFSR,F
DECFSZCOUNT2,F
GOTOTW1
BCFRST
RETURN

;***********************************************
;GET_TIME
;作用：一次接受7個(gè)字節(jié)的時(shí)間數(shù)據(jù)，突發(fā)模式讀取
;INPUT:NONE
;OUTPUT:把7個(gè)時(shí)間數(shù)據(jù)保存在TIME_RX_ADD開始的7個(gè)寄存器里面
;***********************************************
GET_TIME
MOVLWB’10111111’
MOVWFTIME_TX
BSFRST
CALLCMD
;TIME_READ_7;接收7個(gè)數(shù)據(jù)
MOVLWRX_ADD;保存數(shù)據(jù)的起始地址
MOVWFFSR
MOVLWD’7’
MOVWFCOUNT2
TR2
CALLTIME_READ_1
MOVFTIME_RX,W
MOVWFINDF
INCFFSR,F
DECFSZCOUNT2,F
GOTOTR2
BCFRST
RETURN

;************************************************
;TIME_WRITE_1
;作用：一次發(fā)送一個(gè)字節(jié)的數(shù)據(jù)，用于發(fā)送1302的
;控制字或者發(fā)送一個(gè)數(shù)據(jù)
;INPUT:TIME_TX
;************************************************
CMD
MOVLWD’8’
MOVWFCOUNT1
TLOP
BCFI_O;初始值是低電平
BCFSCLK
BTFSCTIME_TX,0
BSFI_O
RRFTIME_TX,F
BSFSCLK;高電平發(fā)送數(shù)據(jù)
DECFSZCOUNT1,F
GOTOTLOP
BCFSCLK;恢復(fù)
RETURN

;************************************************
;TIME_READ_1
;作用：讀取1302一個(gè)字節(jié)的數(shù)據(jù)
;INPUT:NONE
;OUTPUT:接收數(shù)據(jù)保存在TIME_RX里面
;原理：在SCLK下降沿接收數(shù)據(jù)，低字節(jié)在前，根據(jù)I_O的
;的電平的高低，采取帶進(jìn)位和不帶進(jìn)位右移.
;***********************************************
TIME_READ_1
BANK1
BSFTRISC,7;I_OISINPUT
BANK0
MOVLWD’8’
MOVWFCOUNT1;讀取8個(gè)字節(jié)
TR1
BCFSCLK;下降沿讀取
BCFSTATUS,C
BTFSCI_O
BSFSTATUS,C
RRFTIME_RX,F
BSFSCLK;恢復(fù)高電平
DECFSZCOUNT1,F
GOTOTR1
BANK1
BCFTRISC,7;OUTPUT
BANK0
BCFSCLK;恢復(fù)
RETURN

;======================================
PORT_INI
BANK1
MOVLWB’00000000’
MOVWFTRISC
MOVLWB’0’
MOVWFTRISB
MOVLWB’00000111’
MOVWFADCON1
MOVLWB’00000000’
MOVWFTRISA
BANK0
MOVLW18H
MOVWF20H
MOVLW19H
MOVWF21H
MOVLW05H
MOVWF22H
MOVLW13H
MOVWF23H
MOVLW14H
MOVWF24H
MOVLW15H
MOVWF25H
MOVLW16H
MOVWF26H
RETURN

;==========================
CLR_RAM
MOVLW20H
MOVWFFSR
LOOP
CLRFINDF
INCFFSR,F
BTFSSFSR,7
GOTOLOOP;清除32個(gè)
RETURN
;==========================
END