單片機(jī)數(shù)字時(shí)鐘課程設(shè)計(jì)代碼

1、字，顯示有；當(dāng)R6=02時(shí)為顯示拆字；當(dāng)R6=03時(shí)為鬧鐘拆字，只手動(dòng)切換，不自動(dòng)*/ CZ:CJNE R6,#01H,L0 MOV R0,#30H MOV R1,#3AH CZ1:MOV A,R1 ANL A,#0FH MOV R0,A INC R0 MOV A,R1 ANL A,#0F0H SWAP A MOV R0,A INC R0 MOV R0,#10 ;查表中的第十位是-，32H,35H中為- INC R1 INC R0 CJNE R1,#3DH,CZ1 RET L0:CJNE R6,#02H,L2 MOV R1,#41H MOV R0,#30H CZ2:MOV A,R1 ANL A

2、,#0FH MOV R0,A INC R0 MOV A,R1 ANL A,#0F0H SWAP A MOV R0,A INC R0 INC R1 CJNE R1,#45H,CZ2 RET L2: CJNE R6,#03H,L1 CZ3:MOV A,4BH MOV B,A ANL A,#0FH MOV 30H,A MOV A,B SWAP A ANL A,#0FH MOV 31H,A MOV 32H,#0AH MOV A,4CH MOV B,A ANL A,#0FH MOV 33H,A MOV A,B SWAP A ANL A,#0FH MOV 34H,A MOV 35H,#0BH MOV 36

3、H,#0BH ; JNB 20H.1 ,BK ;判斷鬧鐘開關(guān)，當(dāng)開的時(shí)候38H顯示0 MOV 37H,#00H SJMP L1 BK: MOV 37H,#0BH L1: RET ; 顯示更新子程序 DISP:MOV R0,#30H ;顯示更新子程序。顯示緩沖單元首地址 MOV R3,#01H ;字位碼初值（從最右位起） MOV A,R3 DISP1:MOV DPTR,#0FEFDH ; 8255-B口（字位碼輸出口） MOVX DPTR,A ; 輸出當(dāng)前字位碼 MOV A,R0 ADD A,#TAB-NEXTPC ; 加TAB與NEXTPC差址 MOVC A,A+PC ; 查表得相應(yīng)字段碼 N

4、EXTPC:LCALL JIAD ;日期加點(diǎn) MOV DPTR,#0FEFCH ; 8255-A口（字段碼輸出口） MOVX DPTR,A ; 輸出字段碼 LCALL D1MS ; 保持顯示1毫秒 INC R0 ; 指向下一顯示緩沖單元 MOV A,R3 ; 取出字位碼 JB ACC.7,DISP2 ; 判已顯示到最左位否 RL A ; 未完,字位碼左移1位 MOV R3,A ; 回存新字位碼 LJMP DISP1 ; 轉(zhuǎn)下一位的顯示驅(qū)動(dòng) DISP2:RET TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;"0"&q

5、uot;9" 顯示字段碼表 DB 0BFH,0FFH ;- 滅 JIAD:CJNE R6, #02H,JIND2 ;當(dāng)顯示日期時(shí)，加小數(shù)點(diǎn) CJNE R0 ,#30H ,DIAN1 ANL A,#7FH DIAN1:CJNE R0,#32H,DIAN2 ANL A,#7FH DIAN2:CJNE R0,#34H,JIND2 ANL A,#7FH JIND2:RET ; 顯示定時(shí)控制程序 IT0P:PUSH ACC ;定時(shí)器0服務(wù)子程序。保護(hù)現(xiàn)場 PUSH PSW INC 38H ;每200uS加1 MOV A,38H CJNE A,#50,DONE4 ;滿10mS？ MOV 38H,

6、#0 ;200uS計(jì)數(shù)單元清0 INC 39H ;每10mS加1 MOV A,39H CJNE A,#25,DONE8 ;與250ms比較 CLR 20H.0 LJMP DONE11 DONE8:CJNE A,#50,DONE9 SETB 20H.0 LJMP DONE11 DONE9:CJNE A,#75,DONE10 CLR 20H.0 LJMP DONE11 DONE10:CJNE A,#100,DONE11 SETB 20H.0 DONE11:CJNE A,#100,DONE4 ;滿1S？ MOV 39H,#0 ;10mS計(jì)數(shù)單元清0 MOV A,23H ADD A,#1 DA A M

