【正文】 MOVX @R1,A CLR RS1 。=0 POP DPL 。退出堆棧 POP DPH RET LS0: DB 0C0H,0F9H,0A4H,0B0H,99H,92H 。字型表值 DB 82H,0F8H,80H,90H,88H,83H,0C6H DB 0A1H,86H,8EH,0FFH,0CH,89H,7FH,0BFH 。 baoliu: SETB RS1 MOV A,40H 。鍵盤輸入值送 A MOV 41H,R1 。數(shù)碼管的初值送 41H 單元中 MOV R1,42H 。存放輸入密碼單元送 R1 中 MOV A,40H MOV @R1,A 。寄存器 R1 地址的內容為鍵盤輸入值 INC R1 MOV A,R1 MOV 42H,A 。存放輸入密碼單元送 42H 單元中 MOV A,06H ADD A,50H MOV R1,A 。56H 單元值送 R1 中 MOV A,@R1 INC A MOV @R1,A 。輸入密碼位數(shù)加 1 存放在 56H 中 MOV R1,41H MOV A,51H 。存放輸入密碼單元內容送 A 中 LP6: CLR RS1 RET 。密碼比對 (掃描 ) 4*8 的鍵盤有 32 個鍵值 0 表示鍵按下 KEY: SETB RS1 。=1 MOV R2,0FEH 。第幾個鍵按下 初值第一個鍵按下 字位表 MOV R3,08H 。R3 送初值 08H 作為計數(shù)器 MOV R0,00H 。計算鍵值第幾列按下 初值 00H LP1: MOV A,R2 MOV R1,20H 。給 R1 送地址 20H 在 R1 中存儲第 n 個鍵按下的值 MOVX @R1,A RL A MOV R2,A 。第 n+1 個鍵按下 MOV R1,22H 。計算行值 MOVX A,@R1 CPL A 。取反 ANL A,0FH 。取行值 JNZ LP0 INC R0 。計算第 n 列鍵值 ,值加 1 DJNZ R3,LP1 。密碼比對八次 MOVX A,@R1 JB ,XP33 XP33: MOV A,20H SJMP XP3 XP3: CLR RS1 RET LP0: CPL A 。A 為鍵盤表第 A 個鍵值 JB ,XP0 。第 0 行按下 MOV A,00H SJMP LPP XP0: JB ,XP1 。第 1 行按下 MOV A,08H SJMP LPP XP1: JB ,XP2 。第 2 行按下 MOV A,10H SJMP LPP XP2: JB ,XP33 。第 3 行按下 MOV A,18H LPP: ADD A,R0 CLR RS1 。=0 CJNE A,10H,LX0 。A 與 10H 比較 小于則 A 為輸入鍵盤表值 LX0: JNC XP35 MOV DPTR,LS3 。鍵盤表 PC 地址送入 DPTR MOVC A,@A+DPTR MOV 40H,A 。鍵盤表第 A 個存儲在 40H 單元中 XP35: RET 。確認鍵 原密碼的位數(shù) =？輸入密碼的位數(shù) 不等出錯 相等比較 QUEREN: MOV R0,56H 。56H 存放輸入密碼的位數(shù) MOV R1,57H 。57H 存放原密碼的位數(shù) MOV A,R0 SUBB A,R1 。R0 與 R1 進行位數(shù)比較 JZ BIJIAO 。位數(shù)相同則跳轉到 BIJIAO CHUCUO: MOV R0,43H DEC R0 MOV 43H,R0 MOV A,43H MOV P1,0FEH 。亮黃燈 JZ EXIT KAI: LJMP START BIJIAO: MOV R2,56H 。R2=06H 與原密碼的位數(shù)相等 初始化 MOV R1,50H 。輸入密碼的首地址 MOV R0,58H 。原密碼的首地址 BIJIAO1: MOV A,@R1 。原密碼每一位的值與輸入密碼每一位的值是否相等 SUBB A,@R0 JZ XT LJMP CHUCUO XT: INC R1 INC R0 DJNZ R2,BIJIAO1 MOV P1,0FDH 。亮綠燈 LJMP $ 。鎖鍵 RET 。 。修改原始密碼 由第一次輸入密碼按修改鍵確定為修改新密碼 GENGXIN: MOV A,56H 。56H 存放輸入密碼的位數(shù) 初始化 MOV 57H,A 。將 56H 存放輸入密碼的位數(shù)存入 57H 中 MOV R2,06H MOV R1,50H 。輸入密碼的首地址 MOV R0,58H 。原密碼的首地址 XG: MOV A,@R1 。將輸入密碼每一位的值存入到原密碼每一位的值中 MOV @R0,A INC R1 INC R0 DJNZ R2,XG RET 。 LCK0: LCALL L2 JNC LCK1 LCALL L3 MOV R1,7EH LCALL baoliu 。R1 為數(shù)碼管的 初值 56H 為輸入密碼位數(shù) SJMP LCK0 LCK1: CJNE A,10H,LCK2 。A 為存放輸入密碼單元內容 LCALL QUEREN 。10H 為確認鍵 :TV/ME 鍵 LCK2: CJNE A,11H,LCK0 LCALL GENGXIN 。11H 為修改鍵 :RG/FS 鍵 LJMP START RET EXIT: MOV P1,0FBH 。亮紅燈 。SJMP $ 。鎖鍵 JCJ: CLR RS1 DL1:MOV R5,50 DL2:MOV R7,100 DL3:MOV R6,100 DL4:DJNZ R6,DL4 DJNZ R7,DL3 DJNZ R5,DL3 LJMP MAIN RET END