易语言MASM置入代码两个字节集数据或与字节型数组首尾合并起来 (返回连接后的字节集)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 空字节集, 字节集
    
15. 
    
16. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
17. 
    
18. 
    
19. 调试输出 (字节集_合并 ({ 123, 234 }, 空字节集))
    
20. 调试输出 (字节集_合并 (空字节集, { 123, 234 }))
    
21. 调试输出 (字节集_合并 ({ 123, 234 }, {  }))
    
22. 调试输出 (字节集_合并 ({  }, { 123, 234 }))
    
23. 调试输出 (字节集_合并 ({ 1, 2, 3 }, { 4, 5 }))
    
24. 调试输出 (字节集_合并 ({ 1, 2, 3, 4, 5 }, { 123 }))
    
25. 调试输出 (字节集_合并 ({  }, {  }))
    
26. 调试输出 (字节集与字节型数组_合并 ({ 1, 2, 3 }, { 4, 5, 6 }))
    
27. 调试输出 (字节型数组与字节集_合并 ({ 1, 2, 3 }, { 4, 5, 6 }))
    
28. 调试输出 (字节型数组_合并 ({ 1, 2, 3 }, { 4, 5, 6 }))
    
29. 
    
30. 
    
31. 输出调试文本 (“1”)
    
32. 结束 ()
    
33. 
    
34. 
    
35. .子程序 字节集_合并, 字节集, 公开
    
36. .参数 字节集A, 字节集
    
37. .参数 字节集B, 字节集
    
38. .局部变量 返回值, 字节集
    
39. 
    
40. 返回值 ＝ 取空白字节集 (取字节集长度 (字节集A) ＋ 取字节集长度 (字节集B))
    
41. 置入代码 ({ 235, 54, 80, 11, 192, 117, 4, 177, 1, 235, 23, 139, 0, 11, 192, 117, 4, 177, 1, 235, 13, 139, 64, 4, 11, 192, 117, 4, 177, 1, 235, 2, 50, 201, 88, 195, 86, 82, 51, 246, 235, 7, 138, 20, 6, 136, 20, 30, 70, 59, 247, 114, 245, 90, 94, 195, 80, 83, 81, 87, 86, 87, 139, 69, 8, 232, 188, 255, 255, 255, 138, 233, 139, 69, 12, 232, 178, 255, 255, 255, 139, 93, 252, 131, 195, 8, 10, 237, 116, 8, 10, 201, 116, 4, 235, 86, 235, 84, 10, 237, 116, 20, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 232, 174, 255, 255, 255, 235, 62, 235, 60, 10, 201, 116, 20, 139, 69, 8, 139, 0, 139, 120, 4, 131, 192, 8, 232, 150, 255, 255, 255, 235, 38, 235, 36, 139, 69, 8, 139, 0, 139, 120, 4, 139, 247, 131, 192, 8, 232, 128, 255, 255, 255, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 3, 222, 232, 110, 255, 255, 255, 88, 91, 89, 90, 94, 95 })
    
42. ' jmp MAIN
    
43. ' IS_DATA_NULL: ;是否为空字节集 参数1(字节集指针，EAX传入，由[EBP+n]返回) (CL寄存器返回,空为1,非空为0)
    
44. ' push eax
    
45. ' .if eax == 0
    
46. ' mov cl,1
    
47. ' jmp IS_DATA_NULL_END
    
48. ' .endif
    
49. ' mov eax,[eax]
    
50. ' .if eax == 0
    
51. ' mov cl,1
    
52. ' jmp IS_DATA_NULL_END
    
53. ' .endif
    
54. ' mov eax,[eax+4]
    
55. ' .if eax == 0
    
56. ' mov cl,1
    
57. ' jmp IS_DATA_NULL_END
    
58. ' .endif
    
59. ' xor cl,cl
    
60. ' IS_DATA_NULL_END:
    
61. ' pop eax
    
62. ' ret
    
63. ' COPY_RAM: ;复制内存 EAX:原地址 EBX:目标地址 EDI:长度
    
64. ' push esi
    
65. ' push edx
    
66. ' xor esi,esi
    
67. ' .while esi < edi
    
68. ' mov dl,[eax+esi]
    
69. ' mov [ebx+esi],dl
    
70. ' inc esi
    
71. ' .endw
    
72. ' pop edx
    
73. ' pop esi
    
74. ' ret
    
75. ' MAIN:
    
76. ' push eax
    
77. ' push ebx
    
78. ' push ecx
    
79. ' push edi
    
80. ' push esi
    
81. ' push edi
    
82. ' mov eax,[ebp+8]
    
83. ' call IS_DATA_NULL
    
84. ' mov ch,cl
    
85. ' mov eax,[ebp+12]
    
86. ' call IS_DATA_NULL
    
87. ' mov ebx,[ebp-4]
    
88. ' add ebx,8
    
89. ' .if ch && cl ;字节集AB全空
    
90. ' jmp ASM_END
    
91. ' .elseif ch ;字节集A空，复制B
    
92. ' mov eax,[ebp+12]
    
93. ' mov eax,[eax]
    
94. ' mov edi,[eax+4]
    
95. ' add eax,8
    
96. ' call COPY_RAM
    
97. ' jmp ASM_END
    
98. ' .elseif cl ;字节集B空，复制A
    
99. ' mov eax,[ebp+8]
    
100. ' mov eax,[eax]
     
101. ' mov edi,[eax+4]
     
102. ' add eax,8
     
103. ' call COPY_RAM
     
104. ' jmp ASM_END
     
105. ' .else ;字节集AB都不是空
     
106. ' mov eax,[ebp+8]
     
107. ' mov eax,[eax]
     
108. ' mov edi,[eax+4]
     
109. ' mov esi,edi
     
110. ' add eax,8
     
111. ' call COPY_RAM
     
112. ' mov eax,[ebp+12]
     
113. ' mov eax,[eax]
     
114. ' mov edi,[eax+4]
     
115. ' add eax,8
     
116. ' add ebx,esi
     
117. ' call COPY_RAM
     
118. ' .endif
     
119. ' ASM_END:
     
120. ' pop eax
     
121. ' pop ebx
     
122. ' pop ecx
     
123. ' pop edx
     
124. ' pop esi
     
125. ' pop edi
     
126. 
     
127. 返回 (返回值)
     
128. 
     
129. .子程序 字节集与字节型数组_合并, 字节集, 公开
     
130. .参数 字节集, 字节集
     
131. .参数 字节型数组, 字节型, 数组
     
132. .局部变量 返回值, 字节集
     
133. 
     
134. 返回值 ＝ 取空白字节集 (取字节集长度 (字节集) ＋ 取数组成员数 (字节型数组))
     
135. 置入代码 ({ 235, 54, 80, 11, 192, 117, 4, 177, 1, 235, 23, 139, 0, 11, 192, 117, 4, 177, 1, 235, 13, 139, 64, 4, 11, 192, 117, 4, 177, 1, 235, 2, 50, 201, 88, 195, 86, 82, 51, 246, 235, 7, 138, 20, 6, 136, 20, 30, 70, 59, 247, 114, 245, 90, 94, 195, 80, 83, 81, 87, 86, 87, 139, 69, 8, 232, 188, 255, 255, 255, 138, 233, 139, 69, 12, 232, 178, 255, 255, 255, 139, 93, 252, 131, 195, 8, 10, 237, 116, 8, 10, 201, 116, 4, 235, 86, 235, 84, 10, 237, 116, 20, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 232, 174, 255, 255, 255, 235, 62, 235, 60, 10, 201, 116, 20, 139, 69, 8, 139, 0, 139, 120, 4, 131, 192, 8, 232, 150, 255, 255, 255, 235, 38, 235, 36, 139, 69, 8, 139, 0, 139, 120, 4, 139, 247, 131, 192, 8, 232, 128, 255, 255, 255, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 3, 222, 232, 110, 255, 255, 255, 88, 91, 89, 90, 94, 95 })
     
136. ' jmp MAIN
     
137. ' IS_DATA_NULL: ;是否为空字节集 参数1(字节集指针，EAX传入，由[EBP+n]返回) (CL寄存器返回,空为1,非空为0)
     
138. ' push eax
     
139. ' .if eax == 0
     
140. ' mov cl,1
     
141. ' jmp IS_DATA_NULL_END
     
142. ' .endif
     
143. ' mov eax,[eax]
     
144. ' .if eax == 0
     
145. ' mov cl,1
     
146. ' jmp IS_DATA_NULL_END
     
147. ' .endif
     
