【正文】 BMOV 11H,00HADD A,11H 。相加并存入 AINC NEXT2 。無(wú)進(jìn)位則 NEXT2INC A 。A 加 1MOV 11H,A 。電壓平方放到 10H11H 中NEXT2:MOV A，R6MOV 09H，A 。電流存 09HMOV B, AMUL AB 。得到積 BAMOV 12H,00H中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)41ADD B,12H 。相加并存入 BMOV 12H,BMOV 13H,00H 。13H 清 0ADD A,13H 。相加并存入 AINC NEXT3 。無(wú)進(jìn)位則 NEXT3INC A 。A 加 1MOV 13H,A 。電流平方放到 12H13H 中NEXT3:MOV A,08HMOV B,09HMUL AB 。相乘MOV 14H,00HADD B,14H 。相加存入 BMOV 15H,00HADD A,15H 。相加存入 AINC NEXT4INC AMOV 15H,A 。有功功率放到 14H15H 中NEXT4:MOV A,00HINC AMOV 18H,00HADD A,18H 。相加存入 AMOV 18H, A/*延時(shí)子程序 */DELAY:MOV R5,1H 。延遲 1ms 子程序中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)42Y3: MOV R5,0FFHY4: NOPDJNE R5,Y4DJNZ R4,Y3RETCHECK:CJNE 18H,63H,START 。采樣小于 100 次，則繼續(xù)采樣/*除法子程序*/CF1:MOV A,10H 。電壓平方/100MOV B,11HMOV R5,BMOV R4,AMOV R7,64HD457: CLR CMOV A,R4SUBB A,R7JC DV50SETB OV 。商溢出RETDV50: MOV R6,08H 。求平均值（R4R5／R7 －→R3）DV51: MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV F0,C中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)43CLR CSUBB A,R7ANL C,/F0JC DV52MOV R4,ADV52: CPL CMOV A,R3RLC AMOV R3,ADJNZ R6,DV51MOV A,R4 。四舍五入ADD A,R4JC DV53SUBB A,R7JC DV54DV53: INC R3DV54: CLR OVRETMOV R2，00HPF1:MOV A,R2 。對(duì)商開(kāi)平方ORL A,R3JNZ SH20RET 。被開(kāi)方數(shù)為零，不必運(yùn)算SH20: MOV R7,00H 。左規(guī)次數(shù)初始化MOV A,R2SH22: ANL A,0C0H 。被開(kāi)方數(shù)高字節(jié)小于４０Ｈ否？中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)44JNZ SQRH 。不小于４０Ｈ，左規(guī)格化完成，轉(zhuǎn)開(kāi)方過(guò)程CLR C 。每左規(guī)一次，被開(kāi)方數(shù)左移兩位MOV A,R3RLC AOV F0,CCLR CRLC AMOV R3,AMOV A,R2MOV ,CMOV C,F0RLC ARLC AMOV R2,AINC R7 。左規(guī)次數(shù)加一SJMP SH22 。繼續(xù)左規(guī)ZY1:MOV 10H,00H 。電壓有效值存入 10H11H 中MOV 11H,00HMOV A,R2MOV 10H,AMOV B,R3MOV 11H,BCF2:MOV A。12H 。電流平方/100MOV B。13H中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)45MOV R5,BMOV R4,AMOV R7,64HD457: CLR CMOV A,R4SUBB A,R7JC DV50SETB OV 。商溢出RETDV50: MOV R6,8 。求平均值（R4R5／ R7－→R3）DV51: MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV F0,CCLR CSUBB A,R7ANL C,/F0JC DV52MOV R4,ADV52: CPL CMOV A,R3RLC AMOV R3,ADJNZ R6,DV51MOV A,R4 。四舍五入中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)46ADD A,R4JC DV53SUBB A,R7JC DV54DV53: INC R3DV54: CLR OVRETMOV R2,00H/*開(kāi)平方子程序*/PF2: MOV A,R2 。對(duì)商開(kāi)平方ORL A,R3JNZ SH20RET 。被開(kāi)方數(shù)為零，不必運(yùn)算SH20: MOV R7,00H 。左規(guī)次數(shù)初始化MOV A,R2SH22: ANL A,0C0H 。被開(kāi)方數(shù)高字節(jié)小于４０Ｈ否？JNZ SQRH 。不小于４０Ｈ，左規(guī)格化完成，轉(zhuǎn)開(kāi)方過(guò)程CLR C 。每左規(guī)一次，被開(kāi)方數(shù)左移兩位MOV A,R3RLC AOV F0,CCLR CRLC AMOV R3,AMOV A,R2MOV ,C中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)47MOV C,F0RLC ARLC AMOV R2,AINC R7 。左規(guī)次數(shù)加一SJMP SH22 。繼續(xù)左規(guī)ZY2:MOV 12H,00HMOV 13H,00HMOV A,R2MOV 12H,AMOV B,R3MOV 13H,B 。電流有效值存入 12H13H 中MOV A,12H 。取電流整數(shù)部分MOV B,10H 。取電壓整數(shù)部分MUL ABMOV R6,BMOV R7,7MOV R2,00HMOV R3,00HMOV A,14HMOV R4,AMOV A,15HMOV R5,ADIVD: CLR C 。比較被除數(shù)和除數(shù)中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)48CF3:MOV A,R3 SUBB A,R7MOV A,R2SUBB A,R6JC DVD1SETB OV 。溢出RETDVD1: MOV B,10H 。計(jì)算雙字節(jié)商DVD2: CLR C 。部分商和余數(shù)同時(shí)左移一位MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV A,R3RLC AMOV R3,AXCH A,R2RLC AXCH A,R2MOV F0,C 。保存溢出位CLR CSUBB A,R7 。計(jì)算（R2R3－R6R7 ）MOV R1,AMOV A,R2SUBB A,R6中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)49ANL C,/F0 。結(jié)果判斷JC DVD3MOV R2,A 。夠減，存放新的余數(shù)MOV A,R1MOV R3,AINC R5 。商的低位置一DVD3: DJNZ B,DVD2 。計(jì)算完十六位商（R4R5）MOV A,R4 。將商移到 R2R3 中MOV R2,AMOV A,R5MOV R3,ACLR OV 。設(shè)立成功標(biāo)志RETPD1:CJNE R2,5FH,COMP 。不等于 95 則 COMP，并產(chǎn)生 CyCOMP:JNC JS 。 Cy=1 則 JS，Cy=0,則下一步程序ZY:MOV A,10HMOV R3,AMOV A,11HMOV R4,A中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)50/*進(jìn)制轉(zhuǎn)換程序*/ZH:SHORT_ASC PROC FAR 。進(jìn)制轉(zhuǎn)換 USES AX,BX,CX,DX, MOV BX,10 C0:MOV DX,0 MOV AX,R3 CMP AX,0 JE C1 DIV BX MOVE RSLTHI,AX MOV AX,R4 DIV BX MOV R4,AX OR DL,30H MOV [DI],DL DEC DI JMP CHAR,C0C1:MOV AX,R4C2:CMP AX,0 JZ C3 MOV DX,0 DIV BX OR DL,30H MOV [DL],DL DEC DI JMP CHAR C2C3:RET中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)51SHORT_ASC ENDPCODE ENDS END MAINMOV A，00HINC A 。A 累加 1MOV R0，AXZ1：CJNE R0,01H,XZ2 。不等于 1 則，即為 2，進(jìn)行 XZ2MOV A,R4MOV R5,AMOV A, 12HMOV R3, AMOV A, 13HMOV R4, AJMP ZHXZ2：CJNE R0,02H,WAIT: 。不等于 2 則，即為 3，進(jìn)行 WAITMOV A, R4MOV R6, AMOV A, R2MOV R4, AMOV R3, 00HJMP ZH/*顯示子程序*/。等待空閑子程序, 該程序用于檢測(cè) 1602 的狀態(tài)，至到 1602 進(jìn)入空閑狀態(tài)時(shí)退出WAIT:中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)52MOV lCD, OFFH ；令 P0 做輸入口使用CLR RS 。將 RS 清 0，RW 置 1SETB RWCLR ENOPSETB EJB BF,WAITRET。寫(xiě)入指令子程序，入口參數(shù)為 A，A 中存儲(chǔ)需向 1602 寫(xiě)指令WCMD: ACALL WAITMOV LCD,ACLR RS 。將 RS 與 RW 清 0CLR RWSETB E 。令 E 端產(chǎn)生下降沿使指令寫(xiě)入 1602NOPCLR ERET。寫(xiě)入指令數(shù)據(jù)程序，入口參數(shù)為 A，A 中存儲(chǔ)需向 1602 寫(xiě)入程序的數(shù)據(jù)WDATA: ACALL WAITMOV LCD,ASETB RS 。將 RS 置 1，將 RW 清 0CLR RWSETB E 。令 E 端產(chǎn)生下降沿使數(shù)據(jù)寫(xiě)入 1602NOPCLR ERETTAB: DB 39。U/10 I/10 %39。DB R5中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)53DB 39。 39。DB R6DB39。 39。DB R4MAIN: MOV A,00000001B 。發(fā)送清屏操作指令A(yù)CALL WCMD 。清屏操作MOV A,00111000B 。發(fā)送功能設(shè)置指令A(yù)CALL WCMD 。令 1602 以 8 位數(shù)據(jù)總線(xiàn)雙行顯示 5*7 的字符MOV A,00001111B 。發(fā)送顯示控制指令A(yù)CALL WCMD 。打開(kāi)并使用光標(biāo)閃爍MOV A,00010100B 。發(fā)送光標(biāo)移位指令A(yù)CALL WCMD 。令光標(biāo)自動(dòng)右移MOV A,10000000B 。發(fā)送 DDRAM 設(shè)置指令A(yù)CLL WCDM 。將當(dāng)前位置設(shè)置在 00H 處（屏幕第一行的起始出）MOV DPTR,TAB 。裝入查表地址MOV R4,0SLOOP1: MOV A,R4MOVC A,@A+DPTR 。將當(dāng)前 9 個(gè)字符寫(xiě)入第一行ACALL WDATAINC R0CJNE R0,9,SLOOP1MOV A,0C0HACALL WCDMSLOOP2: MOV A,RMOVC A,@A+DPTR中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)54ACALL WDATAINC ROCJNE R0,18,SLOOP2 。將后 9 個(gè)字符寫(xiě)入第二行RET/*延時(shí)子程序 */DELAY2:MOV R0,FFHLOOP1:MOV R1,0FHLOOP2:NOPDJNZ R1,LOOP2MOV ,1BDJNZ R0,LOOP1RETEND/*輸出控制程序*/JS: MOV 0FH，00HINC 0FHMOV A,0FH 。0FH 中內(nèi)容加 1CJNE A，01H,PD2 。不等于 1 則 PD2MOV COL1 1BJMP MAIN 。跳轉(zhuǎn)到 STARTPD2:CJNE A,02H,PD3 。不等于 2，即為 3，則 PD3MOV COL1 1BMOV COL2 1BJMP MAINPD3:中國(guó)石油大學(xué)勝利學(xué)院本科畢業(yè)設(shè)計(jì)(論文)55CJNE A,03H,WAIT 。不等于 3，即為 4，則 WAIT。進(jìn)行顯示MOV COL1 1BMOV COL2 1BMOV COL3 1BJMP MAIN 。跳轉(zhuǎn)到 STA