易语言MASM置入代码字节型/短整数型转换到到逻辑型数组 (高位在前,低位在前,无返回值)

EAX

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
正在进行名称连接...
正在统计需要编译的子程序
正在编译...
正在生成主程序入口代码
程序代码编译成功
正在封装易格式目的代码
开始运行被调试程序
* 数组:8{真,假,假,假,假,假,假,假} | 数组:8{假,假,假,假,假,假,假,真} | 1
* 数组:8{假,真,假,假,假,假,假,假} | 数组:8{假,假,假,假,假,假,真,假} | 2
* 数组:8{假,假,真,假,假,假,假,假} | 数组:8{假,假,假,假,假,真,假,假} | 4
* 数组:8{假,假,假,真,假,假,假,假} | 数组:8{假,假,假,假,真,假,假,假} | 8
* 数组:8{假,假,假,假,真,假,假,假} | 数组:8{假,假,假,真,假,假,假,假} | 16
* 数组:8{假,假,假,假,假,真,假,假} | 数组:8{假,假,真,假,假,假,假,假} | 32
* 数组:8{假,假,假,假,假,假,真,假} | 数组:8{假,真,假,假,假,假,假,假} | 64
* 数组:8{假,假,假,假,假,假,假,真} | 数组:8{真,假,假,假,假,假,假,假} | 128
* 数组:16{真,假,假,假,假,假,假,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,假,假,假,真} | 1
* 数组:16{假,真,假,假,假,假,假,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,假,假,真,假} | 2
* 数组:16{假,假,真,假,假,假,假,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,假,真,假,假} | 4
* 数组:16{假,假,假,真,假,假,假,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,真,假,假,假} | 8
* 数组:16{假,假,假,假,真,假,假,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,假,假,真,假,假,假,假} | 16
* 数组:16{假,假,假,假,假,真,假,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,假,真,假,假,假,假,假} | 32
* 数组:16{假,假,假,假,假,假,真,假,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,假,真,假,假,假,假,假,假} | 64
* 数组:16{假,假,假,假,假,假,假,真,假,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,假,真,假,假,假,假,假,假,假} | 128
* 数组:16{假,假,假,假,假,假,假,假,真,假,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,假,真,假,假,假,假,假,假,假,假} | 256
* 数组:16{假,假,假,假,假,假,假,假,假,真,假,假,假,假,假,假} | 数组:16{假,假,假,假,假,假,真,假,假,假,假,假,假,假,假,假} | 512
* 数组:16{假,假,假,假,假,假,假,假,假,假,真,假,假,假,假,假} | 数组:16{假,假,假,假,假,真,假,假,假,假,假,假,假,假,假,假} | 1024
* 数组:16{假,假,假,假,假,假,假,假,假,假,假,真,假,假,假,假} | 数组:16{假,假,假,假,真,假,假,假,假,假,假,假,假,假,假,假} | 2048
* 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,真,假,假,假} | 数组:16{假,假,假,真,假,假,假,假,假,假,假,假,假,假,假,假} | 4096
* 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,假,真,假,假} | 数组:16{假,假,真,假,假,假,假,假,假,假,假,假,假,假,假,假} | 8192
* 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,假,假,真,假} | 数组:16{假,真,假,假,假,假,假,假,假,假,假,假,假,假,假,假} | 16384
* 数组:16{假,假,假,假,假,假,假,假,假,假,假,假,假,假,假,真} | 数组:16{真,假,假,假,假,假,假,假,假,假,假,假,假,假,假,假} | -32768
被调试易程序运行完毕

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 数组_低位在前, 逻辑型, , "0"
    
14. .局部变量 数组_高位在前, 逻辑型, , "0"
    
15. .局部变量 字节, 字节型
    
16. .局部变量 短整数, 短整数型
    
17. 
    
18. 字节 ＝ 1
    
19. .计次循环首 (8, )
    
20.     字节型_到逻辑型数组_低位在前 (字节, 数组_低位在前)
    
21.     字节型_到逻辑型数组_高位在前 (字节, 数组_高位在前)
    
22.     调试输出 (数组_低位在前, 数组_高位在前, 字节)
    
23.     字节 ＝ 左移 (字节, 1)
    
24. .计次循环尾 ()
    
25. 短整数 ＝ 1
    
26. .计次循环首 (16, )
    
27.     短整数型_到逻辑型数组_低位在前 (短整数, 数组_低位在前)
    
28.     短整数型_到逻辑型数组_高位在前 (短整数, 数组_高位在前)
    
29.     调试输出 (数组_低位在前, 数组_高位在前, 短整数)
    
30.     短整数 ＝ 左移 (短整数, 1)
    
31. .计次循环尾 ()
    
32. 
    
33. .子程序 字节型_到逻辑型数组_低位在前, , 公开
    
34. .参数 输入字节, 字节型
    
35. .参数 输出8位, 逻辑型, 参考 数组
    
36. 
    
37. 重定义数组 (输出8位, 真, 8)
    
38. 置入代码 ({ 80, 83, 81, 82, 139, 69, 8, 139, 93, 12, 139, 27, 131, 195, 8, 51, 201, 235, 13, 186, 1, 0, 0, 0, 35, 208, 209, 232, 137, 20, 139, 65, 131, 249, 8, 114, 238, 90, 89, 91, 88 })
    
39. ' push eax
    
40. ' push ebx
    
41. ' push ecx
    
42. ' push edx
    
43. ' mov eax,[ebp+8]
    
44. ' mov ebx,[ebp+12]
    
45. ' mov ebx,[ebx]
    
46. ' add ebx,8
    
47. ' xor ecx,ecx
    
48. ' .while ecx < 8
    
49. ' mov edx,1
    
50. ' and edx,eax
    
51. ' shr eax,1
    
52. ' mov [ebx+ecx*4],edx
    
53. ' inc ecx
    
54. ' .endw
    
55. ' pop edx
    
56. ' pop ecx
    
57. ' pop ebx
    
58. ' pop eax
    
59. 
    
60. 
    
61. .子程序 字节型_到逻辑型数组_高位在前, , 公开
    
62. .参数 输入字节, 字节型
    
63. .参数 输出8位, 逻辑型, 参考 数组
    
64. 
    
65. 重定义数组 (输出8位, 真, 8)
    
66. 置入代码 ({ 80, 83, 81, 82, 139, 69, 8, 139, 93, 12, 139, 27, 131, 195, 8, 185, 8, 0, 0, 0, 235, 13, 73, 186, 1, 0, 0, 0, 35, 208, 209, 232, 137, 20, 139, 11, 201, 117, 239, 90, 89, 91, 88 })
    
67. ' push eax
    
68. ' push ebx
    
69. ' push ecx
    
70. ' push edx
    
71. ' mov eax,[ebp+8]
    
72. ' mov ebx,[ebp+12]
    
73. ' mov ebx,[ebx]
    
74. ' add ebx,8
    
75. ' mov ecx,8
    
76. ' .while ecx
    
77. ' dec ecx
    
78. ' mov edx,1
    
79. ' and edx,eax
    
80. ' shr eax,1
    
81. ' mov [ebx+ecx*4],edx
    
82. ' .endw
    
83. ' pop edx
    
84. ' pop ecx
    
85. ' pop ebx
    
86. ' pop eax
    
87. 
    
88. 
    
89. .子程序 短整数型_到逻辑型数组_低位在前, , 公开
    
90. .参数 输入短整数, 短整数型
    
91. .参数 输出16位, 逻辑型, 参考 数组
    
92. 
    
93. 重定义数组 (输出16位, 真, 16)
    
94. 置入代码 ({ 80, 83, 81, 82, 139, 69, 8, 139, 93, 12, 139, 27, 131, 195, 8, 51, 201, 235, 13, 186, 1, 0, 0, 0, 35, 208, 209, 232, 137, 20, 139, 65, 131, 249, 16, 114, 238, 90, 89, 91, 88 })
    
95. ' push eax
    
96. ' push ebx
    
97. ' push ecx
    
98. ' push edx
    
99. ' mov eax,[ebp+8]
    
100. ' mov ebx,[ebp+12]
     
101. ' mov ebx,[ebx]
     
102. ' add ebx,8
     
103. ' xor ecx,ecx
     
104. ' .while ecx < 16
     
105. ' mov edx,1
     
106. ' and edx,eax
     
107. ' shr eax,1
     
108. ' mov [ebx+ecx*4],edx
     
109. ' inc ecx
     
110. ' .endw
     
111. ' pop edx
     
112. ' pop ecx
     
113. ' pop ebx
     
114. ' pop eax
     
115. 
     
116. 
     
117. .子程序 短整数型_到逻辑型数组_高位在前, , 公开
     
118. .参数 输入短整数, 短整数型
     
119. .参数 输出16位, 逻辑型, 参考 数组
     
120. 
     
121. 重定义数组 (输出16位, 真, 16)
     
122. 置入代码 ({ 80, 83, 81, 82, 139, 69, 8, 139, 93, 12, 139, 27, 131, 195, 8, 185, 16, 0, 0, 0, 235, 13, 73, 186, 1, 0, 0, 0, 35, 208, 209, 232, 137, 20, 139, 11, 201, 117, 239, 90, 89, 91, 88 })
     
123. ' push eax
     
124. ' push ebx
     
125. ' push ecx
     
126. ' push edx
     
127. ' mov eax,[ebp+8]
     
128. ' mov ebx,[ebp+12]
     
129. ' mov ebx,[ebx]
     
130. ' add ebx,8
     
131. ' mov ecx,16
     
132. ' .while ecx
     
133. ' dec ecx
     
134. ' mov edx,1
     
135. ' and edx,eax
     
136. ' shr eax,1
     
137. ' mov [ebx+ecx*4],edx
     
138. ' .endw
     
139. ' pop edx
     
140. ' pop ecx
     
141. ' pop ebx
     
142. ' pop eax
     
143. 
     

复制代码

1心1亿

这家伙又双叒叕回来了