7、OV 23H,A MOV A,5DH ADD A,#1 DA A MOV 5DH,A LCALL ZD ;時(shí)間日期自動(dòng)切換 MOV A,3AH ;秒單元（按BCD碼）加1 ADD A,#1 DA A MOV 3AH,A CJNE A,#60H,DONE4 ;滿1分鐘？ SETB 20H.3 MOV 3AH,#0 ;秒單元清零 MOV A,3BH ;分鐘單元（按BCD碼）加1 ADD A,#1 DA A MOV 3BH,A CJNE A,#60H,DONE4 ;滿1小時(shí)？ MOV 3BH,#0 ;分鐘單元清零 MOV A,3CH ;小時(shí)單元（按BCD碼）加1 ADD A,#1 DA A MOV

8、3CH,A CJNE A,#24H,DONE4 ;滿24小時(shí)？ MOV 3CH,#0 ;小時(shí)單元清零 MOV A,41H ADD A,#01H ;日期加1 DA A MOV 41H,A LCALL NYR DONE4: POP PSW ;恢復(fù)現(xiàn)場 POP ACC RETI ;中斷返回 ZD:CJNE R6,#01H,ZD1 MOV A,5DH ;秒計(jì)數(shù)單元 CJNE A,5AH,ZD3 ;時(shí)間保持時(shí)間 MOV R6,#02H MOV 5DH,#00H ZD1:CJNE R6,#02H,ZD3 MOV A,5DH CJNE A,5BH,ZD3 ;日期顯示時(shí)間 MOV R6,#01H MOV 5D

9、H,#00H ZD3:RET NYR:MOV A,42H CJNE A,#02H,TD1 ;判斷是否為2月 LCALL RUN ;判斷是閏年還是平年 MOV A,65H ;閏年標(biāo)志位存65H TD0:CJNE A,#00H,DAY28 LJMP DAY29 TD1: CJNE A,#04,TD2 ;4月30天 LJMP DAY30 TD2:CJNE A,#06H,TD3 LJMP DAY30 ;6月30天 TD3:CJNE A,#09H,TD4 LJMP DAY30 ;9月30天 TD4: CJNE A,#11H,TD5 LJMP DAY30 ;11月30天 TD5:LJMP DAY31 ;其

10、他月31天 DAY28:MOV A,41H CJNE A,#29H,TS0 ;日期是否等于29 MOV 41H,#01H ;日期等于29置1 MOV A,42H ;月份加1 ADD A,#01H DA A MOV 42H,A LJMP TS0 DAY29: MOV A,41H CJNE A,#30H,TS0 ;日期是否等于30 MOV 41H,#01H ;日期等于30置1 MOV A,42H ;月份加1 ADD A,#01H DA A MOV 42H,A LJMP TS0 DAY30:MOV A,41H CJNE A,#31H,TS ;加1后日期是否等于31 MOV 41H,#01H ;日期等

11、于31時(shí)置1 MOV A,42H ;月份加1 ADD A,#01H DA A MOV 42H,A LJMP NYSD DAY31: MOV A,41H CJNE A,#32H,TS ;加1后日期是否等于32 MOV 41H,#01H ;日期等于32是置1 MOV A,42H ;月份加1 ADD A,#01H DA A MOV 42H,A NYSD: CJNE A,#13H,TS0 ;加1后月份是否等于13 MOV 42H,#01H ;月份置1 MOV A,43H ADD A,#01H ;年份加1 DA A MOV 43H,A TS0: RET ; 年份判斷，閏年 RUN:MOV A,43H ;

12、閏年判斷，求標(biāo)志位 ANL A,#0FH ;因?yàn)楣潭?0XX年，選后一個(gè)X MOV 68H,A ;暫存后兩位于68H MOV A,43H ANL A,#0F0H ;因?yàn)楣潭?0XX年，選前一個(gè)X SWAP A MOV 69H,A ;暫存后兩位于69HH MOV A,69H MOV B,#10 MUL AB ;前X乘以10 ADD A,68H ;前X乘以10+后X MOV B,#4 DIV AB MOV 65H,B ;存余數(shù)，也就是閏年標(biāo)志位是否為零，為零為閏年 TS: RET ; 延時(shí)子程序 D1S:MOV R7,#8 ;軟件延時(shí)1S子程序 D1S2:MOV R4,#200 D1S1:MO

13、V R5,#200 D1S0:NOP DJNZ R5,D1S0 DJNZ R4,D1S1 DJNZ R7,D1S2 RET D02S:MOV R7,#8 ;軟件延時(shí)0.2S子程序 D02S2:MOV R4,#40 D02S1:MOV R5,#200 D02S0:NOP DJNZ R5,D02S0 DJNZ R4,D02S1 DJNZ R7,D02S2 RET D1MS:MOV R7,#154 ;軟件延時(shí)約1mS子程序 D1MS1:NOP NOP NOP NOP NOP NOP DJNZ R7,D1MS1 RET END ;-鍵盤掃描子程序- ; KEY:MOV 26H,25H ;鍵號(hào)存于25H

14、 ; MOV A,#81H ;鍵盤掃描子程序 ; MOV DPTR,#0FEFFH ; MOVX DPTR,A ;C口先初始化為高4位輸出驅(qū)鍵行線、低4位輸入鍵列線 ; MOV DPTR,#0FEFEH ;鍵盤行線(高4位輸出驅(qū)動(dòng)全'0' ; MOV A,#00H ; MOVX DPTR,A ; MOVX A,DPTR ;輸入鍵盤列線電平(低4位 ; MOV 24H,A ; MOV A,#88H ;C口改初始化為高4位輸入驅(qū)鍵行線、低4位輸出驅(qū)鍵列線 ; MOV DPTR,#0FEFFH ; MOVX DPTR,A ; MOV DPTR,#0FEFEH ;鍵盤列線(低4位輸出驅(qū)

15、動(dòng)全'0' ; MOV A,#00H ; MOVX DPTR,A ; MOVX A,DPTR ;輸入鍵盤行線電平(高4位 ; ANL 24H,#0FH ;列線電平值保留所在的低4位 ; ANL A,#0F0H ;行線電平值保留所在的高4位 ; ORL 24H,A ;兩次輸入的列線、行線電平組合成8位行列碼 ; MOV 27H,#00H ;鍵號(hào)初值為00H ; MOV R5,#10H ;將進(jìn)行16個(gè)鍵碼查表 ; MOV DPTR,#KEY_N ;鍵碼表首地址 ; KY:MOV A,#00H ; MOVC A,A+DPTR ;查表讀取鍵碼表中當(dāng)前位置鍵碼 ; CJNE A,24H,

16、NK ;與8位行列碼比較，不同則轉(zhuǎn)NK查下一個(gè) ; MOV 25H,27H ;相同則轉(zhuǎn)KN根據(jù)已獲 取的鍵號(hào)進(jìn)行相應(yīng)處理 ; RET ; NK:INC 27H ;鍵號(hào)加1 ; INC DPTR ;指向鍵值表下一個(gè)位置 ; DJNZ R5,KY ;未查完，繼續(xù) ; MOV 25H,#0FFH ; RET ;查完，說明無按鍵或出現(xiàn)異常行列碼直接返回 ; KEY_N:DB 0EEH,0EDH,0EBH,0E7H ;鍵碼K0,K1,K2,K3 ; DB 0DEH,0DDH,0DBH,0D7H ;鍵碼K4,K5,K6,K7 ; DB 0BEH,0BDH,0BBH,0B7H ;鍵碼K8,K9,K10,K1

17、1 ; DB 7EH,7DH,7BH,77H ;鍵碼K12,K13,K14,K15 ;-手動(dòng)切換- ; KEY100000:MOV A,26H ; CJNE A,#0FFH,P102 ; MOV A,25H ; CJNE A,#0AH,P102 ; CJNE R6,#01H,P100 ; MOV R6,#02H ; MOV 5DH,#00H ; SJMP P102 ; P100:CJNE R6,#02H,P101 ; MOV R6,#03H ; MOV 5DH,#00H ; SJMP P102 ; P101:CJNE R6,#03H,P102 ; MOV R6,#01H ; MOV 5DH,#00H ;