易语言MASM汇编置入代码实现子程序指针数组与整数型数组极速互转模块源码 (无返回值)

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. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. A ＝ { 1, 2, 3, 4, 5, -1, -2, -3, -4, -5 }
    
19. 整数型数组到子程序指针数组 (A, B)
    
20. 调试输出 (A, B)
    
21. B ＝ { &子程序1, &子程序2, &子程序3 }
    
22. 子程序指针数组到整数型数组 (B, A)
    
23. 调试输出 (A, B)
    
24. 
    
25. 
    
26. .子程序 子程序指针数组到整数型数组, , 公开
    
27. .参数 子程序指针数组, 子程序指针, 数组
    
28. .参数 整数型数组, 整数型, 参考 数组, 必须为数组变量
    
29. 
    
30. 重定义数组 (整数型数组, 真, 取数组成员数 (子程序指针数组))
    
31. 置入代码 ({ 96, 139, 117, 8, 139, 54, 139, 93, 12, 139, 27, 131, 195, 8, 139, 126, 4, 131, 198, 8, 51, 201, 235, 7, 139, 4, 142, 137, 4, 139, 65, 59, 207, 114, 245, 97 })
    
32. ' pusha
    
33. ' mov esi,[ebp+8]
    
34. ' mov esi,[esi]
    
35. ' mov ebx,[ebp+12]
    
36. ' mov ebx,[ebx]
    
37. ' add ebx,8
    
38. ' mov edi,[esi+4]
    
39. ' add esi,8
    
40. ' xor ecx,ecx
    
41. ' .while ecx < edi
    
42. ' mov eax,[esi+ecx*4]
    
43. ' mov [ebx+ecx*4],eax
    
44. ' inc ecx
    
45. ' .endw
    
46. ' popa
    
47. 
    
48. 
    
49. .子程序 整数型数组到子程序指针数组, , 公开
    
50. .参数 整数型数组, 整数型, 数组
    
51. .参数 子程序指针数组, 子程序指针, 参考 数组, 必须为数组变量
    
52. 
    
53. 重定义数组 (子程序指针数组, 真, 取数组成员数 (整数型数组))
    
54. 置入代码 ({ 96, 139, 117, 8, 139, 54, 139, 93, 12, 139, 27, 131, 195, 8, 139, 126, 4, 131, 198, 8, 51, 201, 235, 7, 139, 4, 142, 137, 4, 139, 65, 59, 207, 114, 245, 97 })
    
55. ' pusha
    
56. ' mov esi,[ebp+8]
    
57. ' mov esi,[esi]
    
58. ' mov ebx,[ebp+12]
    
59. ' mov ebx,[ebx]
    
60. ' add ebx,8
    
61. ' mov edi,[esi+4]
    
62. ' add esi,8
    
63. ' xor ecx,ecx
    
64. ' .while ecx < edi
    
65. ' mov eax,[esi+ecx*4]
    
66. ' mov [ebx+ecx*4],eax
    
67. ' inc ecx
    
68. ' .endw
    
69. ' popa
    
70. 
    
71. 
    
72. 
    
73. .子程序 子程序1
    
74. 
    
75. 
    
76. 
    
77. .子程序 子程序2
    
78. 
    
79. 
    
80. 
    
81. .子程序 子程序3
    
82. 
    
83. 
    

复制代码

阳光灿烂

沙发