📄 me300b-密码锁－专用工具.asm
字号:
;=============== 24C01 端口位定义 ====================
SDA EQU P3.4 ;24C01的串行数据线
SCLK24 EQU P3.3 ;24C01的串行时钟线
PASS_NEW EQU 30H
PASS_OLD EQU 38H
COUN1 EQU 3FH
RS EQU P2.0
RW EQU P2.1
EN EQU P2.2
X EQU 26H ;LCD 地址变量
BEEP EQU P3.7
;------------------------------------------------------
ORG 0000H
JMP MAIN
;------------------------------------------------------
MAIN:
MOV SP,#60H
MOV A,#00H
MOV R0,#PASS_NEW
CLR_1: MOV @R0,A
INC R0
CJNE R0,#3EH,CLR_1
ACALL SET_LCD
MAIN1:
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,MAIN2
JMP MAIN1
MAIN2:
CALL KEY_IN
CALL BEEP_BL
CJNE A,#0CH,MAIN3
CALL WRIRE_WORD
MAIN3: CJNE A,#0DH,MAIN4
CALL READ_WORD
MAIN4: CJNE A,#0FH,MAIN5
AJMP MAIN
MAIN5:
AJMP MAIN1
;-------------------------------------------------
;
;-------------------------------------------------
WRIRE_WORD:
MOV DPTR,#INF03 ;指针指到显示信息3
MOV A,#1 ;显示在第一行
CALL LCD_SHOW
MOV DPTR,#INF04 ;指针指到显示信息4
MOV A,#2 ;显示在第二行
CALL LCD_SHOW
CALL PASS_IN
CALL EEPW ;密码写入24C01
RET
READ_WORD:
MOV DPTR,#INF05 ;指针指到显示信息5
MOV A,#1 ;显示在第一行
CALL LCD_SHOW
MOV DPTR,#INF06 ;指针指到显示信息6
MOV A,#2 ;显示在第二行
CALL LCD_SHOW
CALL EEPR ;读出密码
MOV R0,#PASS_OLD
MOV R2,#09H
MOV R4,#06H
READ1: MOV A,@R0 ;保存密码值
MOV B,R2
CALL LCDP2
INC R2
INC R0
DJNZ R4,READ1
RET
;---------------------------------------------------
INF03:
DB " WRITE PASSWORD ",0
INF04:
DB "PASSWORD ------ ",0
INF05:
DB " READ PASSWORD ",0
INF06:
DB "PASSWORD ",0
;----------------------------------------------------
;输入密码值子程序
;----------------------------------------------------
PASS_IN:
P_IN1:
MOV R0,#PASS_NEW
MOV R3,#00H ;存放键值
MOV R2,#09H ;设置LCD地址
MOV COUN1,#06H ;6位密码
P_IN2:
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_IN3
jmp P_IN2
P_IN3:
CALL KEY_IN
CALL SETDATA0
CALL BEEP_BL
DJNZ COUN1,P_IN2
RET
;------------------------------------------
SETDATA0:
MOV A,R3
ANL A,#0FH ;取出低四位二进制数
PUSH ACC
CLR C
SUBB A,#0AH ;减10
POP ACC
JC ASCII4 ;该数小于10，转ASCII4
INC COUN1 ;字母键无效，
RET
ASCII4: ADD A,#30H ;小于10的数加上30H
MOV @R0,A ;保存密码值
MOV B,R2
CALL LCDP2
INC R2
INC R0
RET
;-----------------------------------------------------
; LCD 初始化设置
;-----------------------------------------------------
SET_LCD:
CLR EN
CALL INIT_LCD ;初始化 LCD
CALL DELAY1
MOV DPTR,#INF01 ;指针指到显示信息1
MOV A,#1 ;显示在第一行
CALL LCD_SHOW
MOV DPTR,#INF02 ;指针指到显示信息2
MOV A,#2 ;显示在第二行
CALL LCD_SHOW
RET
;-----------------------------------------------------
INF01: DB " WRITE & READ ",0 ;LCD 第一行显示信息
INF02: DB "--- PASSWORD ---",0 ;LCD 第二行显示信息
;-----------------------------------------------------
INIT_LCD: ;8位I/O控制 LCD 接口初始化
MOV A,#38H ;双列显示，字形5*7点阵
CALL WCOM
CALL DELAY1
MOV A,#38H ;双列显示，字形5*7点阵
CALL WCOM
CALL DELAY1
MOV A,#38H ;双列显示，字形5*7点阵
CALL WCOM
CALL DELAY1
MOV A,#0CH ;开显示，关光标，
CALL WCOM
CALL DELAY1
MOV A,#01H ;清除 LCD 显示屏
CALL WCOM
CALL DELAY1
RET
;----------------------------------------------------
LCD_SHOW: ;在LCD的第一行或第二行显示信息字符
CJNE A,#1,LINE2 ;判断是否为第一行
LINE1: MOV A,#80H ;设置 LCD 的第一行地址
CALL WCOM ;写入命令
CALL CLR_LINE ;清除该行字符数据
MOV A,#80H ;设置 LCD 的第一行地址
CALL WCOM ;写入命令
JMP FILL
LINE2: MOV A,#0C0H ;设置 LCD 的第二行地址
CALL WCOM ;写入命令
CALL CLR_LINE ;清除该行字符数据
MOV A,#0C0H ;设置 LCD 的第二行地址
CALL WCOM
FILL: CLR A ;填入字符
MOVC A,@A+DPTR ;由消息区取出字符
CJNE A,#0,LC1 ;判断是否为结束码
RET
LC1: CALL WDATA ;写入数据
INC DPTR ;指针加1
JMP FILL ;继续填入字符
RET
;---------------------------------------------------
CLR_LINE: ;清除该行 LCD 的字符
MOV R0,#24
CL1: MOV A,#' '
CALL WDATA
DJNZ R0,CL1
RET
;-----------------------------------------------------
; 写指令、数据使能子程序
;-----------------------------------------------------
ENABLE: ;写指令使能
CLR RS ;RS=L,RW=L,D0-D7=指令码，E=高脉冲
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
ENABLE1: ;写数据使能
SETB RS ;RS=H,RW=L,D0-D7=数据，E=高脉冲
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
DELAY0: MOV R7,#250 ;延时500微秒
DJNZ R7,$
RET
;----------------------------------------------------
;写入命令子程序
;----------------------------------------------------
WCOM: ;以8位控制方式将命令写至LCD
MOV P0,A ;写入命令
CALL ENABLE
RET
;----------------------------------------------------
;写入数据子程序
;----------------------------------------------------
WDATA: ;以8位控制方式将数据写至LCD
MOV P0,A ;写入数据
CALL ENABLE1
RET
;---------------------------------------------------
;在 LCD 第二行显示字符
;A=ASC DATA, B=LINE X POS
;---------------------------------------------------
LCDP2: ;在LCD的第二行显示字符
PUSH ACC ;
MOV A,B ;设置显示地址
ADD A,#0C0H ;设置LCD的第二行地址
CALL WCOM ;写入命令
POP ACC ;由堆栈取出A
CALL WDATA ;写入数据
RET
;-------------------------------------------------------
;ASCII 转换并显示子程序
;-------------------------------------------------------
CONV:
MOV X,#9 ;设置显示起始位置
MOV A,R3
ANL A,#0F0H ;取出高四位二进制数
SWAP A ;高四位与低四位互换
PUSH ACC ;压入堆栈
CLR C ;C=0
SUBB A,#0AH ;减10
POP ACC ;弹出堆栈
JC ASCII0 ;该数小于10，转ASCII0
ADD A,#07H ;大于10的数加上37H
ASCII0: ADD A,#30H ;小于10的数加上30H
MOV B,X
CALL LCDP2
MOV A,R3
ANL A,#0FH ;取出低四位二进制数
PUSH ACC
CLR C
SUBB A,#0AH ;减10
POP ACC
JC ASCII1 ;该数小于10，转ASCII1
ADD A,#07H ;大于10的数加上37H
ASCII1: ADD A,#30H ;小于10的数加上30H
INC X
MOV B,X
CALL LCDP2
RET
;-----------------------------------------------------
DELAY2: MOV R5,#15H
DELAY: ;延时R5×10MS
MOV R6,#50
D1: MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
;-----------------------------------------------------
DELAY1: ;延时5MS
MOV R6,#25
D2: MOV R7,#100
DJNZ R7,$
DJNZ R6,D2
RET
;------------------------------------------------------
;键扫描子程序
;------------------------------------------------------
SCAN_KEY:
SCAN_K: MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,KEY_NUM0 ;有键按下转
JMP KEY_END
KEY_NUM0: CALL KEY_IN
CALL BEEP_BL
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为结束码
;-----------------------------------------------------
KEYTABLE:
DB 0EEH,0EDH,0EBH,0E7H,0DEH ;0,1,2,3,4, 顺序码
DB 0DDH,0DBH,0D7H,0BEH,0BDH ;5,6,7,8,9,
DB 0BBH,0B7H,07EH,07DH,07BH ;A,B,C,D,E,
DB 077H,0FFH ;F 0FF为结束码
;-------------------------------------------------------
;=================================================
;写串行E2PROM子程序
;(R1)=欲写数据存放地址指针
;(R7)=连续读字节数
;24CO1一次可连续写8个字节，12个字节分两次写。
;=================================================
EEPW: PUSH ACC
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R1,#PASS_NEW
MOV R7,#06H ;连续写8个字节
LCALL START
MOV A,#0A0H ;送器件地址
ACALL SUBS
MOV A,#00H ;送片内字节地址
ACALL SUBS
AGAIN1:
MOV A,@R1
ACALL SUBS ;调发送单字节子程序
INC R1
DJNZ R7,AGAIN1 ;连续写8个字节
LCALL STOP ;发停止信号
POP PSW
POP ACC
RET
SUBS:
MOV R0,#08H ;发送单字节子程序
LOOP: CLR SCLK24
RLC A
MOV SDA,C
NOP
SETB SCLK24
ACALL DELAY24
DJNZ R0,LOOP ;循环8次送8个bit
CLR SCLK24
ACALL DELAY24
SETB SCLK24
REP: MOV C,SDA
JC REP ;判应答到否，未到则等待
CLR SCLK24
RET
DELAY24:
NOP
NOP
RET
;=========================================================
;读串行E2PROM子程序EEPR
;(R1)=欲读数据存放地址指针
;(R7)=连续读字节数
;=========================================================
EEPR: PUSH ACC
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R7,#06H
MOV R1,#PASS_OLD
LCALL START ;发开始信号
MOV A,#0A0H ;送器件地址
ACALL SUBS ;调发送单字节子程序
MOV A,#00H ;送片内字节地址
ACALL SUBS
LCALL START ;再发开始信号
MOV A,#0A1H
ACALL SUBS
MORE: ACALL SUBR
MOV @R1,A
MOV A,#00H
INC R1
DJNZ R7,MORE
LCALL STOP ;送停止信号
POP PSW
POP ACC
RET
SUBR: MOV R0,#08H ;接受单字节子程序
LOOP2: SETB SCLK24
ACALL DELAY24
MOV C,SDA
RLC A
CLR SCLK24
ACALL DELAY24
DJNZ R0,LOOP2
CJNE R7,#01H,ALOW
SETB SDA ;若是最后一个字节置SDA=1
AJMP SETOK
ALOW:
CLR SDA ;否则置SDA=0
SETOK: ACALL DELAY24
SETB SCLK24
ACALL DELAY24
CLR SCLK24
ACALL DELAY24
SETB SDA ;应答毕,SDA置1
RET
START:
CLR SDA
ACALL DELAY24
SETB SDA
SETB SCLK24
ACALL DELAY24
CLR SDA
SETB SCLK24
RET
STOP:
CLR SDA
SETB SCLK24
ACALL DELAY24
SETB SDA
ACALL DELAY24
RET
;===============================================
;蜂鸣器响一声子程序
;===============================================
BEEP_BL:
MOV R6,#100
BL2: CALL DEX1
CPL BEEP
DJNZ R6,BL2
MOV R5,#15
CALL DELAY_BL
RET
DEX1: MOV R7,#180
DE2: NOP
DJNZ R7,DE2
RET
;-------------------------------------------
DELAY_BL: ;(R5)*延时10MS
MOV R6,#50
DL1: MOV R7,#100
DJNZ R7,$
DJNZ R6,DL1
DJNZ R5,DELAY_BL
RET
;-------------------------------------------
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -