易语言MASM置入代码将字节集数据写入相同长度的字节集数组 (指定长度分割,返回逻辑型)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 字节集, 字节集
    
15. .局部变量 字节集数组, 字节集, , "10"
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. 置随机数种子 ()
    
19. 字节集 ＝ 到字节集 (取现行时间 ()) ＋ 到字节集 ([1000年1月1日]) ＋ 到字节集 (“中文测试”) ＋ 到字节集 (#pi) ＋ 到字节集 (#e) ＋ 到字节集 (取随机数 (, )) ＋ 到字节集 (取随机数 (, ) × 取随机数 (, )) ＋ { 1, 2, 3 }
    
20. 调试输出 (字节集)
    
21. 字节集数组 [1] ＝ 取空白字节集 (1)
    
22. 字节集数组 [2] ＝ 取空白字节集 (2)
    
23. 字节集数组 [3] ＝ 取空白字节集 (3)
    
24. 字节集数组 [4] ＝ 取空白字节集 (4)
    
25. 字节集数组 [5] ＝ 取空白字节集 (5)
    
26. 字节集数组 [6] ＝ 取空白字节集 (6)
    
27. 字节集数组 [7] ＝ 取空白字节集 (7)
    
28. 字节集数组 [8] ＝ 取空白字节集 (8)
    
29. 字节集数组 [9] ＝ 取空白字节集 (9)
    
30. 字节集数组 [10] ＝ 取空白字节集 (10)
    
31. 输出调试文本 (字节集写字节集数组 (字节集, 字节集数组))
    
32. 调试输出 (字节集数组)
    
33. 
    
34. 
    
35. .子程序 字节集写字节集数组, 逻辑型, 公开
    
36. .参数 字节集, 字节集, , 字节集数组总长度必须等于字节集数据长度
    
37. .参数 字节集数组, 字节集, 参考 数组, 数组中不能有零字节的字节集成员
    
38. 
    
39. 置入代码 ({ 83, 81, 82, 86, 87, 139, 117, 12, 51, 192, 11, 246, 117, 5, 233, 173, 0, 0, 0, 139, 54, 11, 246, 117, 5, 233, 162, 0, 0, 0, 139, 126, 4, 11, 255, 116, 8, 129, 255, 0, 0, 0, 128, 114, 5, 233, 142, 0, 0, 0, 131, 198, 8, 51, 201, 235, 35, 139, 28, 134, 11, 219, 117, 4, 51, 192, 235, 124, 139, 91, 4, 11, 219, 116, 8, 129, 251, 0, 0, 0, 128, 114, 6, 51, 192, 235, 105, 235, 2, 3, 203, 64, 59, 199, 114, 217, 51, 192, 139, 117, 8, 11, 246, 117, 2, 235, 85, 139, 54, 11, 246, 117, 2, 235, 77, 139, 126, 4, 11, 255, 116, 12, 129, 255, 0, 0, 0, 128, 115, 4, 59, 249, 116, 2, 235, 56, 131, 198, 8, 139, 69, 12, 139, 0, 139, 88, 4, 131, 192, 8, 51, 201, 235, 29, 139, 60, 136, 139, 87, 4, 131, 199, 8, 81, 83, 51, 201, 235, 7, 138, 30, 136, 28, 57, 70, 65, 59, 202, 114, 245, 91, 89, 65, 59, 203, 114, 223, 184, 1, 0, 0, 0, 91, 89, 90, 94, 95, 201, 194, 8, 0 })
    
40. ' push ebx
    
41. ' push ecx
    
42. ' push edx
    
43. ' push esi
    
44. ' push edi
    
45. ' mov esi,[ebp+12]
    
46. ' xor eax,eax
    
47. ' .if esi == 0
    
48. ' jmp ASM_END
    
49. ' .endif
    
50. ' mov esi,[esi]
    
51. ' .if esi == 0
    
52. ' jmp ASM_END
    
53. ' .endif
    
54. ' mov edi,[esi+4]
    
55. ' .if edi == 0  || edi >= 80000000H
    
56. ' jmp ASM_END
    
57. ' .endif
    
58. ' add esi,8
    
59. ' xor ecx,ecx
    
60. ' .while eax < edi
    
61. ' mov ebx,[esi+eax*4]
    
62. ' .if ebx == 0
    
63. ' xor eax,eax
    
64. ' jmp ASM_END
    
65. ' .endif
    
66. ' mov ebx,[ebx+4]
    
67. ' .if ebx == 0 || ebx >= 80000000H
    
68. ' xor eax,eax
    
69. ' jmp ASM_END
    
70. ' .else
    
71. ' add ecx,ebx
    
72. ' .endif
    
73. ' inc eax
    
74. ' .endw
    
75. ' xor eax,eax
    
76. ' mov esi,[ebp+8]
    
77. ' .if esi == 0
    
78. ' jmp ASM_END
    
79. ' .endif
    
80. ' mov esi,[esi]
    
81. ' .if esi == 0
    
82. ' jmp ASM_END
    
83. ' .endif
    
84. ' mov edi,[esi+4]
    
85. ' .if edi == 0  || edi >= 80000000H || edi != ecx
    
86. ' jmp ASM_END
    
87. ' .endif
    
88. ' add esi,8
    
89. ' mov eax,[ebp+12]
    
90. ' mov eax,[eax]
    
91. ' mov ebx,[eax+4]
    
92. ' add eax,8
    
93. ' xor ecx,ecx
    
94. ' .while ecx < ebx
    
95. ' mov edi,[eax+ecx*4]
    
96. ' mov edx,[edi+4]
    
97. ' add edi,8
    
98. ' push ecx
    
99. ' push ebx
    
100. ' xor ecx,ecx
     
101. ' .while ecx < edx
     
102. ' mov bl,[esi]
     
103. ' mov [edi+ecx],bl
     
104. ' inc esi
     
105. ' inc ecx
     
106. ' .endw
     
107. ' pop ebx
     
108. ' pop ecx
     
109. ' inc ecx
     
110. ' .endw
     
111. ' mov eax,1
     
112. ' ASM_END:
     
113. ' pop ebx
     
114. ' pop ecx
     
115. ' pop edx
     
116. ' pop esi
     
117. ' pop edi
     
118. ' leave
     
119. ' retn 8
     
120. 
     
121. 返回 (假)
     

复制代码