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