时钟芯片DS1302汇编程序

include

CBLOCK20H
SEC;秒
MIN;分

HOU;小时
DATE;日期
MON;月
DAY;日
YERR;年
DDD;写使能位
TIME_TX;1302发送寄存器
TIME_RX;1302接收寄存器
COUNT1;
COUNT2;
DELAY1
DELAY2
ENDC

;=================================
;1302子程序说明
;DS1302INI;1302初始化，先禁止RST,设定充电方式
;SET_TIME;一次发送7个数据设定时间,包含写使能寄存器，8个数据
;GET_TIME;一次接收7个数据显示时间
;TIME_WRITE_1;一次写入1302一个字节
;TIME_READ_1;一次接收一个字节数据

;==============1302定义===================
#DEFINEI_OPORTC,7;1302I_O
#DEFINESCLKPORTC,6;1302时钟
#DEFINERSTPORTA,0;1302使能位
#DEFINERX_ADD40H;保存接受的7个数据
#DEFINETX_ADD20H;开始保存7个要写入的时间数据
BANK1MACRO
BSFSTATUS,RP0
ENDM
BANK0MACRO
BCFSTATUS,RP0
ENDM

;======================================
ORG00H
NOP
GOTOMAIN
MAIN
CALLCLR_RAM;清除RAN
CALLPORT_INI;端口定义
CALLDS1302_INI
CALLSET_TIME;一次写入7个时间数据
CALLGET_TIME;一次读回7个时间数据
GOTO$


;写入秒，可以写任意的7个时间数据，单字节
MOVLWB’10000000’
MOVWFTIME_TX
BSFRST
CALLCMD
MOVLWB’00100101’
MOVWFTIME_TX
CALLCMD
BCFRST

;读秒，可以读任意7个时间，单字节
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;发送一个字节的数据
BCFRST

;设定充电方式没有设定
RETURN

;**************************************************
;SET_TIME
;作用：一次输入7个数据来一次性的设定时间，同时使能写寄存器
;突发模式写入，必须写入8个数据，不是7个
;INPUT:要设定的8个数据已经写入到TIME_TX_ADD开始的8个字节里面
;**************************************************
SET_TIME
MOVLWB’10111110’;标志位
MOVWFTIME_TX
BSFRST
CALLCMD
;TIME_WRITE_8;发送8个数据
MOVLWTX_ADD;//发送数据的起始地址
MOVWFFSR
MOVLWD’8’
MOVWFCOUNT2
TW1
MOVFINDF,W
MOVWFTIME_TX
CALLCMD
INCFFSR,F
DECFSZCOUNT2,F
GOTOTW1
BCFRST
RETURN

;***********************************************
;GET_TIME
;作用：一次接受7个字节的时间数据，突发模式读取
;INPUT:NONE
;OUTPUT:把7个时间数据保存在TIME_RX_ADD开始的7个寄存器里面
;***********************************************
GET_TIME
MOVLWB’10111111’
MOVWFTIME_TX
BSFRST
CALLCMD
;TIME_READ_7;接收7个数据
MOVLWRX_ADD;保存数据的起始地址
MOVWFFSR
MOVLWD’7’
MOVWFCOUNT2
TR2
CALLTIME_READ_1
MOVFTIME_RX,W
MOVWFINDF
INCFFSR,F
DECFSZCOUNT2,F
GOTOTR2
BCFRST
RETURN

;************************************************
;TIME_WRITE_1
;作用：一次发送一个字节的数据，用于发送1302的
;控制字或者发送一个数据
;INPUT:TIME_TX
;************************************************
CMD
MOVLWD’8’
MOVWFCOUNT1
TLOP
BCFI_O;初始值是低电平
BCFSCLK
BTFSCTIME_TX,0
BSFI_O
RRFTIME_TX,F
BSFSCLK;高电平发送数据
DECFSZCOUNT1,F
GOTOTLOP
BCFSCLK;恢复
RETURN

;************************************************
;TIME_READ_1
;作用：读取1302一个字节的数据
;INPUT:NONE
;OUTPUT:接收数据保存在TIME_RX里面
;原理：在SCLK下降沿接收数据，低字节在前，根据I_O的
;的电平的高低，采取带进位和不带进位右移.
;***********************************************
TIME_READ_1
BANK1
BSFTRISC,7;I_OISINPUT
BANK0
MOVLWD’8’
MOVWFCOUNT1;读取8个字节
TR1
BCFSCLK;下降沿读取
BCFSTATUS,C
BTFSCI_O
BSFSTATUS,C
RRFTIME_RX,F
BSFSCLK;恢复高电平
DECFSZCOUNT1,F
GOTOTR1
BANK1
BCFTRISC,7;OUTPUT
BANK0
BCFSCLK;恢复
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个
RETURN
;==========================
END