易语言数值大小端转换模块源码 支持短整数型、整数型、长整数型 (数组)的极速转换

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 数值大小端转换模块
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. 
    
15. 
    
16. .子程序 短整数型_大小端转换, 短整数型, 公开
    
17. .参数 短整数, 短整数型
    
18. 
    
19. 置入代码 ({ 184, 0, 0, 0, 0, 102, 139, 69, 8, 134, 196, 201, 194, 4, 0 })
    
20. ' mov eax,0
    
21. ' mov ax,[ebp+8]
    
22. ' xchg al,ah
    
23. ' leave
    
24. ' retn 4
    
25. 返回 (0)
    
26. 
    
27. .子程序 整数型_大小端转换, 整数型, 公开
    
28. .参数 整数, 整数型
    
29. 
    
30. 置入代码 ({ 139, 69, 8, 134, 196, 193, 192, 16, 134, 196, 201, 194, 4, 0 })
    
31. ' mov eax,[ebp+8]
    
32. ' xchg al,ah
    
33. ' rol eax,16
    
34. ' xchg al,ah
    
35. ' leave
    
36. ' retn 4
    
37. 返回 (0)
    
38. 
    
39. .子程序 长整数型_大小端转换, 长整数型, 公开
    
40. .参数 长整数, 长整数型
    
41. 
    
42. 置入代码 ({ 139, 69, 8, 139, 85, 12, 134, 196, 193, 192, 16, 134, 196, 134, 214, 193, 194, 16, 134, 214, 146, 201, 194, 8, 0 })
    
43. ' mov eax,[ebp+8]
    
44. ' mov edx,[ebp+12]
    
45. ' xchg al,ah
    
46. ' rol eax,16
    
47. ' xchg al,ah
    
48. ' xchg dl,dh
    
49. ' rol edx,16
    
50. ' xchg dl,dh
    
51. ' xchg eax,edx
    
52. ' leave
    
53. ' retn 8
    
54. 
    
55. 返回 (0)
    
56. 
    
57. .子程序 短整数型数组_大小端转换, , 公开
    
58. .参数 短整数数组, 短整数型, 数组
    
59. 
    
60. 置入代码 ({ 96, 139, 69, 8, 139, 16, 139, 66, 4, 131, 194, 8, 187, 0, 0, 0, 0, 235, 11, 102, 139, 12, 90, 134, 205, 102, 137, 12, 90, 67, 59, 216, 114, 241, 97 })
    
61. ' pushad
    
62. ' mov eax,[ebp+8]
    
63. ' mov edx,[eax]
    
64. ' mov eax,[edx+4]
    
65. ' add edx,8
    
66. ' mov ebx,0
    
67. ' .while ebx<eax
    
68. ' mov cx,[edx+ebx*2]
    
69. ' xchg cl,ch
    
70. ' mov [edx+ebx*2],cx
    
71. ' inc ebx
    
72. ' .endw
    
73. ' popad
    
74. 
    
75. 
    
76. .子程序 整数型数组_大小端转换, , 公开
    
77. .参数 整数数组, 整数型, 数组
    
78. 
    
79. 置入代码 ({ 96, 139, 69, 8, 139, 16, 139, 66, 4, 131, 194, 8, 187, 0, 0, 0, 0, 235, 14, 139, 12, 154, 134, 205, 193, 193, 16, 134, 205, 137, 12, 154, 67, 59, 216, 114, 238, 97 })
    
80. ' pushad
    
81. ' mov eax,[ebp+8]
    
82. ' mov edx,[eax]
    
83. ' mov eax,[edx+4]
    
84. ' add edx,8
    
85. ' mov ebx,0
    
86. ' .while ebx<eax
    
87. ' mov ecx,[edx+ebx*4]
    
88. ' xchg cl,ch
    
89. ' rol ecx,16
    
90. ' xchg cl,ch
    
91. ' mov [edx+ebx*4],ecx
    
92. ' inc ebx
    
93. ' .endw
    
94. ' popad
    
95. 
    
96. 
    
97. .子程序 长整数型数组_大小端转换, , 公开
    
98. .参数 长整数数组, 长整数型, 数组
    
99. 
    
100. 置入代码 ({ 96, 139, 69, 8, 139, 16, 139, 66, 4, 131, 194, 8, 187, 0, 0, 0, 0, 235, 32, 80, 139, 4, 218, 139, 76, 218, 4, 134, 196, 193, 192, 16, 134, 196, 134, 205, 193, 193, 16, 134, 205, 145, 137, 4, 218, 137, 76, 218, 4, 88, 67, 59, 216, 114, 220, 97 })
     
101. ' pushad
     
102. ' mov eax,[ebp+8]
     
103. ' mov edx,[eax]
     
104. ' mov eax,[edx+4]
     
105. ' add edx,8
     
106. ' mov ebx,0
     
107. ' .while ebx<eax
     
108. ' push eax
     
109. ' mov eax,[edx+ebx*8]
     
110. ' mov ecx,[edx+ebx*8+4]
     
111. ' xchg al,ah
     
112. ' rol eax,16
     
113. ' xchg al,ah
     
114. ' xchg cl,ch
     
115. ' rol ecx,16
     
116. ' xchg cl,ch
     
117. ' xchg eax,ecx
     
118. ' mov [edx+ebx*8],eax
     
119. ' mov [edx+ebx*8+4],ecx
     
120. ' pop eax
     
121. ' inc ebx
     
122. ' .endw
     
123. ' popad
     

复制代码

Cute

方法不错，谢谢分享