【正文】 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；中斷服務(wù)子程序：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(chǔ) AJMP LKP ；跳LKP，計算鍵號LONE: JB ，LTOW ；1行線為高，無鍵閉合，跳LTW0；轉(zhuǎn)判斷第2行 MOV A，08H ；1行有鍵閉合，首鍵號8—〉A(chǔ) AJMP LKP ；跳LKP ，計算鍵號LTW0: JB ，LTHR ；2行線為高，無鍵閉合跳LTHR；轉(zhuǎn)判；第３行 MOV A，10H ；2行有鍵閉合，首鍵號10H—〉A(chǔ)AJMP LKP ；跳LKP，計算鍵號LTHR: JB ，NEXT ；3行線為高，無鍵閉合跳NEXT，；準(zhǔn)備下一列的掃描 MOV A，18H ；3行有鍵按下，首鍵號18H—ALKP: ADD A，R4 。計算鍵號PUSH A 。鍵號進(jìn)棧保護(hù)LK3: ACALL DIR 。調(diào)用顯示子程序，延時6MS ACALL DIR 。調(diào)用判有無鍵閉合子程序，延時6MSJNZ LK3 。判鍵釋放否，未釋放，則循環(huán)POP A 。鍵已釋放，鍵號出棧ARETNEXT: INC R4 。列計數(shù)器加1，為下一列掃描做準(zhǔn)備 MOV A，R2 。判是否已掃到最后一列(最右一列) NB ，KND 。鍵掃描已到最后一列，跳KND重新；進(jìn)行整個。鍵盤的掃描RL A 。鍵掃描未掃到最后一列，位選碼左；移一位MOV R2，A 。位選碼R2AJMP LK4KND: AJMP KEYIKS1: MOV DPTR ，7F01H 。判有無鍵閉合子程序，全0掃描(PA口)MOV A，00H 。列線全為低電平MOVX @DPTR，A 。INC DPTR ；DPTR增2，指向PC 口INC DPTRMOVX A，@DPTR ；從PC口讀行線的狀態(tài)CPL A 行線的狀態(tài)取反，如無鍵按下，則A；中內(nèi)容為0ANL A，0FH ；屏蔽無用的高4位RET PID: MOV R5，3 1H 。取W MOV R4，32H MOV R3，00H :取Yi MOV R2，2AH ACALL CPL1 。取Yi的補碼 ACALL DSUM 。計算ei=WYi MOV 39H，R7 。存ei MOV 3AH，R6 MOV R5，35H 。取IMOV R4，36HMOV R0，4 AH 。R0放乘積高位字節(jié)地址指針ACALL MULT1 。計算Pi=I*eiMOV R5，39H :取eiMOV R4，3AHMOV R3，3BH 。取ei1MOV R2，3CHACALL CPL1 。求ei1:的補碼ACALL DSUB 。求pp=△ei=eiei1:MOV A，R7MOV R5，A :存△eiMOV A，R6MOV R4，AMOV R3，4BH 。取PiMOV R2，4AHACALL DSUM 。求Pi+Pp MOV 4BH，R7MOV 4AH，R6 。存和(Pi+即)MOV R5，39HMOV R4，3AH 。取eiMOV R3，3DHMOV R2，3EH 。取ei2ACALL DSUM :計算ei=ei2MOV A，R7MOV R5，AMOV A，R6MOV R4，AMOV R3， 3BHMOV R2，3CH 。取ei1ACALL CPL1 :求ei1，補碼ACALL DSUM 。計算ei=ei2ei1MOV A，R7MOV R5，A 。存和MOV A，R6MOV R4，AMOV R3，3BHMOV R3，3CH 。取eilACALL CPL1 :求ej1補碼ACALL DSUM 。計算ei=ei 22e iMOV R5，37H 。取DMOV R4，38HMOV R0，46HACALL MULT1 。求出Pd=D*(ei=ei22ei1)MOV R5，47HMOV R4，46H :存PdMOV R3，4BHMOV R2，4AH 。取(pi+PP) ACALL DSUM 。計算pi+pp+pd MOV R5，33H 。取Kp MOV R4，34H MOV R0，46H ACALL MULTl 。計算Kp*(Pi+Pp+Pd) MOV R3，47H MOV R2，46H MOV R5，2FH 。取ui1 MOV R4，30H ACALL DSUM 。求出ui=uil+KP*(Pi+Pp +pd) MOV 2FH，R7 。存ui~ui_， MOV 30H，R6 MOV 3DH，3BH 。eilei2 MOV 3EH，3CH MOV 3BH，39H :eiei1 MOV 3CH，3AH RET DSUM: MOV A，R4 ADD A，R2 MOV R6，A MOV A，R5 ADDC A，R3 MOV R7，A RETCPLI: MOV A，R2 CPL A ADD A，0lH MOV R2，A MOV A，R3 CPL A ADDC A，00H MOV R3，A RETMULTI: MOV A，R7 RLC A MOV SIGN1，C ；存被乘數(shù)符號位 JNC POS1 ；被乘數(shù)為正轉(zhuǎn) MOV A，R6 。求補 CPL A ADD A，0lH MOV R6，A MOV A，R7 CPL A ADDC A，00H MOV R7，APOSI: MOV A，R5 RLC A MOV SIGN2，C :存乘數(shù)符號位 JNC POS2 。乘數(shù)為正轉(zhuǎn) MOV A，R4 CPL A ADD A，0lH MOV R4，A MOV A，R5 CPL A ADDC A，00H MOV R5，APOSZ: ACALL MUL1， MOV C，SIGN1 ANL C，SIGN2 JC TPL 。C=1是兩個負(fù)數(shù)相乘轉(zhuǎn) MOV C，SIGN1 ORL C，SIGN2 JNC TPL 。C=0是兩個正數(shù)相乘轉(zhuǎn) DEC R0 DEC R0 DEC R0 MOV A，@R0 CPL A ADD A，0lH MOV @R0，A INC R0 MOV A，@RO CPL A ADDC A，00HTPL: RETMULT: MOV A，R6 。取b MOV B，R4 。取d MUL AB 。求bd MOV @Ro，A 。求bdL