?? me500-密碼鎖－專用工具.asm
字號:
;******************************************************************
;* *
;* ME500單片機開發系統演示程序 - 密碼鎖－專用工具 *
;* *
;* LCD1602 顯示 *
;* *
;* 版本： V1.0 (2006/11/20) *
;* 作者： gguoqing (Email: gguoqing@willar.com) *
;* 網站： www.willar.com(偉納電子) www.mcusj.com(偉納單片機世界)*
;* 郵箱： support@willar.com *
;* *
;*【版權】Copyright(C)偉納電子 www.willar.com All Rights Reserved *
;*【聲明】此程序僅用于學習與參考，引用請注明版權和作者信息！ *
;* *
;******************************************************************
;=============== 24C04 端口位定義 ====================
SDA EQU P3.5 ;24C04的串行數據線
SCLK24 EQU P3.4 ;24C04的串行時鐘線
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
ORG 0030H
;------------------------------------------------------
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 ;密碼寫入24C04
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
;---------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -