单片机 电子钟(显示 键盘 去抖)程序VIP

1、键盘（KEY） MOV 21H,#0MAIN: LCALL KEYQU ;键盘去抖 LCALL KEYRD;读键值 SJMP MAINKEYQU: MOV KEYP,#0FFH ANL KEYP,#11110000B ;检测四行键 NOP MOV A,KEYP CPL A ANL A,#0F0H JZ KEYR1 JB KT,KEYQUE JNB KD,KEYR2 SETB KT SETB KC LJMP KEYQUEKEYR2: SETB KD LJMP KEYQUEKEYR1: CLR KD CLR KTKEYQUE: RETKEYRD: JNB KC,KEYRD1 CLR KCMOV K

2、EYP,#0FFH ANL KEYP,#11111110B ;检测第一行键 NOP MOV A,KEYP JNB ACC.7,KEYR14 JNB ACC.6,KEYR13 JNB ACC.5,KEYR12 JNB ACC.4,KEYR11LJMPKEYRD2KEYRD1: LJMP KEYRDE KEYR11: MOV KEYZ,#1 LJMP KEYRDEKEYR12: MOV KEYZ,#2 LJMP KEYRDEKEYR13: MOV KEYZ,#3 LJMP KEYRDEKEYR14: MOV KEYZ,#4 LJMP KEYRDEKEYRD2:MOV KEYP,#0FFH ANL

3、KEYP,#11111101B ;检测第二行键 NOP MOV A,KEYP JNB ACC.7,KEYR24 JNB ACC.6,KEYR23 JNB ACC.5,KEYR22 JNB ACC.4,KEYR21LJMPKEYRD3KEYR21: MOV KEYZ,#5 LJMP KEYRDEKEYR22: MOV KEYZ,#6 LJMP KEYRDEKEYR23: MOV KEYZ,#7 LJMP KEYRDEKEYR24: MOV KEYZ,#8 LJMP KEYRDEKEYRD3:MOV KEYP,#0FFH ANL KEYP,#11111011B ;检测第三行键 NOP MOV A,

4、KEYP JNB ACC.7,KEYR34 JNB ACC.6,KEYR33 JNB ACC.5,KEYR32 JNB ACC.4,KEYR31LJMPKEYRD4KEYR31: MOV KEYZ,#9 LJMP KEYRDEKEYR32: MOV KEYZ,#10 LJMP KEYRDEKEYR33: MOV KEYZ,#11 LJMP KEYRDEKEYR34: MOV KEYZ,#12 LJMP KEYRDEKEYRD4:MOV KEYP,#0FFH ANL KEYP,#11110111B ;检测第四行键 NOP MOV A,KEYP JNB ACC.7,KEYR44 JNB ACC.6

5、,KEYR43 JNB ACC.5,KEYR42 JNB ACC.4,KEYR41LJMPKEYRD2KEYR41: MOV KEYZ,#13 LJMP KEYRDEKEYR42: MOV KEYZ,#14 LJMP KEYRDEKEYR43: MOV KEYZ,#15 LJMP KEYRDEKEYR44: MOV KEYZ,#16 LJMP KEYRDEKEYRDE:RETKCBIT21H.0 ;处理键KDBIT21H.1 ;去抖KTBIT21H.2 ;抬键BIAOZ DATA 20H ;标志:.0定时到。KEYZDATA66H;键值，KEY1KEY16表示为0116KEYPEQUP1;键盘

6、接口 END显示（LED4）;4位LED数码管显示程序：段选接P0口，位选接P2口 LJMP MAIN ORG 000BH LJMP T0INTMAIN: LCALL CSHIH ;初始化LP1: LCALL JISUAN ;计算 LCALL YIMA ;译码 LCALL LED4W ;显示 CLR 00H JNB 00H,$ SJMP LP1LED4W: MOV A,XWEI MOV B,#3 MUL AB MOV DPTR,#LED4T JMP A+DPTRLED4T: LJMP LD4W1 LJMP LD4W2 LJMP LD4W3 LJMP LD4W4LD4W1: MOV LEDD,M

7、LED1 MOV LEDW,#1 INC XWEI SJMP LED4WELD4W2: MOV LEDD,MLED2 MOV LEDW,#2 INC XWEI SJMP LED4WELD4W3: MOV LEDD,MLED3 MOV LEDW,#4 INC XWEI SJMP LED4WELD4W4: MOV LEDD,MLED4 MOV LEDW,#8 MOV XWEI,#0LED4WE: RETYIMA: MOV R0,#BLED1 ;四位LED MOV R1,#MLED1 MOV R7,#4 MOV DPTR,#YIMTABYIMA1: MOV A,R0 MOVC A,A+DPTR MO

8、V R1,A INC R0 INC R1 DJNZ R7,YIMA1 RETYIMTAB: DB 3FH,06H,5BH,4FH ;0,1,2,3 DB 66H,6DH,7DH,07H ;4,5,6,7 DB 7FH,6FH,77H,7CH ;8,9,A,B DB 39H,5EH,79H,71H ;C,D,E,F DB 00H,0F3H,76H,80H,40H ; ,P,H,.,-CSHIH: MOV XWEI,#0 MOV LEDD,#0 MOV LEDW,#0 MOV TMOD,#1 ;T0方式1 MOV TTH0,#0D8H ;10MS MOV TTL0,#0F0H MOV TL0,TT

9、L0 MOV TH0,TTH0 SETB ET0 SETB EA SETB TR0 MOV BLED1,#1 MOV BLED2,#2 MOV BLED3,#3 MOV BLED4,#4 RETT0INT: MOV TL0,TTL0 MOV TH0,TTH0 SETB 00H RETIJISUAN: RETBIAOZ DATA 20H ;标志:.0定时到。XWEI DATA 60H ;显示位,4位:03TTL0 DATA 61HTTH0 DATA 62HLED1 DATA 70H ;显示数据HEXLED2 DATA 71HLED3 DATA 72HLED4 DATA 73HBLED1 DATA

10、 74H ;显示数据BCDBLED2 DATA 75HBLED3 DATA 76HBLED4 DATA 77HMLED1 DATA 78H ;显示数据译码MLED2 DATA 79HMLED3 DATA 7AHMLED4 DATA 7BHLEDD EQU P0 ;数码管段LEDW EQU P2 ;数码管位 END显示（LEDS4）;4位LED数码管显示程序：段选接P0口，位选接P2口。带闪耀。 LJMP MAIN ORG 000BH LJMP T0INTMAIN: LCALL CSHIH ;初始化LP1: LCALL JISUAN ;计算 LCALL YIMA ;译码 LCALL LED4W

11、;显示 CLR 00H JNB 00H,$ SJMP LP1LED4W: MOV A,XWEI MOV B,#3 MUL AB MOV DPTR,#LED4T JMP A+DPTRLED4T: LJMP LD4W1 LJMP LD4W2 LJMP LD4W3 LJMP LD4W4LD4W1: MOV LEDD,MLED1 MOV A,#1 ANL A,SHAN MOV LEDW,A INC XWEI SJMP LED4WELD4W2: MOV LEDD,MLED2 MOV A,#2 ANL A,SHAN MOV LEDW,A INC XWEI SJMP LED4WELD4W3: MOV LED

12、D,MLED3 MOV A,#4 ANL A,SHAN MOV LEDW,A INC XWEI SJMP LED4WELD4W4: MOV LEDD,MLED4 MOV A,#8 ANL A,SHAN MOV LEDW,A MOV XWEI,#0LED4WE: RETYIMA: MOV R0,#BLED1 ;四位LED MOV R1,#MLED1 MOV R7,#4 MOV DPTR,#YIMTABYIMA1: MOV A,R0 MOVC A,A+DPTR MOV R1,A INC R0 INC R1 DJNZ R7,YIMA1 RETYIMTAB: DB 3FH,06H,5BH,4FH ;0

13、,1,2,3 DB 66H,6DH,7DH,07H ;4,5,6,7 DB 7FH,6FH,77H,7CH ;8,9,A,B DB 39H,5EH,79H,71H ;C,D,E,F DB 00H,0F3H,76H,80H,40H ; ,P,H,.,-CSHIH: MOV SHANB,#00001011BMOVSHANC,#50 MOV XWEI,#0 MOV LEDD,#0 MOV LEDW,#0 MOV TMOD,#1 ;T0方式1 MOV TTH0,#0D8H ;10MS MOV TTL0,#0F0H MOV TL0,TTL0 MOV TH0,TTH0 SETB ET0 SETB EA S

14、ETB TR0 MOV BLED1,#1 MOV BLED2,#2 MOV BLED3,#3 MOV BLED4,#4 RETT0INT: MOV TL0,TTL0 MOV TH0,TTH0 SETB 00H RETIJISUAN:DJNZSHANC,JISUAEMOVSHANC,#50MOVA,SHANBCPLAXRLSHAN,AJISUAE: RETBIAOZ DATA 20H ;标志:.0定时到。XWEI DATA 60H ;显示位,4位:03TTL0 DATA 61HTTH0 DATA 62HSHAN DATA 63H ;闪耀位,对应位=0灭,=1亮SHANB DATA 64H ;闪耀

15、位备份,对应位=0灭,=1亮SHANCDATA65H;闪耀时间：0.5秒亮，0.5秒灭。定时10ms对应50次LED1 DATA 70H ;显示数据HEXLED2 DATA 71HLED3 DATA 72HLED4 DATA 73HBLED1 DATA 74H ;显示数据BCDBLED2 DATA 75HBLED3 DATA 76HBLED4 DATA 77HMLED1 DATA 78H ;显示数据译码MLED2 DATA 79HMLED3 DATA 7AHMLED4 DATA 7BHLEDD EQU P0 ;数码管段LEDW EQU P2 ;数码管位 END显示（LED8）;8位LED数码管

16、显示程序：段选接P0口，位选接P2口 LJMP MAIN ORG 000BH LJMP T0INTMAIN: LCALL CSHIH ;初始化LP1: LCALL JISUAN ;计算 LCALL YIMA ;译码 LCALL LED8W ;显示 CLR 00H JNB 00H,$ SJMP LP1LED8W: MOV A,XWEI MOV B,#3 MUL AB MOV DPTR,#LED8T JMP A+DPTRLED8T: LJMP LD8W1 LJMP LD8W2 LJMP LD8W3 LJMP LD8W4 LJMP LD8W5 LJMP LD8W6 LJMP LD8W7 LJMP L

17、D8W8LD8W1: MOV LEDD,MLED1 MOV LEDW,#1 INC XWEI SJMP LED8WELD8W2: MOV LEDD,MLED2 MOV LEDW,#2 INC XWEI SJMP LED8WELD8W3: MOV LEDD,MLED3 MOV LEDW,#4 INC XWEI SJMP LED8WELD8W4: MOV LEDD,MLED4 MOV LEDW,#8 INC XWEI SJMP LED8WELD8W5: MOV LEDD,MLED5 MOV LEDW,#10H INC XWEI SJMP LED8WELD8W6: MOV LEDD,MLED6 MO

18、V LEDW,#20H INC XWEI SJMP LED8WELD8W7: MOV LEDD,MLED7 MOV LEDW,#40H INC XWEI SJMP LED8WELD8W8: MOV LEDD,MLED8 MOV LEDW,#80H MOV XWEI,#0LED8WE: RETYIMA: MOV R0,#BLED1 ;四位LED MOV R1,#MLED1 MOV R7,#8 MOV DPTR,#YIMTABYIMA1: MOV A,R0 MOVC A,A+DPTR MOV R1,A INC R0 INC R1 DJNZ R7,YIMA1 RETYIMTAB: DB 3FH,06

19、H,5BH,4FH ;0,1,2,3 DB 66H,6DH,7DH,07H ;4,5,6,7 DB 7FH,6FH,77H,7CH ;8,9,A,B DB 39H,5EH,79H,71H ;C,D,E,F DB 00H,0F3H,76H,80H,40H ; ,P,H,.,-CSHIH: MOV XWEI,#0 MOV LEDD,#0 MOV LEDW,#0 MOV TMOD,#1 ;T0方式1 MOV TTH0,#0ECH ;5ms MOV TTL0,#78H MOV TL0,TTL0 MOV TH0,TTH0 SETB ET0 SETB EA SETB TR0 MOV BLED1,#1 MO

20、V BLED2,#2 MOV BLED3,#3 MOV BLED4,#4 MOV BLED5,#5 MOV BLED6,#6 MOV BLED7,#7 MOV BLED8,#8 RETT0INT: MOV TL0,TTL0 MOV TH0,TTH0 SETB 00H RETIJISUAN: RETBIAOZ DATA 20H ;标志:.0定时到。XWEI DATA 50H ;显示位,4位:03TTL0 DATA 51HTTH0 DATA 52HLED1 DATA 60H ;显示数据HEXLED2 DATA 61HLED3 DATA 62HLED4 DATA 63HLED5 DATA 64HLE

