基于单片机控制的电子密码锁(5)

INFO1: CONTROL\

DB \DB 0EEH,0EDH,0EBH,0E7H,0DEH DB 0DDH,0DBH,0D7H,0BEH,0BDH DB 0BBH,0B7H,07EH,07DH,07BH DB 077H,00H PASS_PLAY:

MOV R0,#PASS_OLD MOV R2,#06H MOV LCD_X,#09H INFO2: DB \INFO3: DB \INPUT PASSWORD \

INFO4: DB \ O F F \INFO5: DB \ 8 8 8 \INFO6: DB \ IUPUT ERROR \

INFO7: DB \ LOOK PASSWORD \

INFO8: DB \RESET PASSWORD \

KEY_SCAN:

MOV P1,#0F0H NOP MOV A,P1

ANL A,#0F0H MOV B,A

MOV P1,#0FH NOP MOV A,P1

ANL A,#0FH ORL A,B

CJNE A,#0FFH,KEY_IN1 AJMP KEY_END

KEY_IN1: MOV B,A

MOV DPTR,#KEYTABLE MOV R3,#0FFH KEY_IN2: INC R3 MOV A,R3

MOVC A,@A+DPTR CJNE A,B,KEY_IN3 MOV A,R3 AJMP KEY_END KEY_IN3:

CJNE A,#00H,KEY_IN2 KEY_END: RET KEYTABLE:

ACALL SET_X2 P_PLAY:

MOV A,@R0 ADD A,#30H

ACALL WDATA INC R0

DJNZ R2,P_PLAY RET START_IN:

CLR SEC3 MOV COUNT,#00H

MOV SEC,#00H

S_IN1:

ACALL KEY_SCAN CJNE A,#0FH,S_IN1 SETB TR0 S_IN2:

ACALL KEY_SCAN CJNE A,#0FH,S_IN3 JNB SEC3,S_IN2 CLR TR0 CLR SEC3

MOV SEC,#00H

MOV COUNT,#00H ACALL MENU2 ACALL BEEP_BL AJMP S_END S_IN3: CLR TR0 CLR SEC3

MOV COUNT,#00H

MOV SEC,#00H

AJMP S_IN1 S_END:

2

RET PASS_IN:

ACALL MENU2 MOV R0,#PASS_NEW MOV R2,#06H MOV LCD_X,#09H ACALL SET_X2 CLR SEC10

MOV SEC,#00H

MOV COUNT,#00H SETB TR0 P_IN1:

JB SEC10,P_END ACALL KEY_SCAN CJNE A,#0FFH,P_IN2 AJMP P_IN1 P_IN2:

ACALL KEY_SCAN CJNE A,#0AH,P_IN3 P_IN3:

JNC P_IN1 MOV A,R3 MOV @R0,A INC R0

ADD A,#30H ACALL LCD_BUSY MOV DATAPORT,23H SETB LCD_RS CLR LCD_RW NOP SETB LCD_EN NOP

CLR LCD_EN ACALL BEEP_BL DJNZ R2,P_IN1 P_END: CLR TR0 MOV SEC,#00H CLR SEC10

MOV COUNT,#00H

RET CHANGE_PASS:

ACALL KEY_SCAN CJNE A,#0BH,CH_END CLR TR0

ACALL MENU4 MOV R0,#PASS_OLD MOV R2,#06H MOV POS,#09H ACALL BEEP_BL CH_IN1:

ACALL KEY_SCAN CJNE A,#0FFH,CH_IN2 AJMP CH_IN1 CH_IN2:

ACALL KEY_SCAN

CJNE A,#0AH,CH_IN3 CH_IN3:

JNC CH_IN4

MOV LCD_X,POS ACALL SET_X2 MOV A,R3 MOV @R0,A

ADD A,#30H

ACALL WDATA ACALL BEEP_BL INC POS INC R0

DJNZ R2,CH_IN1 AJMP CH_IN6 CH_IN4:

ACALL KEY_SCAN CJNE A,#0CH,CH_IN1 MOV A,POS

CJNE A,#09H,CH_IN5 AJMP CH_IN1 CH_IN5: DEC POS DEC R0 INC R2

MOV LCD_X,POS ACALL SET_X2 MOV A,#2DH

3

ACALL WDATA

ACALL BEEP_BL AJMP CH_IN1 CH_IN6:

ACALL KEY_SCAN CJNE A,#0EH,CH_IN7 ACALL MENU1 ACALL BEEP_BL AJMP CH_END CH_IN7:

CJNE A,#0CH,CH_IN6 AJMP CH_IN5 CH_END: SETB TR0 RET PASS_COMP:

MOV R2,#06H MOV R0,#PASS_OLD MOV R1,#PASS_NEW P_COMP0: MOV A,@R0 MOV B,@R1 CJNE A,B,P_COMP1 INC R0 INC R1

DJNZ R2,P_COMP0 SETB PASS_OK CLR RELAY MOV B,#00H

MOV DPTR,#INFO5 ACALL W_STRING2 MOV SEC,#00H CLR SEC10

MOV COUNT,#00H

SETB TR0

RET P_COMP1:

CLR PASS_OK MOV B,#00H

MOV DPTR,#INFO6 ACALL W_STRING2 RET

PASS_LOOK:

ACALL KEY_SCAN

CJNE A,#0AH,LOOK_END

ACALL MENU3

CLR TR0

ACALL PASS_PLAY ACALL BEEP_BL LOOK_1:

ACALL KEY_SCAN CJNE A,#0EH,LOOK_1 ACALL MENU1 ACALL BEEP_BL

SETB TR0

LOOK_END: RET BEEP_BL:

MOV R6,#200 BL1: ACALL BL2 CPL BEEP DJNZ R6,BL1 SETB BEEP MOV R5,#15 ACALL DELAY RET BL2: MOV R7,#200 BL3: NOP DJNZ R7,BL3 RET TIMER0:

PUSH ACC PUSH PSW

MOV TL0,#00H MOV TH0,#4CH INC COUNT MOV A,COUNT CJNE A,#20,T0_END MOV COUNT,#0 INC SEC MOV A,SEC

4

CJNE A,#03H,T0_0 SETB SEC3 T0_0:

CJNE A,#10,T0_END MOV SEC,#0 SETB SEC10 T0_END: POP PSW POP ACC RETI DELAY: MOV R6,#50 DEL1: MOV R7,#93 DEL2:

DJNZ R7,DEL2 DJNZ R6,DEL1 DJNZ R5,DELAY RET

DELAY1: MOV R6,#25 DEL3: MOV R7,#93 DEL4:

DJNZ R7,DEL4 DJNZ R6,DEL3 RET LCD_BUSY:

MOV DATAPORT,#0FFH BUSY_1: CLR LCD_RS SETB LCD_RW CLR LCD_EN NOP

SETB LCD_EN JB BUSY,BUSY_1 CLR LCD_EN RET WCOM:

JNB BUSY_CHECK,WCOM_1 ACALL LCD_BUSY WCOM_1:

MOV DATAPORT,A CLR LCD_RS CLR LCD_RW NOP SETB LCD_EN NOP

CLR LCD_EN RET WDATA:

ACALL LCD_BUSY MOV DATAPORT,A SETB LCD_RS CLR LCD_RW NOP SETB LCD_EN NOP

CLR LCD_EN RET SET_X1: MOV A,LCD_X ADD A,#80H ACALL WCOM RET SET_X2: MOV A,LCD_X ADD A,#0C0H ACALL WCOM RET

CLR_LINE1: MOV A,#80H …… 此处隐藏：2533字，全部文档内容请下载后查看。喜欢就下载吧 ……