【正文】 附錄A 硬件電路圖 附錄B 主程序流程圖附錄C 程序中斷流程圖附錄D 程序編程掃描流程圖附錄E 調(diào)試程序ORG LJMP IINT0ORG 0080H MAIN:MOV SP，60H MOV PSW，00HMOV 71H，14HMOV 72H， MOV 73H，00HMOV 74H，00HMOV 75H，00HMOV 76H，00HMOV TMOD，01H MOV TL0，0B0H MOV TH0，3CHSETB TR0 ；開中斷SETB EA SETB ET0JMCGS:JMB ，KK NOPNOPJB ，KKNOPMOV 70H，01HKK:LJMP JMCGS ；等待中斷ORG 0100H ；中斷服務子程序IINT0:PUSH A ；入棧保護PUSH PSWCLR EA ；關中斷CLR TR0DJNZ 71H，ZDFH ；不到2秒直接中斷返回MOV A，70HMOV B，72H MVL ABMOV R6，BMOV R5，AMOV R2，02HLCALL CHUFA MOV 73H，R5 LCALL KZCX MOV 74H，73H ZDFH:SETB EA ；開中斷SETB ET0MOV TMOD，01H ；0重新賦初值MOV TL0，0B0HMOV TH0，3CHSETB TR0 POP PSW ；出棧POP ARETI ；中斷返回CHUFA:MOV R7，08HCHU1:CLR CMOV A，R5RLC AMOV R5，AMOV A，R6RLC AMOV 07H，CCLR CSUBB A，R2JB 07H，CHU2JNC CHU2ADD A，R2AJMP CHU3CHU2:INC R5CHU3:MOV R6，AJNE R7，CHU1RETKZCX:MAIN A，73H ；控制子程序CJNE A，74H，KZ2 ZJFH:RET ；直接返回KZ2:JC PFKZ CFKZ:MOV B，03H DIV ABMOV 75H，ACJNE A，04H，ZJFHJC ZJFHMOV A，75HCJNE A，0AH，CFKZ1JNC CFKZ2CFKZ1:MOV TMOD，10H MOV TL0，0B0HMOV TH0，3CHSETB TR1SETB DELAY:JNB TF1，DELAYCLR TR1CLR TF1CLR LJMP ZJFHCFKZ2:MOV R4，02H CFKZ3:MOV TMOD，10HMOV TH0，3CHSETB TR1SETB DELAY:JNB TF1，DELAY1CLR TR1CLR TF1CLR DJNZ R4，CFKZ3LJMP ZJFHPFKZ:MOV B，03H DIV ABMOV 76H，ACJNE A，08H，ZJFHJC ZJFHMOV A，76HCJNE A，0AH，PFKZ1JNC PFKZ2PFKZ1:MOV TMOD，10H MOV TL0，3CHSETB TR1SETB DELAY:JNB TF1，8CLR TR1CLR TF1CLR LJMP ZJFHPFKZ2:MOV R4，02H PFKZ3:MOV TMOD，10HMOV TL0，0B0HMOV TH0，3CHSETB TR1SETB DELAY4:JNB TF1，DELAY4 CLR TR1 CLR TF1 CLR DJNZ R4，PFKZ3 LJMP ZJFH存儲器擴展子程序STORE： SETB VSDA；SETB VSCL；NOP；NOP；NOP；NOP；CLR VSDA；NOP；CLR VSDA；NOP；NOP；NOP；NOP；CLR VSCL；RET；STOP：CLR VSDA；SETB VSCL；NOP；NOP；NOP；NOP；SETB VSDA；NOP；NOP；NOP；NOP；CLR VSDA；CLR VSCL；RET；MACK： CLR VSDA；SETB VSCL；NOP；NOP；NOP；NOP；CLR VSCL；SETB VSDA；RET；MNACK：SETB VSDA；SETB VSCL；NOP；NOP；NOP；NOP；CLR VSCL；CLR VSDA；RET；CACK： SETB VSDA；SETB VSCL；CLR F0；MOV C，VSDA；JNC CEND；SETB F0；CEND：CLR VSCL；RET；WRBYT： MOV R0，08H；WLP： RLC A；JC WR1；AJMP WR0；WLP1：DJNZ R0，WLP；RET；WR1：SETB VSDA；SETB VSCL；NOP；NOP；NOP；NOP；CLR VSCL；CLR VSDA；AJMP WLP1；WR0：CLR VSDA；SETB VSCL；NOP；NOP；NOP；NOP；CLR VSCL；AJMP WLP1；RDBYT：MOV R0，08H；RLP： SETB VSDA；SETB VSCL；MOV C，VSDA；MOV A，R2；RLC A；MOV R2，A；CLR VSCL；DJNZ R0，RLP；RET；WRNBYT：MOV R3，NUMBYT；LCALL STA；MOV A，SLA；LCALL WRBYT；LCALL CACK；JB F0，WRNBYT；MOV R1，MTD；WRDA：MOV A，R1；LCALL WRBYT；LCALL CACK；JB F0，WRNBYT；INC R1；DJNZ R3，WRDA；LCALL STOP；RET；RDNBYT：MOV R3，NUMBYT；LCALL STA；MOV A，SLA；LCALL WRBYT；LCALL CACK；JB F0，RDNBYT；RDN：MOV R1，MRD；RDN1：LCALL RDBYT；MOV R1，A；DJNZ R3，ACK；LCALL MNACK；LCALLSTOP；RET；ACK：LCALL MACK；INC R1；SJMP RDN1；中斷服務子程序：X0S: MOV DPTR，2000H MOVX DPTR，A SETB TR0 MOV 3AH，20H MOV 3BH，00H MOV R7，00H MOV R6，04H CLR 70HX0S0: CLR01HX0S1: JNB 01H，X0S1 CJNE R6，00H，X0S0 CJNE R7，00H，X0S0 CLR TR0 CLR EX0 SETB 00H RETI鍵盤程序：KEYI：ACALL KS1 ；調(diào)用判有無鍵閉合子程序JNZ LK1 ；有鍵閉合，跳LK！NI: ACALL DIR ；無鍵閉合，調(diào)用顯示子程序，延時AJMP KEYILK1: ACALL DIR ；可能有鍵閉合，延時12MS軟件區(qū)ACALL DIRACALL KS1 ；調(diào)用判有無子程序JNZ LK2 ；經(jīng)去消抖，判斷確實有鍵按下跳ACALL DIR ；調(diào)用顯示子程序延時6MSAJMP KEYI ；抖動引起跳KEYI去處理 LK2: MOV R2，0FEH ；列選碼—〉R2 MOV R4，00H ；R4 為列號計數(shù)器 LK4: MOV DPTR，7F01H ；列選碼—〉8155HMOV A，R2MOVX DPTR，AINC DPTR ；數(shù)據(jù)指針增2，指向PC口INC DPTRMOVX A，DPTR ；讀8155H的PC口JB ，LONE ；第0行線為高，無鍵閉合，跳LONE；轉(zhuǎn)判第1行MOV A，00H ；第0行有鍵閉合，首鍵號—〉A AJMP LKP ；跳LKP，計算鍵號LONE: JB ，LTOW ；1行線為高，無鍵閉合，跳LTW0；轉(zhuǎn)判斷第2行 MOV A，08H ；1行有鍵閉合，首鍵號8—〉A AJMP LKP ；跳LKP ，計算鍵號LTW0: JB ，LTHR ；2行線為高，無鍵閉合跳LTHR；轉(zhuǎn)判；第３行 MOV A，10H ；2行有鍵閉合，首鍵號10H—〉AAJMP LKP ；跳LKP，計算鍵號LTHR: JB ，NEXT ；3行線為高，無鍵閉合跳NEXT，；準備下一列的掃描 MOV A，18H ；3行有鍵按下，首鍵號18H—ALKP: ADD A，R4 。鍵號進棧保護LK3: ACALL DIR 。調(diào)用判有無鍵閉合子程序，延時6MSJNZ LK3 。鍵已釋放，鍵號出棧ARETNEXT: INC R4 。判是否已掃到最后一列(最右一列) NB ，KND 。鍵盤的掃描RL A 。位選碼R2AJMP LK4KND: AJMP KEYIKS1: MOV DPTR ，7F01H 。列線全為低電平MOVX DPTR，A 。取W MOV R4，32H MOV R3，00H :取Yi MOV R2，2AH ACALL CPL1 。計算ei=WYi MOV 39H，R7 。取IMOV R4，36HMOV R0，4 AH 。計算Pi=I*eiMOV R5，39H :取eiMOV R4，3AHMOV R3，3BH 。求ei1:的補碼ACALL DSUB 。取PiMOV R2，4AHACALL DSUM 。存和(Pi+即)MOV R5，39HMOV R4，3AH 。取ei2ACALL DSUM :計算ei=ei2MOV A，R7MOV R5，AMOV A，R6MOV R4，AMOV R3， 3BHMOV R2，3CH 。計算ei=ei2ei1MOV A，R7MOV R5，A 。取eilACALL CPL1 :求ej1補碼ACALL DSUM 。取DMOV R4，38HMOV R0，46HACALL MULT1 。取(pi+PP) ACALL DSUM 。取Kp