148. ' mov eax,[eax+4]
     
149. ' .if eax == 0
     
150. ' mov cl,1
     
151. ' jmp IS_DATA_NULL_END
     
152. ' .endif
     
153. ' xor cl,cl
     
154. ' IS_DATA_NULL_END:
     
155. ' pop eax
     
156. ' ret
     
157. ' COPY_RAM: ;复制内存 EAX:原地址 EBX:目标地址 EDI:长度
     
158. ' push esi
     
159. ' push edx
     
160. ' xor esi,esi
     
161. ' .while esi < edi
     
162. ' mov dl,[eax+esi]
     
163. ' mov [ebx+esi],dl
     
164. ' inc esi
     
165. ' .endw
     
166. ' pop edx
     
167. ' pop esi
     
168. ' ret
     
169. ' MAIN:
     
170. ' push eax
     
171. ' push ebx
     
172. ' push ecx
     
173. ' push edi
     
174. ' push esi
     
175. ' push edi
     
176. ' mov eax,[ebp+8]
     
177. ' call IS_DATA_NULL
     
178. ' mov ch,cl
     
179. ' mov eax,[ebp+12]
     
180. ' call IS_DATA_NULL
     
181. ' mov ebx,[ebp-4]
     
182. ' add ebx,8
     
183. ' .if ch && cl ;字节集AB全空
     
184. ' jmp ASM_END
     
185. ' .elseif ch ;字节集A空，复制B
     
186. ' mov eax,[ebp+12]
     
187. ' mov eax,[eax]
     
188. ' mov edi,[eax+4]
     
189. ' add eax,8
     
190. ' call COPY_RAM
     
191. ' jmp ASM_END
     
192. ' .elseif cl ;字节集B空，复制A
     
193. ' mov eax,[ebp+8]
     
194. ' mov eax,[eax]
     
195. ' mov edi,[eax+4]
     
196. ' add eax,8
     
197. ' call COPY_RAM
     
198. ' jmp ASM_END
     
199. ' .else ;字节集AB都不是空
     
200. ' mov eax,[ebp+8]
     
201. ' mov eax,[eax]
     
202. ' mov edi,[eax+4]
     
203. ' mov esi,edi
     
204. ' add eax,8
     
205. ' call COPY_RAM
     
206. ' mov eax,[ebp+12]
     
207. ' mov eax,[eax]
     
208. ' mov edi,[eax+4]
     
209. ' add eax,8
     
210. ' add ebx,esi
     
211. ' call COPY_RAM
     
212. ' .endif
     
213. ' ASM_END:
     
214. ' pop eax
     
215. ' pop ebx
     
216. ' pop ecx
     
217. ' pop edx
     
218. ' pop esi
     
219. ' pop edi
     
220. 
     
221. 返回 (返回值)
     
222. 
     
223. .子程序 字节型数组与字节集_合并, 字节集, 公开
     
224. .参数 字节型数组, 字节型, 数组
     
225. .参数 字节集, 字节集
     
226. .局部变量 返回值, 字节集
     
227. 
     
228. 返回值 ＝ 取空白字节集 (取数组成员数 (字节型数组) ＋ 取字节集长度 (字节集))
     
229. 置入代码 ({ 235, 54, 80, 11, 192, 117, 4, 177, 1, 235, 23, 139, 0, 11, 192, 117, 4, 177, 1, 235, 13, 139, 64, 4, 11, 192, 117, 4, 177, 1, 235, 2, 50, 201, 88, 195, 86, 82, 51, 246, 235, 7, 138, 20, 6, 136, 20, 30, 70, 59, 247, 114, 245, 90, 94, 195, 80, 83, 81, 87, 86, 87, 139, 69, 8, 232, 188, 255, 255, 255, 138, 233, 139, 69, 12, 232, 178, 255, 255, 255, 139, 93, 252, 131, 195, 8, 10, 237, 116, 8, 10, 201, 116, 4, 235, 86, 235, 84, 10, 237, 116, 20, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 232, 174, 255, 255, 255, 235, 62, 235, 60, 10, 201, 116, 20, 139, 69, 8, 139, 0, 139, 120, 4, 131, 192, 8, 232, 150, 255, 255, 255, 235, 38, 235, 36, 139, 69, 8, 139, 0, 139, 120, 4, 139, 247, 131, 192, 8, 232, 128, 255, 255, 255, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 3, 222, 232, 110, 255, 255, 255, 88, 91, 89, 90, 94, 95 })
     
