【文章內(nèi)容簡介】 DATAPORT EQU P0 。定義LCD的數(shù)據(jù)端口 LCD_X EQU 29H TIMES EQU 2AH BUSY_CHECK BIT ORG 0000H AJMP MAIN ORG 000BH LJMP TIMER0 ORG 0050HMAIN: MOV SP,60H 。設(shè)置堆棧指針 MOV P0,0FFH MOV P1,0FFH MOV P2,0FFH MOV TMOD,01H 。工作于方式1 MOV TH0,4CH 。50ms定時常數(shù) MOV TL0,00H SETB ET0 SETB EA MOV PASS_OLD,01H 。內(nèi)定密碼值 MOV PASS_OLD+1,01H MOV PASS_OLD+2,01H MOV PASS_OLD+3,01H MOV PASS_OLD+4,01H MOV PASS_OLD+5,01H ACALL LCD_INIT 。LCD初始化MAIN1: CLR TR0 CLR SEC3 CLR SEC10 CLR PASS_OK MOV COUNT,00H MOV SEC,00H SETB RELAY 。繼電器釋放 ACALL MENU1 ACALL START_IN MOV R4,03H 。3次輸入密碼機(jī)會MAIN2: ACALL PASS_IN ACALL PASS_COMP MOV R5,100 。延時1s ACALL DELAY JB PASS_OK,MAIN3 DJNZ R4,MAIN2 AJMP MAIN1MAIN3: ACALL PASS_LOOK ACALL CHANGE_PASS JB SEC10,MAIN4 ACALL KEY_SCAN CJNE A,0DH,MAIN3 。判是否D按下？MAIN4: ACALL BEEP_BL AJMP MAIN1。 菜單1顯示子程序 (PASSWORD CONTROL)。 (LEARN BY HEART)MENU1: MOV B,00H MOV DPTR,INFO1 。指針指到信息1 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO4 。指針指到信息4 ACALL W_STRING2 RET。 菜單2顯示子程序 (INPUT PASSWORD)。 (PASSWORD )MENU2: MOV B,00H MOV DPTR,INFO3 。指針指到信息3 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO2 。指針指到信息2 ACALL W_STRING2 RET。 菜單3顯示子程序 (LOOK PASSWORD)。 (PASSWORD )MENU3: MOV B,00H MOV DPTR,INFO7 。指針指到信息7 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO2 。指針指到信息2 ACALL W_STRING2 RET。 菜單4顯示子程序 (CHANGE PASSWORD)。 (PASSWORD )MENU4: MOV B,00H MOV DPTR,INFO8 。指針指到信息1 ACALL W_STRING1 MOV B,00H MOV DPTR,INFO2 。指針指到信息2 ACALL W_STRING2 RET。 信息字符串表INFO1: DB PASSWORD CONTROL,0INFO2: DB PASSWORD ,0INFO3: DB INPUT PASSWORD ,0INFO4: DB LEARN BY HEART ,0INFO5: DB IUPUT RIGHT ,0INFO6: DB IUPUT ERROR ,0INFO7: DB LOOK PASSWORD ,0INFO8: DB RESET PASSWORD ,0。 矩陣鍵盤鍵值查找程序。 鍵值存入R3KEY_SCAN: MOV P1,0F0H 。置列線為0，行線為1 NOP MOV A,P1 。讀入P1口狀態(tài) ANL A,0F0H 。保留高4位 MOV B,A 。保存數(shù)據(jù) MOV P1,0FH 。置列線為1，行線為0 NOP MOV A,P1 。讀入P1口狀態(tài) ANL A,0FH 。保留低4位 ORL A,B 。高四位與低四位重新組合 CJNE A,0FFH,KEY_IN1 。0FFH為末按鍵 AJMP KEY_ENDKEY_IN1: MOV B,A 。保存鍵值 MOV DPTR,KEYTABLE 。置鍵編碼表首址 MOV R3,0FFH 。KEY_IN2: INC R3 。查表次數(shù)加1 MOV A,R3 MOVC A,@A+DPTR 。取出鍵碼 CJNE A,B,KEY_IN3 。比較 MOV A,R3 。找到，取次數(shù)值 AJMP KEY_ENDKEY_IN3: CJNE A,00H,KEY_IN2 。繼續(xù)查 。00H為結(jié)束碼KEY_END: RET。 鍵編碼表KEYTABLE: DB 0EEH,0EDH,0EBH,0E7H,0DEH DB 0DDH,0DBH,0D7H,0BEH,0BDH DB 0BBH,0B7H,07EH,07DH,07BH DB 077H,00H 。00H為結(jié)束碼。 密碼顯示子程序PASS_PLAY: MOV R0,PASS_OLD 。存放數(shù)據(jù)首地址 MOV R2,06H 。顯示6組數(shù)據(jù) MOV LCD_X,09H 。第9列 ACALL SET_X2 。第二行P_PLAY: MOV A,@R0 。取顯示數(shù)據(jù) ADD A,30H 。轉(zhuǎn)換為ASCII碼 ACALL WDATA 。寫數(shù)據(jù)，顯示 INC R0 。修改存放數(shù)據(jù)地址 DJNZ R2,P_PLAY RET。 啟動輸入子程序。 按F鍵大于3秒，方可退出此程序START_IN: CLR SEC3 。清3s標(biāo)志位 MOV COUNT,00H 。清中斷計數(shù)單元 MOV SEC,00HS_IN1: ACALL KEY_SCAN CJNE A,0FH,S_IN1 。F鍵