21、D6 DATA 65HLED7 DATA 66HLED8 DATA 67HBLED1 DATA 68H ;显示数据BCDBLED2 DATA 69HBLED3 DATA 6AHBLED4 DATA 6BHBLED5 DATA 6CHBLED6 DATA 6DHBLED7 DATA 6EHBLED8 DATA 6FHMLED1 DATA 70H ;显示数据译码MLED2 DATA 71HMLED3 DATA 72HMLED4 DATA 73HMLED5 DATA 74HMLED6 DATA 75HMLED7 DATA 76HMLED8 DATA 77HLEDD EQU P0 ;数码管段LEDW

22、EQU P2 ;数码管位 END键盘显示（KEYLEDS）;4位LED数码管显示程序：段选接P0口，位选接P2口。带闪耀。 LJMP MAIN ORG 000BH LJMP T0INTMAIN: LCALL CSHIH;初始化LP1: LCALL KEYQU;键盘去抖 LCALL KEYRD;读键值 LCALL JISUAN;计算 LCALL YIMA;译码 LCALL LED4W;显示 CLR 00H JNB 00H,$ SJMP LP1KEYQU: MOV KEYP,#0FFH ANL KEYP,#11110000B ;检测四行键 NOP MOV A,KEYP CPL A ANL A,#0

23、F0H JZ KEYR1 JB KT,KEYQUE JNB KD,KEYR2 SETB KT SETB KC LJMP KEYQUEKEYR2: SETB KD LJMP KEYQUEKEYR1: CLR KD CLR KTKEYQUE: RETKEYRD: JNB KC,KEYRD1 CLR KCMOV KEYP,#0FFH ANL KEYP,#11111110B ;检测第一行键 NOP MOV A,KEYP JNB ACC.7,KEYR14 JNB ACC.6,KEYR13 JNB ACC.5,KEYR12 JNB ACC.4,KEYR11LJMPKEYRD2KEYRD1: LJMP KE

24、YRDEKEYR11: MOV KEYZ,#1 LJMP KEYRDEKEYR12: MOV KEYZ,#2 LJMP KEYRDEKEYR13: MOV KEYZ,#3 LJMP KEYRDEKEYR14: MOV KEYZ,#4 LJMP KEYRDEKEYRD2:MOV KEYP,#0FFH ANL KEYP,#11111101B ;检测第二行键 NOP MOV A,KEYP JNB ACC.7,KEYR24 JNB ACC.6,KEYR23 JNB ACC.5,KEYR22 JNB ACC.4,KEYR21LJMPKEYRD3KEYR21: MOV KEYZ,#5 LJMP KEYRD

25、EKEYR22: MOV KEYZ,#6 LJMP KEYRDEKEYR23: MOV KEYZ,#7 LJMP KEYRDEKEYR24: MOV KEYZ,#8 LJMP KEYRDEKEYRD3:MOV KEYP,#0FFH ANL KEYP,#11111011B ;检测第三行键 NOP MOV A,KEYP JNB ACC.7,KEYR34 JNB ACC.6,KEYR33 JNB ACC.5,KEYR32 JNB ACC.4,KEYR31LJMPKEYRD4KEYR31: MOV KEYZ,#9 LJMP KEYRDEKEYR32: MOV KEYZ,#10 LJMP KEYRDEK

26、EYR33: MOV KEYZ,#11 LJMP KEYRDEKEYR34: MOV KEYZ,#12 LJMP KEYRDEKEYRD4: MOV KEYP,#0FFH ANL KEYP,#11110111B ;检测第四行键 NOP MOV A,KEYP JNB ACC.7,KEYR44 JNB ACC.6,KEYR43 JNB ACC.5,KEYR42 JNB ACC.4,KEYR41LJMPKEYRD2KEYR41: MOV KEYZ,#13 LJMP KEYRDEKEYR42: MOV KEYZ,#14 LJMP KEYRDEKEYR43: MOV KEYZ,#15 LJMP KEYR

27、DEKEYR44: MOV KEYZ,#16 LJMP KEYRDEKEYRDE:RETLED4W: MOV A,XWEI MOV B,#3 MUL AB MOV DPTR,#LED4T JMP A+DPTRLED4T: LJMP LD4W1 LJMP LD4W2 LJMP LD4W3 LJMP LD4W4LD4W1: MOV LEDD,MLED1 MOV A,#1 ANL A,SHAN MOV LEDW,A INC XWEI SJMP LED4WELD4W2: MOV LEDD,MLED2 MOV A,#2 ANL A,SHAN MOV LEDW,A INC XWEI SJMP LED4WE

