stc單片機1TMCU控制DS1302程序

SCLKBITP1.0;DS1302時(shí)鐘口P1.0
IOBITP1.1;DS1302數據口P1.1
RSTBITP1.2;DS1302片選口P1.2 NOWDATA40H ORG0
JMPReset ORG100H
Reset:
CALLDS1302_Initial;初始化DS1302
MOV DPTR,#INIT
CALLDS1302_SetTime;設置初始時(shí)間
MOV R0,#NOW
CALLDS1302_GetTime;讀取當前時(shí)間 JMP$ INIT://秒分時(shí)日月星期年
DB00H,00H,20H,01H,01H,05H,10H
;**************************************
;延時(shí)X微秒(STC12C5A60S2@12M)
;不同的工作環(huán)境,需要調整此函數
;入口參數:R7
;出口參數:無(wú)
;**************************************
Delay:;6此延時(shí)函數是使用1T的指令周期進(jìn)行計算,與傳統的12T的MCU不同
NOP;1
NOP;1
RET;4
;**************************************
;從DS1302讀1字節數據
;入口參數:無(wú)
;出口參數:ACC
;**************************************
DS1302_ReadByte:
CLRA
PUSH0
MOV 0,#8;8位計數器
ReadNext:
CLRSCLK;時(shí)鐘線(xiàn)拉低
CALLDelay;延時(shí)等待
MOV C,IO;讀取數據
RRCA;保存數據
SETBSCLK;時(shí)鐘線(xiàn)拉高
CALLDelay;延時(shí)等待
DJNZ0,ReadNext
POP0
RET ;**************************************
;向DS1302寫(xiě)1字節數據
;入口參數:ACC
;出口參數:無(wú)
;**************************************
DS1302_WriteByte:
PUSH0
MOV 0,#8;8位計數器
WriteNext:
CLRSCLK;時(shí)鐘線(xiàn)拉低
CALLDelay;延時(shí)等待
RRCA;移出數據
MOV IO,C;送出到端口
SETBSCLK;時(shí)鐘線(xiàn)拉高
CALLDelay;延時(shí)等待
DJNZ0,WriteNext
POP0
RET ;**************************************
;讀DS1302某地址的的數據
;入口參數:ACC(地址)
;出口參數:ACC(讀出的數據)
;**************************************
DS1302_ReadData:
CLRRST;拉低片選
CALLDelay;延時(shí)等待
CLRSCLK;時(shí)鐘線(xiàn)拉低
CALLDelay;延時(shí)等待
SETBRST;使能片選
CALLDelay;延時(shí)等待
CALLDS1302_WriteByte;寫(xiě)地址
CALLDS1302_ReadByte;讀數據
RET ;**************************************
;往DS1302的某個(gè)地址寫(xiě)入數據
;入口參數:ACC(地址)B(需寫(xiě)入的數據)
;出口參數:無(wú)
;**************************************
DS1302_WritEDAta:
CLRRST;拉低片選
CALLDelay;延時(shí)等待
CLRSCLK;時(shí)鐘線(xiàn)拉低
CALLDelay;延時(shí)等待
SETBRST;使能片選
CALLDelay;延時(shí)等待
CALLDS1302_WriteByte;寫(xiě)地址
MOV A,B;地址數據送入ACC
CALLDS1302_WriteByte;寫(xiě)數據
RET ;**************************************
;寫(xiě)入初始時(shí)間
;入口參數:DPTR(初始值地址)
;出口參數:無(wú)
;**************************************
DS1302_SetTime:
MOV A,#8EH
MOV B,#0
CALLDS1302_WriteData;允許寫(xiě)操作
MOV R7,#80H;從寄存器80開(kāi)始
MOV R6,#7;連續寫(xiě)7次
SetNext:
CLRA
MOV CA,@A+DPTR
MOV B,A;數據
MOV A,R7;地址
CALLDS1302_WriteData;寫(xiě)數據
INCR7
INCR7;寄存器地址+2
INCDPTR;數據地址+1
DJNZR6,SetNext
MOV A,#8EH
MOV B,#80H
CALLDS1302_WriteData;寫(xiě)保護
RET ;**************************************
;讀取當前時(shí)間
;入口參數:R0(數據緩沖區首地址)
;出口參數:無(wú)
;**************************************
DS1302_GetTime:
MOV R7,#81H;從寄存器81開(kāi)始
MOV R6,#7;連續讀7次
GetNext:
MOV A,R7;地址
CALLDS1302_ReadData;讀數據
MOV @R0,A;保存數據
INCR7
INCR7;寄存器地址+2
INCR0;數據地址+1
DJNZR6,GetNext
RET ;**************************************
;初始化DS1302
;**************************************
DS1302_Initial:
CLRRST
CLRSCLK
MOV A,#8EH
MOV B,#0
CALLDS1302_WriteData;允許寫(xiě)操作
MOV A,#80H
MOV B,#0
CALLDS1302_WriteData;時(shí)鐘啟動(dòng)
MOV A,#90H
MOV B,#0A6H
CALLDS1302_WriteData;一個(gè)二極管＋4K電阻充電
MOV A,#8EH
MOV B,#80H
CALLDS1302_WriteData;寫(xiě)保護
RET END