基于AT89C2051單片機(jī)的6位電子鐘設(shè)計

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 主 程 序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

START: MOV R0,#70H ;清70H-7AH共11個內(nèi)存單元

MOV R7,#0BH

CLEARDISP:

MOV @R0,#00H

INC R0

DJNZ R7,CLEARDISP

MOV 20H,#00H ;清20H（標(biāo)志用）

MOV 7AH,#0AH ;放入熄滅符數(shù)據(jù)

MOV TMOD,#11H ;設(shè)T0、T1為16位定時器

MOV TL0,#0B0H ;50MS定時初值（T0計時用）

MOV TH0,#3CH ;50MS定時初值

MOV TL1,#0B0H ;50MS定時初值（T1閃爍定時用）

MOV TH1,#3CH ;50MS定時初值

SETB EA ;總中斷開放

SETB ET0 ;允許T0中斷

SETB TR0 ;開啟T0定時器

MOV R4,#14H ;1秒定時用初值（50MS×20）

START1: LCALL DISPLAY ;調(diào)用顯示子程序

JNB P3.7,SETMM1 ;P3.7口為0時轉(zhuǎn)時間調(diào)整程序

SJMP START1 ;P3.7口為1時跳回START1

SETMM1: LJMP SETMM ;轉(zhuǎn)到時間調(diào)整程序SETMM

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 1秒計時程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;T0中斷服務(wù)程序

INTT0: PUSH ACC ;累加器入棧保護(hù)

PUSH PSW ;狀態(tài)字入棧保護(hù)

CLR ET0 ;關(guān)T0中斷允許

CLR TR0 ;關(guān)閉定時器T0

MOV A,#0B7H ;中斷響應(yīng)時間同步修正

ADD A,TL0 ;低8位初值修正

MOV TL0,A ;重裝初值（低8位修正值）

MOV A,#3CH ;高8位初值修正

ADDC A,TH0

MOV TH0,A ;重裝初值（高8位修正值）

SETB TR0 ;開啟定時器T0

DJNZ R4, OUTT0;20次中斷未到中斷退出

ADDSS: MOV R4,#14H ;20次中斷到（1秒）重賦初值

MOV R0,#71H ;指向秒計時單元（71H-72H）

ACALL ADD1 ;調(diào)用加1程序（加1秒操作）

MOV A,R3 ;秒數(shù)據(jù)放入A（R3為2位十進(jìn)制數(shù)組合）

CLR C ;清進(jìn)位標(biāo)志

CJNE A,#60H,ADDMM

ADDMM: JC OUTT0 ;小于60秒時中斷退出

ACALL CLR0 ;大于或等于60秒時對秒計時單元清0

MOV R0,#77H ;指向分計時單元（76H-77H）

ACALL ADD1 ;分計時單元加1分鐘

MOV A,R3 ;分?jǐn)?shù)據(jù)放入A

CLR C ;清進(jìn)位標(biāo)志

CJNE A,#60H,ADDHH

ADDHH: JC OUTT0 ;小于60分時中斷退出

ACALL CLR0 ;大于或等于60分時分計時單元清0

MOV R0,#79H ;指向小時計時單元（78H-79H）

ACALL ADD1 ;小時計時單元加1小時

MOV A,R3 ;時數(shù)據(jù)放入A

CLR C ;清進(jìn)位標(biāo)志

CJNE A,#24H,HOUR

HOUR: JC OUTT0 ;小于24小時中斷退出

ACALL CLR0 ;大于或等于24小時小時計時單元清0

OUTT0: MOV 72H,76H ;中斷退出時將分、時計時單元數(shù)據(jù)移

MOV 73H,77H ;入對應(yīng)顯示單元

MOV 74H,78H

MOV 75H,79H

POP PSW ;恢復(fù)狀態(tài)字（出棧）

POP ACC ;恢復(fù)累加器

SETB ET0 ;開放T0中斷

RETI ;中斷返回

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 閃動調(diào)時 程 序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;T1中斷服務(wù)程序，用作時間調(diào)整時調(diào)整單元閃爍指示

INTT1: PUSH ACC ;中斷現(xiàn)場保護(hù)

PUSH PSW

MOV TL1, #0B0H;裝定時器T1定時初值

MOV TH1, #3CH

DJNZ R2,INTT1OUT ;0.3秒未到退出中斷（50MS中斷6次）

MOV R2,#06H ;重裝0.3秒定時用初值

CPL 02H ;0.3秒定時到對閃爍標(biāo)志取反

JB 02H,FLASH1 ;02H位為1時顯示單元熄滅

MOV 72H,76H ;02H位為0時正常顯示

MOV 73H,77H

MOV 74H,78H

MOV 75H,79H

INTT1OUT:

POP PSW ;恢復(fù)現(xiàn)場

POP ACC

RETI ;中斷退出

FLASH1: JB 01H,FLASH2 ;01H位為1時，轉(zhuǎn)小時熄滅控制

MOV 72H,7AH ;01H位為0時，熄滅符數(shù)據(jù)放入分

MOV 73H,7AH ;顯示單元（72H-73H），將不顯示分?jǐn)?shù)據(jù)

MOV 74H,78H

MOV 75H,79H

AJMP INTT1OUT ;轉(zhuǎn)中斷退出

FLASH2: MOV 72H,76H ;01H位為1時，熄滅符數(shù)據(jù)放入小時

MOV 73H,77H ;顯示單元（74H-75H），小時數(shù)據(jù)將不顯示

MOV 74H,7AH

MOV 75H,7AH

AJMP INTT1OUT ;轉(zhuǎn)中斷退出

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 加1子 程 序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ADD1: MOV A,@R0 ;取當(dāng)前計時單元數(shù)據(jù)到A

DEC R0 ;指向前一地址

SWAP A ;A中數(shù)據(jù)高四位與低四位交換

ORL A,@R0 ;前一地址中數(shù)據(jù)放入A中低四位

ADD A,#01H ;A加1操作

DA A ;十進(jìn)制調(diào)整

MOV R3,A ;移入R3寄存器

ANL A,#0FH ;高四位變0

MOV @R0,A ;放回前一地址單元

MOV A,R3 ;取回R3中暫存數(shù)據(jù)

INC R0 ;指向當(dāng)前地址單元

SWAP A ;A中數(shù)據(jù)高四位與低四位交換

ANL A,#0FH ;高四位變0

MOV @R0,A ;數(shù)據(jù)放入當(dāng)削地址單元中

RET ;子程序返回

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 清零程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;對計時單元復(fù)零用

CLR0: CLR A ;清累加器

MOV @R0,A ;清當(dāng)前地址單元

DEC R0 ;指向前一地址

MOV @R0,A ;前一地址單元清0

RET ;子程序返回

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 時鐘調(diào)整程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;當(dāng)調(diào)時按鍵按下時進(jìn)入此程序

SETMM: CLR ET0 ;關(guān)定時器T0中斷

CLR TR0 ;關(guān)閉定時器T0

LCALL DL1S ;調(diào)用1秒延時程序

JB P3.7,CLOSEDIS ;鍵按下時間小于1秒，關(guān)閉顯示（省電）

MOV R2,#06H ;進(jìn)入調(diào)時狀態(tài)，賦閃爍定時初值

SETB ET1 ;允許T1中斷

SETB TR1 ;開啟定時器T1

SET2: JNB P3.7,SET1 ;P3.7口為0（鍵未釋放），等待

SETB 00H ;鍵釋放，分調(diào)整閃爍標(biāo)志置1

SET4: JB P3.7,SET3 ;等待鍵按下

LCALL DL05S ;有鍵按下，延時0.5秒

JNB P3.7,SETHH;按下時間大于0.5秒轉(zhuǎn)調(diào)小時狀態(tài)

MOV R0,#77H ;按下時間小于0.5秒加1分鐘操作

LCALL ADD1 ;調(diào)用加1子程序

MOV A,R3 ;取調(diào)整單元數(shù)據(jù)

CLR C ;清進(jìn)位標(biāo)志

CJNE A,#60H,HHH ;調(diào)整單元數(shù)據(jù)與60比較

HHH: JC SET4 ;調(diào)整單元數(shù)據(jù)小于60轉(zhuǎn)SET4循環(huán)

LCALL CLR0 ;調(diào)整單元數(shù)據(jù)大于或等于60時清0

CLR C ;清進(jìn)位標(biāo)志

AJMP SET4 ;跳轉(zhuǎn)到SET4循環(huán)

CLOSEDIS:

SETB ET0 ;省電（LED不顯示）狀態(tài)。開T0中斷

SETB TR0 ;開啟T0定時器（開時鐘）

CLOSE: JB P3.7,CLOSE ;無按鍵按下，等待。

LCALL DISPLAY ;有鍵按下，調(diào)顯示子程序延時削抖

JB P3.7,CLOSE ;是干擾返回CLOSE等待

WAITH: JNB P3.7,WAITH;等待鍵釋放

LJMP START1 ;返回主程序（LED數(shù)據(jù)顯示亮）

SETHH: CLR 00H ;分閃爍標(biāo)志清除（進(jìn)入調(diào)小時狀態(tài)）

SETHH1: JNB P3.7,SET5 ;等待鍵釋放

SETB 01H ;小時調(diào)整標(biāo)志置1

SET6: JB P3.7,SET7 ;等待按鍵按下

LCALL DL05S ;有鍵按下延時0.5秒

JNB P3.7,SETOUT ;按下時間大于0.5秒退出時間調(diào)整

MOV R0,#79H ;按下時間小于0.5秒加1小時操作

LCALL ADD1 ;調(diào)加1子程序

MOV A,R3

CLR C

CJNE A,#24H,HOUU ;計時單元數(shù)據(jù)與24比較

HOUU: JC SET6 ;小于24轉(zhuǎn)SET6循環(huán)

LCALL CLR0 ;大于或等于24時清0操作

AJMP SET6 ;跳轉(zhuǎn)到SET6循環(huán)

SETOUT: JNB P3.7,SETOUT1 ;調(diào)時退出程序。等待鍵釋放

LCALL DISPLAY ;延時削抖

JNB P3.7,SETOUT ;是抖動，返回SETOUT再等待

CLR 01H ;清調(diào)小時標(biāo)志

CLR 00H ;清調(diào)分標(biāo)志

CLR 02H ;清閃爍標(biāo)志

CLR TR1 ;關(guān)閉定時器T1

CLR ET1 ;關(guān)定時器T1中斷

SETB TR0 ;開啟定時器T0

SETB ET0 ;開定時器T0中斷（計時開始）

LJMP START1 ;跳回主程序

SET1: LCALL DISPLAY ;鍵釋放等待時調(diào)用顯示程序（調(diào)分）

AJMP SET2 ;防止鍵按下時無時鐘顯示

SET3: LCALL DISPLAY ;等待調(diào)分按鍵時時鐘顯示用

AJMP SET4

SET5: LCALL DISPLAY ;鍵釋放等待時調(diào)用顯示程序（調(diào)小時）

AJMP SETHH1 ;防止鍵按下時無時鐘顯示

SET7: LCALL DISPLAY ;等待調(diào)小時按鍵時時鐘顯示用

AJMP SET6

SETOUT1:LCALL DISPLAY ;退出時鐘調(diào)整時鍵釋放等待

AJMP SETOUT ;防止鍵按下時無時鐘顯示

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 顯示程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; 顯示數(shù)據(jù)在70H-75H單元內(nèi)，用六位LED共陽數(shù)碼管顯示，P1口輸出段碼數(shù)據(jù)，P3口作

; 掃描控制，每個LED數(shù)碼管亮1MS時間再逐位循環(huán)。

DISPLAY:MOV R1,#70H ;指向顯示數(shù)據(jù)首址

MOV R5,#0FEH ;掃描控制字初值

PLAY: MOV A,R5 ;掃描字放入A

MOV P3,A ;從P3口輸出

MOV A,@R1 ;取顯示數(shù)據(jù)到A

MOV DPTR,#TAB ;取段碼表地址

MOVC A,@A+DPTR;查顯示數(shù)據(jù)對應(yīng)段碼

MOV P1,A ;段碼放入P1口

LCALL DL1MS ;顯示1MS

INC R1 ;指向下一地址

MOV A,R5 ;掃描控制字放入A

JNB ACC.5,ENDOUT ;ACC.5=0時一次顯示結(jié)束

RL A ;A中數(shù)據(jù)循環(huán)左移

MOV R5,A ;放回R5內(nèi)

AJMP PLAY ;跳回PLAY循環(huán)

ENDOUT: SETB P3.5 ;一次顯示結(jié)束，P3口復(fù)位

MOV P1,#0FFH ;P1口復(fù)位

RET ;子程序返回

TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH

;共陽段碼表 012 34567 89不亮

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 延時程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;1MS延時程序，LED顯示程序用

DL1MS: MOV R6,#14H

DL1: MOV R7,#19H

DL2: DJNZ R7,DL2

DJNZ R6,DL1

RET

;20MS延時程序，采用調(diào)用顯示子程序以改善LED的顯示閃爍現(xiàn)象

DS20MS: ACALL DISPLAY

ACALL DISPLAY

ACALL DISPLAY

RET

;延時程序，用作按鍵時間的長短判斷

DL1S: LCALL DL05S

LCALL DL05S

RET

DL05S: MOV R3,#20H ;8毫秒*32=0.196秒

DL05S1: LCALL DISPLAY

DJNZ R3,DL05S1

RET

END