📄 vhdl1.vhd
字号:
39-
E叮C RO 剧C RO
DJNZ R7,YY INC Rl
CLR P2.1 JZ AAA
SETB TRO U MP QQ ,鸳码销误
LCALL RJJ呼Gl ,开关1 己打开AAA:DJNZ R2,CMP
UMP MLO UMP LL ,密码正确
KK6:SETB P2.1 QQ:DJNZ 阻,因1
CLR TRO UMP RRET ,经机
LCALL RING2 ,开关l 已闭合时1 :LCALL RING3 ,密码错误章新输入
U酌IP 岛ILO UMP IN
KK王CLR P2.0 LL:LCALL RJN(]{]
LCALL RJJ呗Gl ,开关2 已打开PP:1NB Pl .5,PP
UMP M Iρ MQV 人P l
KK4:SETB P2.0 ANL A ,剧FH
LCALL RJJ呗Gl ,开关2 己闭合RL A ,左移位相当于乘二
UMP MLO MQV DPτR#TABl
PITl :S ET古P1.4 ,摘机1MP @A+DPTR
LCALL RING2 ,消输入苟同TAB1 :AJMP LL
CLR TRI 卅止训数AJ民<p QNE 1 关闭开关1
MQV R3 ,~肉。3H AJMP TWQ ,打开开关1
时MQV RO,#40H AJMP llfREE ,关闭开关2
MQV R2,制l6H AJMP FOUR ,打开开关2
T02:JNB PI. 5,TQ2 AlMP FlVE ,修改密码
MQV A,P l AJMP SlX ,定时
ANL A,#OFH AJMP RRET 起山
MQV @RO,A AJMP LL
E喝C RO AlMP LL
NN:JB Pl .5,NN AJ民<p LL
LCALL RJJ呗Gl RRET:CLR P1.4
DJNZ R2,T02 SETB TRI
MQV R2 ,#嗣H ,检验密码、RETI
MQV RO,#30H QNE:CLR P2.1 开关l 己关闭
MQV RI ,#40H MQV R7 ,刷刷l
CMP:MQV A,@Rl MQV RO,#50H
XRL A,@RO XX:MQV @ RO,#田H
- 40-
E叶C RO 剧C Rl
DJNZ R7,X:X GGG:ffi PI. 5,GGG
SETB TRO LCALL RJNO l
LCALL RING2 DJNZ R2,WPINl ,第二次输入完毕
UMP PP MQV R2,#06H
丁WQ :SETB P2.1 MQV RO,#46H
CLR TRO MQV Rl ,#4OH
LCALL RING2 开关1 己打开READ1:MOV A,@Rl
UMP PP XRL A,@RO
THREE:CLR P2.0 JNZ BBB
LCALL R凹02 ,开关2 己关闭JZ ccc
UMP PP BBB:LCALL R凹G3 ,树次输入不相付, 请
FOUR:SETB P2.0 重新输入
LCALL RING2 ,开关2 已打开UMP FIVE
UMP pp CCC:INC RO
FIVE:SETB RS1 , 当前工作寄存始第二1 作巨剧C Rl
CLR RSO DJNZ 缸, READl ,判断输入密码是否为
LCALL RING2 6 位, 否跳转READ l
MQV R2,#06H MQV RO,#40H
MQV Rl ,#40H MQV Rl ,#30H
WPINO:JNB pl 骂,WPINO ;等待1NT0 中断MQV R2,#06H
MQV A,Pl DDD:MOV A,@RO
ANL A,#OFH MQV @Rl ,A
MQV @Rl ,A 剧C RO
INC Rl ,单元40 到45 INC Rl
EEE:JB P I. 5,EEE DJNZ R2,DDD
LCALL RINGI LCALL RING2 ,新苗罔己主运立
DJNZ 阻, WPINO ;第一次密码输入完毕UMP pp
LCALL RING2 ,请再次输入茜吗SIX: LCALL RING2
MQV R2,#06H MQV R2,剧4 1-1 ,囚位包括时分
MQV Rl ,#46H MQV Rl ,#4FH
WPlNl:JNB P 1.5,WPINl ;等待时TO 中断SS:JNB P I. 5,SS
MQV A,Pl MQV A,PI
ANL A,#OFH ANL A,#OFH
MQV @Rl ,A MQV 38H,A
- 41 -
XRL A,#OAH XRL A,4EH
JNZ SSS JNZ EE
MOV A,棋)()I-! MOV A, 53 H ;判断定时是否到
S1MP HH XRL A,4DH
SSS:MOV A,38H JNZ EE
HlI:MOV @Rl ,A MOV A,52I I ,判断定时是否~J
OEC Rl XRL A,4CH
HHH:ffi Pl .5,HHH JNZ EE
LCALL RINGI SETB P2.1
OJNZ Rl,SS CLR TRO
LCALL RING2 ,定时成功LCALL RJNG2
UMP PP U岛1P RETO
prro PUSH P S、v EE: MQV R2,37H
PUSH ACC MOV A,R2
SETB PSW.3 XRL A,I自60H
MOV TIiO,#17H JNZ RETO
MOV n血,#OB8 1-1 ACALL CLRO
MOV A,36H MOV RO,#55H
OEC A ACALL DAADI
MOV 36H,A RETO:POP ACC
JNZ RETO POP PSW
MOV 361-1,#10 RETI
MOV RO,#51H DAAD1 :MOV A,@RO
ACALL DAADl OEC RO
MOV A,R2 S唱IAP A
XRL A,#曲H ORL A,@RO
JNZ RETO ADO A,#OIH
ACALL CLRO OA A
MOV RO,#53H MOV R2,A
ACALL DAADl ANL A,#OFH
MOV 37H,Rl MOV @RO,A
MOV A , 55 日,判断定时是否到MOV A,田
XRL A,4FH INC RO
JNZ EE ANL A,#OFOH
MOV A ,54H ;判断定时是否到SWAP A
- 42 -
MQV @RO,A RET
RET RINQO:CLR PO.6
CLRO:CLR A SETB PO.6
MQV @RO,A RET
DEC RO RO证G2 :MOV R3,#02 , 嘀嘀阙声
MQV @RO,A FF:MOV R6,#20
RET VV:MQV R5,#70
X IANSHI: MQV R7 ,~阳61-1 KK:MOV R7,#20
MQV RO,#55H CPL P2.2
DLO: MQV A,@RO DJNZ R7,S
MQV DPTR.#TAB DJNZ R5,KK
MQVC A,@A+DPTR DJNZ R6,VV
MQV SBUF,A LCALL DELAY2 ;0. 5 秒延时
DLl :JNB TI,DLl DJNZ R3,FF
CLR TI RET
DEC RO DELAY2:MQV R5,#250
DJNZ R7,DLO OQ:MQV R4,#250
MQV R4,#IOO DJNZ R4,$
1βQ P : MQV R5,#30 DJNZ R5,OO
LOP: DJNZ R5,LOP RET
DJNZ R4,LOOP RING3:MOV R3,#03 1 嘀嘀两声
RET FFF:MOV R6,#20
TAB : DB lIH,OD7H,32H,92H,0D4H VVV:MQV R5,#70
DB 98B, 18H,ODJH, IOH,90H KKK:MOV R7,#20
RING1 :MOV 阳,#70 ;喃喃- Iio声CPL P2.2
MM:MOY R7,#70 DJNZ R7,$
WW:MQV R5,#50 DJNZ R5,KKK
CPL P2.2 DJNZ R6,VVV
DJNZ R5,$ LCALL DELAY2 ;0. 5 秒延时
DJNZ R7,WW DJNZ R3,FFF
DJNZ R6, M如f RET
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -