?? 密碼鎖.asm
字號:
;********************************************************************************
;* 標題:北京啟東微芯LJD-SY-5100單片機實驗系統1602液晶屏演示程序 *
;* 文件: LCD1602.asm *
;* 日期: 2005-6-1 *
;* 版本: 1.0 *
;* 作者:啟東微芯
;* 網站： http://www.LJD-2008.COM *
;********************************************************************************
;* 描述: *
;* 正確輸入密碼繼電器將吸合錯誤將報警 并要求重新輸入 。 *
;* *
;* *
;* *
;* *
;********************************************************************************
;* 【聲明】 此程序僅用于學習與參考，引用請注明版權和作者信息！ *
;********************************************************************************
; 端口定義
RS EQU P2.1
RW EQU P2.2
EP EQU P2.0
;**********************************
;CH451測試程序查表輪顯0--F
;**********************************
LOAD BIT P1.2
DIN BIT P1.0
DCLK BIT P1.1
DOUT BIT P3.3
;**********************************
DATA_F DATA 034H
DATA_KEY DATA 035H
TIMER DATA 030H
TIMER1 DATA 031H
TIMER2 DATA 032H
TIMER3 DATA 033H
BUFF1 EQU 36H
BUFF2 EQU 48H
BUFF EQU 50H
;***********************************
ORG 0000H
JMP START
ORG 0013H
LJMP CH451_INT1
ORG 0080H
START: MOV SP,#60H
;***********************************
mov p1,#60h ;禁止其它芯片
CLR DIN ;初始化CH451
SETB DCLK
SETB DIN
SETB LOAD
SETB DOUT
NOP
MOV B,#04H ;設置CH451
MOV A,#03H ;關看門狗開顯示鍵盤
nop
LCALL WRITE
NOP
START1:
CLR IT1 ;置外部信號為低電平觸發
CLR IE1 ;清中斷標志
SETB PX1
SETB EX1 ;允許鍵盤中斷
SETB EA ;開總中斷
MOV R5,#00H
TT0: MOV R0,#03H
TT1: MOV BUFF2,#3CH ;密碼存放存儲單元首址
DEC BUFF2
LCALL LCD_INIT ; 初始化LCD
MOV A,#15
LCALL DELAY_MS ;調延時
LCALL DISPLAY1
DEC R0
CJNE R0,#01,TT1
LCALL READ_NUM
MOV DPTR,#TAB_LJD
MOV A ,#0FFH
LCALL DELAY_MS ; 在第二行顯示字符*
MOV A,#41H ;
LCALL SET_LCD_POS ; 設置第二行第一個字符位置
CJNE A,#99H,$
MOV BUFF,#00H ;清除標志
JMP TT0
;------------------------------------------------------------------------------
READ_NUM: MOV R2,#10 ;讀出密碼并存入從36h開始的存儲單元
MOV R0,#BUFF1
MOV DPTR,#TAB1
LOOP: CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,LOOP
RET
TAB:
DB 03FH ;0
DB 006H ;1
DB 05BH ;2
DB 04FH ;3
DB 066H ;4
DB 06DH ;5
DB 07DH ;6
DB 07H ;7
DB 07FH ;8
DB 06FH ;9
DB 77H ;A
DB 07CH ;B
DB 039H ;C
DB 5EH ;D
DB 079H ;E
DB 071H ;F
TAB1: DB 006H ;1
DB 05BH ;2
DB 04FH ;3
DB 066H ;4
DB 06DH ;5
DB 07DH ;6
;****************鍵盤處理*****************************
CH451_INT1: LCALL INTER
K1:
MOV R3,DATA_KEY
CJNE R3,#40H,K2
JMP LED_0
K2:
MOV R3,DATA_KEY
CJNE R3,#41H,K3
JMP LED_1
K3:
MOV R3,DATA_KEY
CJNE R3,#42H,K4
JMP LED_2
K4:
MOV R3,DATA_KEY
CJNE R3,#43H,K5
JMP LED_3
K5:
MOV R3,DATA_KEY
CJNE R3,#48H,K6
JMP LED_4
K6:
MOV R3,DATA_KEY
CJNE R3,#49H,K7
JMP LED_5
K7:
MOV R3,DATA_KEY
CJNE R3,#4AH,K8
JMP LED_6
K8:
MOV R3,DATA_KEY
CJNE R3,#4BH,K9
JMP LED_7
K9:
MOV R3,DATA_KEY
CJNE R3,#50H,K10
JMP LED_8
K10:
MOV R3,DATA_KEY
CJNE R3,#51H,K11
JMP LED_9
K11:
MOV R3,DATA_KEY
CJNE R3,#52H,K12
JMP LED_A
K12:
MOV R3,DATA_KEY
CJNE R3,#53H,K13
JMP LED_B
K13:
MOV R3,DATA_KEY
CJNE R3,#58H,K14
JMP LED_C
K14:
MOV R3,DATA_KEY
CJNE R3,#59H,K15
JMP LED_D
K15:
MOV R3,DATA_KEY
CJNE R3,#5AH,K16
JMP LED_E
K16:
MOV R3,DATA_KEY
CJNE R3,#5BH,K17
JMP LED_F
K17:
POP ACC
POP PSW
CLR IE1
RETI
NOP
LJMP START
LED_A:
JMP DELAY1
LED_B:
JMP DELAY1
LED_C:
JMP DELAY1
LED_D: MOV R1,#3CH
MOV R0,#36H
MOV R4,#06H
C1: MOV A,@R1
XRL A,@R0 ;比較鍵盤輸入的密碼是否與設定密碼相同
JNZ C3
INC R0
INC R1
DJNZ R4,C1
LCALL DISPLAY4
CLR P3.6
RETI
C3: MOV R3,#6
EORR: CLR P3.7 ;密碼錯誤鳴音報警
MOV A,#0128
LCALL DELAY_MS
SETB P3.7
MOV A,#128
LCALL DELAY_MS
DJNZ R3,EORR
LCALL DISPLAY3
MOV BUFF,#99H
MOV A,BUFF
RETI
LED_E:
JMP DELAY1
LED_F:
JMP DELAY1
LED_0:
INC DPTR
MOV @R1,#03FH
LCALL DISPLAY2
RETI
LED_1:
MOV @R1,#06H
LCALL DISPLAY2
INC DPTR
RETI
LED_2:
MOV @R1,#05BH
LCALL DISPLAY2
INC DPTR
RETI
LED_3:
MOV @R1,#04FH
LCALL DISPLAY2
INC DPTR
RETI
LED_4:
MOV @R1,#066H
LCALL DISPLAY2
INC DPTR
RETI
LED_5:
MOV @R1,#06DH
LCALL DISPLAY2
INC DPTR
RETI
LED_6:
MOV @R1,#07DH
LCALL DISPLAY2
INC DPTR
RETI
LED_7:
MOV @R1,#007H
LCALL DISPLAY2
INC DPTR
RETI
LED_8:
MOV @R1,#07FH
LCALL DISPLAY2
INC DPTR
RETI
LED_9:
MOV @R1,#06FH
LCALL DISPLAY2
INC DPTR
RETI
DELAY1:
CLR IT1 ;置外部信號為低電平觸發
CLR IE1 ;清中斷標志
SETB PX1
SETB EX1 ;允許鍵盤中斷
SETB EA
LCALL DELAY_1S
;LCALL DELAY_1S
;LCALL DELAY_1S
;LCALL DELAY_1S
POP B
POP ACC
POP PSW
RETI
;**********************************
WRITE:
PUSH ACC
CLR EX0
CLR LOAD
MOV R7,#08H
WRITE_1:
RRC A
CLR DCLK
MOV DIN,C
SETB DCLK
DJNZ R7,WRITE_1
MOV A,B
MOV R7,#004H
WRITE_2:
RRC A
CLR DCLK
MOV DIN,C
SETB DCLK
DJNZ R7,WRITE_2
SETB LOAD
SETB EX1
POP ACC
RET
;*********************************
INTER:
PUSH PSW ;現場保護
PUSH ACC
CLR EX1
CLR LOAD ;命令開始
MOV A,#0F7H ;讀鍵值命令,忽略12位命令的低8位,高4位用作結束標志
INTER_4:
SETB C ;在高位添0以檢測位數據結束
RRC A ;低位在前,高位在后
CLR DCLK
MOV DIN,C ;送出一位數據
SETB DCLK ;產生時鐘上升沿鎖通知CH451輸入位數據
CJNE A,#0FFH,INTER_4 ;位數據未完繼續,共4位,完成后為0FFH
SETB LOAD ;產生加載上升沿通知CH451處理命令數據
MOV A,#0FCH ;該數據用以檢測位數據結束
INTER_7:
MOV C,DOUT ;讀入一位數據
CLR DCLK ;產生時鐘下升沿通知CH451輸出下一位
RLC A ;數據移入ACC,高位在前,低位在后
SETB DCLK
JC INTER_7 ;位數據未完繼續,共7位,完成后才移出0
MOV DATA_KEY,A ;保存鍵值
INC DATA_F
POP ACC
POP PSW
SETB EX1
CLR IE1 ;清中斷標志,該指令需根據實際情況作修改
;MOV BUFF2,#3CH
INC BUFF2
MOV R1,BUFF2
RET
;**********************************
DELAY_1S:
MOV TIMER1,#1
TEST_DYA: MOV TIMER2,#255
TEST_DYA1: MOV TIMER3,#255
TEST_DYA2: NOP
NOP
DJNZ TIMER3,TEST_DYA2
DJNZ TIMER2,TEST_DYA1
DJNZ TIMER1,TEST_DYA
RET
;*************************************
DISPLAY1:
MOV A,#03H
LCALL SET_LCD_POS ; 設置LCD光標到第一行的第5個字符
MOV A ,#0FFH
LCALL DELAY_MS
MOV DPTR,#TAB_WORD ; ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -