易语言MASM置入代码判断 IEEE754编码 小数型/双精度小数型 是否运算正确 (返回逻辑型)

EAX

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 小数, 小数型
    
14. .局部变量 双精度小数, 双精度小数型
    
15. .局部变量 小数正确, 逻辑型
    
16. .局部变量 双精度小数正确, 逻辑型
    
17. 
    
18. 置随机数种子 ()
    
19. .判断循环首 (真)
    
20.     小数 ＝ 取随机小数 ()
    
21.     双精度小数 ＝ 取随机双精度小数 ()
    
22.     小数正确 ＝ 小数型_是否运算正确 (小数)
    
23.     双精度小数正确 ＝ 双精度小数型_是否运算正确 (双精度小数)
    
24.     .如果真 (小数正确 ≠ 是否运算正确 (小数))
    
25.         暂停 ()
    
26.     .如果真结束
    
27.     .如果真 (双精度小数正确 ≠ 是否运算正确 (双精度小数))
    
28.         暂停 ()
    
29.     .如果真结束
    
30.     .如果真 (小数正确 ＝ 假)
    
31.         调试输出 (小数)
    
32.     .如果真结束
    
33.     .如果真 (双精度小数正确 ＝ 假)
    
34.         调试输出 (双精度小数)
    
35.     .如果真结束
    
36. 
    
37. .判断循环尾 ()
    
38. 
    
39. 
    
40. 
    
41. .子程序 小数型_是否运算正确, 逻辑型, 公开
    
42. .参数 欲校验的计算结果, 小数型
    
43. 
    
44. 置入代码 ({ 139, 69, 8, 37, 0, 0, 128, 127, 61, 0, 0, 128, 127, 117, 4, 51, 192, 235, 5, 184, 1, 0, 0, 0, 201, 194, 4, 0 })
    
45. ' mov eax,[ebp+8]
    
46. ' and eax,2139095040
    
47. ' .if eax == 2139095040
    
48. ' xor eax,eax
    
49. ' .else
    
50. ' mov eax,1
    
51. ' .endif
    
52. ' leave
    
53. ' retn 4
    
54. 返回 (假)
    
55. 
    
56. .子程序 双精度小数型_是否运算正确, 逻辑型, 公开
    
57. .参数 欲校验的计算结果, 双精度小数型
    
58. 
    
59. 置入代码 ({ 139, 69, 12, 37, 0, 0, 240, 127, 61, 0, 0, 240, 127, 117, 4, 51, 192, 235, 5, 184, 1, 0, 0, 0, 201, 194, 8, 0 })
    
60. ' mov eax,[ebp+12]
    
61. ' and eax,2146435072
    
62. ' .if eax == 2146435072
    
63. ' xor eax,eax
    
64. ' .else
    
65. ' mov eax,1
    
66. ' .endif
    
67. ' leave
    
68. ' retn 8
    
69. 
    
70. 返回 (假)
    
71. 
    
72. .子程序 取随机小数, 小数型
    
73. .局部变量 字节集, 字节集, 静态
    
74. .局部变量 计数, 整数型
    
75. 
    
76. .如果真 (取字节集长度 (字节集) ≠ 4)
    
77.     字节集 ＝ 取空白字节集 (4)
    
78. .如果真结束
    
79. .计次循环首 (4, 计数)
    
80.     字节集 [计数] ＝ 取随机数 (0, 32767)
    
81. .计次循环尾 ()
    
82. 返回 (取字节集数据 (字节集, #小数型, ))
    
83. 
    
84. .子程序 取随机双精度小数, 双精度小数型
    
85. .局部变量 字节集, 字节集, 静态
    
86. .局部变量 计数, 整数型
    
87. 
    
88. .如果真 (取字节集长度 (字节集) ≠ 8)
    
89.     字节集 ＝ 取空白字节集 (8)
    
90. .如果真结束
    
91. .计次循环首 (8, 计数)
    
92.     字节集 [计数] ＝ 取随机数 (, )
    
93. .计次循环尾 ()
    
94. 返回 (取字节集数据 (字节集, #双精度小数型, ))
    

复制代码