PIC單片機控制時(shí)鐘芯片DS1302匯編程序

#INCLUDE
CBLOCK 20H
SEC ;秒
MIN ;分
HOU ;小時(shí)
DATE ;日期
MON ;月
DAY ;日
YERR ;年
DDD ;寫(xiě)使能位
TIME_TX ;1302發(fā)送寄存器
TIME_RX ;1302接收寄存器
COUNT1 ;
COUNT2 ;
DELAY1
DELAY2
ENDC
*******************************
; ; 1302子程序說(shuō)明
; ;******************************
; DS1302INI ;1302初始化，先禁止RST,設定充電方式
; SET_TIME ;一次發(fā)送7個(gè)數據設定時(shí)間,包含寫(xiě)使能寄存器，8個(gè)數據
; GET_TIME ;一次接收7個(gè)數據顯示時(shí)間
; TIME_WRITE_1;一次寫(xiě)入1302一個(gè)字節
; TIME_READ_1 ;一次接收一個(gè)字節數據
; ;******* 1302定義**************
; ;******************************
#DEFINE I_O PORTC,7 ;1302I_O
#DEFINE SCLK PORTC,6 ;1302時(shí)鐘
#DEFINE RST PORTA,0 ;1302使能位
#DEFINE RX_ADD 40H ；保存接受的7個(gè)數據
#DEFINE TX_ADD 20H ；開(kāi)始保存7個(gè)要寫(xiě)入的時(shí)間數據
BANK1 MACRO
BSF STATUS,RP0
ENDM
BANK0 MACRO
BCF STATUS,RP0
ENDM

ORG 000H
NOP
GOTO MAIN
MAIN

CALL CLR_RAM 清除RAN
CALL PORT_INI 端口定義
CALL DS1302_INI
CALL SET_TIME 一次寫(xiě)入7個(gè)時(shí)間數據
CALL GET_TIME ; 一次讀回7個(gè)時(shí)間數據
GOTO $

;; 寫(xiě)入秒，可以寫(xiě)任意的7個(gè)時(shí)間數據，單字節
MOVLW B'10000000'
MOVWF TIME_TX
BSF RST
CALL TIME_WRITE_1
MOVLW B'00100101'
MOVWF TIME_TX
CALL TIME_WRITE_1
BCF RST

讀秒，可以讀任意7個(gè)時(shí)間，單字節

MOVLW B'10000001'
MOVWF TIME_TX
BSF RST
CALL TIME_WRITE_1
CALL TIME_READ_1
BCF RST

GOTO $

：子程序

**************************************************
; DS1302_INI
; 作用：初始化1302，先禁止RST,允許寫(xiě)使能
;**************************************************
DS1302_INI
BCF SCLK
BCF RST ;先禁止
MOVLW B'10001110' ;寫(xiě)使能寄存器
MOVWF TIME_TX
BSF RST
CALL TIME_WRITE_1
MOVLW B'0' ;允許寫(xiě)使能
MOVWF TIME_TX
CALL TIME_WRITE_1;發(fā)送一個(gè)字節的數據
BCF RST

;設定充電方式

沒(méi)有設定
RETURN

;**************************************************
; SET_TIME
; 作用：一次輸入7個(gè)數據來(lái)一次性的設定時(shí)間，同時(shí)使能寫(xiě)寄存器
; 突發(fā)模式寫(xiě)入，必須寫(xiě)入8個(gè)數據，不是7個(gè)
; INPUT:要設定的8個(gè)數據已經(jīng)寫(xiě)入到TIME_TX_ADD開(kāi)始的8個(gè)字節里面
;**************************************************
SET_TIME
MOVLW B'10111110' ;標志位
MOVWF TIME_TX
BSF RST
CALL TIME_WRITE_1
;TIME_WRITE_8 ;發(fā)送8個(gè)數據
MOVLW TIME_TX_ADD ;發(fā)送數據的起始地址
MOVWF FSR
MOVLW D'8'
MOVWF COUNT2