【正文】 JB ,LONE ；0行無鍵按下，轉1行（等于1轉）MOV A,0 ；0行有鍵按下，賦行號=ALJMP LKP ；轉求鍵號LONE: JB ,LTW0 ；1行無鍵按下，轉2行MOV A,4 ；1行有鍵按下，賦行號=ALJMP LKP ；轉求鍵號LTW0: JB ,LTHR ；2行無鍵按下，轉3行MOV A,8 ；2行有鍵按下，賦行號=ALJMP LKP ；轉求鍵號LTHR: JB ,NEXT ；3行無鍵按下，轉列加一MOV A,12 ；3行有鍵按下，賦行號=ALJMP LKP ；轉求鍵號NEXT: INC R3 ；列加一，指向下一列MOV A,R2 ；掃描字=ARL A ；掃描字左移MOV R2,A ；暫存掃描字LJMP LK1 ；轉下一列掃描LKP: ADD A,R3 ；求鍵值（當前行+當前列）MOV DPTR,JTABMOVC A,@A+DPTR PUSH Acc ；鍵值壓入堆棧LK2: LCALL KS1 ；是否有鍵按下LCALL D_10MSJNZ LK2 ；A不等于0，再判斷POP Acc ；鍵已經釋放，A=鍵值RET ；返回密碼比較和報警程序：COMP: MOV R1,45H MOV R0,35H MOV R2,06HC1: MOV A,@R1 XRL A,@R0 JNZ C3 DEC R1 DEC R0 DJNZ R2,C1 CLR MOV R2,200C2: MOV R6,248 DJNZ R6,$ DJNZ R2,C2C3: INC R5 MOV A,R5 MOV R5,A CJNE R5 ,03H,C4 CLR MOV R5,00H C4: JMP START密碼更改程序如下：SET_P:CLR LED_GREEN 。更改系統(tǒng)狀態(tài)及屏幕顯示內容 SETB LED_YELLOW SETB LED_REDMOV LED_BIT_1,0CH ；關閉全部數(shù)碼管 MOV LED_BIT_2,0CH MOV LED_BIT_3,0CH MOV LED_BIT_4,0CH MOV LED_BIT_5,0CH MOV LED_BIT_6,0CH LCALL BCD LCALL DISPA0_SET: NOP ；按鍵檢測并計算鍵值存放在VAL單元……. ；按鍵處理部分CJNE A,02H,TIMES1 ；判斷是否已輸入兩次新密碼LCALL DLY_1S MOV A,WORD_6 。逐位比較密碼，不一致則重新設置 CJNE A,KEY_1,J_RSET MOV R0,59H MOV @R0,33H MOV A,WORD_5 CJNE A,KEY_2,J_RSET MOV A,WORD_4 CJNE A,KEY_3,J_RSET MOV A,WORD_3 CJNE A,KEY_4,J_RSET MOV A,WORD_2 CJNE A,KEY_5,J_RSET MOV A,WORD_1 CJNE A,KEY_6,J_RSET向24C01C中寫數(shù)據,數(shù)據存放在24C01C中4CH開始的16個字節(jié)中 ……TIMES1:MOV R0,WORD_1SET ；第一次新密碼暫存內存中 MOV WORD_1 , @R0 MOV R0,WORD_2SET MOV WORD_2 , @R0 MOV R0,WORD_3SET MOV WORD_3 , @R0 MOV R0,WORD_4SET MOV WORD_4 , @R0 MOV R0,WORD_5SET MOV WORD_5 , @R0 MOV R0,WORD_6SET MOV WORD_6 , @R0 LCALL DLY_1S 。加延時程序LED顯示子程序如下：DISP:MOV R0,45HDISP1: MOV A,@R0 ADD A,50H MOV P0,A CALL DELAY DEC R0 MOV A,@R0 ADD A,40H MOV P0,A CALL DELAY DEC R0 MOV A,@R0 ADD A,30H MOV P0,A CALL DELAY DEC R0 MOV A,@R0 ADD A,20H MOV P0,A CALL DELAY DEC R0 MOV A,@R0 ADD A,10H MOV P0,A CALL DELAY DEC R0 MOV A,@R0 ADD A,00H MOV P0,A CALL DELAY RET單片機通信程序（1）接收子程序：JSH: LCALL D_250US ；接收子程序SETB ET0 ；開定時中斷T0SETB TR0MOV R2, 08H ；接收1個字節(jié)的數(shù)據循環(huán)字數(shù)MOV R3, 00H ；接收寄存器清0CJNE R2, 0, $ ；等待接收完8位數(shù)據MOV 29H, R3 ；接收到的低8位存到29H中MOV R2, 08H ；接收1個字節(jié)的數(shù)據循環(huán)字數(shù)MOV R3, 00H ；接收寄存器清0CJNE R2, 0, $ ；等待接收完8位數(shù)據MOV 2AH, R3 ；接收到的高8位存到2AH中CLR ET0 ；關定時中斷T0CLR TR0RET ；子程序返回ITP0: MOV TH0, 0FCH ；定時器重裝初值MOV TL0, 62HPUSH ACC ；保護現(xiàn)場MOV A, R3 MOV C, ；接收1位數(shù)據RRC A ；數(shù)據移入A中MOV R3, ADEC R2POP ACC ；恢復現(xiàn)場RETI ；中斷返回（2）發(fā)送子程序：FS: CLR ；，讓接單片機進入中斷接入數(shù)據子程序LCALL D_250US ；延時250usSETB ET1 ；開定時中斷T1SETB TR1MOV R2, 08H ；發(fā)送1個字節(jié)循環(huán)次數(shù)CLR C ；清發(fā)送位CMOV A, R3 ；發(fā)送的數(shù)碼低8位存到A中RRC A ；移出A中低位發(fā)送MOV , C ；MOV R3, A CJNE R2, 1, $ ；等待發(fā)送完1個字節(jié)MOV R2, 09H ；發(fā)送1個字節(jié)循環(huán)次數(shù)MOV A, R4 ；發(fā)送的數(shù)碼低8位存到A中MOV R3, ACJNE R2, 0, $ ；等待發(fā)送完1個字節(jié)SETB ；發(fā)送完所有數(shù)據，通信線復位SETB CLR ET1 ；關定時中斷T1CLR TR1RET ；子程序返回ITP1: MOV TH1, 0FCH ；定時器重裝初值MOV TL1, 62HPUSH ACC ；保護現(xiàn)場CJNE R2, 01H, REJET ；判斷是否發(fā)送完1個字節(jié)數(shù)據AJMP NOTREJET ；發(fā)送完1個字節(jié)REJET: MOV A, R3 ；未發(fā)送完1個字節(jié)RRC AMOV , C ；發(fā)送1位數(shù)據MOV R3, ANOTREJET:DEC R2POP ACC ；恢復現(xiàn)場RETI ；中斷返回45