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