【正文】 MOV A,R3 。取鍵值 MOV @R0,A 。保存輸入密碼值 INC R0 ADD A,30H 。轉換為 ASCII 碼 ACALL WDATA 。顯示輸入密碼值 ACALL BEEP_BL 。蜂鳴器響一聲 DJNZ R2,P_IN1 P_END: CLR TR0 MOV SEC,00H 。清秒計數(shù)單元 CLR SEC10 。清 10s 標志位 MOV COUNT,00H 。清中斷計數(shù)單元 RET 。********************************************************** 。 修改密碼子程序 。********************************************************** CHANGE_PASS: ACALL KEY_SCAN CJNE A,0BH,CH_END 。判“ B”鍵是否按下？ CLR TR0 ACALL MENU4 MOV R0,PASS_OLD 。存放輸入密碼單元首地址 MOV R2,06H 。6 位密碼 MOV POS,09H 。確定顯示首位置 ACALL BEEP_BL CH_IN1: ACALL KEY_SCAN CJNE A,0FFH,CH_IN2 。判是否有鍵按下？ AJMP CH_IN1 CH_IN2: ACALL KEY_SCAN CJNE A,0AH,CH_IN3 。數(shù)字鍵 09有效 CH_IN3: JNC CH_IN4 。=時， C=0 MOV LCD_X,POS 。確定顯示位置 ACALL SET_X2 MOV A,R3 。取鍵值 MOV @R0,A 。保存輸入密碼值 ADD A,30H 。轉換為 ASCII 碼 ACALL WDATA 。顯示輸入密碼值 ACALL BEEP_BL 。蜂鳴器響一聲 INC POS INC R0 DJNZ R2,CH_IN1 。6 位密碼是否輸入完？ AJMP CH_IN6 CH_IN4: ACALL KEY_SCAN CJNE A,0CH,CH_IN1 ?！?C”修改鍵 MOV A,POS CJNE A,09H,CH_IN5 。檢測 POS 是否到最小值 AJMP CH_IN1 CH_IN5: DEC POS DEC R0 INC R2 MOV LCD_X,POS ACALL SET_X2 MOV A,2DH 。顯示“－” ACALL WDATA ACALL BEEP_BL 。蜂鳴器響一聲 AJMP CH_IN1 CH_IN6: ACALL KEY_SCAN CJNE A,0EH,CH_IN7 ?！?E”鍵確定退出 ACALL MENU1 ACALL BEEP_BL AJMP CH_END CH_IN7: CJNE A,0CH,CH_IN6 ?！?C”鍵返回修改 AJMP CH_IN5 CH_END: SETB TR0 RET 。********************************************************** 。 密碼比較子程序 。 比較正確，置密碼正確標志位。 。 比較錯誤，清密碼正確標志位。 。********************************************************** PASS_COMP: MOV R2,06H 。比較 6組數(shù)據(jù) MOV R0,PASS_OLD 。 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 。置密碼正確標志位 CLR RELAY 。繼電器吸合 MOV B,00H MOV DPTR,INFO5 。指針指到信息 5 ACALL W_STRING2 MOV SEC,00H 。清秒計數(shù)單元 CLR SEC10 。清 10s 標志位 MOV COUNT,00H 。清中斷計數(shù)單元 SETB TR0 RET P_COMP1: CLR PASS_OK 。清密碼正確標志位 MOV B,00H MOV DPTR,INFO6 。指針指到信息 6 ACALL W_STRING2 RET 。********************************************************** 。查看密碼子程序 。********************************************************** PASS_LOOK: ACALL KEY_SCAN CJNE A,0AH,LOOK_END ?！?A”鍵 查看 ACALL MENU3 CLR TR0 ACALL PASS_PLAY ACALL BEEP_BL LOOK_1: ACALL KEY_SCAN CJNE A,0EH,LOOK_1 ?！?E”鍵退出 ACALL MENU1 ACALL BEEP_BL SETB TR0 LOOK_END: RET 。********************************************************** 。 。蜂鳴器響一聲子程序 。 。********************************************************** BEEP_BL: MOV R6,200 BL1: ACALL BL2 CPL BEEP 。蜂鳴器取反產(chǎn)生驅動脈沖 DJNZ R6,BL1 SETB BEEP 。關閉蜂鳴器 MOV R5,15 ACALL DELAY RET BL2: MOV R7,200 BL3: NOP DJNZ R7,BL3 RET 。********************************************************** 。定時器 0計時中斷子程序 。********************************************************** TIMER0: PUSH ACC PUSH PSW MOV TL0,00H 。50ms 定時常數(shù) MOV TH0,4CH INC COUNT MOV A,COUNT 。50ms 計數(shù)值加 1 CJNE A,20,T0_END MOV COUNT,0 INC SEC 。秒 加 1 MOV A,SEC CJNE A,03H,T0_0 SETB SEC3 。置 3s 標志位 T0_0: CJNE A,10,T0_END 。是否到 10 秒？ MOV SEC,0 。秒單元清 0 SETB SEC10 。置 10s 標志位 T0_END: POP PSW POP ACC RETI 。********************************************************** 。 延時 R5*10MS 子程序 。********************************************************** DELAY: MOV R6,50 DEL1: MOV R7,93 DEL2: DJNZ R7,DEL2 DJNZ R6,DEL1 DJNZ R5,DELAY RET 。********************************************************** 。 延時 5MS 子程序 。********************************************************** DELAY1: MOV R6,25 DEL3: MOV R7,93 DEL4: DJNZ R7,DEL4 DJNZ R6,DEL3 RET 。************************************************************* 。檢查 LCD 忙狀態(tài) 。busy 為 1時，忙，等待。 busy 為 0 時 ,閑，可寫指令與數(shù)據(jù) 。************************************************************* LCD_BUSY: MOV DATAPORT,0FFH BUSY_1: CLR LCD_RS SETB LCD_RW CLR LCD_EN NOP SETB LCD_EN JB BUSY,BUSY_1 CLR LCD_EN RET 。********************************************************** 。LCD 寫命令子程序 。LCD_RS=L,LCD_RW=L,D0D7=指令碼 ， E=高脈沖 。*********