【正文】 RELAY 。3 次輸入密碼機(jī)會(huì) MAIN2: ACALL PASS_IN ACALL PASS_COMP MOV R5,100 。判是否“ D”按下？ MAIN4: ACALL BEEP_BL AJMP MAIN1 。 菜單 1 顯示子程序 (PASSWORD CONTROL) 。********************************************************** MENU1: MOV B,00H MOV DPTR,INFO1 。指針指到信息 4 ACALL W_STRING2 RET 。 菜單 2 顯示子程序 (INPUT PASSWORD) 。********************************************************** MENU2: MOV B,00H MOV DPTR,INFO3 。指針指到信息 2 ACALL W_STRING2 RET 。 菜單 3 顯示子程序 (LOOK PASSWORD) 。********************************************************** MENU3: MOV B,00H MOV DPTR,INFO7 。指針指到信息 2 ACALL W_STRING2 RET 。 菜單 4 顯示子程序 (CHANGE PASSWORD) 。********************************************************** MENU4: MOV B,00H MOV DPTR,INFO8 。指針指到信息 2 ACALL W_STRING2 RET 。 信息字符串表 。********************************************************** 。 鍵值存入 R3 。置列線為 0，行線為 1 NOP MOV A,P1 。保留高 4 位 MOV B,A 。置列線為 1，行線為 0 NOP MOV A,P1 。保留低 4 位 ORL A,B 。0FFH 為末按鍵 AJMP KEY_END KEY_IN1: MOV B,A 。置 鍵編碼表首址 MOV R3,0FFH 。查表次數(shù)加 1 MOV A,R3 MOVC A,A+DPTR 。比較 MOV A,R3 。繼續(xù)查 。********************************************************** 。********************************************************** KEYTABLE: DB 0EEH,0EDH,0EBH,0E7H,0DEH DB 0DDH,0DBH,0D7H,0BEH,0BDH DB 0BBH,0B7H,07EH,07DH,07BH DB 077H,00H 。********************************************************** 。********************************************************** PASS_PLAY: MOV R0,PASS_OLD 。顯示 6組數(shù)據(jù) MOV LCD_X,09H 。第二行 P_PLAY: MOV A,R0 。轉(zhuǎn)換為 ASCII 碼 ACALL WDATA 。修改存放數(shù)據(jù)地址 DJNZ R2,P_PLAY RET 。 啟動(dòng)輸入子程序 。********************************************************** START_IN: CLR SEC3 。清中斷計(jì)數(shù)單元 MOV SEC,00H S_IN1: ACALL KEY_SCAN CJNE A,0FH,S_IN1 。啟動(dòng) TIMER0 中斷 S_IN2: ACALL KEY_SCAN CJNE A,0FH,S_IN3 。沒(méi)有達(dá)到 3s，轉(zhuǎn)移 CLR TR0 。清 3s 標(biāo)志位 MOV SEC,00H MOV COUNT,00H 。停止 TIMER0 中斷 CLR SEC3 。清中斷計(jì)數(shù)單元 MOV SEC,00H AJMP S_IN1 S_END: RET 。 密碼輸入子程序 。存放輸入密碼單元首地址 MOV R2,06H 。確定顯示首位置 ACALL SET_X2 CLR SEC10 。清秒計(jì)數(shù)單元 MOV COUNT,00H 。判是否有鍵按下？ AJMP P_IN1 P_IN2: ACALL KEY_SCAN CJNE A,0AH,P_IN3 。=時(shí)， C=0 MOV A,R3 。保存輸入密碼值 INC R0 ADD A,30H 。顯示輸入密碼值 ACALL BEEP_BL 。清秒計(jì)數(shù)單元 CLR SEC10 。清中斷計(jì)數(shù)單元 RET 。 修改密碼子程序 。判“ B”鍵是否按下？ CLR TR0 ACALL MENU4 MOV R0,PASS_OLD 。6 位密碼 MOV POS,09H 。判是否有鍵按下？ AJMP CH_IN1 CH_IN2: ACALL KEY_SCAN CJNE A,0AH,CH_IN3 。=時(shí)， C=0 MOV LCD_X,POS 。取鍵值 MOV R0,A 。轉(zhuǎn)換為 ASCII 碼 ACALL WDATA 。蜂鳴器響一聲 INC POS INC R0 DJNZ R2,CH_IN1 ?！?C”修改鍵 MOV A,POS CJNE A,09H,CH_IN5 。顯示“－” ACALL WDATA ACALL BEEP_BL ?！?E”鍵確定退出 ACALL MENU1 ACALL BEEP_BL AJMP CH_END CH_IN7: CJNE A,0CH,CH_IN6 。********************************************************** 。 比較正確，置密碼正確標(biāo)志位。 比較錯(cuò)誤，清密碼正確標(biāo)志位。********************************************************** PASS_COMP: MOV R2,06H 。 MOV R1,PASS_NEW P_COMP0: MOV A,R0 MOV B,R1 CJNE A,B,P_COMP1 INC R0 INC R1 DJNZ R2,P_COMP0 SETB PASS_OK 。繼電器吸合 MOV B,00H MOV DPTR,INFO5 。清秒計(jì)數(shù)單元 CLR SEC10 。清中斷計(jì)數(shù)單元 SETB TR0 RET P_COMP1: CLR PASS_OK 。指針指到信息 6 ACALL W_STRING2 RET 。查看密碼子程序 ?！?A”鍵 查看 ACALL MENU3 CLR TR0 ACALL PASS_PLAY ACALL BEEP_BL LOOK_1: ACALL KEY_SCAN CJNE A,0EH,LOOK_1 。********************************************************** 。蜂鳴器響一聲子程序 。********************************************************** BEEP_BL: MOV R6,200 BL1: ACALL BL2 CPL BEEP 。關(guān)閉蜂鳴器 MOV R5,15 ACALL DELAY RET BL2: MOV R7,200 BL3: NOP DJNZ R7,BL3 RET 。定時(shí)器 0計(jì)時(shí)中斷子程序 。50ms 定時(shí)常數(shù) MOV TH0,4CH INC COUNT MOV A,COUNT 。秒 加 1 MOV A,SEC CJNE A,03H,T0_0 SETB SEC3 。是否到 10 秒？ MOV SEC,0 。置 10s 標(biāo)志位 T0_END: POP PSW POP ACC RETI 。 延時(shí) R5*10MS 子程序 。********************************************************** 。********************************************************** DELAY1: MOV R6,25 DEL3: MOV R7,93 DEL4: DJNZ R7,DEL4 DJNZ R6,DEL3 RET 。檢查 LCD 忙狀態(tài) 。 busy 為 0 時(shí) ,閑，可寫指令與數(shù)據(jù) 。********************************************************** 。LCD_RS=L,LCD_RW=L,D0D7=指令碼 ，