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

源程疗:： FKEY EQU 20H.0 SHI EQU 50H FEN EQU 51H MIAO EQU 52H COUNTER EQU 4AH TEMP EQU 30H KEY_NO EQU21H TEMP_NUM EQU 22H ORG 0000H LJMP MAIN ORG 000BH LJMP INTTO ORG 01 OOH MAIN:MOV SP,#60H MOV COUNTER,#。。 MOV SHI,#00 MOV FEN,#00 MOV MIAO,#00 LCALL DISP LCALL KEY_SCAN ；若有按键就等待按键放开，无则继续扫描显示器和键盘 ；若有按键就等待按键放开，无则继续扫描显示器和键盘 AJMP MAIN WAIT_OFF0: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF0 MOV R5,#5 涎时1ms, 涎时1ms,清抖作用 ；按键松开后 ；按键松开后 WAIT0: MOV A,KEY_NO CJNE A,#0AH,MAIN SETB EA SETB ETO MOV TMOD,#01H MOV TLO,#OBOH MOV TH0,#3CH SETB TRO SCAN: CLR KEY_NO CLR FKEY SCANO: LCALL DISP ACALL KEY_SCAN SCAN1: JB FKEY,WAIT_OFF AJMPSCAN WA1T_OFF: ACALL DISP ACALL KEY_SCAN JB FKEY,WAIT_OFF MOV R5,#5 ACALL DELAY WAIT: MOV A,KEY_NO ；调用扫描子程序 ；调用扫描子程序 ；若有按键就等待按键放开，无则继续打描显示器和键盘 ；延时1ms,清抖作用 ；按键松开后 ；按键松开后 NEXT: CJNE A,#0AH,NEXT0 ACALLSTOP NEXTO: CJNEA,#OBH,NEXT1 ACALL TIAOSHI ；键值判断，分支跳转 ；停止 NEXT1: CJNE A,#0CH,NEXT2 ACALL TIAOFEN NEXT2: CJNE A,#()DH,NEXT3 ACALL TIAOMIAO NEXT3: CJNE A,#0EH,NEXT4 ACALLSTOP NEXT4:CJNE A,#0FH,NEXT5 ACALLSTOP NEXT5: AJMP SCAN ?****************************************** STOP: AJMP MAIN RET 键 盘 **************************** wwwwwwww KEY_SCAN: MOV R3,#0EFH MOV R4,#0 MOV R1 ,#4 CLR PSW.5 ;加载扫描输出初始信 S1: MOV A,R3 MOV Pl,A MOV R5,#l ACALL DELAY MOV A,Pl ANL A,#0FH MOV R2,#4 ；循环扫描16个按键 ;读取P1 口数据判断按键是否有效 S2: JB ACCAN1 MOV KEY_NO,R4 SETB PSW.5 ；判断有无按键，若为1则表示没按键按下 N1: INC R4 RRA DJNZ R2,S2 MOV A,R3 RLA MOV R3,A DJNZ RLSI BACK: JNB PSW.5,NO_KEY SETB FKEY RET NO_KEY: CLR FKEY RET ；对一行进行扫描 ；移至下一行扫描 *? ?土 *? ?土 *? ?土 *? ?土 *? ?土 *? ?丄■ *? ?丄■ *? ?丄■ ?丄* ?丄■ ?丄* ?丄■ ?丄■ ?丄■ ?士 ?士 ?士 ?士 ?士 **宣*容*容*容*容*宣*容*宣*宕***容*^*：i：WWWWWW HUAN: MOV A,SHI MOV B,#10 DIV AB MOV TEMP,A MOV TEMP+1,B MOV TEMP+5,#10 MOV A,FEN MOV B,#10 DIV AB MOV TEMP+3,A MOV TEMP+4,B MOV TEMP+2,#10 MOV A,MIAO MOV B,#10 DIV AB MOV TEMP+6,A MOV TEMP+7,B RET ?上 ?上 ?上 ?上 ?怜6怜6怜6怜6怜6怜6怜6怜6怜6怜6怜6个 6个 6个 6个 6个 6个6忖十介? [: !— TIAOSHI: CLR EA CLR FKEY MOV A,#()0H MOV KEY_NO,A MO: LCALL KEY_SCAN LCALL DISP JB FKEY,WAIT_OFF