CJNE R0,#29H,D13S MOV R0,#RDS D13S: MOV @R0,#0A4H INC R0 LJMP K2 ;功能键1

D14: CJNE A,#0EEH,D15 CJNE R0,#29H,D14S MOV R0,#RDS D14S: MOV @R0,#0B0H INC R0 D15: LJMP K2

;--------------------------------------------------------------------- ;第二行

K20: MOV B,A

LCALL DELAY10MS MOV A,IN CJNE A,B,K3J

LCALL DELAY10MS K21: MOV A,IN

CJNE A,B,D21 SJMP K21

;判断一行中是哪个键按下 D21: MOV A,B

CJNE A,#7DH,D22 CJNE R0,#28,D21S MOV R0,#RDS D21S: MOV @R0,#99H INC R0 K3J: LJMP K3

D22: CJNE A,#0BDH,D23 CJNE R0,#29H,D22S MOV R0,#RDS D22S: MOV @R0,#92H INC R0 LJMP K3

D23: CJNE A,#0DDH,D24 CJNE R0,#29H,D23S MOV R0,#RDS D23S: MOV @R0,#82H INC R0 LJMP K3 ;功能键2

D24: CJNE A,#0EDH,D25

第 16 页 共 33页

CJNE R0,#29H,D24S MOV R0,#RDS D24S: MOV @R0,#0F8H INC R0 D25: LJMP K3

;------------------------------------------------------------------- ;第三行

K30: MOV B,A

LCALL DELAY10MS MOV A,IN CJNE A,B,D35

LCALL DELAY10MS K31: MOV A,IN

CJNE A,B,D31 SJMP K31

;判断一行中是哪个键按下 D31: MOV A,B

CJNE A,#7BH,D32 CJNE R0,#29H,D31S MOV R0,#RDS D31S: MOV @R0,#80H INC R0 LJMP K4

D32: CJNE A,#0BBH,D33 CJNE R0,#29H,D32S MOV R0,#RDS D32S: MOV @R0,#90H INC R0 LJMP K4

D33: CJNE A,#0DBH,D34 CJNE R0,#29H,D33S MOV R0,#RDS D33S: MOV @R0,#88H INC R0 LJMP K4 ;功能键3

D34: CJNE A,#0EBH,D35 CJNE R0,#29H,D34S MOV R0,#RDS D34S: MOV @R0,#83H INC R0 D35: LJMP K4

;------------------------------------------------------------------- ;第四行

第 17 页 共 33页

K40: MOV B,A

LCALL DELAY10MS MOV A,IN CJNE A,B,D45

LCALL DELAY10MS K41: MOV A,IN

CJNE A,B,D41 SJMP K41 ;功能键CALL D41: MOV A,B

CJNE A,#77H,D42 LCALL CALLHOST MOV DPTR,#TAB0 LJMP ST0 ;功能键SET；设置密码 D42: CJNE A,#0B7H,D43

JNB FLAGE1.1,D42S ;FLAGE第一位不为1，跳转 ;---写24C02---------------------------------------------------------- WR2402: MOV SLA,#AT24C02 ;指定期间地址 MOV SUBA,#00H ;指定子地址为00H MOV NUMBYTE,#6 ;写6个字节数 LCALL IWRNBYTE NOP NOP

D42S: LJMP K1 ;返回继续扫描下列程序 ;功能键ESC

D43: CJNE A,#0D7H,D44 ; 判断一行中是哪个按键按下 MOV R0,#RDS MOV R2,#6 ;6个数据存储器清零 CLR A ;将A置0 ESC: MOV @R0,A INC R0

DJNZ R2,ESC SETB P2.6 ;释放电磁锁 LJMP K1 ;返回继续扫描下列程序 ;功能键OK

D44: CJNE A,#0E7H,D45 ;判断一行中是哪个按键按下 ;---读24C02----------------------------------------------------------- RD24C02:MOV SLA,#AT24C02 MOV SUBA,#00H

MOV NUMBYTE,#6 ;读6个字节数据 LCALL IRDNBYTE MOV R2,#6 MOV R0,#RDS

第 18 页 共 33页

MOV R1,#MRD CMP: MOV A,@R0

MOV MTD,@R1

CJNE A,MTD,ERRO ;密码检测，密码不对，转 INC R0 INC R1

DJNZ R2,CMP CLR DCOUT ;正确则驱动电磁锁开门 MOV DPTR,#TAB3 ;显示“HELLO!”

SETB P3.1 NOP

CLR P3.1 ;绿灯亮

CLR P3.0 SETB FLAGE1.1 ;返回，清楚密码 D45: LJMP ST0 ;

ERRO: INC TEMP

MOV A,TEMP

CJNE A,#6H,ERRO1 ;错误输入次数到6次，则报警

SETB P3.0 NOP

CLR P3.0 ;黄灯亮 SETB P3.2 NOP

CLR P3.2 ;红灯亮 SETB FLAGE1.0

ERRO1: MOV DPTR,#TAB2 ;显示“ERROR!” LJMP ST1

;**************************************************** ;隐藏显示输入6个数据-/H********************************** DISPLAY:MOV DPTR,#TAB1 ;指定查表起始地址 MOV A,RDS JZ DS1 ;判断是否有数据，有显示H，否则显示--- MOV A,#1 SJMP DS2 DS1: MOV A,#0

DS2: MOVC A,@A+DPTR MOV P0,A CLR P2.0

ACALL D1MS

第 19 页 共 33页