28、LD4W3: MOV LEDD,MLED3 MOV A,#4 ANL A,SHAN MOV LEDW,A INC XWEI SJMP LED4WELD4W4: MOV LEDD,MLED4 MOV A,#8 ANL A,SHAN MOV LEDW,A MOV XWEI,#0LED4WE: RETYIMA: MOV R0,#BLED1 ;四位LED MOV R1,#MLED1 MOV R7,#4 MOV DPTR,#YIMTABYIMA1: MOV A,R0 MOVC A,A+DPTR MOV R1,A INC R0 INC R1 DJNZ R7,YIMA1 RETYIMTAB: DB 3FH,

29、06H,5BH,4FH ;0,1,2,3 DB 66H,6DH,7DH,07H ;4,5,6,7 DB 7FH,6FH,77H,7CH ;8,9,A,B DB 39H,5EH,79H,71H ;C,D,E,F DB 00H,0F3H,76H,80H,40H ; ,P,H,.,-CSHIH: MOV SHANB,#00001111B MOV SHAN,#00001111B MOV SHANC,#50 MOV KEYZ,#0 MOV XWEI,#0 MOV LEDD,#0 MOV LEDW,#0 MOV TMOD,#1 ;T0方式1 MOV TTH0,#0D8H ;10MS MOV TTL0,#0

30、F0H MOV TL0,TTL0 MOV TH0,TTH0 SETB ET0 SETB EA SETB TR0 MOV BLED1,#1 MOV BLED2,#2 MOV BLED3,#3 MOV BLED4,#4 RETT0INT: MOV TL0,TTL0 MOV TH0,TTH0 SETB 00H RETIJISUAN: LCALL H_BCD2 ;1位HEX转换为2位BCD码 DJNZSHANC,JISUAE ;闪耀MOVSHANC,#50MOVA,SHANBCPLAXRLSHAN,AJISUAE: RETH_BCD2: MOV A,KEYZ MOV B,#10 DIV AB MOV

31、BLED2,A MOV BLED1,B MOV BLED3,#0 MOV BLED4,#0 RETKCBIT21H.0 ;处理键KDBIT21H.1 ;去抖KTBIT21H.2 ;抬键BIAOZ DATA 20H ;标志:.0定时到。XWEI DATA 60H ;显示位,4位:03TTL0 DATA 61HTTH0 DATA 62HSHAN DATA 63H ;闪耀位,对应位=0灭,=1亮SHANB DATA 64H ;闪耀位备份,对应位=0灭,=1亮SHANCDATA65H;闪耀时间：30秒亮，30秒灭。定时10ms对应3次KEYZDATA66H;键值，KEY1KEY16表示为0116LED

32、1 DATA 70H ;显示数据HEXLED2 DATA 71HLED3 DATA 72HLED4 DATA 73HBLED1 DATA 74H ;显示数据BCDBLED2 DATA 75HBLED3 DATA 76HBLED4 DATA 77HMLED1 DATA 78H ;显示数据译码MLED2 DATA 79HMLED3 DATA 7AHMLED4 DATA 7BHLEDD EQU P1 ;数码管段LEDW EQU P2 ;数码管位KEYP EQU P3 ;键盘接口 END电子钟;4位LED数码管显示程序：段选接P0口，位选接P2口。带闪耀。 LJMP MAIN ORG 000BH LJ

33、MP T0INTMAIN: LCALL CSHIH;初始化LP1: LCALL KEYQU;键盘去抖 LCALL KEYRD;读键值 LCALL JISUAN;计算 LCALL YIMA;译码 LCALL LED4W;显示 CLR 00H JNB 00H,$ SJMP LP1KEYQU: MOV KEYP,#0FFH ANL KEYP,#11110000B ;检测四行键 NOP MOV A,KEYP CPL A ANL A,#0F0H JZ KEYR1 JB KT,KEYQUE JNB KD,KEYR2 SETB KT SETB KC LJMP KEYQUEKEYR2: SETB KD LJMP KEYQUEKEYR1: CLR KD CLR KTKEYQUE: RETKEYRD: JNB KC,KEYRD1 CLR KC MOV KEYP,#0FFH ANL KEYP,#11111110B ;检测第一行键 NOP MOV A,KEYP JNB ACC.7,KEYR14 JNB ACC.6,KEYR13 JNB ACC.5,KEYR12 JNB ACC.4,KEYR11 LJMP KEYRD2KEYRD1: LJMP KEYRDEKEYR11: MOV KEYZ,#1 LJMP KEYRDEKEYR12: MOV KEY