【正文】 JMCGS:JMB ,KK NOPNOPJB ,KKNOPMOV 70H,01HKK:LJMP JMCGS ；等待中斷 ORG 0100H ；中斷服務(wù)子程序IINT0:PUSH A ；入棧保護(hù)PUSH PSWCLR EA ；關(guān)中斷CLR TR0 DJNZ 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存儲(chǔ)器擴(kuò)展子程序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；中斷服務(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)用顯示子程序，延時(shí)AJMP KEYILK1: ACALL DIR ；可能有鍵閉合，延時(shí)12MS軟件區(qū)ACALL DIRACALL KS1 ；調(diào)用判有無子程序JNZ LK2 ；經(jīng)去消抖，判斷確實(shí)有鍵按下跳ACALL DIR ；調(diào)用顯示子程序延時(shí)6MSAJMP KEYI ；抖動(dòng)引起跳KEYI去處理 LK2: MOV R2,0FEH ；列選碼—〉R2 MOV R4,00H ；R4 為列號(hào)計(jì)數(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行有鍵閉合，首鍵號(hào)—〉A(chǔ) AJMP LKP ；跳LKP，計(jì)算鍵號(hào)LONE: JB ,LTOW ；1行線為高，無鍵閉合，跳LTW0 ；轉(zhuǎn)判斷第2行 MOV A,08H ；1行有鍵閉合，首鍵號(hào)8—〉A(chǔ) AJMP LKP ；跳LKP ，計(jì)算鍵號(hào)LTW0: JB ,LTHR ；2行線為高，無鍵閉合跳LTHR；轉(zhuǎn)判；第３行 MOV A,10H ；2行有鍵閉合，首鍵號(hào)10H—〉A(chǔ)AJMP LKP ；跳LKP，計(jì)算鍵號(hào)LTHR: JB ,NEXT ；3行線為高，無鍵閉合跳NEXT，；準(zhǔn)備下一列的掃描 MOV A,18H ；3行有鍵按下，首鍵號(hào)18H—ALKP: ADD A,R4 。計(jì)算鍵號(hào)PUSH A 。鍵號(hào)進(jìn)棧保護(hù)LK3: ACALL DIR 。調(diào)用顯示子程序,延時(shí)6MS ACALL DIR 。調(diào)用判有無鍵閉合子程序,延時(shí)6MSJNZ LK3 。判鍵釋放否,未釋放,則循環(huán)POP A 。鍵已釋放,鍵號(hào)出棧ARETNEXT: INC R4 。列計(jì)數(shù)器加1,為下一列掃描做準(zhǔn)備 MOV A,R2 。判是否已掃到最后一列(最右一列) NB ,KND 。鍵掃描已到最后一列,跳KND重新；進(jìn)行整個(gè)。鍵盤的掃描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的補(bǔ)碼 ACALL DSUM 。計(jì)算ei=WYi MOV 39H，R7 。存ei MOV 3AH，R6 MOV R5，35H 。取IMOV R4，36HMOV R0，4 AH 。R0放乘積高位字節(jié)地址指針ACALL MULT1 。計(jì)算Pi=I*eiMOV R5，39H :取eiMOV R4，3AHMOV R3，3BH 。取ei1MOV R2，3CHACALL CPL1 。求ei1:的補(bǔ)碼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