易语言MASM置入代码实现将子程序指针转换到逻辑型数组 (高位在前,低位在前,无返回值)

EAX

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 高位在前, 逻辑型, , "0"
    
14. .局部变量 低位在前, 逻辑型, , "0"
    
15. 
    
16. 子程序指针_到逻辑型数组_高位在前 (&_临时子程序, 高位在前)
    
17. 子程序指针_到逻辑型数组_低位在前 (&_临时子程序, 低位在前)
    
18. 调试输出 (&_临时子程序)
    
19. 调试输出 (高位在前)
    
20. 调试输出 (低位在前)
    
21. 
    
22. .子程序 子程序指针_到逻辑型数组_低位在前, , 公开
    
23. .参数 输入指针, 子程序指针
    
24. .参数 输出32位, 逻辑型, 参考 数组
    
25. 
    
26. 重定义数组 (输出32位, 真, 32)
    
27. 置入代码 ({ 80, 83, 81, 82, 139, 69, 8, 139, 93, 12, 139, 27, 131, 195, 8, 51, 201, 235, 13, 186, 1, 0, 0, 0, 35, 208, 209, 232, 137, 20, 139, 65, 131, 249, 32, 114, 238, 90, 89, 91, 88 })
    
28. ' push eax
    
29. ' push ebx
    
30. ' push ecx
    
31. ' push edx
    
32. ' mov eax,[ebp+8]
    
33. ' mov ebx,[ebp+12]
    
34. ' mov ebx,[ebx]
    
35. ' add ebx,8
    
36. ' xor ecx,ecx
    
37. ' .while ecx < 32
    
38. ' mov edx,1
    
39. ' and edx,eax
    
40. ' shr eax,1
    
41. ' mov [ebx+ecx*4],edx
    
42. ' inc ecx
    
43. ' .endw
    
44. ' pop edx
    
45. ' pop ecx
    
46. ' pop ebx
    
47. ' pop eax
    
48. 
    
49. .子程序 子程序指针_到逻辑型数组_高位在前, , 公开
    
50. .参数 输入指针, 子程序指针
    
51. .参数 输出32位, 逻辑型, 参考 数组
    
52. 
    
53. 重定义数组 (输出32位, 真, 32)
    
54. 置入代码 ({ 80, 83, 81, 82, 139, 69, 8, 139, 93, 12, 139, 27, 131, 195, 8, 185, 32, 0, 0, 0, 235, 13, 73, 186, 1, 0, 0, 0, 35, 208, 209, 232, 137, 20, 139, 11, 201, 117, 239, 90, 89, 91, 88 })
    
55. ' push eax
    
56. ' push ebx
    
57. ' push ecx
    
58. ' push edx
    
59. ' mov eax,[ebp+8]
    
60. ' mov ebx,[ebp+12]
    
61. ' mov ebx,[ebx]
    
62. ' add ebx,8
    
63. ' mov ecx,32
    
64. ' .while ecx
    
65. ' dec ecx
    
66. ' mov edx,1
    
67. ' and edx,eax
    
68. ' shr eax,1
    
69. ' mov [ebx+ecx*4],edx
    
70. ' .endw
    
71. ' pop edx
    
72. ' pop ecx
    
73. ' pop ebx
    
74. ' pop eax
    

复制代码