易语言置入代码实现长整数型、双精度小数型、日期时间型数组填充为指定值 (无返回值)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 A, 双精度小数型, , "0"
    
15. .局部变量 B, 长整数型, , "0"
    
16. .局部变量 C, 日期时间型, , "0"
    
17. 
    
18. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
19. 重定义数组 (A, 假, 100)
    
20. 重定义数组 (B, 假, 100)
    
21. 重定义数组 (C, 假, 100)
    
22. 双精度小数型数组_填充 (A, #pi)
    
23. 调试输出 (A)
    
24. 长整数型数组_填充 (B, 1.234567890123e+014)
    
25. 调试输出 (B)
    
26. 日期时间型数组_填充 (C, 取现行时间 ())
    
27. 调试输出 (C)
    
28. 
    
29. .子程序 双精度小数型数组_填充, , 公开
    
30. .参数 数组, 双精度小数型, 参考 数组
    
31. .参数 填充值, 双精度小数型
    
32. 
    
33. 置入代码 ({ 96, 139, 93, 8, 139, 27, 139, 75, 4, 131, 195, 8, 139, 69, 12, 139, 85, 16, 86, 51, 246, 235, 8, 137, 4, 243, 137, 84, 243, 4, 70, 59, 241, 114, 244, 94, 97, 201, 194, 12, 0 })
    
34. ' pusha
    
35. ' mov ebx,[ebp+8]
    
36. ' mov ebx,[ebx]
    
37. ' mov ecx,[ebx+4]
    
38. ' add ebx,8
    
39. ' mov eax,[ebp+12]
    
40. ' mov edx,[ebp+16]
    
41. ' push esi
    
42. ' xor esi,esi
    
43. ' .while esi<ecx
    
44. ' mov [ebx+esi*8],eax
    
45. ' mov [ebx+esi*8+4],edx
    
46. ' inc esi
    
47. ' .endw
    
48. ' pop esi
    
49. ' popa
    
50. ' leave
    
51. ' retn 12
    
52. 
    
53. 
    
54. 
    
55. .子程序 长整数型数组_填充, , 公开
    
56. .参数 数组, 长整数型, 参考 数组
    
57. .参数 填充值, 长整数型
    
58. 
    
59. 置入代码 ({ 96, 139, 93, 8, 139, 27, 139, 75, 4, 131, 195, 8, 139, 69, 12, 139, 85, 16, 86, 51, 246, 235, 8, 137, 4, 243, 137, 84, 243, 4, 70, 59, 241, 114, 244, 94, 97, 201, 194, 12, 0 })
    
60. ' pusha
    
61. ' mov ebx,[ebp+8]
    
62. ' mov ebx,[ebx]
    
63. ' mov ecx,[ebx+4]
    
64. ' add ebx,8
    
65. ' mov eax,[ebp+12]
    
66. ' mov edx,[ebp+16]
    
67. ' push esi
    
68. ' xor esi,esi
    
69. ' .while esi<ecx
    
70. ' mov [ebx+esi*8],eax
    
71. ' mov [ebx+esi*8+4],edx
    
72. ' inc esi
    
73. ' .endw
    
74. ' pop esi
    
75. ' popa
    
76. ' leave
    
77. ' retn 12
    
78. 
    
79. 
    
80. 
    
81. .子程序 日期时间型数组_填充, , 公开
    
82. .参数 数组, 日期时间型, 参考 数组
    
83. .参数 填充值, 日期时间型
    
84. 
    
85. 置入代码 ({ 96, 139, 93, 8, 139, 27, 139, 75, 4, 131, 195, 8, 139, 69, 12, 139, 85, 16, 86, 51, 246, 235, 8, 137, 4, 243, 137, 84, 243, 4, 70, 59, 241, 114, 244, 94, 97, 201, 194, 12, 0 })
    
86. ' pusha
    
87. ' mov ebx,[ebp+8]
    
88. ' mov ebx,[ebx]
    
89. ' mov ecx,[ebx+4]
    
90. ' add ebx,8
    
91. ' mov eax,[ebp+12]
    
92. ' mov edx,[ebp+16]
    
93. ' push esi
    
94. ' xor esi,esi
    
95. ' .while esi<ecx
    
96. ' mov [ebx+esi*8],eax
    
97. ' mov [ebx+esi*8+4],edx
    
98. ' inc esi
    
99. ' .endw
    
100. ' pop esi
     
101. ' popa
     
102. ' leave
     
103. ' retn 12
     
104. 
     

复制代码