230. ' jmp MAIN
     
231. ' IS_DATA_NULL: ;是否为空字节集 参数1(字节集指针，EAX传入，由[EBP+n]返回) (CL寄存器返回,空为1,非空为0)
     
232. ' push eax
     
233. ' .if eax == 0
     
234. ' mov cl,1
     
235. ' jmp IS_DATA_NULL_END
     
236. ' .endif
     
237. ' mov eax,[eax]
     
238. ' .if eax == 0
     
239. ' mov cl,1
     
240. ' jmp IS_DATA_NULL_END
     
241. ' .endif
     
242. ' mov eax,[eax+4]
     
243. ' .if eax == 0
     
244. ' mov cl,1
     
245. ' jmp IS_DATA_NULL_END
     
246. ' .endif
     
247. ' xor cl,cl
     
248. ' IS_DATA_NULL_END:
     
249. ' pop eax
     
250. ' ret
     
251. ' COPY_RAM: ;复制内存 EAX:原地址 EBX:目标地址 EDI:长度
     
252. ' push esi
     
253. ' push edx
     
254. ' xor esi,esi
     
255. ' .while esi < edi
     
256. ' mov dl,[eax+esi]
     
257. ' mov [ebx+esi],dl
     
258. ' inc esi
     
259. ' .endw
     
260. ' pop edx
     
261. ' pop esi
     
262. ' ret
     
263. ' MAIN:
     
264. ' push eax
     
265. ' push ebx
     
266. ' push ecx
     
267. ' push edi
     
268. ' push esi
     
269. ' push edi
     
270. ' mov eax,[ebp+8]
     
271. ' call IS_DATA_NULL
     
272. ' mov ch,cl
     
273. ' mov eax,[ebp+12]
     
274. ' call IS_DATA_NULL
     
275. ' mov ebx,[ebp-4]
     
276. ' add ebx,8
     
277. ' .if ch && cl ;字节集AB全空
     
278. ' jmp ASM_END
     
279. ' .elseif ch ;字节集A空，复制B
     
280. ' mov eax,[ebp+12]
     
281. ' mov eax,[eax]
     
282. ' mov edi,[eax+4]
     
283. ' add eax,8
     
284. ' call COPY_RAM
     
285. ' jmp ASM_END
     
286. ' .elseif cl ;字节集B空，复制A
     
287. ' mov eax,[ebp+8]
     
288. ' mov eax,[eax]
     
289. ' mov edi,[eax+4]
     
290. ' add eax,8
     
291. ' call COPY_RAM
     
292. ' jmp ASM_END
     
293. ' .else ;字节集AB都不是空
     
294. ' mov eax,[ebp+8]
     
295. ' mov eax,[eax]
     
296. ' mov edi,[eax+4]
     
297. ' mov esi,edi
     
298. ' add eax,8
     
299. ' call COPY_RAM
     
300. ' mov eax,[ebp+12]
     
301. ' mov eax,[eax]
     
302. ' mov edi,[eax+4]
     
303. ' add eax,8
     
304. ' add ebx,esi
     
305. ' call COPY_RAM
     
306. ' .endif
     
307. ' ASM_END:
     
308. ' pop eax
     
309. ' pop ebx
     
310. ' pop ecx
     
311. ' pop edx
     
312. ' pop esi
     
313. ' pop edi
     
314. 
     
315. 返回 (返回值)
     
316. 
     
317. .子程序 字节型数组_合并, 字节集, 公开
     
318. .参数 字节型数组A, 字节型, 数组
     
319. .参数 字节型数组B, 字节型, 数组
     
320. .局部变量 返回值, 字节集
     
321. 
     
322. 返回值 ＝ 取空白字节集 (取数组成员数 (字节型数组A) ＋ 取数组成员数 (字节型数组B))
     
