【正文】 LCD 寫命令子程序 。************************************************************* 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 。busy 為 1時，忙，等待。************************************************************* 。 延時 5MS 子程序 。********************************************************** DELAY: MOV R6,50 DEL1: MOV R7,93 DEL2: DJNZ R7,DEL2 DJNZ R6,DEL1 DJNZ R5,DELAY RET 。********************************************************** 。秒單元清 0 SETB SEC10 。置 3s 標(biāo)志位 T0_0: CJNE A,10,T0_END 。50ms 計(jì)數(shù)值加 1 CJNE A,20,T0_END MOV COUNT,0 INC SEC 。********************************************************** TIMER0: PUSH ACC PUSH PSW MOV TL0,00H 。********************************************************** 。蜂鳴器取反產(chǎn)生驅(qū)動脈沖 DJNZ R6,BL1 SETB BEEP 。 。 ?！?E”鍵退出 ACALL MENU1 ACALL BEEP_BL SETB TR0 LOOK_END: RET 。********************************************************** PASS_LOOK: ACALL KEY_SCAN CJNE A,0AH,LOOK_END 。********************************************************** 。清密碼正確標(biāo)志位 MOV B,00H MOV DPTR,INFO6 。清 10s 標(biāo)志位 MOV COUNT,00H 。指針指到信息 5 ACALL W_STRING2 MOV SEC,00H 。置密碼正確標(biāo)志位 CLR RELAY 。比較 6組數(shù)據(jù) MOV R0,PASS_OLD 。 。 。 密碼比較子程序 ?！?C”鍵返回修改 AJMP CH_IN5 CH_END: SETB TR0 RET 。蜂鳴器響一聲 AJMP CH_IN1 CH_IN6: ACALL KEY_SCAN CJNE A,0EH,CH_IN7 。檢測 POS 是否到最小值 AJMP CH_IN1 CH_IN5: DEC POS DEC R0 INC R2 MOV LCD_X,POS ACALL SET_X2 MOV A,2DH 。6 位密碼是否輸入完？ AJMP CH_IN6 CH_IN4: ACALL KEY_SCAN CJNE A,0CH,CH_IN1 。顯示輸入密碼值 ACALL BEEP_BL 。保存輸入密碼值 ADD A,30H 。確定顯示位置 ACALL SET_X2 MOV A,R3 。數(shù)字鍵 09有效 CH_IN3: JNC CH_IN4 。確定顯示首位置 ACALL BEEP_BL CH_IN1: ACALL KEY_SCAN CJNE A,0FFH,CH_IN2 。存放輸入密碼單元首地址 MOV R2,06H 。********************************************************** CHANGE_PASS: ACALL KEY_SCAN CJNE A,0BH,CH_END 。********************************************************** 。清 10s 標(biāo)志位 MOV COUNT,00H 。蜂鳴器響一聲 DJNZ R2,P_IN1 P_END: CLR TR0 MOV SEC,00H 。轉(zhuǎn)換為 ASCII 碼 ACALL WDATA 。取鍵值 MOV R0,A 。數(shù)字鍵 09有效 P_IN3: JNC P_IN1 。清中斷計(jì)數(shù)單元 SETB TR0 P_IN1: JB SEC10,P_END ACALL KEY_SCAN CJNE A,0FFH,P_IN2 。清 10s 標(biāo)志位 MOV SEC,00H 。6 位密碼 MOV LCD_X,09H 。********************************************************** PASS_IN: ACALL MENU2 MOV R0,PASS_NEW 。********************************************************** 。清 3s 標(biāo)志位 MOV COUNT,00H 。清中斷計(jì)數(shù)單元 ACALL MENU2 ACALL BEEP_BL AJMP S_END S_IN3: CLR TR0 。停止 TIMER0 中斷 CLR SEC3 ?！?F”鍵 JNB SEC3,S_IN2 。“ F”鍵 SETB TR0 。清 3s 標(biāo)志位 MOV COUNT,00H 。 按 F鍵大于 3秒，方可退出此程序 。********************************************************** 。寫數(shù)據(jù) ，顯示 INC R0 。取顯示數(shù)據(jù) ADD A,30H 。第 9 列 ACALL SET_X2 。存放數(shù)據(jù)首地址 MOV R2,06H 。 密碼顯示子程序 。00H 為結(jié)束碼 。 鍵編碼表 。00H 為結(jié)束碼 KEY_END: RET 。找到，取次數(shù)值 AJMP KEY_END KEY_IN3: CJNE A,00H,KEY_IN2 。取出鍵碼 CJNE A,B,KEY_IN3 。 KEY_IN2: INC R3 。保存鍵值 MOV DPTR,KEYTABLE 。高四位與低四位重新組合 CJNE A,0FFH,KEY_IN1 。讀入 P1口狀態(tài) ANL A,0FH 。保存數(shù)據(jù) MOV P1,0FH 。讀入 P1口狀態(tài) ANL A,0F0H 。********************************************************** KEY_SCAN: MOV P1,0F0H 。 矩陣鍵盤鍵值查找程序 。********************************************************** INFO1: DB PASSWORD CONTROL,0 INFO2: DB PASSWORD ,0 INFO3: DB INPUT PASSWORD ,0 INFO4: DB LEARN BY HEART ,0 INFO5: DB IUPUT RIGHT ,0 INFO6: DB IUPUT ERROR ,0 INFO7: DB LOOK PASSWORD ,0 INFO8: DB RESET PASSWORD ,0 。********************************************************** 。指針指到信息 1 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO2 。 (PASSWORD ) 。********************************************************** 。指針指到信息 7 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO2 。 (PASSWORD ) 。********************************************************** 。指針指到信息 3 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO2 。 (PASSWORD ) 。********************************************************** 。指針指到信息 1 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO4 。 (LEARN BY HEART) 。********************************************************** 。延時 1s ACALL DELAY JB PASS_OK,MAIN3 DJNZ R4,MAIN2 AJMP MAIN1 MAIN3: ACALL PASS_LOOK ACA