【正文】 EQU 47H 。按鍵行號ROW EQU 48H 。按鍵列號VAL EQU 49H 。鍵值。以下為初始化程序,包括數(shù)據(jù)存儲空間初始化,設置初始密碼 ORG 00H SJMP START ORG 0BH LJMP INT_T0START:MOV CNT_A,00H 。程序初始化 MOV CNT_B,00H MOV KEY_CNT,00H MOV LINE,00H MOV ROW,00H MOV VAL,00H SETB MOV LED_BIT_1,00H 。段碼存儲區(qū)清0 MOV LED_BIT_2,00H MOV LED_BIT_3,00H MOV LED_BIT_4,00H MOV LED_BIT_5,00H MOV LED_BIT_6,00H MOV LED_BIT_7,79H MOV LED_BIT_8,73H MOV KEY_1,00H 。輸入密碼存儲區(qū)清0 MOV KEY_2,00H MOV KEY_3,00H MOV KEY_4,00H MOV KEY_5,00H MOV KEY_6,00H MOV WORD_1,6 。設置初始密碼為123456 MOV WORD_2,5 MOV WORD_3,4 MOV WORD_4,3 MOV WORD_5,2 MOV WORD_6,1 MOV TMOD,01H MOV TH0,(65536700)/256 MOV TL0,(65536700)MOD 256 MOV IE,82HA0:LCALL DISP。以下為鍵盤掃描程序,計算鍵值并存入VALLSCAN:MOV P3,0F0H 。掃描行碼 L1: JNB ,L2 LCALL DLY_S JNB ,L2 MOV LINE,00H LJMP RSCAN L2: JNB ,L3 LCALL DLY_S JNB ,L3 MOV LINE,01H LJMP RSCAN L3: JNB ,L4 LCALL DLY_S JNB ,L4 MOV LINE,02H LJMP RSCAN L4: JNB ,A0 LCALL DLY_S JNB ,A0 MOV LINE,03HRSCAN:MOV P3,0FH 。掃描列碼 C1: JNB ,C2 MOV ROW,00H LJMP CALCU C2: JNB ,C3 MOV ROW,01H LJMP CALCU C3: JNB ,C1 MOV ROW,02HCALCU:MOV A,LINE 。計算鍵值 MOV B,03H MUL AB ADD A,ROW MOV VAL,A。以下為按鍵處理程序,對不同的按鍵作出響應 CJNE A,0AH,J1 。是否為CLR鍵 MOV R1,KEY_CNT CJNE R1,00H,J2 LCALL ALARM_1 LJMP START J2: LCALL SHIFTR DEC KEY_CNTW00:LCALL DISP 。等待按鍵抬起 MOV A,P3 CJNE A,0FH,W01 LJMP A0 W01:MOV A,P3 CJNE A,0F0H,W02 LJMP A0 W02:SJMP W00 J1: MOV A,VAL CJNE A,0BH,J3 。判斷是否為ENTER鍵 MOV R1,KEY_CNT CJNE R1,06H,J4 MOV A,WORD_1 。比較密碼 CJNE A,3EH,J5 MOV A,WORD_2 CJNE A,3FH,J5 MOV A,WORD_3 CJNE A,40H,J5 MOV A,WORD_4 CJNE A,41H,J5 MOV A,WORD_5 CJNE A,42H,J5 MOV A,WORD_6 CJNE A,43H,J5 CLR LCALL DLY_L LJMP FINI J5: LCALL ALARM_2 LJMP START J4: LCALL ALARM_1 LJMP START J3: INC KEY_CNT 。按下數(shù)字鍵 MOV A,KEY_CNT CJNE A,07H,K1 LCALL ALARM_1 W10:LCALL DISP 。等待按鍵抬起 MOV A,P3 CJNE A,0FH,W11 LJMP START W11:MOV A,P3 CJNE A,0F0H,W12 LJMP START W12:SJMP W10 LJMP START LJMP START K1:LCALL SHIFTLW20:LCALL DISP 。等待按鍵抬起 MOV A,P3 CJNE A,0FH,W21 LJMP A0 W21:MOV A,P3 CJNE A,0F0H,W22 LJMP A0 W22:SJMP W20 LJMP A0ALARM_1:SETB TR0 。操作錯誤報警 JB TR0,$ RETALARM_2:SETB TR0 。密碼錯誤報警 JB TR0,$ LCALL DLY_L RET。定時器中斷服務程序,用于聲音報警INT_T0: CPL MOV TH0,(65536700)/256 MOV TL0,(65536700)MOD 256 INC CNT_A MOV R1,CNT_A CJNE R1,30,RETUNE MOV CNT_A,00H INC CNT_B MOV R1,CNT_B CJNE R1,20,RETUNE MOV CNT_A,00H MOV CNT_B,00H CLR TR0RETUNE: RETI。段碼,輸入密碼左移子程序SHIFTL:MOV LED_BIT_6,LED_BIT_5 MOV LED_BIT_5,LED_BIT_4 MOV LED_BIT_4,LED_BIT_3 MOV LED_BIT_3,LED_BIT_2 MOV LED_BIT_2,LED_BIT_1 MOV LED_BIT_1,40H MOV KEY_6,KEY_5 MOV KEY_5,KEY_4 MOV KEY_4,KEY_3 MOV KEY_3,KEY_2 MOV KEY_2,KEY_1 MOV KEY_1,VAL RET。段碼,輸入密碼右移子程序SHIFTR:MOV LED_BIT_1,LED_BIT_2 MOV LED_BIT_2,LED_BIT_3 MOV LED_BIT_3,LED_BIT_4 MOV LED_BIT_4,LED_BIT_5 MOV LED_BIT_5,LED_BIT_6 MOV LED_BIT_6,00H MOV KEY_1,KEY_2 MOV KEY_2,KEY_3 MOV KEY_3,KEY_4 MOV KEY_4,KEY_5 MOV KEY_5,KEY_6 MOV KEY_6,00H RET。以下為數(shù)碼顯示子程序DISP: CLR MOV P0,LED_BIT_8 LCALL DLY_S SETB CLR MOV P0,LED_BIT_7 LCALL DLY_S SETB CLR MOV P0,LED_BIT_6 LCALL DLY_S SETB CLR MOV P0,LED_BIT_5 LCALL DLY_S SETB CLR MOV P0,LED_BIT_4 LCALL DLY_S SETB CLR MOV P0,LED_BIT_3 LCALL DLY_S SETB CLR MOV P0,LED_BIT_2 LCALL DLY_S SETB CLR MOV P0,LED_BIT_1 LCALL DLY_S SETB RETDLY_S:MOV R6,10D1:MOV R7,250 DJNZ R7,$ DJNZ R6,D1 RETDLY_L:MOV R5,100D2:MOV R6,100D3:MOV R7,248 DJNZ R7,$ DJNZ R6,D3 DJNZ R5,D2 RETFINI: NOP END