易语言MASM置入代码实现 取文本长度() 2.0改进版 效率提升比核心库快1倍 (返回整数型)

EAX

1. 正在编译现行程序
   
2. 正在检查重复名称...
   
3. 正在预处理现行程序
   
4. 正在进行名称连接...
   
5. 正在统计需要编译的子程序
   
6. 正在编译...
   
7. 正在生成主程序入口代码
   
8. 程序代码编译成功
   
9. 正在封装易格式目的代码
   
10. 开始运行被调试程序
    
11. * 比较 系统核心支持库的 取文本长度() 与 此汇编程序的效率
    
12. * 文本长度:1000000000 核心库耗时(毫秒):1216 汇编耗时(毫秒):780 效率提升:155%
    
13. * 文本长度:1000000000 核心库耗时(毫秒):1794 汇编耗时(毫秒):749 效率提升:239%
    
14. * 文本长度:1000000000 核心库耗时(毫秒):1763 汇编耗时(毫秒):749 效率提升:235%
    
15. * 文本长度:1000000000 核心库耗时(毫秒):1779 汇编耗时(毫秒):795 效率提升:223%
    
16. * 文本长度:1000000000 核心库耗时(毫秒):1840 汇编耗时(毫秒):749 效率提升:245%
    
17. * 文本长度:1000000000 核心库耗时(毫秒):1763 汇编耗时(毫秒):765 效率提升:230%
    
18. * 文本长度:1000000000 核心库耗时(毫秒):1779 汇编耗时(毫秒):795 效率提升:223%
    
19. * 文本长度:1000000000 核心库耗时(毫秒):1903 汇编耗时(毫秒):749 效率提升:254%
    
20. * 文本长度:1000000000 核心库耗时(毫秒):1794 汇编耗时(毫秒):764 效率提升:234%
    
21. * 文本长度:1000000000 核心库耗时(毫秒):1794 汇编耗时(毫秒):764 效率提升:234%
    
22. * 文本长度:1000000000 核心库耗时(毫秒):1794 汇编耗时(毫秒):764 效率提升:234%
    
23. * 文本长度:1000000000 核心库耗时(毫秒):1778 汇编耗时(毫秒):765 效率提升:232%
    
24. * 文本长度:1000000000 核心库耗时(毫秒):1763 汇编耗时(毫秒):765 效率提升:230%
    
25. * 文本长度:1000000000 核心库耗时(毫秒):1810 汇编耗时(毫秒):764 效率提升:236%
    
26. * 文本长度:1000000000 核心库耗时(毫秒):1794 汇编耗时(毫秒):749 效率提升:239%
    
27. * 文本长度:1000000000 核心库耗时(毫秒):1763 汇编耗时(毫秒):748 效率提升:235%
    
28. * 文本长度:1000000000 核心库耗时(毫秒):1778 汇编耗时(毫秒):749 效率提升:237%
    
29. * 文本长度:1000000000 核心库耗时(毫秒):1778 汇编耗时(毫秒):749 效率提升:237%
    
30. * 文本长度:1000000000 核心库耗时(毫秒):1763 汇编耗时(毫秒):749 效率提升:235%
    
31. * 文本长度:1000000000 核心库耗时(毫秒):1763 汇编耗时(毫秒):764 效率提升:230%
    
32. * 完成 最大效率:254%
    
33. 被调试易程序运行完毕
    

复制代码

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. .局部变量 长度, 整数型
    
13. .局部变量 文本, 文本型
    
14. .局部变量 时间, 整数型
    
15. .局部变量 耗时A, 整数型
    
16. .局部变量 耗时B, 整数型
    
17. .局部变量 效率, 整数型
    
18. .局部变量 最大效率, 整数型
    
19. .局部变量 文本长度, 整数型
    
20. .局部变量 文本长度2, 整数型
    
21. 
    
22. .变量循环首 (0, 10000, 1, 长度)
    
23.     文本 ＝ 取空白文本 (长度)
    
24.     .如果真 (取文本长度2 (文本) ≠ 取文本长度 (文本))
    
25.         输出调试文本 (“错误”)
    
26.         结束 ()
    
27.     .如果真结束
    
28. 
    
29. .变量循环尾 ()
    
30. 文本 ＝ 取空白文本 (1000000000)
    
31. 时间 ＝ 取启动时间 ()
    
32. 输出调试文本 (“比较 系统核心支持库的 取文本长度() 与 此汇编程序的效率”)
    
33. .计次循环首 (20, )
    
34.     文本长度 ＝ 取文本长度 (文本)
    
35.     耗时A ＝ 取启动时间 () － 时间
    
36.     时间 ＝ 取启动时间 ()
    
37.     文本长度2 ＝ 取文本长度2 (文本)
    
38.     .如果真 (文本长度 ≠ 文本长度2)
    
39.         输出调试文本 (“错误”)
    
40.         结束 ()
    
41.     .如果真结束
    
42.     耗时B ＝ 取启动时间 () － 时间
    
43.     效率 ＝ 耗时A ÷ 耗时B × 100
    
44.     .如果真 (效率 ＞ 最大效率)
    
45.         最大效率 ＝ 效率
    
46.     .如果真结束
    
47.     输出调试文本 (“文本长度:” ＋ 到文本 (文本长度2) ＋ “ 核心库耗时(毫秒):” ＋ 到文本 (耗时A) ＋ “ 汇编耗时(毫秒):” ＋ 到文本 (耗时B) ＋ “ 效率提升:” ＋ 到文本 (效率) ＋ “%”)
    
48. .计次循环尾 ()
    
49. 输出调试文本 (“完成 最大效率:” ＋ 到文本 (最大效率) ＋ “%”)
    
50. 
    
51. .子程序 取文本长度2, 整数型, 公开, MASM汇编指令取文本型数据的长度，不包含结束0。(比系统核心支持库自带的 取文本长度() 效率提升200%以上)
    
52. .参数 文本数据, 文本型, , 参数值指定欲检查其长度的文本数据。
    
53. 
    
54. 置入代码 ({ 83, 81, 139, 69, 8, 131, 248, 0, 127, 7, 51, 192, 233, 15, 1, 0, 0, 139, 0, 131, 248, 0, 127, 7, 51, 192, 233, 1, 1, 0, 0, 139, 200, 139, 24, 10, 219, 116, 4, 10, 255, 117, 5, 233, 227, 0, 0, 0, 15, 203, 10, 219, 116, 4, 10, 255, 117, 5, 233, 212, 0, 0, 0, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 5, 233, 194, 0, 0, 0, 15, 203, 10, 219, 116, 4, 10, 255, 117, 5, 233, 179, 0, 0, 0, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 5, 233, 161, 0, 0, 0, 15, 203, 10, 219, 116, 4, 10, 255, 117, 5, 233, 146, 0, 0, 0, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 5, 233, 128, 0, 0, 0, 15, 203, 10, 219, 116, 4, 10, 255, 117, 2, 235, 116, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 2, 235, 101, 15, 203, 10, 219, 116, 4, 10, 255, 117, 2, 235, 89, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 2, 235, 74, 15, 203, 10, 219, 116, 4, 10, 255, 117, 2, 235, 62, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 2, 235, 47, 15, 203, 10, 219, 116, 4, 10, 255, 117, 2, 235, 35, 131, 192, 4, 139, 24, 10, 219, 116, 4, 10, 255, 117, 2, 235, 20, 15, 203, 10, 219, 116, 4, 10, 255, 117, 2, 235, 8, 131, 192, 4, 233, 14, 255, 255, 255, 138, 24, 10, 219, 117, 2, 235, 3, 64, 235, 245, 43, 193, 89, 91, 201, 194, 4, 0 })
    
55. ' push ebx
    
56. ' push ecx
    
57. ' mov eax,[ebp+8]
    
58. ' .if sdword ptr eax <= 0
    
59. ' xor eax,eax
    
60. ' jmp ASM_END
    
61. ' .endif
    
62. ' mov eax,[eax]
    
63. ' .if sdword ptr eax <= 0
    
64. ' xor eax,eax
    
65. ' jmp ASM_END
    
66. ' .endif
    
67. ' mov ecx,eax
    
68. ' .while 1
    
69. ' mov ebx,[eax]
    
70. ' .if !bl || !bh
    
71. ' .break
    
72. ' .endif
    
73. ' bswap ebx
    
74. ' .if !bl || !bh
    
75. ' .break
    
76. ' .endif
    
77. ' add eax,4
    
78. ' mov ebx,[eax]
    
79. ' .if !bl || !bh
    
80. ' .break
    
81. ' .endif
    
82. ' bswap ebx
    
83. ' .if !bl || !bh
    
84. ' .break
    
85. ' .endif
    
86. ' add eax,4
    
87. ' mov ebx,[eax]
    
88. ' .if !bl || !bh
    
89. ' .break
    
90. ' .endif
    
91. ' bswap ebx
    
92. ' .if !bl || !bh
    
93. ' .break
    
94. ' .endif
    
95. ' add eax,4
    
96. ' mov ebx,[eax]
    
97. ' .if !bl || !bh
    
98. ' .break
    
99. ' .endif
    
100. ' bswap ebx
     
101. ' .if !bl || !bh
     
102. ' .break
     
103. ' .endif
     
104. ' add eax,4
     
105. ' mov ebx,[eax]
     
106. ' .if !bl || !bh
     
107. ' .break
     
108. ' .endif
     
109. ' bswap ebx
     
110. ' .if !bl || !bh
     
111. ' .break
     
112. ' .endif
     
113. ' add eax,4
     
114. ' mov ebx,[eax]
     
115. ' .if !bl || !bh
     
116. ' .break
     
117. ' .endif
     
118. ' bswap ebx
     
119. ' .if !bl || !bh
     
120. ' .break
     
121. ' .endif
     
122. ' add eax,4
     
123. ' mov ebx,[eax]
     
124. ' .if !bl || !bh
     
125. ' .break
     
126. ' .endif
     
127. ' bswap ebx
     
128. ' .if !bl || !bh
     
129. ' .break
     
130. ' .endif
     
131. ' add eax,4
     
132. ' mov ebx,[eax]
     
133. ' .if !bl || !bh
     
134. ' .break
     
135. ' .endif
     
136. ' bswap ebx
     
137. ' .if !bl || !bh
     
138. ' .break
     
139. ' .endif
     
140. ' add eax,4
     
141. ' .endw
     
142. ' .while 1
     
143. ' mov bl,[eax]
     
144. ' .if !bl
     
145. ' .break
     
146. ' .endif
     
147. ' inc eax
     
148. ' .endw
     
149. ' sub eax,ecx
     
150. ' ASM_END:
     
151. ' pop ecx
     
152. ' pop ebx
     
153. ' leave
     
154. ' retn 4
     
155. 返回 (0)
     
156. 
     

复制代码