易语言MASM置入代码实现快速比较文本型字符串是否为指定长度 (返回逻辑型)

EAX

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
正在进行名称连接...
正在统计需要编译的子程序
正在编译...
正在生成主程序入口代码
程序代码编译成功
正在封装易格式目的代码
开始运行被调试程序
* “汇编耗时(毫秒)” | 5226.000000
* “传统耗时(毫秒)” | 364383984.000000
被调试易程序运行完毕

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()
    
11. 返回 (0)
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 文本, 文本型
    
15. .局部变量 计数, 整数型
    
16. .局部变量 时间, 整数型
    
17. 
    
18. 文本 ＝ 取空白文本 (1048576)
    
19. 时间 ＝ 取启动时间 ()
    
20. .计次循环首 (100000000, 计数)
    
21.     检查 (文本型_是否为指定长度 (文本, 1048576))
    
22. .计次循环尾 ()
    
23. 调试输出 (“汇编耗时(毫秒)”, 取启动时间 () － 时间)
    
24. 时间 ＝ 取启动时间 ()
    
25. .计次循环首 (100000000, 计数)
    
26.     检查 (取文本长度 (文本) ＝ 1048576)
    
27. .计次循环尾 ()
    
28. 调试输出 (“传统耗时(毫秒)”, 取启动时间 () － 时间)
    
29. 
    
30. .子程序 文本型_是否为指定长度, 逻辑型, 公开, 汇编版:返回(取文本长度 (文本型)=长度)
    
31. .参数 文本型, 文本型, , 不能为空文本
    
32. .参数 长度, 整数型, , 大于0小于等于文本长度的值，大于文本长度可能会出错或崩溃(慎用)
    
33. 
    
34. 置入代码 ({ 83, 139, 69, 8, 139, 0, 3, 69, 12, 138, 24, 138, 120, 255, 10, 219, 117, 11, 10, 255, 116, 7, 184, 1, 0, 0, 0, 235, 2, 51, 192, 91, 201, 194, 8, 0 })
    
35. ' push ebx
    
36. ' mov eax,[ebp+8]
    
37. ' mov eax,[eax]
    
38. ' add eax,[ebp+12]
    
39. ' mov bl,[eax]
    
40. ' mov bh,[eax-1]
    
41. ' .if !bl && bh
    
42. ' mov eax,1
    
43. ' .elseif
    
44. ' xor eax,eax
    
45. ' .endif
    
46. ' ASM_END:
    
47. ' pop ebx
    
48. ' leave
    
49. ' retn 8
    
50. 
    
51. 返回 (假)
    

复制代码

春天

3亿多毫秒.....