易语言MASM汇编置入代码文本型与字节集的等于比较(数据、长度是否一致) (返回逻辑型)

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 A, 文本型
    
14. .局部变量 B, 字节集
    
15. 
    
16. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
17. A ＝ “Hello World!中文测试”
    
18. B ＝ 到字节集 (“Hello World!中文测试”)
    
19. 输出调试文本 (文本型与字节集_等于 (A, B))
    
20. A ＝ “1234567890”
    
21. B ＝ 到字节集 (A)
    
22. 输出调试文本 (文本型与字节集_等于 (A, B))
    
23. A ＝ “”
    
24. B ＝ 到字节集 (A)
    
25. 输出调试文本 (文本型与字节集_等于 (A, B))
    
26. A ＝ “111”
    
27. B ＝ {  }
    
28. 输出调试文本 (文本型与字节集_等于 (A, B))
    
29. 
    
30. A ＝ “111”
    
31. B ＝ { 111 }
    
32. 输出调试文本 (文本型与字节集_等于 (A, B))
    
33. A ＝ “12345”
    
34. B ＝ 到字节集 (“123456”)
    
35. 输出调试文本 (文本型与字节集_等于 (A, B))
    
36. A ＝ “123456”
    
37. B ＝ 到字节集 (“12345”)
    
38. 输出调试文本 (文本型与字节集_等于 (A, B))
    
39. 输出调试文本 (文本型与字节集_等于 (“”, {  }))
    
40. A ＝ “123456”
    
41. B ＝ 到字节集 (“123456”) ＋ { 0 }
    
42. 输出调试文本 (文本型与字节集_等于 (A, B))
    
43. 
    
44. 
    
45. .子程序 文本型与字节集_等于, 逻辑型, 公开, 比较文本型与字节集数据是否一致
    
46. .参数 文本型, 文本型, , 文本型与字节集数据、长度必须一致才返回真，否则返回假。
    
47. .参数 字节集, 字节集, , 即使字节集尾部包含0字符，长度与文本型不一致也返回假。
    
48. 
    
49. 置入代码 ({ 83, 81, 82, 86, 139, 69, 8, 139, 93, 12, 232, 89, 0, 0, 0, 128, 249, 1, 117, 21, 232, 105, 0, 0, 0, 128, 249, 1, 117, 7, 184, 1, 0, 0, 0, 235, 2, 51, 192, 235, 55, 139, 0, 139, 27, 139, 75, 4, 131, 195, 8, 51, 246, 235, 17, 138, 20, 30, 58, 20, 6, 117, 4, 10, 210, 117, 4, 51, 192, 235, 25, 70, 59, 241, 114, 235, 138, 20, 6, 10, 210, 117, 11, 59, 241, 117, 7, 184, 1, 0, 0, 0, 235, 2, 51, 192, 94, 90, 89, 91, 201, 194, 8, 0, 83, 139, 27, 11, 219, 117, 4, 177, 1, 235, 13, 139, 91, 4, 11, 219, 117, 4, 177, 1, 235, 2, 50, 201, 91, 195, 80, 139, 0, 11, 192, 117, 4, 177, 1, 235, 12, 138, 0, 10, 192, 117, 4, 177, 1, 235, 2, 50, 201, 88, 195 })
    
50. ' push ebx
    
51. ' push ecx
    
52. ' push edx
    
53. ' push esi
    
54. ' mov eax,[ebp+8]
    
55. ' mov ebx,[ebp+12]
    
56. ' call IS_DATA_NULL_EBX
    
57. ' .if cl == 1
    
58. ' call IS_TEXT_NULL
    
59. ' .if cl == 1
    
60. ' mov eax,1
    
61. ' .elseif
    
62. ' xor eax,eax
    
63. ' .endif
    
64. ' jmp ASM_END
    
65. ' .endif
    
66. ' mov eax,[eax]
    
67. ' mov ebx,[ebx]
    
68. ' mov ecx,[ebx+4]
    
69. ' add ebx,8
    
70. ' xor esi,esi
    
71. ' .while esi < ecx
    
72. ' mov dl,[ebx+esi]
    
73. ' .if dl != [eax+esi] || dl == 0
    
74. ' xor eax,eax
    
75. ' jmp ASM_END
    
76. ' .endif
    
77. ' inc esi
    
78. ' .endw
    
79. ' mov dl,[eax+esi]
    
80. ' .if dl == 0 && esi == ecx
    
81. ' mov eax,1
    
82. ' .elseif
    
83. ' xor eax,eax
    
84. ' .endif
    
85. ' ASM_END:
    
86. ' pop esi
    
87. ' pop edx
    
88. ' pop ecx
    
89. ' pop ebx
    
90. ' leave
    
91. ' retn 8
    
92. ' IS_DATA_NULL_EBX:
    
93. ' push ebx
    
94. ' mov ebx,[ebx]
    
95. ' .if ebx == 0
    
96. ' mov cl,1
    
97. ' jmp IS_DATA_NULL_EBX_END
    
98. ' .endif
    
99. ' mov ebx,[ebx+4]
    
100. ' .if ebx == 0
     
101. ' mov cl,1
     
102. ' jmp IS_DATA_NULL_EBX_END
     
103. ' .endif
     
104. ' xor cl,cl
     
105. ' IS_DATA_NULL_EBX_END:
     
106. ' pop ebx
     
107. ' ret
     
108. ' IS_TEXT_NULL:
     
109. ' push eax
     
110. ' mov eax,[eax]
     
111. ' .if eax == 0
     
112. ' mov cl,1
     
113. ' jmp IS_TEXT_NULL_END
     
114. ' .endif
     
115. ' mov al,[eax]
     
116. ' .if al == 0
     
117. ' mov cl,1
     
118. ' jmp IS_TEXT_NULL_END
     
119. ' .endif
     
120. ' xor cl,cl
     
121. ' IS_TEXT_NULL_END:
     
122. ' pop eax
     
123. ' ret
     
124. 
     
125. 返回 (假)
     

复制代码

开开心心

最近好多这帖子