电子密码锁程序

定义状态灯L1 BIT P1.0L2 BIT P1.1L3 BIT P1.2 ;p1.3串口坏L4 BIT P1.4L5 BIT P1.5l6 BIT P1.6Buzzer BIT P1.7;蜂鸣器状态位定义20H~30HLOG_IN BIT 20H;进入系统MODI_Password BIT 21H;修改密码MODI1 BIT 23H;修改密码第二次输入MODI2 BIT 24HMODI_Success BIT 25H;密码修改成功Correct_Password BIT 26H;功能键，0进入系统，1修改密码密码缓存区PW1 EQU 30H;1~6位密码PW2 EQU 31HPW3 EQU 32HPW4 EQU 33HPW5 EQU 34HPW6 EQU 35HLED数码管显示缓存区SHOW1EQU36HSHOW2EQU37HSHOW3EQU38HSHOW4EQU39HSHOW5EQU3AHSHOW6EQU3BH键盘输入密码暂时缓存区PW_TEMP1 EQU 3DHPW_TEMP2 EQU 3EHPW_TEMP3 EQU 3FHPW_TEMP4 EQU 40HPW_TEMP5 EQU 41HPW_TEMP6 EQU 42H修改密码时，原密码暂时缓存区MODI_PW1 EQU 43HMODI_PW2 EQU 44HMODI_PW3 EQU 45HMODI_PW4 EQU 46HMODI_PW5 EQU 47HMODI_PW6 EQU 48H计数Password_NUM EQU 3CH ;输入密码的位数主程序ORG 0000HAJMP MAINORG 000BHAJMP TIMERORG 0013HAJMP INT1PORG 0030HMAIN MOV SP,#60H;开中断SETB EX1SETB L1SETB L2SETB L3SETB L4SETB L5SETB L6;初始化清零CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR MODI_SuccessCLR Correct_Password;初始化密码112211MOV PW1,#01HMOV PW2,#01HMOV PW3,#02HMOV PW4,#02HMOV PW5,#01HMOV PW6,#01H;初始化显示CHOOSEMOV SHOW1,#0EHMOV SHOW2,#05HMOV SHOW3,#00HMOV SHOW4,#00HMOV SHOW5,#12HMOV SHOW6,#0CH;计数初始化MOV Password_NUM,#00H;初始化8279LCALL INIT_8279SJMP $8279键盘INIT_8279MOV DPTR,#5FFFHMOV A,#0DCHMOVX @DPTR,AJUMP1 MOVX A,@DPTRJB ACC.7,JUMP1MOV A,#00HMOVX @DPTR,AMOV A,#34HMOVX @DPTR,ACLR IT1NOPSETB EANOPLCALL DSYRET外部中断1INT1P PUSH ACCPUSH DPHPUSH DPLMOV A,#40HMOV DPTR,#5FFFHMOVX @DPTR,AMOV DPTR,#5EFFHMOVX A,@DPTR显示缓存MOV 3BH,3AHMOV 3AH,39HMOV 39H,38HMOV 38H,37HMOV 37H,36HMOV 36H,A键盘输入密码缓存;检查当前选择的功能输入原密码进入系统CLR CMOV C,LOG_IN;进入系统状态为1，选择功能A，输入密码进入系统JNC JUMP3;不是功能A,跳转，是功能A顺序执行，对密码缓存改变指示灯110001，1：亮，0不亮CLR L1CLR L2SETB L3SETB L4SETB L5CLR L6保存键盘输入的密码MOV PW_TEMP1,PW_TEMP2MOV PW_TEMP2,PW_TEMP3MOV PW_TEMP3,PW_TEMP4MOV PW_TEMP4,PW_TEMP5MOV PW_TEMP5,PW_TEMP6MOV PW_TEMP6,AAJMP JUMP4;跳过功能B修改密码的操作，a.验证原密码,b.输入要修改的新密码,c.验证要修改的新密码JUMP3CLR CMOV C,MODI_Password;修改密码状态为1，选择修改密码，输入原密码即可修改密码JNC JUMP12;不是功能A，不是修改密码验证原密码改变指示灯110100，1：亮，0不亮CLR L1CLR L2SETB L3CLR L4SETB L5SETB L6保存键盘输入的密码MOV PW_TEMP1,PW_TEMP2MOV PW_TEMP2,PW_TEMP3MOV PW_TEMP3,PW_TEMP4MOV PW_TEMP4,PW_TEMP5MOV PW_TEMP5,PW_TEMP6MOV PW_TEMP6,AAJMP JUMP4;跳过修改密码时的原密码验证缓存JUMP12CLR C;输入要修改的新密码状态为1，选择输入修改密码MOV C,MODI1JNC JUMP13改变指示灯110001，1：亮，0不亮CLR L1SETB L2SETB L3SETB L4CLR L5SETB L6保存键盘输入的密码MOV PW_TEMP1,PW_TEMP2MOV PW_TEMP2,PW_TEMP3MOV PW_TEMP3,PW_TEMP4MOV PW_TEMP4,PW_TEMP5MOV PW_TEMP5,PW_TEMP6MOV PW_TEMP6,AAJMP JUMP4;跳过修改密码时的原密码验证缓存JUMP13CLR CMOV C,MODI2JNC JUMP4改变指示灯110101，1：亮，0不亮CLR L1CLR L2SETB L3CLR L4SETB L5CLR L6保存键盘输入的密码MOV PW_TEMP1,PW_TEMP2MOV PW_TEMP2,PW_TEMP3MOV PW_TEMP3,PW_TEMP4MOV PW_TEMP4,PW_TEMP5MOV PW_TEMP5,PW_TEMP6MOV PW_TEMP6,AAJMP JUMP4;跳过修改密码时的原密码验证缓存JUMP4LCALL Key_Check密码检验，检查密码是否为0~9NOPLCALL DSY设置定时器MOV R5,#60MOV TMOD,#01HMOV TH0,#3CHMOV TL0,#0B0HSETB ET0SETB TR0POP DPLPOP DPHPOP ACCRETI时延1sDELAY1s MOV R3,#0FHDL13MOV R4,#0FAHDL12MOV R5,#0F6H;DL11DJNZ R5,DL11;时延246usDJNZ R4,DL12;（246+4）250=62500usDJNZ R3,DL13;6250016=1sRET时延3sDELAY3s MOV R3,#2FHDL33MOV R4,#0FAHDL32MOV R5,#0F6H;DL31DJNZ R5,DL31;时延246usDJNZ R4,DL32;（246+4）250=62500usDJNZ R3,DL33;6250016=1sRETLED数码管显示程序DSY MOV R2,#06HMOV A,#92HMOV DPTR,#5FFFHMOVX @DPTR,AMOV R0,#36HTY11 MOV A,@R0MOV DPTR,#TABLMOVC A,@A+DPTRMOV DPTR,#5EFFHMOVX @DPTR,AINC R0DJNZ R2,TY11RET密码检验0~9Key_Check;检查当前选择的功能CLR CMOV C,LOG_IN;进入系统状态为1，选择功能A，输入密码进入系统JNC FBNOPFUNC_A功能A,进入系统;计数，密码输入位数MOV A,Password_NUMINC AMOV Password_NUM,ANOPCJNE A,#06H,JUMP5CLR LOG_INLCALL Password_VerityCLR CMOV C,Correct_PasswordJC CorrectAJMP JUMP16Correct改变指示灯110010，1：亮，0不亮CLR L1CLR L2SETB L3SETB L4CLR L5SETB L6LED数码管显示MOV SHOW1,#0EHMOV SHOW2,#05HMOV SHOW3,#00HMOV SHOW4,#00HMOV SHOW5,#12HMOV SHOW6,#0CHLCALL DSY状态位清零CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR MODI_SuccessCLR Correct_PasswordAJMP JUMP7JUMP16LCALL Long_Buzzer改变指示灯110110，1：亮，0不亮CLR L1CLR L2CLR L3SETB L4CLR L5SETB L6LED显示ERR002MOV SHOW1,#02HMOV SHOW2,#00HMOV SHOW3,#00HMOV SHOW4,#0AHMOV SHOW5,#0AHMOV SHOW6,#0EHLCALL DSYJUMP5 AJMP JUMP7FB CLR CMOV C,MODI_Password;修改密码状态为1，选择功能B，输入密码修改密码JNC FUNC_MODI1NOPFUNC_B功能B,修改密码MOV A,Password_NUMINC AMOV Password_NUM,ANOPCJNE A,#06H,JUMP6LCALL Password_VerityCLR CMOV C,Correct_PasswordJNC again1LCALL Short_Buzzer改变指示灯110110，1：亮，0不亮CLR L1CLR L2SETB L3CLR L4CLR L5SETB L6CLR MODI_PasswordSETB MODI1;密码正确，进行第一次输入修改密码JUMP6AJMP JUMP7again1密码错误重新输入密码MOV Password_NUM,#00HSETB MODI_Password改变指示灯110110，1：亮，0不亮CLR L1CLR L2CLR L3SETB L4SETB L5CLR L6LED显示ERR002MOV SHOW1,#02HMOV SHOW2,#00HMOV SHOW3,#00HMOV SHOW4,#0AHMOV SHOW5,#0AHMOV SHOW6,#0EHLCALL DSYAJMP JUMP7FUNC_MODI1CLR CMOV C,MODI1;第一次输入修改密码状态，选择功能B2，第二次输入修改密码JNC FUNC_MODI2NOP第一次输入新密码LCALL ModifyAJMP JUMP7FUNC_MODI2CLR CMOV C,MODI2;第一次输入修改密码状态，选择功能B2，第二次输入修改密码JNC NEXT_ANOP第二次输入新密码LCALL Modi_VerityAJMP JUMP7功能选择NEXT_A CJNE A,#0AH,NEXT_BSETB LOG_IN;选择进入系统AJMP JUMP7NEXT_B CJNE A,#0BH,NEXT_CSETB MODI_Password;选择修改密码AJMP JUMP7NEXT_C CJNE A,#0CH,NEXT_DAJMP RESET未定义的功能，选择会出现警告NEXT_D CJNE A,#0DH,NEXT_EAJMP WARN1NEXT_E CJNE A,#0EH,NEXT_FAJMP WARN1NEXT_F CJNE A,#0FH,WARN1AJMP WARN1RESET 复位，密码初始化呢，状态位初始化，显示初始化;初始化清零CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR MODI_SuccessCLR Correct_Password;初始化密码112211MOV PW1,#01HMOV PW2,#01HMOV PW3,#02HMOV PW4,#02HMOV PW5,#01HMOV PW6,#01H;初始化显示CHOOSEMOV SHOW1,#0EHMOV SHOW2,#05HMOV SHOW3,#00HMOV SHOW4,#00HMOV SHOW5,#12HMOV SHOW6,#0CH;计数初始化MOV Password_NUM,#00HAJMP JUMP7WARN1数码管显示ERR001MOV SHOW1,#01HMOV SHOW2,#00HMOV SHOW3,#00HMOV SHOW4,#0AHMOV SHOW5,#0AHMOV SHOW6,#0EHLCALL DSY蜂鸣器响，重新选择功能LCALL Long_BuzzerMOV SHOW1,#0EHMOV SHOW2,#05HMOV SHOW3,#00HMOV SHOW4,#00HMOV SHOW5,#12HMOV SHOW6,#0CH状态位清零CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR MODI_SuccessCLR Correct_PasswordJUMP7RET密码校验，与原密码是否一样Password_Verity计数清零MOV Password_NUM,#00H密码校验CLR CMOV A,PW_TEMP1SUBB A,PW1JNZ JUMP8CLR CMOV A,PW_TEMP2SUBB A,PW2JNZ JUMP8CLR CMOV A,PW_TEMP3SUBB A,PW3JNZ JUMP8CLR CSUBB A,PW4JNZ JUMP8CLR CMOV A,PW_TEMP5SUBB A,PW5JNZ JUMP8CLR CMOV A,PW_TEMP6SUBB A,PW6JNZ JUMP8SETB Correct_Password;密码全对JUMP8RETModify保存修改的密码MOV A,Password_NUMINC AMOV Password_NUM,ANOPCJNE A,#06H,JUMP9完成6位密码输入改变指示灯101010，1：亮，0不亮CLR L1SETB L2CLR L3SETB L4CLR L5SETB L6CLR MODI1;第一次修改密码输入完成SETB MODI2;第二次输入修改密码MOV Password_NUM,#00H暂时保存原密码，修改密码出现错误，为系统回复原密码MOV MODI_PW1,PW1MOV MODI_PW2,PW2MOV MODI_PW3,PW3MOV MODI_PW4,PW4MOV MODI_PW5,PW5MOV MODI_PW6,PW6为新密码送入密码缓存区MOV PW1,PW_TEMP1MOV PW2,PW_TEMP2MOV PW4,PW_TEMP4MOV PW5,PW_TEMP5MOV PW6,PW_TEMP6JUMP9RETModi_VerityMOV A,Password_NUMINC AMOV Password_NUM,ANOPCJNE A,#06H,JUMP14校验两次输入的新密码是否一样CLR Correct_PasswordLCALL Password_VerityAJMP JUMP15JUMP14 AJMP JUMP11;结束子程序JUMP15CLR CMOV C,Correct_PasswordJNC JUMP10修改密码正确，初始化状态位CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR Correct_PasswordSETB MODI_Success;修改密码成功状态位改变指示灯111111，1：亮，0不亮CLR L1CLR L2CLR L3CLR L4CLR L5CLR L6LED显示MOV SHOW1,#06HMOV SHOW2,#06HMOV SHOW3,#06HMOV SHOW4,#06HMOV SHOW5,#06HMOV SHOW6,#06HLCALL DSYAJMP JUMP11JUMP10出现错误，标志位清零CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR MODI_SuccessCLR Correct_Password改变指示灯110110，1：亮，0不亮CLR L1CLR L2CLR L3SETB L4CLR L5CLR L6提示ERR003MOV SHOW1,#03HMOV SHOW2,#00HMOV SHOW3,#00HMOV SHOW4,#0AHMOV SHOW5,#0AHMOV SHOW6,#0EH密码修改出现错误，复原原密码MOV PW1,MODI_PW1MOV PW2,MODI_PW2MOV PW3,MODI_PW3MOV PW4,MODI_PW4MOV PW5,MODI_PW5MOV PW6,MODI_PW6LCALL DSYJUMP11RET鸣笛Long_BuzzerMOV R3,#1FHBL13MOV R4,#0FAHCLR BuzzerBL12MOV R5,#0F6H;BL11DJNZ R5,BL11;时延246usDJNZ R4,BL12;（246+4）250=62500usSETB BuzzerDJNZ R3,BL13;6250016=1sRETRETShort_BuzzerMOV R3,#0FHBS13MOV R4,#0FAHCLR BuzzerBS12MOV R5,#0F6H;BS11DJNZ R5,BS11;时延246usDJNZ R4,BS12;（246+4）250=62500usSETB BuzzerDJNZ R3,BS13;6250016=1sRETRET定时器终端程序TIMER MOV TH0,#3CHMOV TL0,#0B0HDJNZ R5,LOOP3S内没有按按键LCALL Short_Buzzer;初始化清零CLR LOG_INCLR MODI_PasswordCLR MODI1CLR MODI2CLR MODI_SuccessCLR Correct_Password;初始化显示CHOOSEMOV SHOW1,#0EHMOV SHOW2,#05HMOV SHOW3,#00HMOV SHOW4,#00HMOV SHOW5,#12HMOV SHOW6,#0CH;计数初始化MOV Password_NUM,#00HLOOP RETITABLE表TABL DB 0C0H,0F9H,0A4H,0B0H,99HDB 92H,82H,0F8H,80H,90H,88HDB 83H,0C6H,0A1H,86H,8EH,8CHDB 0C1H,89H,0C7H,0BFH,91HDB 00H,0FFHEND。