矩阵按键控制的电子时钟程序.doc

源程序：FKEY EQU 20H.0SHI EQU 50HFEN EQU 51HMIAO EQU 52HCOUNTER EQU 4AHTEMP EQU 30HKEY_NO EQU 21HTEMP_NUM EQU 22HORG 0000HLJMP MAINORG 000BHLJMP INTT0ORG 0100HMAIN:MOV SP,#60H MOV COUNTER,#00 MOV SHI,#00 MOV FEN,#00 MOV MIAO,#00 LCALL DISP LCALL KEY_SCAN JB FKEY,WAIT_OFF0 ;若有按键就等待按键放开，无则继续扫描显示器和键盘 AJMP MAIN WAIT_OFF0: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF0 MOV R5,#5 ACALL DELAY ;延时1ms,清抖作用 ;按键松开后WAIT0: MOV A,KEY_NO ;按键松开后 CJNE A,#0AH,MAIN SETB EA SETB ET0 MOV TMOD,#01H MOV TL0,#0B0H MOV TH0,#3CH SETB TR0 SCAN: CLR KEY_NO CLR FKEYSCAN0: LCALL DISP ;调用扫描子程序 ACALL KEY_SCAN ;调用扫描子程序SCAN1: JB FKEY,WAIT_OFF ;若有按键就等待按键放开，无则继续扫描显示器和键盘 AJMP SCAN WAIT_OFF: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF MOV R5,#5 ACALL DELAY ;延时1ms,清抖作用 ;按键松开后WAIT: MOV A,KEY_NO ;按键松开后 NEXT: ;键值判断，分支跳转 CJNE A,#0AH,NEXT0 ACALL STOP ;停止NEXT0: CJNE A,#0BH,NEXT1 ACALL TIAOSHI ;NEXT1: CJNE A,#0CH,NEXT2 ACALL TIAOFEN ;NEXT2: CJNE A,#0DH,NEXT3 ACALL TIAOMIAO ;NEXT3: CJNE A,#0EH,NEXT4 ACALL STOP ;NEXT4:CJNE A,#0FH,NEXT5 ACALL STOP ;NEXT5: AJMP SCAN ;* STOP: AJMP MAIN RET;*键盘扫描子程序*WWWWWWWWKEY_SCAN: MOV R3,#0EFH ;加载扫描输出初始信号11101111B MOV R4,#0 MOV R1,#4 CLR PSW.5S1: MOV A,R3 ;循环扫描16个按键 MOV P1,A MOV R5,#1 ACALL DELAY MOV A,P1 ;读取P1口数据判断按键是否有效 ANL A,#0FH MOV R2,#4S2: JB ACC.0,N1 ;判断有无按键, 若为1则表示没按键按下 MOV KEY_NO,R4 SETB PSW.5N1: INC R4 RR A DJNZ R2,S2 ;对一行进行扫描 MOV A,R3 RL A ;移至下一行扫描 MOV R3,A DJNZ R1,S1BACK: JNB PSW.5,NO_KEY SETB FKEY RETNO_KEY: CLR FKEY RET;* ;*数字对换*WWWWWW HUAN:MOV A,SHIMOV B,#10DIV ABMOV TEMP,AMOV TEMP+1,BMOV TEMP+5,#10MOV A,FENMOV B,#10DIV AB MOV TEMP+3,AMOV TEMP+4,BMOV TEMP+2,#10MOV A,MIAOMOV B,#10DIV ABMOV TEMP+6,AMOV TEMP+7,B RET ;*按键功能子程序* TIAOSHI : CLR EA CLR FKEY MOV A,#00H MOV KEY_NO,A M0: LCALL KEY_SCAN LCALL DISP JB FKEY,WAIT_OFF1 ;若有按键就等待按键放开，无则继续扫描显示器和键盘 AJMP M0 WAIT_OFF1: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF1 MOV R5,#5 ACALL DELAY ;延时1ms,清抖作用 ;按键松开后 MOV A,KEY_NO ;按键松开后 CJNE A,#0BH,TIAN0 LCALL QD0 TIAN0: MOV A,KEY_NO CLR C SUBB A,#0AH JNC M0 MOV A,KEY_NO MOV TEMP_NUM,A MOV B,#10 MOV A,SHI DIV AB MOV A,B MOV B,#10 MUL AB MOV SHI,A MOV A,SHI ADD A,TEMP_NUM MOV SHI, A LCALL DISP ACALL TIAOSHI QD0: SETB EA AJMP SCAN RETTIAOFEN : CLR EA CLR FKEY MOV A,#00H MOV KEY_NO,A M1: LCALL KEY_SCAN LCALL DISP JB FKEY,WAIT_OFF2 ;若有按键就等待按键放开，无则继续扫描显示器和键盘 AJMP M1 WAIT_OFF2: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF2 MOV R5,#5 ACALL DELAY ;延时1ms,清抖作用 ;按键松开后 MOV A,KEY_NO ;按键松开后 CJNE A,#0CH,TIAN1 LCALL QD1 TIAN1: MOV A,KEY_NO CLR C SUBB A,#0AH JNC M1 MOV A,KEY_NO MOV TEMP_NUM,A MOV B,#10 MOV A,FEN DIV AB MOV A,B MOV B,#10 MUL AB MOV FEN,A MOV A,FEN ADD A,TEMP_NUM MOV FEN, A LCALL DISP ACALL TIAOFEN QD1: SETB EA AJMP SCAN RETTIAOMIAO : CLR EA CLR FKEY MOV A,#00H MOV KEY_NO,A M2: LCALL KEY_SCAN LCALL DISP JB FKEY,WAIT_OFF3 ;若有按键就等待按键放开，无则继续扫描显示器和键盘 AJMP M2 WAIT_OFF3: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF3 MOV R5,#5 ACALL DELAY ;延时1ms,清抖作用 ;按键松开后 MOV A,KEY_NO ;按键松开后 CJNE A,#0DH,TIAN2 LCALL QD2 TIAN2: MOV A,KEY_NO CLR C SUBB A,#0AH JNC M2 MOV A,KEY_NO MOV TEMP_NUM,A MOV B,#10 MOV A,MIAO DIV AB MOV A,B MOV B,#10 MUL AB MOV MIAO,A MOV A,MIAO ADD A,TEMP_NUM MOV MIAO, A LCALL DISP ACALL TIAOMIAO QD2: SETB EA AJMP SCAN RET;*中断程序*WWWWWWINTT0: PUSH PSW PUSH ACCINC COUNTERMOV A,COUNTERCJNE A,#20,BACK0MOV COUNTER,#00HINC MIAOMOV A,MIAOCJNE A,#60,BACK0MOV MIAO,#00INC FEN MOV A,FENCJNE A,#60,BACK0MOV FEN,#00INC SHIMOV A,SHICJNE A,#24,BACK0MOV SHI,#00BACK0: MOV TL0,#0B0H MOV TH0,#3CH POP ACC POP PSW RETI;*显示*DISP: LCALL HUAN MOV R0,#TEMP MOV R3,#00H MOV R2,#00HDISP1:MOV A,R2 MOV DPTR,#TAB1 MOVC A,A+DPTR MOV P2,A MOV A,R0 MOV DPTR,#TAB MOVC A,A+DPTR MOV P0,A MOV R5,#5 ACALL DELAY ;延时1ms,清抖作用INC R0INC R3INC R2 CJNE R2,#8,DISP1 ;缓存区数据依次从低位开始输出 MOV P0,#00H ;消除余辉 RETTAB: DB