【正文】 jnz k1。 jmp key。 k1: call delay。 call ks。 jnz k2。 jmp key。 k2: clr tr0。 clr led。 MOV r2,0feh。 附錄 31 MOV r6,00h。 k3: MOV a,r2。 MOV p2,a。 MOV a,p2。 jb ,l1。 MOV a,0。 LJMP lk。 l1: jb ,l2。 MOV a,4。 LJMP lk。 l2: jb ,l3。 MOV a,8。 LJMP lk。 l3: jb ,next_key。 MOV a,12。 lk: add a,r6。 MOV r6,a。 k4: call ks。 jnz k4。 MOV a,r6。 MOV dptr,table0。 MOVc a,@a+dptr。 MOV 50h,a。 查表取值存入 50h,保護(hù)鍵值 ret。 next_key: inc r6。 MOV a,r2。 jnb ,key。 rl a。 MOV r2,a。 jmp k3。 。。。。 ks: MOV p2,0f0h。 MOV a,p2。 xrl a,0f0h。 ret。 。。。。設(shè)置密碼程序 set_password: call clear_display。 MOV dptr,table4。 call input_hint。 MOV r0,40h。 call password。 jbc returnbit,set_password。 。先輸入原密碼完畢 MOV r5,6。 MOV r0,40h。 MOV r1,34h。 input_pere: MOV a,@r0。 xrl a,@r1。 jnz input_error。 inc r0。 淮安信息職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計(jì)論文 32 inc r1。 nop。 nop。 djnz r5,input_pere。 。驗(yàn)證輸入密碼完畢 jmp set_password0。 input_error: setb speaker。 setb led。 call clear_display。 MOV dptr,table5。 call input_hint。 call delay1_5s。 clr speaker。 clr led。 inc 52h。 MOV a,52h。 cjne a,3,set_password。 sjmp $。 。輸入密碼錯(cuò)誤次數(shù)超過(guò) 3次，鎖死 set_password0: call clear_display。 MOV dptr,table2。 call input_hint。 MOV r0,40h。 call password。 jbc returnbit,set_password。 。第一次輸入新密碼完畢 call clear_display。 MOV dptr,table3。 call input_hint。 call delay1_5s。 。顯示再次輸入新密碼完畢 call clear_display。 MOV dptr,table4。 call input_hint。 MOV r0,46h。 call password。 jbc returnbit,set_password。 。第二次輸入新密碼完畢 MOV r5,6。 MOV r0,40h。 MOV r1,46h。 set_pere: MOV a,@r0。 xrl a,@r1。 jnz set_error。 inc r0。 inc r1。 djnz r5,set_pere。 MOV 34h,40h。 MOV 35h,41h。 MOV 36h,42h。 MOV 37h,43h。 附錄 33 MOV 38h,44h。 MOV 39h,45h。 。存入新密碼完畢 jmp main0。 。設(shè)置新密碼成功，返回主程序 set_error: setb speaker。 setb led。 call clear_display。 MOV dptr,table5。 call input_hint。 call delay1_5s。 clr speaker。 clr led。 LJMP set_password0。 。前后兩次輸入新密碼不一致，返回重設(shè) 。。。輸入密碼開(kāi)鎖程序 input_password: call clear_display。 MOV dptr,table4。 call input_hint。 MOV r0,40h。 call password。 jbc returnbit,input_password。 。輸入原密碼完畢 MOV r5,6。 MOV r0,40h。 MOV r1,34h。 input_pere0: MOV a,@r0。 xrl a,@r1。 jnz input_error22。 inc r0。 inc r1。 nop。 nop。 djnz r5,input_pere0。 。驗(yàn)證輸入密碼完畢 jmp display_right。 input_error22: setb speaker。 setb led。 call clear_display。 MOV dptr,table5。 call input_hint。 call delay1_5s。 clr speaker。 clr led。 inc 52h。 MOV a,52h。 cjne a,3,input_password。 sjmp $。 淮安信息職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計(jì)論文 34 。輸入密碼錯(cuò)誤超過(guò) 3 次， 鎖死 display_right: call clear_display。 MOV dptr,table6。 call input_hint。 。顯示輸入密碼正確提示完畢 setb open。 開(kāi)鎖 next_key1:call key。 nop。 nop。 cjne a,39。F39。,next_key1。 clr open。 按 下關(guān)鎖鍵，關(guān)鎖 jmp main0。 返回主程序 。。。 strat_display: MOV p0,80h。 call write_instruction。 MOV dptr,table1。 call input_hint。 MOV p0,0c0h。 call write_instruction。 MOV dptr,table11。 call input_hint。 ret。 clear_display: MOV display,01h。 call write_instruction。 MOV p0,06h。 call write_instruction。 ret。 input_hint: MOV r5,16。 MOV a,00h。 all_or_not: MOVc a,@a+dptr。 MOV display,a。 call writedata。 inc dptr。 clr a。 nop。 nop。 djnz r5,all_or_not。 ret。 password: MOV r5,6。 MOV r1,0c0h。 MOV a,r1。 MOV p0,a。 call write_instruction。 loop1: call key。 nop。 nop。 cjne a,39。C39。,next_to。 setb returnbit。 jmp endt。 next_to: 附錄 35 MOV a,50h。 MOV @r0,a。 MOV display,39。*39。a。 call writedata。 inc r1。 inc r0。 djnz r5,loop1。 endt: ret。 。。。。 。。。。寫(xiě)數(shù)據(jù)指令 writedata: SETB rs。 CLR rw。 clr en。 setb en。 nop。 nop。 clr en。