《密码锁 程序》.docVIP

；程序名：密码锁 ；功能描述：四位密码保存在EEPROM中，开机输入密码错误，等待重新输入 ；密码输入正确，密码锁打开；此状态下，可以修改新密码 ENTER_FLAGBIT03HORG0000HSJMP MAINORG000BH;LJMP IPT0ORG001BHLJMP IPT1ORG0030H MAIN: CLRENTER_FLAGMOVTMOD,#10HMOVTH1,#HIGH(65536-50000)MOVTL1,#LOW(65536-50000)SETB ET1SETB EAMOV70H,#10MOV50H,#10MOV51H,#10MOV52H,#10MOV53H,#10LCALL DISPMOVR3,#4MOVR2,#0MOVR0,#30H M_LOOP1:MOV3DH,R2LCALL EEP_RD;LCALL D20MSMOV@R0,AINCR0INCR2DJNZ R3,M_LOOP1 M_LOOP: MOVR1,#40HMOVR4,#4 M_LOOP2:LCALL M_KEYJNBF0,M_LOOP2CLRF0MOV@R1,AINCR1DJNZ R4,M_LOOP2MOVR0,#30HMOVR1,#40HMOVR5,#4 M_LOOP3:MOVA,@R0CLRCSUBB A,@R1JNZPW_WRONGINCR0INCR1DJNZ R5,M_LOOP3 PW_RIGHT:MOV50H,#0MOV51H,#0MOV52H,#0MOV53H,#0LCALL DISPMOV70H,#20CLRP1.3SETB TR1 M_LOOP4:LCALL M_KEYJNBF0,M_LOOP4CLRF0CJNE A,#0BH,M_NEXT1 ;非回车键跳转CPLENTER_FLAGJBENTER_FLAG,M_NEXT2MOVR5,#0MOVR4,#4MOVR0,#50H M_LOOP5:MOV3EH,R5MOVA,@R0MOV3FH,ALCALL EEP_WRLCALL D20MSINCR5INCR0DJNZ R4,M_LOOP5MOV50H,#10MOV51H,#10MOV52H,#10MOV53H,#10LCALL DISPSJMP $ M_NEXT2:MOV70H,#40CLRP1.3SETB TR1SJMP M_LOOP4 M_NEXT1:JNBENTER_FLAG,M_NEXT3CPLENTER_FLAGSJMP M_LOOP4 M_NEXT3:MOV50H,51HMOV51H,52HMOV52H,53HMOV53H,ALCALL DISPSJMP M_LOOP4PW_WRONG:CLRP1.3SETB TR1LJMP M_LOOPDISP: PUSH 00HPUSH 07HPUSH ACCPUSH DPHPUSH DPLMOVR0,#53HMOVR7,#8MOVDPTR,#TABLE1CLRP1.1 DPLOOP0:MOVA,@R0MOVC A,@A+DPTR DPLOOP1:RRCAMOVP1.0,CSETB P1.1CLRP1.1DJNZ R7,DPLOOP1MOVR7,#8DECR0CJNE R0,#4FH,DPLOOP0POPDPLPOPDPHPOPACCPOP07HPOP00HRET TABLE1: DB11H,7DH,23H,29H,4DHDB89H,81H,3DH,01H,09H,0EFHM_KEY: ANLP1,MOVA,P3ORLA,CPLAJZMK_RETACALL D20MSSETB F0MOVR2,MOVR3,#0 MK_LOOP:ANLP1,ANL02H,MOVA,R2ORLP1,AMOVA,P3JBACC.2,MK_N_R1MOVA,#0SJMP MK_JSJZ MK_N_R1:JBACC.3,MK_N_R2MOVA,#3SJMP MK_JSJZ MK_N_R2:JBACC.4,MK_N_R3MOVA,#6SJMP MK_JSJZ MK_N_R3:JBACC.5,MK_N_CMOVA,#9SJMP MK_JSJZ MK_N_C: INCR3JNBP1.7,MK_ERRMOVA,R2RLAMOVR2,ASJMP MK_LOOP MK_JSJZ:ADDA,R3SJMP MK_RET MK_ERR: MOVA,#0CHCL