DB 7FH,8FH,37H ；０．２７９２２
DB 0FFH,0EDH,0E0H ；－０．４６４６０ DB 7BH,0E8H,77H ；０．０２８３７７ DB 0,0FFH,68H ；０．９９７７
DB 72H,85H,0ECH ；３．１９３０×１０ -5 DB 40H ；结束
JNB 1CH,ATN2 ；需要求余运算否？ CPL 1FH ；准备运算标志 MOV C,1FH
MOV F0,C ；常数１．５７０８（π／２） MOV R5,#1 MOV R6,#0C9H MOV R7,#10H
LCALL AS1 ；求余运算 LCALL MOV0 ；回传
ATN2: MOV A,@R0 ；拼入结果的数符 MOV C,1DH MOV ACC.7,C MOV @R0,A RET
（31） 标号： ＲＴＯＤ 功能：浮点弧度数转换成浮点度数 入口条件：浮点弧度数在 [R0] 中。
出口信息：转换成的浮点度数仍在 [R0] 中。
影响资源： PSW 、 A 、 B 、 R2 ～ R7 、位 1EH 、 1FH 堆栈需求：６字节 RTOD: MOV R5,#6 ；系数（１８０／π）传送到第二工作区 MOV R6,#0E5H MOV R7,#2FH
SJMP DR ；通过乘法进行转换
（32） 标号： ＤＴＯＲ 功能：浮点度数转换成浮点弧度数 入口条件：浮点度数在 [R0] 中。
出口信息：转换成的浮点弧度数仍在 [R0] 中。
影响资源： PSW 、 A 、 B 、 R2 ～ R7 、位 1EH 、 1FH 堆栈需求：６字节 DTOR: MOV R5,#0FBH ；系数（π／１８０）传送到第二工作区 MOV R6,#8EH MOV R7,#0FAH
DR: LCALL MVR0 ；将 [R0] 传送到第一工作区 CLR 1EH ；系数为正
LCALL MUL1 ；通过乘法进行转换 LJMP MOV0 ；结果传送到 [R0] 中 END