【正文】 ；SJMP NPMOP ；轉(zhuǎn)NPMOPNEGOP：LDB AL，CH ；ANDB AL，80H ；ANDB CH，0EFH ；NORML BX，AH ；浮點(diǎn)數(shù)規(guī)格化ORDCA：JBS FL，7，OTADD ；FL。7=1時(shí)，轉(zhuǎn)OTADDCMPB FL，AH ；JLT FLLAH ；FL〈AH時(shí)，轉(zhuǎn)FLLAHSUBB FH，F(xiàn)L，AH ；計(jì)算階碼SJMP RESMY ；轉(zhuǎn)PESMYFLLAH：SUBB FH，AH，F(xiàn)L ；計(jì)算階碼ORB FH，80H ；SJMP RESMY ；轉(zhuǎn)RESMYOTADD：LD TR，4000H ；存運(yùn)算結(jié)果STB FH，[TR]+ ；STB CH，[TR]+ ；STB CL。[TR]+ ；STB BH，[TR]+ ；RET ；返回TAIL1：JBC CH，7，TWOPO ；CH。7=0時(shí)，轉(zhuǎn)TWOPOOATNE：AND CX，0EFFH ；AND EX，0EFFH ；ADD BX，DX ；求和ADDC CX，EX ；SHLL BX，03H ；BX擴(kuò)大8倍ORB CH，80H ；SJMP NPMOP ；轉(zhuǎn)NRMOPTWOPO： NEG BX ； ADDC CX，0000H ； NEG CX ； SJMP OADDT ；轉(zhuǎn)OADDTTAIL2： JBC CH，7，ONEPO ；CH。7=0時(shí)，轉(zhuǎn)ONEPO SJMP OATNE ；轉(zhuǎn)OATNEONEPO： NEG DX ； ADDC EX，0000H ； NEG EX ； SJMP OADDT ；轉(zhuǎn)OADDTMASS1： NEGB HL ；HL求補(bǔ) ANDB TSL，HL，0EFH ；ANDB TSH，JL，0EFH ；ADDB AL，TSH，TSL ；求階碼SJMP SHPJ1 ；轉(zhuǎn)SHRJ1MASS2：NEGB JL ；JL求補(bǔ)ANDB TSL，HL，0FEH ；ANDB TSH，JL，0EFH ；ADDB AL，TSH，TSL ；求階碼SJMP SHRJ2 ；轉(zhuǎn)SHRJ2附錄２：浮點(diǎn)數(shù)乘法子程序FBMUL：LD GX，AX ；取出被乘數(shù)LDB EL，[GX]+ ；LDB EH，[GX]+ ；LDB FL，[GX]+ ；LDB FH，[GX]+ ；LD TR，BX ；取出乘數(shù)LDB HL，[TR]+ ；LDB HH，[TR]+ ；LDB IL，[TR]+ ；LDB IH，[TR]+ ；CHKEL：JBS EL，7，NGONE ；EL。7=1時(shí)，轉(zhuǎn)NGONECHKHL：JBS HL，7，NGTWO ；EL。7=1時(shí)，轉(zhuǎn)NGTWOONATW： ADDB JL，EL，HL ；求階碼NEGB JL ；JL求補(bǔ)CMPB FH，80H ；JC INCN1 ；去借位，轉(zhuǎn)INCN1LDB FH，00H ；SJMP COPR2 ；轉(zhuǎn)COPR2INCN1：LDB FH，00H ；INCB FL ；COPR2：CMPB IH，80H ；JC INCN2 ；無(wú)借位，轉(zhuǎn)INCN2LDB IH，00H ；SJMP MULOT ；轉(zhuǎn)MULOTINCN2：LDB IH，00H ；INCB IL ；MULOT：LDB BL，F(xiàn)L ；取兩位數(shù)的尾數(shù)（含尾數(shù)）LDB BH，EH；LDB CL，IL ；LDB CH，HH ；MUL DX，BX，CX ；乘法運(yùn)算ANDB KL，EH，80H ；ANDB EH，0EFH ； NOPML DX，AH ；浮點(diǎn)數(shù)規(guī)格化ORB EH，KL ；ORDCA：JBS JL，7，OTADD ；JL。7=1時(shí)，轉(zhuǎn)OTADDCMPB JL，AH ；JLT JLLAH ；JL〈AH時(shí)，轉(zhuǎn)JLLAHSUBBJH，JL，AH ；轉(zhuǎn)RESMY SJMP PESMY ；求階碼JLLAH：SUBB JH，80H ；SJMP RESMY ；轉(zhuǎn)RESMYOTADD：ANDB JL，0EFH ；ADDB JH，JL，AH ；ORB JH，80H ；RESMY：LD UT，4200H ；存運(yùn)算結(jié)果STB JH，[UT]+ ；STB EH，[UT]+ ；STB EL，[UT]+ ；STB DH，[UT]+ ；RET ；返回NGONE：NEGB EL ；EL求補(bǔ)SJMP CHKHL ；轉(zhuǎn)CHKHLNGTWO：NEGB HL ；HL求補(bǔ) SJMP ONATW ；轉(zhuǎn)ONATW附錄３：顯示子程序SHOWR： LD HX，4600H ；取BCD碼整數(shù)LDB AH，[HX] ；的最低位LDB BH，AHSHLB BH，04HLDB CH，AHSHPB CH，04HLDB DH，AHSHLB DH，04HLDB EH，AHSHRB CH，04HORB BH，CHORB DH，EHORB BH，DHANDB FH，BH，DHANDB FH，BH，0FH ；存于FH的低4位INC HX ；HX=460HLDB BL，ALSHLB BL，04HLDB CL，ALSHLB BL，04HLDB DL，ALSHLB DL，04HLDB EL，ALSHRB EL，04HORB BL，CLORB DL，ELORB BL，DLANDB FL，BL，F(xiàn)0H ；存入FL的高4位ORB FH，F(xiàn)L ；存于FH中LD BX，8FFFH ；向174LS273送去STB FH，[GX] ； INC HX ；HX=4602HLDB VEH，[HX]LDB VFH，VEHSHLB VFH，04HLDB VGH，VEHSHLB VGH，04HLDB WIH，VEHSHLB WIH，04HLDB VIH，VEHSHRB VIH，04HORB VFH，VGHORB WIH，VIHORB VFH，WIHANDB VJH，VFH，0FH ；存入VJH的低四位INC HX ；HX=4603HLDB VEL，[HX]LDB VFL，VELSHLB VFL，04HLDB VGL，WELSHLB VGL，04HLDB VIL，VELSHRB VIL，04HORB VFL，VGLORB WIL，VILERB VFL，WILANDB VJL，VFL，0F0H ；存于VJL的高四位ORB VJH，VJL ；存于VJH中 LDGX，9FFFH ；向274LS273送去STB VJH，[GX] ；RET ；返回58