【正文】 lcall delay1s setb mov p1 ,0ffh ajmp cunchunext5: cjne a ,xs_5 ,next6 ；夠五位摩斯碼顯示5 mov p1 ,92h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchunext6: cjne a ,xs_6 ,next7 ；夠五位摩斯碼顯示6 mov p1 ,7dh clr lcall delay1s setb mov p1 ,0ffh ajmp cunchunext7: cjne a ,xs_7 ,next8 ；夠五位摩斯碼顯示7 mov p1 ,0f8h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchunext8: cjne a ,xs_8 ,next9 ；夠五位摩斯碼顯示8 mov p1 ,080h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchunext9: cjne a ,xs_9 ,cw ；夠五位摩斯碼顯示9 mov p1 ,90h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchucw: clr clr lcall delay5s clr setb ajmp main1shuru: ；開門復位 mov mmbz ,03 ；錯誤密碼次數(shù) mov at1 ,00h mov at2 ,00h mov at3 ,00h mov at4 ,00h shuru2: clr mov a ,00h ；密碼緩存 mov r2 ,04h ；四位密碼 mov r1 ,00h mov r0 ,at1 mov r7 ,05hstart1: jb ,start1 lcall delay500ms jb ,start1ok1: ；滴音 setb ；開門后再按鍵1t以上關(guān)門 setb clr lcall delay500ms jnb ,daaacun1: setb setb rl a add a ,r1 djnz r7 ,yanshi1 ajmp xianshi1yanshi1: ；每個摩斯碼之間延時1t lcall delay500ms jb ,stop1 ajmp ok1daaa: ；嗒音 lcall delay500ms jb ,stop1 setb clr lcall delay500ms setb jnb ,stop1 mov r1 ,01h ajmp cun1stop1: ；摩斯碼錯誤處理 clr lcall delay2s setb ajmp shuru2cunchu2: mov @r0 ,a inc r0 mov a ,00h mov r1 ,00h mov r7 ,05h djnz r2 ,yanshi1 ajmp bijiaoxianshi1: 。顯示處理 cjne a ,xs_0 ,next1_1 mov p1 ,0c0h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next1_1: cjne a ,xs_1 ,next2_2 mov p1 ,0f9h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next2_2: cjne a ,xs_2 ,next3_3 mov p1 ,0a4h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next3_3: cjne a ,xs_3 ,next4_4 mov p1 ,0b0h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next4_4: cjne a ,xs_4 ,next5_5 mov p1 ,99h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next5_5: cjne a ,xs_5 ,next6_6 mov p1 ,92h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next6_6: cjne a ,xs_6 ,next7_7 mov p1 ,82h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next7_7: cjne a ,xs_7 ,next8_8 mov p1 ,0f8h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next8_8: cjne a ,xs_8 ,next9_9 mov p1 ,80h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2next9_9: cjne a ,xs_9 ,cw2 mov p1 ,90h clr lcall delay1s setb mov p1 ,0ffh ajmp cunchu2bijiao: ；比較密碼 mov r6 ,04 mov r1 ,ps1 mov r0 ,at1bj2: clr c mov a ,@r0 subb a ,@r1 cjne a ,00h ,cw2 inc r1 inc r0 djnz r6 ,bj2 clr ；密碼正確 clr lcall delay5s setb ajmp shurucw2: ；密碼錯誤處理 djnz mmbz ,bjd mov p0 ,00h clr lcall delay5min setb mov p0 ,0ffh ajmp shuru2bjd: mov p0 ,00h clr lcall delay5s setb mov p0 ,0ffh ajmp shuru2delay500ms: mov hc0 ,05ff1:mov hc1 ,200fff1:mov hc2,250 djnz hc2 ,$ djnz hc1 ,fff1 djnz hc0 ,ff1 retdelay1s: mov hc0 ,10ff2: mov hc1 ,200ff3: mov hc2 ,250 djnz hc2 ,$ djnz hc1 ,ff3 djnz hc0 ,ff2 retdelay2s: mov hc0 ,20ff4: mov hc1 ,200ff5: mov hc2 ,250 djnz hc2 ,$ djnz hc1 ,ff5 djnz hc0 ,ff4 retdelay5s: mov hc0 ,50ff6: mov hc1 ,200ff7: mov hc2 ,250 djnz hc2 ,$ djnz hc1 ,ff7 djnz hc0 ,ff6 retdelay5min: mov hc0 ,12qq1: mov hc1 ,200qq2: mov hc2 ,250qq3: mov hc3 ,250 djnz hc3 ,$ djnz hc2,qq3 djnz hc1 ,qq2 djnz hc0 ,qq1 ret