【文章內(nèi)容簡介】 ..............................................密碼初始化.............................................................. MOV 40H,11H 。初始用戶密碼111111 MOV 41H,11H MOV 42H,11H MOV 43H,11H 。初始管理員密碼11111111 MOV 44H,11H MOV 45H,11H MOV 46H,11H。其他內(nèi)容初始化 MOV 27H,0 。清空各標志位 MOV 28H,0 。清空各標志位 MOV 3DH,5 。密碼錯誤次數(shù)存儲單元 MOV 3FH,50 ?？煺{(diào)定時存儲單元 MOV 58H,00H 。密碼位數(shù) MOV 59H,57H 。存密碼放置首地址 MOV 5CH,100 。延時1S單元 MOV 5DH,3 。延時秒數(shù)次數(shù) 。定時器中斷設置 MOV TMOD,02H 。T0為定時方式2，8位的常數(shù)自動重新裝載定時。 MOV TL0,00H 。00HFFH=256,256TM*36=9216TM=10MS MOV TH0,00H SETB ET0 。開T0中斷允許 SETB EA 。開中斷總允許 SETB TR0 。啟動T0定時工作。主循環(huán)LOOP: LCALL CZ 。拆字 LCALL CW 。錯誤顯示子程序 LCALL DISP 。顯示刷新 LCALL KEY 。獲取鍵盤輸入 LCALL XDPB 。消抖 LCALL INPUT 。密碼輸入程序 LCALL BZ 。并字 LCALL PP 。密碼匹配 LCALL KM 。開門子程序 LCALL SWITCH 。門閂開關子程序 LCALL MMXG 。密碼修改 LCALL SJTJ 。時間調(diào)校 SJMP LOOP。拆字子程序CZ: MOV R0,30H 。設置顯緩首地址CZLOOP: MOV@R0,12H 。對所有顯緩單元送暗碼 INC R0 。指向下一位 CJNE R0,38H,CZLOOP 。是否超過八個數(shù)碼管容量 JB ,FC 。檢測當前模式并跳轉，為0常態(tài)，為1非常態(tài)。常態(tài)拆字模塊 MOV R0,3AH 。顯示內(nèi)容送顯緩子程序(拆字子程序)。置時鐘數(shù)據(jù)單元首地址(秒單元) MOV R1,30H 。置顯示緩沖單元首地址(對應于最右顯示位)CZ1:MOV A,@R0 。取當前數(shù)據(jù)單元BCD碼 ANL A,0FH 。保留低4位（個位） MOV @R1,A 。送顯緩當前個位單元 INC R1 。指向顯緩當前十位單元 MOV A,@R0 。再取當前數(shù)據(jù)單元BCD碼 ANL A,0F0H 。保留高4位（十位） SWAP A 。交換到低4位 MOV @R1,A 。送顯緩當前十位單元 INC R1 。指向顯緩下一個個位單元 INC R0 。指向下一個時鐘數(shù)據(jù)單元 CJNE R0,3DH,CZ1 。未完繼續(xù) SJMP CZRET。非常態(tài)拆字模塊FC: JB ,CONTROL 。檢測鍵盤輸入模式，0為密碼輸入，1為控制碼輸入。.................................密碼輸入拆字模塊.............................................SR: MOV A,58H 。將密碼位數(shù)給A CJNE A,0,SR2 。判斷密碼位數(shù)是否為0，不為0則跳轉，為零則直接退出 SJMP CZRETSR2: MOV R1,37H 。置顯示緩沖單元首地址(對應于最右顯示位) MOV R0,58H 。將已輸入的密碼個數(shù)送至R0SR1: MOV @R1,10H 。送密碼個數(shù)個到顯緩 DEC R1 。指向下一個緩沖單元 DJNZ R0,SR1 。58H保存的數(shù)不為零則循環(huán) SJMP CZRET。................................控制碼輸入拆字模塊............................................CONTROL:MOV 36H,5BH 。把5B的值送給36H MOV 37H,5AH 。把5A的值送給37HCZRET:RET。密碼錯誤處理子程序CW: JNB ,CWRET 。判斷錯誤標志位，為0則不執(zhí)行，為1則進行處理 MOV R0,30H 。把顯緩首地址送給R0CWLOOP: MOV @R0,12H 。對顯緩單元送暗碼 INC R0 。指向下一位 CJNE R0,38H,CWLOOP MOV 30H,0EH 。將最右邊一位設成E，其他數(shù)碼管不亮。 DJNZ 5CH,CWRET 。3S延時 MOV 5CH,100 DJNZ 5DH,CWRET MOV 5DH,3 CLR 。關閉錯誤標志位CWRET: RET。顯示刷新子程序DISP: MOV DPTR,0FEFCH 。8255A口（字段碼輸出口） MOV A,0FFH 。先給30H暗碼，去除竄顯 MOVX @DPTR,AMOV R0,30H 。顯示更新子程序。置顯示緩沖單元首地址（對應最右位） MOV R3,01H 。位碼初值（從最右位起） MOV A,R3DISP1:MOV DPTR,0FEFDH 。8255B口（位碼輸出口） MOVX @DPTR,A 。輸出當前字位碼 MOV A,@R0 。取當前位顯示數(shù)據(jù)碼 ADD A,TABNEXTPC 。加TAB與NEXTPC差址 MOVC A,@A+PC 。查表得相應字段碼NEXTPC: MOV DPTR,0FEFCH 。8255A口（字段碼輸出口） MOVX @DPTR,A 。輸出字段碼 LCALL D1MS 。保持顯示1毫秒 MOV DPTR,0FEFCH 。8255A口（字段碼輸出口） MOV A,0FFH 。給下一個數(shù)碼管送暗碼，去除竄顯 MOVX @DPTR,A INC R0 。指向下一顯示緩沖單元 MOV A,R3 。取出原來的位碼 JB ,DISP2 。判斷若已顯示到最左位則結束 RL A 。未完,字位碼左移1位 MOV R3,A ?；卮嫘碌奈淮a LJMP DISP1 。轉下一位的顯示驅(qū)動DISP2: RETTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H 。顯示字段碼表。0～9 DB 88H,83H,0C6H,0A1H,86H,8EH,0BFH,00H,0FFH 。A～F,,全亮,全暗KEY: MOV A,81H 。鍵盤掃描子程序（反轉法） MOV DPTR,0FEFFH MOVX @DPTR,A 。C口先初始化為高4位輸出方式驅(qū)鍵行線、低4位輸入方式鍵列線 MOV DPTR,0FEFEH MOV A,00H 。鍵盤行線(高4位)輸出驅(qū)動全39。039。 MOVX @DPTR,A MOVX A,@DPTR 。輸入鍵盤列線電平(低4位)存60H單元 MOV 60H,A MOV A,88H 。C口改初始化為高4位輸入驅(qū)鍵行線、低4位輸出驅(qū)鍵列線 MOV DPTR,0FEFFH MOVX @DPTR,A MOV DPTR,0FEFEH MOV A,00H 。鍵盤列線(低4位)輸出驅(qū)動全39。039。 MOVX @DPTR,A MOVX A,@DPTR 。輸入鍵盤行線電平(高4位)在A中 ANL 60H,0FH 。列線電平值保留所在的低4位 ANL A,0F0H 。行線電平值保留所在的高4位 ORL 60H,A 。將列線電平值、行線電平值組合成8位行列碼 RETXDPB:MOV 2FH,2EH 。把新態(tài)存為舊態(tài) MOV 2DH,2CH 。前4次輸入的電平值推至2AH~2DH單元 MOV 2CH,2BH MOV 2BH,2AH MOV 2AH,29H MOV A,60H MOV 29H, A MOV A,2DH 。比較近5次輸入的電平值不一致則新態(tài)照舊 CJNE A,2CH,XDR CJNE A,2BH,XDR CJNE A,2AH,XDR CJNE A,29H,XDR MOV 2EH,A 。近5次輸入的電平值一致則存為新態(tài)XDR: RET。輸入密碼獲取子程序INPUT:MOV A,2FH 。檢測前態(tài)是否為無按鍵按下 CJNE A,0FFH,WJAN MOV A,2EH 。檢測新態(tài)勢否為有按鍵按下 CJNE A,0FFH,YJANWJAN:LJMP RST 。跳出YJAN:JB ,WJAN 。檢測鍵盤鎖定標志位，為1則退出，為0則執(zhí)行 MOV 61H,00H 。置鍵號初值為00H MOV R5,0FH 。設定最多進行16次的鍵碼查表 MOV DPTR,KEY_N 。DPTR指向鍵碼表首地址KY: MOV A,00H 。A清0 MOVC A,@A+DPTR 。查表讀取鍵碼表中當前位置的鍵碼 CJNE A,60H,NK 。與8位行列碼比較，不同則轉NK查下一個 SJMP KN 。相同即查到了當前按下的鍵的鍵號，轉KN進行相應鍵功能處理NK: INC 61H 。鍵號加1 INC DPTR 。指向鍵值表下一個位置 DJNZ R5,KY 。未查完鍵值表，繼續(xù) RET 。查完，說明無按鍵或出現(xiàn)異常行列碼，返回KN: MOV A,61H