323. 置入代码 ({ 235, 54, 80, 11, 192, 117, 4, 177, 1, 235, 23, 139, 0, 11, 192, 117, 4, 177, 1, 235, 13, 139, 64, 4, 11, 192, 117, 4, 177, 1, 235, 2, 50, 201, 88, 195, 86, 82, 51, 246, 235, 7, 138, 20, 6, 136, 20, 30, 70, 59, 247, 114, 245, 90, 94, 195, 80, 83, 81, 87, 86, 87, 139, 69, 8, 232, 188, 255, 255, 255, 138, 233, 139, 69, 12, 232, 178, 255, 255, 255, 139, 93, 252, 131, 195, 8, 10, 237, 116, 8, 10, 201, 116, 4, 235, 86, 235, 84, 10, 237, 116, 20, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 232, 174, 255, 255, 255, 235, 62, 235, 60, 10, 201, 116, 20, 139, 69, 8, 139, 0, 139, 120, 4, 131, 192, 8, 232, 150, 255, 255, 255, 235, 38, 235, 36, 139, 69, 8, 139, 0, 139, 120, 4, 139, 247, 131, 192, 8, 232, 128, 255, 255, 255, 139, 69, 12, 139, 0, 139, 120, 4, 131, 192, 8, 3, 222, 232, 110, 255, 255, 255, 88, 91, 89, 90, 94, 95 })
     
324. ' jmp MAIN
     
325. ' IS_DATA_NULL: ;是否为空字节集 参数1(字节集指针，EAX传入，由[EBP+n]返回) (CL寄存器返回,空为1,非空为0)
     
326. ' push eax
     
327. ' .if eax == 0
     
328. ' mov cl,1
     
329. ' jmp IS_DATA_NULL_END
     
330. ' .endif
     
331. ' mov eax,[eax]
     
332. ' .if eax == 0
     
333. ' mov cl,1
     
334. ' jmp IS_DATA_NULL_END
     
335. ' .endif
     
336. ' mov eax,[eax+4]
     
337. ' .if eax == 0
     
338. ' mov cl,1
     
339. ' jmp IS_DATA_NULL_END
     
340. ' .endif
     
341. ' xor cl,cl
     
342. ' IS_DATA_NULL_END:
     
343. ' pop eax
     
344. ' ret
     
345. ' COPY_RAM: ;复制内存 EAX:原地址 EBX:目标地址 EDI:长度
     
346. ' push esi
     
347. ' push edx
     
348. ' xor esi,esi
     
349. ' .while esi < edi
     
350. ' mov dl,[eax+esi]
     
351. ' mov [ebx+esi],dl
     
352. ' inc esi
     
353. ' .endw
     
354. ' pop edx
     
355. ' pop esi
     
356. ' ret
     
357. ' MAIN:
     
358. ' push eax
     
359. ' push ebx
     
360. ' push ecx
     
361. ' push edi
     
362. ' push esi
     
363. ' push edi
     
364. ' mov eax,[ebp+8]
     
365. ' call IS_DATA_NULL
     
366. ' mov ch,cl
     
367. ' mov eax,[ebp+12]
     
368. ' call IS_DATA_NULL
     
369. ' mov ebx,[ebp-4]
     
370. ' add ebx,8
     
371. ' .if ch && cl ;字节集AB全空
     
372. ' jmp ASM_END
     
373. ' .elseif ch ;字节集A空，复制B
     
374. ' mov eax,[ebp+12]
     
375. ' mov eax,[eax]
     
376. ' mov edi,[eax+4]
     
377. ' add eax,8
     
378. ' call COPY_RAM
     
379. ' jmp ASM_END
     
380. ' .elseif cl ;字节集B空，复制A
     
381. ' mov eax,[ebp+8]
     
382. ' mov eax,[eax]
     
383. ' mov edi,[eax+4]
     
384. ' add eax,8
     
385. ' call COPY_RAM
     
386. ' jmp ASM_END
     
387. ' .else ;字节集AB都不是空
     
388. ' mov eax,[ebp+8]
     
389. ' mov eax,[eax]
     
390. ' mov edi,[eax+4]
     
391. ' mov esi,edi
     
392. ' add eax,8
     
393. ' call COPY_RAM
     
394. ' mov eax,[ebp+12]
     
395. ' mov eax,[eax]
     
396. ' mov edi,[eax+4]
     
397. ' add eax,8
     
398. ' add ebx,esi
     
399. ' call COPY_RAM
     
400. ' .endif
     
401. ' ASM_END:
     
402. ' pop eax
     
403. ' pop ebx
     
404. ' pop ecx
     
405. ' pop edx
     
406. ' pop esi
     
407. ' pop edi
     
408. 
     
409. 返回 (返回值)
     

复制代码