【正文】 誤差 0us PUSH PSW 30 MOV PSW,08H MOV R7,1DH DL1: MOV R6,46H DL0: MOV R5,61H DJNZ R5,$ DJNZ R6,DL0 DJNZ R7,DL1 POP PSW RET MAIN:DB 00H,08H,08H,08H,08H,08H,08H END 。//**************1ms 延時(shí)子程序 ************************// DELAY1MS:PUSH PSW MOV PSW, 08H MOV R7, 01H DL2: MOV R6, 8EH DL3: MOV R5, 02H DJNZ R5, $ DJNZ R6, DL3 DJNZ R7, DL2 POP PSW RET 。再把 P1 口的電平值送給 A CPL A 。//***************獨(dú)立式按鍵掃描 ***********************// KEYSM: MOV P1, 0FFH 。跳回判斷鍵釋放 KEY1: MOV 20H,B 。A=0 則為釋放了，跳 KEY1 保存鍵值到可位尋址單元 LCALL DISP 。A 不為 0，則確實(shí)有鍵按下 KEYSF:LCALL KEYSM 。再調(diào)鍵掃 JZ FH 。判斷 A是否為 0，為 0則跳 FH 處返回 29 LCALL DISP 。//***********獨(dú)立式按鍵處理 ************************// KEYCL:PUSH PSW PUSH ACC LCALL KEYSM 。出棧 POP DPH POP ACC POP PSW RET 。將 A，即查表向后推移一位 DJNZ R2,DOOP1 。調(diào) 1MS 的延時(shí)程序 MOV A,R3 RL A MOV R3,A 。查表去字形代碼 MOV P0,A 。 循環(huán)顯示的次數(shù) DOOP1:MOV P2,R3 。 表首 地址 MOV R3,0FEH 。 保護(hù)寄存器里面的數(shù)據(jù) PUSH ACC PUSH DPH PUSH DPL MOV PSW,08H MOV A,00H 。跳過去重新輸入 。按復(fù)位鍵返回重新輸入 XXX: SETB 。取反 口 28 LCALL DELAY400MS 。修改密碼后，進(jìn)入密碼報(bào)錯(cuò)后按任意鍵可以重新輸入 DJNZ R5,LOOP4 。顯示函數(shù)的循環(huán)次數(shù) CLR ?！疁纭? MOV 78H,0FFH 。滅 39。 MOV 7EH,0FFH 。39。R39。 MOV 7CH,88H 。39。O39。‘R’ MOV 7AH,0C0H 。標(biāo)志位等于 1則進(jìn)入錯(cuò)誤提醒設(shè)置 LJMP BIJIAO 。返回再繼續(xù)判斷按鍵 。送顯示字形，保密輸出顯示“口”形 INC R0 INC R1 MOV 20H, 00H LJMP TOOP ?！疁纭? TOOP: LCALL DISP LCALL KEYCL CLR CY JB ,KEY41 JB ,KEY42 JB ,KEY43 JB ,KEY44 JB ,KEY45 JB ,KEY46 JB ,KEY47 JB , KEY48 CJNE R1, 7EH,TOOP。滅 39。 MOV 7EH,0FFH 。39。滅 39。 26 MOV 7CH,0FFH 。39。滅 39。 MOV 7AH,0FFH 。39。利用 DPTR 做間址尋址寄存器 MOV 78H,0CH 。數(shù)據(jù)比較緩沖段 MOV R1,78H 。確認(rèn)密碼修改成功 (并判斷是否滿足密碼要求 ) SJMP THE2 THE: LJMP KEY28 。新密碼存放區(qū) MOV R1, 7DH 。 MOV 7FH, 0FFH 。39。_39。 MOV 7DH, 0F7H 。39。_39。 MOV 7BH, 0F7H 。39。_39?！甠’ MOV 79H, 0F7H 。按復(fù)位鍵返回重新輸入 。取反 口 LCALL DELAY400MS 。 蜂鳴器和 對(duì)應(yīng)的燈隔 響滅 LOOP1: LCALL DISP DJNZ R5,LOOP1 ?！疁纭? LOOP2: MOV R5,32H 。 MOV 7FH, 0FFH 。39。E39。 MOV 7DH, 86H 。39。R39。 MOV 7BH, 88H 。39。第 八個(gè)鍵按下，直接進(jìn)入密碼修改 CJNE R1, 77H,BOOP1 MOV R1, 7FH SJMP BOOP1 23 //錯(cuò)誤提示 則 出現(xiàn)‘ ERROR’字樣，并伴有蜂鳴聲和 LED 燈閃爍 // ERROR: MOV 79H, 88H 。 MOV 7FH, 0FFH 。39。滅 39。 MOV 7DH, 0FFH 。39。滅 39。 MOV 7BH, 0FFH 。39。滅 39。 MOV 79H, 0FFH 。上半 39。標(biāo)志位等于 1則進(jìn)入錯(cuò)誤提醒設(shè)置 MOV R1, 7FH 。將 R0、 R A 加 1 INC R1 INC A MOV 20H, 00H LJMP LOOP 。 LJMP BIJIAO //**判斷是哪個(gè)按鍵，然后進(jìn)行相應(yīng)操作 **// KEY11: MOV R0, 01H SJMP ZZZ KEY12: MOV R0, 02H SJMP ZZZ KEY13: MOV R0, 03H SJMP ZZZ KEY14: MOV R0, 04H SJMP ZZZ KEY15: MOV R0, 05H SJMP ZZZ KEY16: MOV R0, 06H SJMP ZZZ 22 KEY17: MOV R0, 07H SJMP ZZZ KEY18: MOV R0, 08H ZZZ: MOV R1, 0A3H 。不等則將 置 1 HERE: MOV A, R4 。密碼值與輸入值的比較 INC R0 JZ HERE 。 密碼鎖程序清單： ORG 0000H LJMP START ORG 0100H START : MOV SP, 30H MOV R0, 70H MOV 6FH, 00H