📄 密码锁.asm
字号:
;*******************************************************************
;* *
;* ME300B单片机开发系统演示程序 - 电子密码锁 *
;* *
;* *
;* 邮箱: gguoqing@willar.com *
;* 网站： http://www.willar.com *
;* 作者： gguoqing *
;* 时间： 2005/03/15 *
;* *
;*【版权】Copyright(C)伟纳电子 www.willar.com All Rights Reserved *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！ *
;* *
;*******************************************************************
;
TLOW EQU 00H
THIGH EQU 0EEH
COUN0 EQU 200 ;5ms * 200 = 1S
COUN1 EQU 3FH ;密码的位数
D_TIME EQU 3EH ;设置密码时的时间限制
SEC EQU 3DH ;秒单元
PASS_OLD EQU 30H
PASS_NEW EQU 40H
SDA EQU P3.4 ;24C01的串行数据线
SCLK24 EQU P3.3 ;24C01的串行时钟线
;20H.0 为时间限制标记
;20H.1 为按错键标记
;20H.2 为比较对错标记
;20H.3 为3秒时间标记
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 ;读出预定密码。
;----------------------------------------------------
;
;
;----------------------------------------------------
LOOP1:
CALL SCAN_KEY
CALL DELAY2
CJNE A,#0fH,LOOP1 ;按F键启动进入输入密码程序
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秒标记位
LP2: MOV P1,#0F0H ;等待键释放
MOV A,P1
CJNE A,#0F0H,LP2
CALL PASS_IN
JB 20H.2,LOOP2 ;密码正确后方可转下一步
JMP LP4
LP3: CLR TR0 ;停止中断
CLR 20H.3 ;清3秒标记位
MOV SEC,#00H ;秒单元清零
LP4: CALL SYS_RST ;系统复位
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键进入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键进入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状态
JMP LOOP4
;---------------------------------------------------
;系统复位子程序
;"D" 键系统复位
;---------------------------------------------------
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 ;设置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 ;比较对错标记
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位数值
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
;---------------------------------------------------
;设定新密码子程序
;---------------------------------------------------
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 ;设置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
;----------------------------------------------------
;四位二进制数转换为ASCII码子程序
;-----------------------------------------------------
SETDATA1:
MOV A,R3
ANL A,#0FH ;取出低四位二进制数
PUSH ACC
CLR C
SUBB A,#0AH ;减10
POP ACC
JC ASCII3 ;该数小于10，转ASCII0
SETB 20H.1
RET
ADD A,#07H ;大于10的数加上37H
ASCII3: ADD A,#30H ;小于10的数加上30H
MOV @R1,A
MOV B,R2
CALL LCDP2
INC R2
INC R1
RET
SETDATA0:
MOV A,R3
ANL A,#0FH ;取出低四位二进制数
PUSH ACC
CLR C
SUBB A,#0AH ;减10
POP ACC
JC ASCII4 ;该数小于10，转ASCII4
SETB 20H.1
RET
ASCII4: ADD A,#30H ;小于10的数加上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 ;有键按下转
JMP KEY_END
KEY_NUM0: CALL KEY_IN
CALL BZ
MOV R5,#04H
CALL DELAY
KEY_END: RET
;-----------------------------------------------------
;反转法询键值子程序 （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 ;末完，继续查
RET ;0FFH为结束码
;-----------------------------------------------------
; LCD 初始化设置
;-----------------------------------------------------
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 ;显示在第二行
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -