?? 密碼鎖－me500.asm
字號(hào):
;******************************************************************
;* *
;* ME500單片機(jī)開(kāi)發(fā)系統(tǒng)演示程序 - 密碼鎖 *
;* *
;* LCD1602 顯示 *
;* *
;* 版本： V1.0 (2006/11/20) *
;* 作者： gguoqing (Email: gguoqing@willar.com) *
;* 網(wǎng)站： www.willar.com(偉納電子) www.mcusj.com(偉納單片機(jī)世界)*
;* 郵箱： support@willar.com *
;* *
;*【版權(quán)】Copyright(C)偉納電子 www.willar.com All Rights Reserved *
;*【聲明】此程序僅用于學(xué)習(xí)與參考，引用請(qǐng)注明版權(quán)和作者信息！ *
;* *
;******************************************************************
TLOW EQU 00H
THIGH EQU 0EEH
COUN0 EQU 200 ;5ms * 200 = 1S
COUN1 EQU 3FH ;密碼的位數(shù)
D_TIME EQU 3EH ;設(shè)置密碼時(shí)的時(shí)間限制
SEC EQU 3DH ;秒單元
PASS_OLD EQU 30H
PASS_NEW EQU 40H
SDA EQU P3.5 ;24C04的串行數(shù)據(jù)線
SCLK24 EQU P3.4 ;24C04的串行時(shí)鐘線
;20H.0 為時(shí)間限制標(biāo)記
;20H.1 為按錯(cuò)鍵標(biāo)記
;20H.2 為比較對(duì)錯(cuò)標(biāo)記
;20H.3 為3秒時(shí)間標(biāo)記
RS EQU P2.0
RW EQU P2.1
EN EQU P2.2
X EQU 2FH ;LCD 地址變量
BEEP EQU P3.7
;--------------------------------------------------
ORG 0000H
JMP MAIN
ORG 0BH
JMP T0_INT
;--------------------------------------------------
MAIN:
MOV SP,#60H
MOV A,#00H
MOV D_TIME,A
MOV SEC,A
MOV COUN1,A
MOV R5,#06H
MOV R0,#PASS_OLD
CLR_01: MOV @R0,A
INC R0
DJNZ R5,CLR_01
CLR EN
CLR 20H.0
CLR 20H.1
CLR 20H.2
CLR 20H.3
CALL INIT_TIMER
CALL SET_LCD
CALL MENU1
CALL PASS_READ ;讀出預(yù)定密碼。
;----------------------------------------------------
;
;
;----------------------------------------------------
LOOP1:
CALL SCAN_KEY
CALL DELAY2
CJNE A,#0fH,LOOP1 ;按F鍵啟動(dòng)進(jìn)入輸入密碼程序
SETB TR0
LP0: CALL SCAN_KEY ;按住F鍵3秒以上蜂鳴器不響為止
CALL DELAY2
CJNE A,#0fH,LP3
JB 20H.3,LP1 ;3秒到，20H.3置1。
JMP LP0
LP1: CLR TR0 ;停止中斷
MOV SEC,#00H ;秒單元清零
CLR 20H.3 ;清3秒標(biāo)記位
LP2: MOV P1,#0F0H ;等待鍵釋放
MOV A,P1
CJNE A,#0F0H,LP2
CALL PASS_IN
JB 20H.2,LOOP2 ;密碼正確后方可轉(zhuǎn)下一步
JMP LP4
LP3: CLR TR0 ;停止中斷
CLR 20H.3 ;清3秒標(biāo)記位
MOV SEC,#00H ;秒單元清零
LP4: CALL SYS_RST ;系統(tǒng)復(fù)位
RET
NOP
NOP
NOP
LJMP MAIN
;----------------------------------------------------
LOOP2: MOV R4,#06H ;模擬輸出蜂鳴器響六聲
LOOP3: CALL BZ
DJNZ R4,LOOP3
MOV A,#00H
LOOP4: CALL SCAN_KEY
CJNE A,#0AH,LOOP6 ;按A鍵進(jìn)入PASS_LOOK
CALL PASS_LOOK
LOOP5: CALL SCAN_KEY
CJNE A,#0EH,LOOP5 ;按E鍵退出PASS_LOOK
CALL MENU1
CALL MENU2
LOOP6: CJNE A,#0BH,LOOP8 ;按B鍵進(jìn)入PASS_SET
CALL PASS_SET
LOOP7: CALL SCAN_KEY
CJNE A,#0EH,LOOP7 ;按E鍵退出PASS_SET
CALL MENU1
CALL MENU2
LOOP8: CJNE A,#0DH,LOOP4 ;按D鍵退出
ACALL MAIN ;PASS_LOOK和PASS_SET狀態(tài)
JMP LOOP4
;---------------------------------------------------
;系統(tǒng)復(fù)位子程序
;"D" 鍵系統(tǒng)復(fù)位
;---------------------------------------------------
SYS_RST:
RST1: CALL SCAN_KEY
CJNE A,#0DH,RST1 ;"D" 鍵
LJMP MAIN
RET
NOP
NOP
NOP
LJMP MAIN
;----------------------------------------------------
;輸入密碼值子程序
;----------------------------------------------------
PASS_IN:
MOV 21H,#03H ;允許輸入三次密碼
P_IN1: MOV DPTR,#IN_PASS0 ;
MOV A,#1 ;
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R0,#PASS_OLD
MOV R3,#00H
MOV R2,#09H ;設(shè)置LCD地址
MOV COUN1,#06H ;6位密碼
SETB TR0
P_IN2: JB 20H.0,P_IN4
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_IN3
jmp P_IN2
P_IN3:
CALL KEY_IN
CALL SETDATA0
CALL BZ
JB 20H.1,P_IN4
DJNZ COUN1,P_IN2
CLR TR0
CLR 20H.0
CALL PASS_COMP
JNB 20H.2,P_IN4 ;比較對(duì)錯(cuò)標(biāo)記
RET
P_IN4: CLR TR0
CLR 20H.0 ;
CLR 20H.1 ;
CALL INPUT_ERR
DJNZ 21H,P_IN1 ;
RET
;------------------------------------------
IN_PASS0:
DB " INPUT PASSWORD ",0
;------------------------------------------
;------------------------------------------
;新舊密碼值比較子程序
;------------------------------------------
PASS_COMP:
MOV COUN1,#06H ;比較6位數(shù)值
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 COUN1,P_COMP0
CALL INPUT_OK
SETB 20H.2
RET
P_COMP1: CLR 20H.2
;CALL INPUT_ERR
RET
;---------------------------------------------------
;設(shè)定新密碼子程序
;---------------------------------------------------
PASS_SET:
MOV 21H,#05H ;允許輸入三次密碼
P_SET1: MOV DPTR,#SET_PASS0 ;
MOV A,#1 ;
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R3,#00H
MOV R2,#09H ;設(shè)置LCD地址
MOV R1,#PASS_NEW
MOV COUN1,#06H ;6位密碼
SETB TR0
P_SET2: JB 20H.0,P_SET4
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_SET3
jmp P_SET2
P_SET3:
CALL KEY_IN
CALL SETDATA1
CALL BZ
JB 20H.1,P_SET4
;MOV R5,#04H
;CALL DELAY
DJNZ COUN1,P_SET2
CLR TR0
CLR 20H.0
CALL RESET_OK
CALL EEPW
RET
P_SET4: CLR TR0
CLR 20H.0 ;
CLR 20H.1 ;
CALL RESET_ERR
DJNZ 21H,P_SET1 ;
RET
SET_PASS0:
DB " RESET PASSWORD ",0
;-----------------------------------------------------
MENU1: ;LCD 顯示工作菜單信息
MOV DPTR,#MENU01
MOV A,#1 ;在第一行顯示信息
CALL LCD_SHOW
RET
MENU01: DB "PASSWORD CONTROL",0
;------------------------------------------------------
MENU2: ;LCD 顯示工作菜單信息
MOV DPTR,#MENU02
MOV A,#2 ;在第一行顯示信息
CALL LCD_SHOW
RET
MENU02: DB " LEARN BY HEART ",0
;----------------------------------------------------
;四位二進(jìn)制數(shù)轉(zhuǎn)換為ASCII碼子程序
;-----------------------------------------------------
SETDATA1:
MOV A,R3
ANL A,#0FH ;取出低四位二進(jìn)制數(shù)
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII3 ;該數(shù)小于10，轉(zhuǎn)ASCII0
SETB 20H.1
RET
ADD A,#07H ;大于10的數(shù)加上37H
ASCII3: ADD A,#30H ;小于10的數(shù)加上30H
MOV @R1,A
MOV B,R2
CALL LCDP2
INC R2
INC R1
RET
SETDATA0:
MOV A,R3
ANL A,#0FH ;取出低四位二進(jìn)制數(shù)
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII4 ;該數(shù)小于10，轉(zhuǎn)ASCII4
SETB 20H.1
RET
ASCII4: ADD A,#30H ;小于10的數(shù)加上30H
MOV @R0,A ;保存密碼值
MOV A,#2AH ;顯示" * "
MOV B,R2
CALL LCDP2
INC R2
INC R0
RET
;----------------------------------------------
;查看密碼子程序
;----------------------------------------------
PASS_LOOK:
MOV DPTR,#LOOK1 ;指針指到顯示信息1
MOV A,#1 ;顯示在第一行
CALL LCD_SHOW
MOV DPTR,#LOOK2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R1,#PASS_NEW
MOV R2,#09
MOV COUN1,#06
LOOK0: MOV A,@R1
MOV B,R2
CALL LCDP2
INC R2
INC R1
DJNZ COUN1,LOOK0
RET
LOOK1: DB " LOOK PASSWORD ",0 ;LCD 第一行顯示信息
LOOK2: DB "PASSWORD ------ ",0 ;LCD 第二行顯示信息
;------------------------------------------------------
;鍵掃描子程序
;------------------------------------------------------
SCAN_KEY:
SCAN_K: MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,KEY_NUM0 ;有鍵按下轉(zhuǎn)
JMP KEY_END
KEY_NUM0: CALL KEY_IN
CALL BZ
MOV R5,#04H
CALL DELAY
KEY_END: RET
;-----------------------------------------------------
;反轉(zhuǎn)法詢鍵值子程序 （A）＝鍵值
;-----------------------------------------------------
KEY_IN: MOV P1,#0F0H ;置列線為0，行線為1
MOV A,P1
ANL A,#0F0H
MOV B,A
MOV P1,#0FH ;置列線為1，行線為0
MOV A,P1
ANL A,#0FH
ORL A,B ;高四位與低四位重新組合
CJNE A,#0FFH,KEY_IN1 ;0FFH為末按鍵
RET
KEY_IN1: MOV B,A
MOV DPTR,#KEYTABLE
MOV R3,#0FFH
KEY_IN2: INC R3
MOV A,R3
MOVC A,@A+DPTR
CJNE A,B,KEY_IN3
MOV A,R3 ;找到，取順序碼
RET
KEY_IN3: CJNE A,#0FFH,KEY_IN2 ;末完，繼續(xù)查
RET ;0FFH為結(jié)束碼
;-----------------------------------------------------
; LCD 初始化設(shè)置
;-----------------------------------------------------
SET_LCD:
CLR EN
CALL INIT_LCD ;初始化 LCD
CALL DELAY1
MOV DPTR,#INFO1 ;指針指到顯示信息1
MOV A,#1 ;顯示在第一行
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -