51定点/浮点子程序库

Size: px

Start display at page:

Download "51定点/浮点子程序库"

硕轮宣
5 years ago
Views:

1 51 浮点子程序库子程序库的使用方法如下 : 1. 将子程序库全部内容链接在应用程序之后, 统一编译即可优点是简单方便, 缺点是程序太长, 大量无关子程序也包含在其中 2. 仅将子程序库中的有关部分内容链接在应用程序之后, 统一编译即可有些子程序需要调用一些低级子程序, 这些低级子程序也应该包含在内优点是程序紧凑, 缺点是需要对子程序库进行仔细删节 MCS-51 浮点运算子程序库及其使用说明本浮点子程序库有三个不同层次的版本, 以便适应不同的应用场合 : 1. 小型库 (FQ51A.ASM): 只包含浮点加减乘除子程序 2. 中型库 (FQ51B.ASM): 在小型库的基础上再增加绝对值倒数比较平方开平方数制转换等子程序 3. 大型库 (FQ51.ASM): 包含本说明书中的全部子程序为便于读者使用本程序库, 先将有关约定说明如下 : 1. 双字节定点操作数 : 用 [R0] 或 [R1] 来表示存放在由 R0 或 R1 指示的连续单元中的数据, 地址小的单元存放高字节如果 [R0]=1234H, 若 (R0)=30H, 则 (30H)=12H,(3 1H)=34H 2. 二进制浮点操作数 : 用三个字节表示, 第一个字节的最高位为数符, 其余七位为阶码 ( 补码形式 ), 第二字节为尾数的高字节, 第三字节为尾数的低字节, 尾数用双字节纯小数 ( 原码 ) 来表示当尾数的最高位为 1 时, 便称为规格化浮点数, 简称操作数在程序说明中, 也用 [R0] 或 [R1] 来表示 R0 或 R1 指示的浮点操作数, 例如 : 当 [R0]= 时, 则二进制浮点数表示为 83C000H 若(R0)=30H, 则 (30H)=83H,(31H)=0C0H,(32H) =00H 3. 十进制浮点操作数 : 用三个字节表示, 第一个字节的最高位为数符, 其余七位为

2 阶码 ( 二进制补码形式 ), 第二字节为尾数的高字节, 第三字节为尾数的低字节, 尾数用双字节 BCD 码纯小数 ( 原码 ) 来表示当十进制数的绝对值大于 1 时, 阶码就等于整数部分的位数, 如的阶码是 03H, 的阶码是 83H; 当十进制数的绝对值小于 1 时, 阶码就等于 80H 减去小数点后面零的个数, 例如的阶码是 7EH, 的阶码是 0FEH 在程序说明中, 用 [R0] 或 [R1] 来表示 R0 或 R1 指示的十进制浮点操作数例如有一个十进制浮点操作数存放在 30H 31H 32H 中, 数值是 , 即乘以 10 的 -1 次方, 则 (30H)=0FFH,31H=73H,(32H)=15H 若用[R0] 来指向它, 则应使 (R 0)=30H 4. 运算精度 : 单次定点运算精度为结果最低位的当量值 ; 单次二进制浮点算术运算的精度优于十万分之三 ; 单次二进制浮点超越函数运算的精度优于万分之一 ;BCD 码浮点数本身的精度比较低 ( 万分之一到千分之一 ), 不宜作为运算的操作数, 仅用于输入或输出时的数制转换不管那种数据格式, 随着连续运算的次数增加, 精度都会下降 5. 工作区 : 数据工作区固定在 A B R2~R7, 数符或标志工作区固定在 PSW 和 23H 单元 ( 位 1CH~1FH) 在浮点系统中,R2 R3 R4 和位 1FH 为第一工作区,R5 R6 R7 和位 1EH 为第二工作区用户只要不在工作区中存放无关的或非消耗性的信息, 程序就具有较好的透明性 6. 子程序调用范例 : 由于本程序库特别注意了各子程序接口的相容性, 很容易采用积木方式 ( 或流水线方式 ) 完成一个公式的计算以浮点运算为例 : 计算 y = Ln Sin (ab/c+d) 已知 :a=-123.4;b=0.7577;c=56.34;d=1.276; 它们分别存放在 30H 33H 36 H

3 39H 开始的连续三个单元中用 BCD 码浮点数表示时, 分别为 a=831234h;b= H; c=025634h;d=011276h 求解过程 : 通过调用 BTOF 子程序, 将各变量转换成二进制浮点操作数, 再进行各种运算, 最后调用 FTOB 子程序, 还原成十进制形式, 供输出使用程序如下 : TEST: MOV R0,#39H ; 指向 BCD 码浮点操作数 d LCALL BTOF ; 将其转换成二进制浮点操作数 MOV R0,#36H ; 指向 BCD 码浮点操作数 c LCALL BTOF ; 将其转换成二进制浮点操作数 MOV R0,#33H ; 指向 BCD 码浮点操作数 b LCALL BTOF ; 将其转换成二进制浮点操作数 MOV R0,#30H ; 指向 BCD 码浮点操作数 a LCALL BTOF ; 将其转换成二进制浮点操作数 MOV R1,#33H ; 指向二进制浮点操作数 b LCALL FMUL ; 进行浮点乘法运算 MOV R1,#36H ; 指向二进制浮点操作数 c LCALL FDIV ; 进行浮点除法运算 MOV R1,#39H ; 指向二进制浮点操作数 d LCALL FADD ; 进行浮点加法运算 LCALL FSIN ; 进行浮点正弦运算 LCALL FABS ; 进行浮点绝对值运算 LCALL FSQR ; 进行浮点开平方运算 LCALL FLN ; 进行浮点对数运算 LCALL FTOB ; 将结果转换成 BCD 码浮点数 STOP: LJMP STOP END 运行结果,[R0]=804915H, 即 y= , 比较精确的结果应该是 (1) 标号 : FSDT 功能 : 浮点数格式化入口条件 : 待格式化浮点操作数在 [R0] 中出口信息 : 已格式化浮点操作数仍在 [R0] 中

4 影响资源 :PSW A R2 R3 R4 位 1FH 堆栈需求 : 6 字节 FSDT: LCALL MVR0 ; 将待格式化操作数传送到第一工作区中 LCALL RLN ; 通过左规完成格式化 LJMP MOV0 ; 将已格式化浮点操作数传回到 [R0] 中 (2) 标号 : FADD 功能 : 浮点数加法入口条件 : 被加数在 [R0] 中, 加数在 [R1] 中出口信息 :OV=0 时, 和仍在 [R0] 中,OV=1 时, 溢出影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 : 6 字节 FADD: CLR F0 ; 设立加法标志 SJMP AS ; 计算代数和 (3) 标号 : FSUB 功能 : 浮点数减法入口条件 : 被减数在 [R0] 中, 减数在 [R1] 中出口信息 :OV=0 时, 差仍在 [R0] 中,OV=1 时, 溢出影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节 FSUB: SETB F0 ; 设立减法标志 AS: LCALL MVR1 ; 计算代数和先将 [R1] 传送到第二工作区 MOV C,F0 ; 用加减标志来校正第二操作数的有效符号 RRC A XRL A,@R1 MOV C,ACC.7 ASN: MOV 1EH,C ; 将第二操作数的有效符号存入位 1EH 中 XRL A,@R0 ; 与第一操作数的符号比较 MOV F0,C ; 保存比较结果 LCALL MVR0 ; 将 [R0] 传送到第一工作区中 LCALL AS1 ; 在工作寄存器中完成代数运算 MOV0: ; 将结果传回到 [R0] 中的子程序入口 MOV A,R4 ; 传回尾数的低字节

5 MOV A,R3 ; 传回尾数的高字节 MOV A,R2 ; 取结果的阶码 MOV C,1FH ; 取结果的数符 MOV ACC.7,C ; 拼入阶码中 CLR ACC.7 ; 不考虑数符 CLR OV ; 清除溢出标志 CJNE A,#3FH,MV01; 阶码是否上溢? SETB OV ; 设立溢出标志 MV01: MOV A,@R0 ; 取出带数符的阶码 MVR0: MOV A,@R0 ; 将 [R0] 传送到第一工作区中的子程序 MOV C,ACC.7 ; 将数符保存在位 1FH 中 MOV 1FH,C MOV C,ACC.6 ; 将阶码扩充为 8bit 补码 MOV ACC.7,C MOV R2,A ; 存放在 R2 中 MOV A,@R0 ; 将尾数高字节存放在 R3 中 MOV R3,A MOV A,@R0 ; 将尾数低字节存放在 R4 中 MOV R4,A ; 恢复数据指针 MVR1: MOV A,@R1 ; 将 [R1] 传送到第二工作区中的子程序 MOV C,ACC.7 ; 将数符保存在位 1EH 中

6 MOV 1EH,C MOV C,ACC.6 ; 将阶码扩充为 8bit 补码 MOV ACC.7,C MOV R5,A ; 存放在 R5 中 INC R1 MOV A,@R1 ; 将尾数高字节存放在 R6 中 MOV R6,A INC R1 MOV A,@R1 ; 将尾数低字节存放在 R7 中 MOV R7,A DEC R1 ; 恢复数据指针 DEC R1 AS1: MOV A,R6 ; 读取第二操作数尾数高字节 ORL A,R7 JZ AS2 ; 第二操作数为零, 不必运算 MOV A,R3 ; 读取第一操作数尾数高字节 ORL A,R4 JNZ EQ1 MOV A,R6 ; 第一操作数为零, 结果以第二操作数为准 MOV R3,A MOV A,R7 MOV R4,A MOV A,R5 MOV R2,A MOV C,1EH MOV 1FH,C AS2: EQ1: MOV A,R2 ; 对阶, 比较两个操作数的阶码 XRL A,R5 JZ AS4 ; 阶码相同, 对阶结束 JB ACC.7,EQ3; 阶符互异

7 MOV A,R2 ; 阶符相同, 比较大小 CLR C SUBB A,R5 JC EQ4 EQ2: CLR C ; 第二操作数右规一次 MOV A,R6 ; 尾数缩小一半 RRC A MOV R6,A MOV A,R7 RRC A MOV R7,A INC R5 ; 阶码加一 ORL A,R6 ; 尾数为零否? JNZ EQ1 ; 尾数不为零, 继续对阶 MOV A,R2 ; 尾数为零, 提前结束对阶 MOV R5,A SJMP AS4 EQ3: MOV A,R2 ; 判断第一操作数阶符 JNB ACC.7,EQ2; 如为正, 右规第二操作数 EQ4: CLR C LCALL RR1 ; 第一操作数右规一次 ORL A,R3 ; 尾数为零否? JNZ EQ1 ; 不为零, 继续对阶 MOV A,R5 ; 尾数为零, 提前结束对阶 MOV R2,A AS4: JB F0,AS5 ; 尾数加减判断 MOV A,R4 ; 尾数相加 ADD A,R7 MOV R4,A MOV A,R3 ADDC A,R6 MOV R3,A

8 JNC AS2 LJMP RR1 ; 有进位, 右规一次 AS5: CLR C ; 比较绝对值大小 MOV A,R4 SUBB A,R7 MOV B,A MOV A,R3 SUBB A,R6 JC AS6 MOV R4,B ; 第一尾数减第二尾数 MOV R3,A LJMP RLN ; 结果规格化 AS6: CPL 1FH ; 结果的符号与第一操作数相反 CLR C ; 结果的绝对值为第二尾数减第一尾数 MOV A,R7 SUBB A,R4 MOV R4,A MOV A,R6 SUBB A,R3 MOV R3,A RLN: MOV A,R3 ; 浮点数规格化 ORL A,R4 ; 尾数为零否? JNZ RLN1 MOV R2,#0C1H; 阶码取最小值 RLN1: MOV A,R3 JB ACC.7,RLN2; 尾数最高位为一否? CLR C ; 不为一, 左规一次 LCALL RL1 SJMP RLN ; 继续判断 RLN2: CLR OV ; 规格化结束

9 RL1: MOV A,R4 ; 第一操作数左规一次 ; 尾数扩大一倍 MOV R4,A MOV A,R3 MOV R3,A DEC R2 ; 阶码减一 CJNE R2,#0C0H,RL1E; 阶码下溢否? CLR A MOV R3,A ; 阶码下溢, 操作数以零计 MOV R4,A MOV R2,#0C1H RL1E: CLR OV RR1: MOV A,R3 ; 第一操作数右规一次 RRC A ; 尾数缩小一半 MOV R3,A MOV A,R4 RRC A MOV R4,A INC R2 ; 阶码加一 CLR OV ; 清溢出标志 CJNE R2,#40H,RR1E; 阶码上溢否? MOV R2,#3FH ; 阶码溢出 SETB OV RR1E: (4) 标号 : FMUL 功能 : 浮点数乘法入口条件 : 被乘数在 [R0] 中, 乘数在 [R1] 中出口信息 :OV=0 时, 积仍在 [R0] 中,OV=1 时, 溢出影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节

10 FMUL: LCALL MVR0 ; 将 [R0] 传送到第一工作区中 MOV A,@R0 XRL A,@R1 ; 比较两个操作数的符号 MOV 1FH,C ; 保存积的符号 LCALL MUL0 ; 计算积的绝对值 LJMP MOV0 ; 将结果传回到 [R0] 中 MUL0: LCALL MVR1 ; 将 [R1] 传送到第二工作区中 MUL1: MOV A,R3 ; 第一尾数为零否? ORL A,R4 JZ MUL6 MOV A,R6 ; 第二尾数为零否? ORL A,R7 JZ MUL5 MOV A,R7 ; 计算 R3R4 R6R7- R3R4 MOV B,R4 MUL AB MOV A,B XCH A,R7 MOV B,R3 MUL AB ADD A,R7 MOV R7,A CLR A ADDC A,B XCH A,R4 MOV B,R6 MUL AB ADD A,R7 MOV R7,A MOV A,B ADDC A,R4

11 MOV R4,A CLR A XCH A,R3 MOV B,R6 MUL AB ADD A,R4 MOV R4,A MOV A,B ADDC A,R3 MOV R3,A JB ACC.7,MUL2; 积为规格化数否? MOV A,R7 ; 左规一次 MOV R7,A LCALL RL1 MUL2: MOV A,R7 JNB ACC.7,MUL3 INC R4 MOV A,R4 JNZ MUL3 INC R3 MOV A,R3 JNZ MUL3 MOV R3,#80H INC R2 MUL3: MOV A,R2 ; 求积的阶码 ADD A,R5 MD: MOV R2,A ; 阶码溢出判断 JB ACC.7,MUL4 JNB ACC.6,MUL6 MOV R2,#3FH ; 阶码上溢, 设立标志

12 SETB OV MUL4: JB ACC.6,MUL6 MUL5: CLR A ; 结果清零 ( 因子为零或阶码下溢 ) MOV R3,A MOV R4,A MOV R2,#41H MUL6: CLR OV (5) 标号 : FDIV 功能 : 浮点数除法入口条件 : 被除数在 [R0] 中, 除数在 [R1] 中出口信息 :OV=0 时, 商仍在 [R0] 中,OV=1 时, 溢出影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 : 5 字节 FDIV: MOV A,@R0 ORL A,@R0 JNZ DIV1 被除数为零, 不必运算 CLR OV DIV1: INC R1 MOV A,@R1 INC R1 ORL A,@R1 DEC R1 DEC R1 JNZ DIV2

13 SETB OV ; 除数为零, 溢出 DIV2: LCALL MVR0 ; 将 [R0] 传送到第一工作区中 MOV A,@R0 XRL A,@R1 ; 比较两个操作数的符号 MOV 1FH,C ; 保存结果的符号 LCALL MVR1 ; 将 [R1] 传送到第二工作区中 LCALL DIV3 ; 调用工作区浮点除法 LJMP MOV0 ; 回传结果 DIV3: CLR C ; 比较尾数的大小 MOV A,R4 SUBB A,R7 MOV A,R3 SUBB A,R6 JC DIV4 LCALL RR1 ; 被除数右规一次 SJMP DIV3 DIV4: CLR A ; 借用 R0R1R2 作工作寄存器 XCH A,R0 ; 清零并保护之 PUSH ACC CLR A XCH A,R1 PUSH ACC MOV A,R2 PUSH ACC MOV B,#10H ; 除法运算,R3R4/R6R7- R0R1 DIV5: CLR C MOV A,R1 MOV R1,A MOV A,R0

14 MOV R0,A MOV A,R4 MOV R4,A XCH A,R3 XCH A,R3 MOV F0,C CLR C SUBB A,R7 MOV R2,A MOV A,R3 SUBB A,R6 ANL C,/F0 JC DIV6 MOV R3,A MOV A,R2 MOV R4,A INC R1 DIV6: DJNZ B,DIV5 MOV A,R6 ; 四舍五入 CLR C RRC A SUBB A,R3 CLR A ADDC A,R1 ; 将结果存回 R3R4 MOV R4,A CLR A ADDC A,R0 MOV R3,A POP ACC ; 恢复 R0R1R2

15 MOV R2,A POP ACC MOV R1,A POP ACC MOV R0,A MOV A,R2 ; 计算商的阶码 CLR C SUBB A,R5 LCALL MD ; 阶码检验 LJMP RLN ; 规格化 (6) 标号 : FCLR 功能 : 浮点数清零入口条件 : 操作数在 [R0] 中出口信息 : 操作数被清零影响资源 :A 堆栈需求 : 2 字节 FCLR: CLR A (7) 标号 : FZER 功能 : 浮点数判零入口条件 : 操作数在 [R0] 中出口信息 : 若累加器 A 为零, 则操作数 [R0] 为零, 否则不为零影响资源 :A 堆栈需求 : 2 字节 FZER:

16 MOV ORL JNZ ZERO ZERO: (8) 标号 : FMOV 功能 : 浮点数传送入口条件 : 源操作数在 [R1] 中, 目标地址为 [R0] 出口信息 :[R0]=[R1],[R1] 不变影响资源 :A 堆栈需求 : 2 字节 FMOV: INC R1 INC R1 MOV A,@R1 DEC R1 MOV A,@R1 DEC R1 MOV A,@R1 (9) 标号 : FPUS 功能 : 浮点数压栈入口条件 : 操作数在 [R0] 中出口信息 : 操作数压入栈顶

17 影响资源 :A R2 R3 堆栈需求 : 5 字节 FPUS: POP ACC ; 将返回地址保存在 R2R3 中 MOV R2,A POP ACC MOV R3,A MOV A,@R0 ; 将操作数压入堆栈 PUSH ACC MOV A,@R0 PUSH ACC MOV A,@R0 PUSH ACC MOV A,R3 ; 将返回地址压入堆栈 PUSH ACC MOV A,R2 PUSH ACC ; 返回主程序 (10) 标号 : FPOP 功能 : 浮点数出栈入口条件 : 操作数处于栈顶出口信息 : 操作数弹至 [R0] 中影响资源 :A R2 R3 堆栈需求 : 2 字节 FPOP: POP ACC ; 将返回地址保存在 R2R3 中 MOV R2,A POP ACC MOV R3,A

18 POP ACC ; 将操作数弹出堆栈, 传送到 [R0] 中 POP ACC POP ACC MOV A,R3 ; 将返回地址压入堆栈 PUSH ACC MOV A,R2 PUSH ACC ; 返回主程序 (11) 标号 : FCMP 功能 : 浮点数代数值比较 ( 不影响待比较操作数 ) 入口条件 : 待比较操作数分别在 [R0] 和 [R1] 中出口信息 : 若 CY=1, 则 [R0] < [R1], 若 CY=0 且 A=0 则 [R0] = [R1], 否则 [R0] > [R1] 影响资源 :A B PSW 堆栈需求 : 2 字节 FCMP: MOV A,@R0 ; 数符比较 XRL A,@R1 JNB ACC.7,CMP2 MOV A,@R0 ; 两数异号, 以 [R0] 数符为准 MOV A,#0FFH CMP2: MOV A,@R1 ; 两数同号, 准备比较阶码 MOV C,ACC.6 MOV ACC.7,C MOV B,A MOV A,@R0

19 MOV C,ACC.7 MOV F0,C ; 保存 [R0] 的数符 MOV C,ACC.6 MOV ACC.7,C CLR C ; 比较阶码 SUBB A,B JZ CMP6 ; 取阶码之差的符号 JNB F0,CMP5 CPL C ;[R0] 为负时, 结果取反 CMP5: MOV A,#0FFH ; 两数不相等 CMP6: ; 阶码相同时, 准备比较尾数 INC R1 INC R1 CLR C MOV A,@R0 SUBB A,@R1 MOV B,A ; 保存部分差 DEC R1 MOV A,@R0 SUBB A,@R1 DEC R1 ORL A,B ; 生成是否相等信息 JZ CMP7 JNB F0,CMP7 CPL C ;[R0] 为负时, 结果取反 CMP7:

20 (12) 标号 : FABS 功能 : 浮点绝对值函数入口条件 : 操作数在 [R0] 中出口信息 : 结果仍在 [R0] 中影响资源 :A 堆栈需求 : 2 字节 FABS: MOV A,@R0 ; 读取操作数的阶码 CLR ACC.7 ; 清除数符 ; 回传阶码 (13) 标号 : FSGN 功能 : 浮点符号函数入口条件 : 操作数在 [R0] 中出口信息 : 累加器 A=1 时为正数,A=0FFH 时为负数,A=0 时为零影响资源 :PSW A 堆栈需求 : 2 字节 FSGN: ; 读尾数 MOV A,@R0 ORL A,@R0 JNZ SGN ; 尾数为零, 结束 SGN: MOV A,@R0 ; 读取操作数的阶码 ; 取数符 MOV A,#1 ; 按正数初始化 JNC SGN1 ; 是正数, 结束 MOV A,#0FFH ; 是负数, 改变标志 SGN1: (14) 标号 : FINT 功能 : 浮点取整函数

21 入口条件 : 操作数在 [R0] 中出口信息 : 结果仍在 [R0] 中影响资源 :PSW A R2 R3 R4 位 1FH 堆栈需求 : 6 字节 FINT: LCALL MVR0 ; 将 [R0] 传送到第一工作区中 LCALL INT ; 在工作寄存器中完成取整运算 LJMP MOV0 ; 将结果传回到 [R0] 中 INT: MOV A,R3 ORL A,R4 JNZ INTA CLR 1FH ; 尾数为零, 阶码也清零, 结束取整 MOV R2,#41H INTA: MOV A,R2 JZ INTB ; 阶码为零否? JB ACC.7,INTB; 阶符为负否? CLR C SUBB A,#10H ; 阶码小于 16 否? JC INTD ; 阶码大于 16, 已经是整数 INTB: CLR A ; 绝对值小于一, 取整后正数为零, 负数为负一 MOV R4,A MOV C,1FH RRC A MOV R3,A RL A MOV R2,A JNZ INTC MOV R2,#41H INTC: INTD: CLR F0 ; 舍尾标志初始化 INTE: CLR C LCALL RR1 ; 右规一次

22 ORL C,F0 ; 记忆舍尾情况 MOV F0,C CJNE R2,#10H,INTE; 阶码达到 16( 尾数完全为整数 ) 否? JNB F0,INTF ; 舍去部分为零否? JNB 1FH,INTF; 操作数为正数否? INC R4 ; 对于带小数的负数, 向下取整 MOV A,R4 JNZ INTF INC R3 INTF: LJMP RLN ; 将结果规格化 (15) 标号 : FRCP 功能 : 浮点倒数函数入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 溢出影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 : 5 字节 FRCP: MOV A,@R0 MOV C,ACC.7 MOV 1FH,C ; 保存数符 MOV C,ACC.6 ; 绝对值传送到第二工作区 MOV ACC.7,C MOV R5,A MOV A,@R0 MOV R6,A MOV A,@R0 MOV R7,A ORL A,R6 JNZ RCP

23 SETB OV ; 零不能求倒数, 设立溢出标志 RCP: MOV A,R6 JB ACC.7,RCP2; 操作数格式化否? CLR C ; 格式化之 MOV A,R7 MOV R7,A MOV A,R6 MOV R6,A DEC R5 SJMP RCP RCP2: MOV R2,#1 ; 将数值 1.00 传送到第一工作区 MOV R3,#80H MOV R4,#0 LCALL DIV3 ; 调用工作区浮点除法, 求得倒数 LJMP MOV0 ; 回传结果 (16) 标号 : FSQU 功能 : 浮点数平方入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 平方值仍然在 [R0] 中,OV=1 时溢出影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 : 9 字节 FSQU: MOV A,R0 ; 将操作数 XCH A,R1 ; 同时作为乘数 PUSH ACC ; 保存 R1 指针 LCALL FMUL ; 进行乘法运算 POP ACC MOV R1,A ; 恢复 R1 指针 (17) 标号 : FSQR 功能 : 浮点数开平方 ( 快速逼近算法 )

24 入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 平方根仍在 [R0] 中,OV=1 时, 负数开平方出错影响资源 :PSW A B R2~R7 堆栈需求 : 2 字节 FSQR: MOV A,@R0 JNB ACC.7,SQR SETB OV ; 负数开平方, 出错 SQR: MOV A,@R0 ORL A,@R0 JNZ SQ 尾数为零, 不必运算 CLR OV SQ: MOV A,@R0 MOV C,ACC.6 ; 将阶码扩展成 8bit 补码 MOV ACC.7,C INC A ; 加一 CLR C RRC A ; 除二 ; 得到平方根的阶码, 回存之 ; 指向被开方数尾数的高字节 JC SQR0 ; 原被开方数的阶码是奇数吗? MOV A,@R0 ; 是奇数, 尾数右规一次 RRC A MOV A,@R0 RRC A

25 SQR0: MOV JZ SQR9 ; 尾数为零, 不必运算 MOV R2,A ; 将尾数传送到 R2R3 中 MOV A,@R0 MOV R3,A MOV A,R2 ; 快速开方, 参阅定点子程序说明 ADD A,#57H JC SQR2 ADD A,#45H JC SQR1 ADD A,#24H MOV B,#0E3H MOV R4,#80H SJMP SQR3 SQR1: MOV B,#0B2H MOV R4,#0A0H SJMP SQR3 SQR2: MOV B,#8DH MOV R4,#0D0H SQR3: MUL AB MOV A,B ADD A,R4 MOV R4,A MOV B,A MUL AB XCH A,R3 CLR C SUBB A,R3 MOV R3,A

26 MOV A,B XCH A,R2 SUBB A,R2 MOV R2,A SQR4: SETB C MOV A,R4 MOV R6,A CLR A MOV R5,A MOV A,R3 SUBB A,R6 MOV B,A MOV A,R2 SUBB A,R5 JC SQR5 INC R4 MOV R2,A MOV R3,B SJMP SQR4 SQR5: MOV A,R4 XCH A,R2 RRC A MOV F0,C MOV A,R3 MOV R5,A MOV R4,#8 SQR6: CLR C MOV A,R3 MOV R3,A

27 CLR C MOV A,R5 SUBB A,R2 JB F0,SQR7 JC SQR8 SQR7: MOV R5,A INC R3 SQR8: CLR C MOV A,R5 MOV R5,A MOV F0,C DJNZ R4,SQR6 MOV A,R3 ; 将平方根的尾数回传到 [R0] 中 MOV A,R2 SQR9: ; 数据指针回归原位 CLR OV ; 开方结果有效 (18) 标号 : FPLN 功能 : 浮点数多项式计算入口条件 : 自变量在 [R0] 中, 多项式系数在调用指令之后, 以 40H 结束出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 溢出影响资源 :DPTR PSW A B R2~R7 位 1EH 1FH 堆栈需求 : 4 字节 FPLN: POP DPH ; 取出多项式系数存放地址 POP DPL XCH A,R0 ;R0 R1 交换角色, 自变量在 [R1] 中 XCH A,R1 XCH A,R0

28 CLR A ; 清第一工作区 MOV R2,A MOV R3,A MOV R4,A CLR 1FH PLN1: CLR A ; 读取一个系数, 并装入第二工作区 MOVC A,@A+DPTR MOV C,ACC.7 MOV 1EH,C MOV C,ACC.6 MOV ACC.7,C MOV R5,A INC DPTR CLR A MOVC A,@A+DPTR MOV R6,A INC DPTR CLR A MOVC A,@A+DPTR MOV R7,A INC DPTR ; 指向下一个系数 MOV C,1EH ; 比较两个数符 RRC A XRL A,23H MOV F0,C ; 保存比较结果 LCALL AS1 ; 进行代数加法运算 CLR A ; 读取下一个系数的第一个字节 MOVC A,@A+DPTR CJNE A,#40H,PLN2; 是结束标志吗? XCH A,R0 ; 运算结束, 恢复 R0 R1 原来的角色 XCH A,R1

29 XCH A,R0 LCALL MOV0 ; 将结果回传到 [R0] 中 CLR A INC DPTR ; 返回主程序 PLN2: MOV A,@R1 ; 比较自变量和中间结果的符号 XRL A,23H MOV 1FH,C ; 保存比较结果 LCALL MUL0 ; 进行乘法运算 SJMP PLN1 ; 继续下一项运算 (19) 标号 : FLOG 功能 : 以 10 为底的浮点对数函数入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 负数或零求对数出错影响资源 :DPTR PSW A B R2~R7 位 1EH 1FH 堆栈需求 :9 字节 FLOG: LCALL FLN ; 先以 e 为底求对数 JNB OV,LOG ; 如溢出则停止计算 LOG: MOV R5,#0FFH; 系数 (1/Ln10) MOV R6,#0DEH MOV R7,#5CH LCALL MUL1 ; 通过相乘来换底 LJMP MOV0 ; 传回结果 (20) 标号 : FLN 功能 : 以 e 为底的浮点对数函数入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 负数或零求对数出错影响资源 :DPTR PSW A B R2~R7 位 1EH 1FH 堆栈需求 : 7 字节 FLN: LCALL MVR0 ; 将 [R0] 传送到第一工作区

30 JB 1FH,LNOV; 负数或零求对数, 出错 MOV A,R3 ORL A,R4 JNZ LN0 LNOV: SETB OV LN0: CLR C LCALL RL1 ; 左规一次 CLR A XCH A,R2 ; 保存原阶码, 清零工作区的阶码 PUSH ACC LCALL RLN ; 规格化 LCALL MOV0 ; 回传 LCALL FPLN ; 用多项式计算尾数的对数 DB 7BH,0F4H,30H; DB 0FEH,85H,13H; DB 7FH,91H,51H; DB 0FFH,0FAH,0BAH; DB 0,0FFH,0CAH; DB 70H,0C0H,0; DB 40H ; 结束 POP ACC ; 取出原阶码 JNZ LN1 ; 如为零, 则结束 LN1: CLR 1EH ; 清第二区数符 MOV C,ACC.7 MOV F0,C ; 保存阶符 JNC LN2 CPL A ; 当阶码为负时, 求其绝对值 INC A LN2: MOV R2,A ; 阶码的绝对值乘以 MOV B,#72H

31 MUL AB XCH A,R2 MOV R7,B MOV B,#0B1H MUL AB ADD A,R7 MOV R7,A ; 乘积的尾数在 R6R7R2 中 CLR A ADDC A,B MOV R6,A MOV R5,#8 ; 乘积的阶码初始化 ( 整数部分为一字节 ) LN3: JB ACC.7,LN4; 乘积格式化 MOV A,R2 MOV R2,A MOV A,R7 MOV R7,A MOV A,R6 MOV R6,A DEC R5 SJMP LN3 LN4: MOV C,F0 ; 取出阶符, 作为乘积的数符 MOV ACC.7,C LJMP ASN ; 与尾数的对数合并, 得原操作数的对数 (21) 标号 : FE10 功能 : 以 10 为底的浮点指数函数入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 溢出影响资源 :DPTR PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节

32 FE10: MOV R5,#2 ; 加权系数为 (Log210) MOV R6,#0D4H MOV R7,#9AH SJMP EXP ; 先进行加权运算, 后以 2 为底统一求幂 (22) 标号 : FEXP 功能 : 以 e 为底的浮点指数函数入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 溢出影响资源 :DPTR PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节 FEXP: MOV R5,#1 ; 加权系数为 (Lng2e) MOV R6,#0B8H MOV R7,#0ABH EXP: CLR 1EH ; 加权系数为正数 LCALL MVR0 ; 将 [R0] 传送到第一工作区 LCALL MUL1 ; 进行加权运算 SJMP E20 ; 以 2 为底统一求幂 (23) 标号 : FE2 功能 : 以 2 为底的浮点指数函数入口条件 : 操作数在 [R0] 中出口信息 :OV=0 时, 结果仍在 [R0] 中,OV=1 时, 溢出影响资源 :DPTR PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节 FE2: LCALL MVR0 ; 将 [R0] 传送到第一工作区 E20: MOV A,R3 ORL A,R4 JZ EXP1 ; 尾数为零 MOV A,R2 JB ACC.7,EXP2; 阶符为负? SETB C SUBB A,#6 ; 阶码大于 6 否? JC EXP2 JB 1FH,EXP0; 数符为负否?

33 正指数过大, 幂溢出 SETB OV EXP0: 负指数过大, 幂下溢, 清零处理 CLR A CLR OV EXP1: ; 指数为零, 幂为 CLR OV EXP2: MOV A,R2 ; 将指数复制到第二工作区 MOV R5,A MOV A,R3 MOV R6,A

34 MOV A,R4 MOV R7,A MOV C,1FH MOV 1EH,C LCALL INT ; 对第一区取整 MOV A,R3 JZ EXP4 EXP3: CLR C ; 使尾数高字节 R3 对应一个字节整数 RRC A INC R2 CJNE R2,#8,EXP3 EXP4: MOV R3,A JNB 1FH,EXP5 CPL A ; 并用补码表示 INC A EXP5: PUSH ACC ; 暂时保存之 LCALL RLN ; 重新规格化 CPL 1FH SETB F0 LCALL AS1 ; 求指数的小数部分 LCALL MOV0 ; 回传指数的小数部分 LCALL FPLN ; 通过多项式计算指数的小数部分的幂 DB 77H,0B1H,0C9H; DB 7AH,0A1H,68H; DB 7CH,0E3H,4FH; DB 7EH,0F5H,0E7H; DB 0,0B1H,72H; DB 1,80H,0 ; DB 40H ; 结束 POP ACC ; 取出指数的整数部分 ADD A,R2 ; 按补码加到幂的阶码上 MOV R2,A

35 CLR 1FH ; 幂的符号为正 LJMP MOV0 ; 将幂传回 [R0] 中 (24) 标号 : DTOF 功能 : 双字节十六进制定点数转换成格式化浮点数入口条件 : 双字节定点数的绝对值在 [R0] 中, 数符在位 1FH 中, 整数部分的位数在 A 中出口信息 : 转换成格式化浮点数在 [R0] 中 ( 三字节 ) 影响资源 :PSW A R2 R3 R4 位 1FH 堆栈需求 : 6 字节 DTOF: MOV R2,A ; 按整数的位数初始化阶码 MOV A,@R0 ; 将定点数作尾数 MOV R3,A MOV A,@R0 MOV R4,A LCALL RLN ; 进行规格化 LJMP MOV0 ; 传送结果到 [R0] 中 (25) 标号 : FTOD 功能 : 格式化浮点数转换成双字节定点数入口条件 : 格式化浮点操作数在 [R0] 中出口信息 :OV=1 时溢出,OV=0 时转换成功 : 定点数的绝对值在 [R0] 中 ( 双字节 ), 数符在位 1FH 中,F0=1 时为整数,CY=1 时为一字节整数一字节小数, 否则为纯小数影响资源 :PSW A B R2 R3 R4 位 1FH 堆栈需求 : 6 字节 FTOD: LCALL MVR0 ; 将 [R0] 传送到第一工作区 MOV A,R2 JZ FTD4 ; 阶码为零, 纯小数 JB ACC.7,FTD4; 阶码为负, 纯小数 SETB C SUBB A,#10H JC FTD1

36 SETB OV ; 阶码大于 16, 溢出 FTD1: SETB C MOV A,R2 SUBB A,#8 ; 阶码大于 8 否? JC FTD3 FTD2: MOV B,#10H ; 阶码大于 8, 按双字节整数转换 LCALL FTD8 SETB F0 ; 设立双字节整数标志 CLR C CLR OV FTD3: MOV B,#8 ; 按一字节整数一字节小数转换 LCALL FTD8 SETB C ; 设立一字节整数一字节小数标志 CLR F0 CLR OV FTD4: MOV B,#0 ; 按纯小数转换 LCALL FTD8 CLR OV ; 设立纯小数标志 CLR F0 CLR C FTD8: MOV A,R2 ; 按规定的整数位数进行右规 CJNE A,B,FTD9 MOV A,R3 ; 将双字节结果传送到 [R0] 中 MOV A,R4

37 FTD9: CLR C LCALL RR1 ; 右规一次 SJMP FTD8 (26) 标号 : BTOF 功能 : 浮点 BCD 码转换成格式化浮点数入口条件 : 浮点 BCD 码操作数在 [R0] 中出口信息 : 转换成的格式化浮点数仍在 [R0] 中影响资源 :PSW A B R2~R7 位 1DH~1FH 堆栈需求 :6 字节 BTOF: ; 判断是否为零 MOV A,@R0 MOV R7,A MOV A,@R0 MOV R6,A ORL A,R7 JNZ BTF0 为零, 转换结束 BTF0: MOV A,@R0 MOV C,ACC.7 MOV 1DH,C ; 保存数符 CLR 1FH ; 以绝对值进行转换 MOV C,ACC.6 ; 扩充阶码为八位 MOV ACC.7,C JNC BTF1 ADD A,#19 ; 是否小于 1E-19? JC BTF2

38 小于 1E-19 时以 0 计 BTF1: SUBB A,#19 JC BTF2 MOV A,#3FH ; 大于 1E19 时封顶 MOV C,1DH MOV ACC.7,C BTF2: CLR A ; 准备将 BCD 码尾数转换成十六进制浮点数 MOV R4,A MOV R3,A MOV R2,#10H ; 至少两个字节 BTF3: MOV A,R7 ADD A,R7 DA A MOV R7,A MOV A,R6 ADDC A,R6 DA A

39 MOV R6,A MOV A,R4 MOV R4,A MOV A,R3 MOV R3,A DEC R2 JNB ACC.7,BTF3; 直到尾数规格化 MOV A,R6 ; 四舍五入 ADD A,#0B0H CLR A ADDC A,R4 MOV R4,A CLR A ADDC A,R3 MOV R3,A JNC BTF4 MOV R3,#80H INC R2 BTF4: MOV DPTR,#BTFL; 准备查表得到十进制阶码对应的浮点数 MOV A,@R0 ADD A,#19 ; 计算表格偏移量 MOV B,#3 MUL AB ADD A,DPL MOV DPL,A JNC BTF5 INC DPH BTF5: CLR A ; 查表 MOVC A,@A+DPTR MOV C,ACC.6

40 MOV ACC.7,C MOV R5,A MOV A,#1 MOVC MOV R6,A MOV A,#2 MOVC MOV R7,A LCALL MUL1 ; 将阶码对应的浮点数和尾数对应的浮点数相乘 MOV C,1DH ; 取出数符 MOV 1FH,C LJMP MOV0 ; 传送转换结果 (27) 标号 : FTOB 功能 : 格式化浮点数转换成浮点 BCD 码入口条件 : 格式化浮点操作数在 [R0] 中出口信息 : 转换成的浮点 BCD 码仍在 [R0] 中影响资源 :PSW A B R2~R7 位 1DH~1FH 堆栈需求 :6 字节 FTOB: MOV A,@R0 ORL A,@R0 JNZ FTB0 FTB0: MOV A,@R0 MOV C,ACC.7 MOV 1DH,C CLR ACC.7

41 LCALL MVR0 MOV DPTR,#BFL0; 绝对值大于或等于 1 时的查表起点 MOV B,#0 ; 十的 0 次幂 MOV A,R2 JNB ACC.7,FTB1 MOV DPTR,#BTFL; 绝对值小于 1E-6 时的查表起点 MOV B,#0EDH ; 十的 -19 次幂 ADD A,#16 JNC FTB1 MOV DPTR,#BFLN; 绝对值大于或等于 1E-6 时的查表起点 MOV B,#0FAH ; 十的 -6 次幂 FTB1: CLR A ; 查表, 找到一个比待转换浮点数大的整数幂 MOVC A,@A+DPTR MOV C,ACC.6 MOV ACC.7,C MOV R5,A MOV A,#1 MOVC A,@A+DPTR MOV R6,A MOV A,#2 MOVC A,@A+DPTR MOV R7,A MOV A,R5 ; 和待转换浮点数比较 CLR C SUBB A,R2 JB ACC.7,FTB2; 差为负数 JNZ FTB3 MOV A,R6 CLR C SUBB A,R3 JC FTB2 JNZ FTB3

42 MOV A,R7 CLR C SUBB A,R4 JC FTB2 JNZ FTB3 MOV R5,B ; 正好是表格中的数 INC R5 ; 幂加一 MOV R6,#10H ; 尾数为 MOV R7,#0 SJMP FTB6 ; 传送转换结果 FTB2: INC DPTR ; 准备表格下一项 INC DPTR INC DPTR INC B ; 幂加一 SJMP FTB1 ; FTB3: PUSH B ; 保存幂值 LCALL DIV3 ; 相除, 得到一个二进制浮点数的纯小数 FTB4: MOV A,R2 ; 取阶码 JZ FTB5 ; 为零吗? CLR C LCALL RR1 ; 右规 SJMP FTB4 FTB5: POP ACC ; 取出幂值 MOV R5,A ; 作为十进制浮点数的阶码 LCALL HB2 ; 转换尾数的十分位和百分位 MOV R6,A LCALL HB2 ; 转换尾数的千分位和万分位 MOV R7,A MOV A,R3 ; 四舍五入 CLR A ADDC A,R7

43 DA A MOV R7,A CLR A ADDC A,R6 DA A MOV R6,A JNC FTB6 MOV R6,#10H INC R5 FTB6: ; 存放转换结果 MOV A,R7 MOV A,R6 MOV A,R5 MOV C,1DH ; 取出数符 MOV ACC.7,C HB2: MOV A,R4 ; 尾数扩大 100 倍 MOV B,#100 MUL AB MOV R4,A MOV A,B XCH A,R3 MOV B,#100 MUL AB ADD A,R3 MOV R3,A

44 JNC HB21 INC B HB21: MOV A,B ; 将整数部分转换成 BCD 码 MOV B,#10 DIV AB SWAP A ORL A,B BTFL: DB 41H,0ECH,1EH ;1.0000E-19 DB 45H,93H,93H ;1.0000E-18 DB 48H,0B8H,78H ;1.0000E-17 DB 4BH,0E6H,96H ;1.0000E-16 DB 4FH,90H,1DH ;1.0000E-15 DB 52H,0B4H,25H ;1.0000E-14 DB 55H,0E1H,2EH ;1.0000E-13 DB 59H,8CH,0BDH ;1.0000E-12 DB 5CH,0AFH,0ECH ;1.0000E-11 DB 5FH,0DBH,0E7H ;1.0000E-10 DB 63H,89H,70H ;1.0000E-9 DB 66H,0ABH,0CCH ;1.0000E-8 DB 69H,0D6H,0C0H ;1.0000E-7 BFLN: DB 6DH,86H,38H ;1.0000E-6 DB 70H,0A7H,0C6H ;1.0000E-5 DB 73H,0D1H,0B7H ;1.0000E-4 DB 77H,83H,12H ;1.0000E-3 DB 7AH,0A3H,0D7H ;1.0000E-2 DB 7DH,0CCH,0CDH ;1.0000E-1 BFL0: DB 1,80H,00H ; DB 4,0A0H,00H ;1.0000E1 DB 7,0C8H,00H ;1.0000E2 DB 0AH,0FAH,00H ;1.0000E3 DB 0EH,9CH,40H ;1.0000E4

45 DB 11H,0C3H,50H ;1.0000E5 DB 14H,0F4H,24H ;1.0000E6 DB 18H,98H,97H ;1.0000E7 DB 1BH,0BEH,0BCH ;1.0000E8 DB 1EH,0EEH,6BH ;1.0000E9 DB 22H,95H,03H ;1.0000E10 DB 25H,0BAH,44H ;1.0000E11 DB 28H,0E8H,0D5H ;1.0000E12 DB 2CH,91H,85H ;1.0000E13 DB 2FH,0B5H,0E6H ;1.0000E14 DB 32H,0E3H,60H ;1.0000E15 DB 36H,8EH,1CH ;1.0000E16 DB 39H,31H,0A3H ;1.0000E17 DB 3CH,0DEH,0BH ;1.0000E18 DB 40H,8AH,0C7H ;1.0000E19 (28) 标号 : FCOS 功能 : 浮点余弦函数入口条件 : 操作数在 [R0] 中出口信息 : 结果仍在 [R0] 中影响资源 :DPTR PSW A B R2~R7 位 1DH~1FH 堆栈需求 : 6 字节 FCOS: LCALL FABS ;COS(-X) = COS X MOV R5,#1 ; 常数 (π/2) MOV R6,#0C9H MOV R7,#10H CLR 1EH LCALL MVR0 CLR F0 LCALL AS1 ;x+(π/2) LCALL MOV0 ; 保存结果, 接着运行下面的 FSIN 程序 (29) 标号 : FSIN 功能 : 浮点正弦函数

46 入口条件 : 操作数在 [R0] 中出口信息 : 结果仍在 [R0] 中影响资源 :DPTR PSW A B R2~R7 位 1DH~1FH 堆栈需求 : 6 字节 FSIN: MOV A,@R0 MOV C,ACC.7 MOV 1DH,C ; 保存自变量的符号 CLR ACC.7 ; 统一按正数计算 LCALL MVR0 ; 将 [R0] 传送到第一工作区 MOV R5,#0 ; 系数 (2/π) MOV R6,#0A2H MOV R7,#0FAH CLR 1EH LCALL MUL1 ; 相乘, 自变量按 (π/2) 规一化 MOV A,R2 ; 将结果复制到第二区 MOV R5,A MOV A,R3 MOV R6,A MOV A,R4 MOV R7,A LCALL INT ; 第一区取整, 获得象限信息 MOV A,R2 JZ SIN2 SIN1: CLR C ; 将浮点象限数转换成定点象限数 LCALL RR1 CJNE R2,#10H,SIN1 MOV A,R4 JNB ACC.1,SIN2 CPL 1DH ; 对于第三四象限, 结果取反 SIN2: JB ACC.0,SIN3 CPL 1FH ; 对于第一三象限, 直接求规一化的小数 SJMP SIN4

47 SIN3: MOV A,R4 ; 对于第二四象限, 准备求其补数 INC A MOV R4,A JNZ SIN4 INC R3 SIN4: LCALL RLN ; 规格化 SETB F0 LCALL AS1 ; 求自变量归一化等效值 LCALL MOV0 ; 回传 LCALL FPLN ; 用多项式计算正弦值 DB 7DH,93H,28H; DB 41H,0,0 ;0 DB 80H,0A4H,64H; DB 41H,0,0 ;0 DB 1,0C9H,2; DB 41H,0,0 ;0 DB 40H ; 结束 MOV A,@R0 ; 结果的绝对值超过 1.00 吗? JZ SIN5 JB ACC.6,SIN5 ; 绝对值按 1.00 封顶 MOV A,#1 SIN5: MOV C,1DH ; 将数符拼入结果中 MOV ACC.7,C

48 (30) 标号 : FATN 功能 : 浮点反正切函数入口条件 : 操作数在 [R0] 中出口信息 : 结果仍在 [R0] 中影响资源 :DPTR PSW A B R2~R7 位 1CH~1FH 堆栈需求 :7 字节 FATN: MOV A,@R0 MOV C,ACC.7 MOV 1DH,C ; 保存自变量数符 CLR ACC.7 ; 自变量取绝对值 CLR 1CH ; 清求余运算标志 JB ACC.6,ATN1; 自变量为纯小数否? JZ ATN1 SETB 1CH ; 置位求余运算标志 LCALL FRCP ; 通过倒数运算, 转换成纯小数 ATN1: LCALL FPLN ; 通过多项式运算, 计算反正切函数值 DB 0FCH,0E4H,91H; DB 7FH,8FH,37H; DB 0FFH,0EDH,0E0H; DB 7BH,0E8H,77H; DB 0,0FFH,68H; DB 72H,85H,0ECH; DB 40H ; 结束 JNB 1CH,ATN2; 需要求余运算否? CPL 1FH ; 准备运算标志 MOV C,1FH MOV F0,C ; 常数 (π/2) MOV R5,#1 MOV R6,#0C9H MOV R7,#10H LCALL AS1 ; 求余运算

49 LCALL MOV0 ; 回传 ATN2: MOV A,@R0 ; 拼入结果的数符 MOV C,1DH MOV ACC.7,C (31) 标号 : RTOD 功能 : 浮点弧度数转换成浮点度数入口条件 : 浮点弧度数在 [R0] 中出口信息 : 转换成的浮点度数仍在 [R0] 中影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节 RTOD: MOV R5,#6 ; 系数 (180/π) 传送到第二工作区 MOV R6,#0E5H MOV R7,#2FH SJMP DR ; 通过乘法进行转换 (32) 标号 : DTOR 功能 : 浮点度数转换成浮点弧度数入口条件 : 浮点度数在 [R0] 中出口信息 : 转换成的浮点弧度数仍在 [R0] 中影响资源 :PSW A B R2~R7 位 1EH 1FH 堆栈需求 :6 字节 DTOR: MOV R5,#0FBH; 系数 (π/180) 传送到第二工作区 MOV R6,#8EH MOV R7,#0FAH DR: LCALL MVR0 ; 将 [R0] 传送到第一工作区 CLR 1EH ; 系数为正 LCALL MUL1 ; 通过乘法进行转换 LJMP MOV0 ; 结果传送到 [R0] 中 END

呕血推荐51程序库，希望大家能资源共享

呕血推荐51程序库，希望大家能资源共享 MCS-51 ; RAM IBCLR: MOV A,R0 MOV R1,A IBC1 : MOV @R1,A INC R1 DJNZ R7,IBC1 ; RAM EBCLR1: MOV A,ADDPL MOV DPL,A MOV A,ADDPH MOV DPH,A EBC11: MOVX @DPTR,A INC DPTR DJNZ R7,EBC11 ; RAM ( ) EBCLR2: MOV A,ADDPL