易语言MASM置入代码实现将八个逻辑型数值 按高位或低位合并成一个字节值 (返回字节型)

EAX

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
14. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 真, 真, 真, 真, 真, 真))
    
15. 输出调试文本 (八位逻辑型_到字节_高位 (假, 真, 真, 真, 真, 真, 真, 真))
    
16. 输出调试文本 (八位逻辑型_到字节_高位 (真, 假, 真, 真, 真, 真, 真, 真))
    
17. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 假, 真, 真, 真, 真, 真))
    
18. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 真, 假, 真, 真, 真, 真))
    
19. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 真, 真, 假, 真, 真, 真))
    
20. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 真, 真, 真, 假, 真, 真))
    
21. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 真, 真, 真, 真, 假, 真))
    
22. 输出调试文本 (八位逻辑型_到字节_高位 (真, 真, 真, 真, 真, 真, 真, 假))
    
23. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 假, 假, 假, 假, 假, 假))
    
24. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 假, 假, 假, 假, 假, 真))
    
25. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 假, 假, 假, 假, 真, 假))
    
26. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 假, 假, 假, 真, 假, 假))
    
27. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 假, 假, 真, 假, 假, 假))
    
28. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 假, 真, 假, 假, 假, 假))
    
29. 输出调试文本 (八位逻辑型_到字节_高位 (假, 假, 真, 假, 假, 假, 假, 假))
    
30. 输出调试文本 (八位逻辑型_到字节_高位 (假, 真, 假, 假, 假, 假, 假, 假))
    
31. 输出调试文本 (八位逻辑型_到字节_高位 (真, 假, 假, 假, 假, 假, 假, 假))
    
32. 输出调试文本 (八位逻辑型_到字节_高位 (真, 假, 真, 假, 真, 假, 真, 假))
    
33. 输出调试文本 (八位逻辑型_到字节_高位 (假, 真, 假, 真, 假, 真, 假, 真))
    
34. 输出调试文本 (“--------”)
    
35. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 真, 真, 真, 真, 真, 真))
    
36. 输出调试文本 (八位逻辑型_到字节_低位 (假, 真, 真, 真, 真, 真, 真, 真))
    
37. 输出调试文本 (八位逻辑型_到字节_低位 (真, 假, 真, 真, 真, 真, 真, 真))
    
38. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 假, 真, 真, 真, 真, 真))
    
39. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 真, 假, 真, 真, 真, 真))
    
40. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 真, 真, 假, 真, 真, 真))
    
41. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 真, 真, 真, 假, 真, 真))
    
42. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 真, 真, 真, 真, 假, 真))
    
43. 输出调试文本 (八位逻辑型_到字节_低位 (真, 真, 真, 真, 真, 真, 真, 假))
    
44. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 假, 假, 假, 假, 假, 假))
    
45. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 假, 假, 假, 假, 假, 真))
    
46. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 假, 假, 假, 假, 真, 假))
    
47. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 假, 假, 假, 真, 假, 假))
    
48. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 假, 假, 真, 假, 假, 假))
    
49. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 假, 真, 假, 假, 假, 假))
    
50. 输出调试文本 (八位逻辑型_到字节_低位 (假, 假, 真, 假, 假, 假, 假, 假))
    
51. 输出调试文本 (八位逻辑型_到字节_低位 (假, 真, 假, 假, 假, 假, 假, 假))
    
52. 输出调试文本 (八位逻辑型_到字节_低位 (真, 假, 假, 假, 假, 假, 假, 假))
    
53. 输出调试文本 (八位逻辑型_到字节_低位 (真, 假, 真, 假, 真, 假, 真, 假))
    
54. 输出调试文本 (八位逻辑型_到字节_低位 (假, 真, 假, 真, 假, 真, 假, 真))
    
55. 
    
56. 
    
57. .子程序 八位逻辑型_到字节_高位, 字节型, 公开
    
58. .参数 Bit7, 逻辑型
    
59. .参数 Bit6, 逻辑型
    
60. .参数 Bit5, 逻辑型
    
61. .参数 Bit4, 逻辑型
    
62. .参数 Bit3, 逻辑型
    
63. .参数 Bit2, 逻辑型
    
64. .参数 Bit1, 逻辑型
    
65. .参数 Bit0, 逻辑型
    
66. 
    
67. 置入代码 ({ 83, 81, 50, 192, 180, 128, 51, 201, 235, 16, 139, 92, 141, 8, 131, 227, 1, 11, 219, 116, 2, 10, 196, 208, 236, 65, 131, 249, 8, 114, 235, 89, 91, 15, 182, 192, 201, 194, 32, 0 })
    
68. ' push ebx
    
69. ' push ecx
    
70. ' xor al,al
    
71. ' mov ah,128
    
72. ' xor ecx,ecx
    
73. ' .while ecx < 8
    
74. ' mov ebx,[ebp+8+ecx*4]
    
75. ' and ebx,1
    
76. ' .if ebx
    
77. ' or al,ah
    
78. ' .endif
    
79. ' shr ah,1
    
80. ' inc ecx
    
81. ' .endw
    
82. ' pop ecx
    
83. ' pop ebx
    
84. ' movzx eax,al
    
85. ' leave
    
86. ' retn 32
    
87. 返回 (0)
    
88. 
    
89. .子程序 八位逻辑型_到字节_低位, 字节型, 公开
    
90. .参数 Bit0, 逻辑型
    
91. .参数 Bit1, 逻辑型
    
92. .参数 Bit2, 逻辑型
    
93. .参数 Bit3, 逻辑型
    
94. .参数 Bit4, 逻辑型
    
95. .参数 Bit5, 逻辑型
    
96. .参数 Bit6, 逻辑型
    
97. .参数 Bit7, 逻辑型
    
98. 
    
99. 置入代码 ({ 83, 81, 50, 192, 180, 1, 51, 201, 235, 16, 139, 92, 141, 8, 131, 227, 1, 11, 219, 116, 2, 10, 196, 208, 228, 65, 131, 249, 8, 114, 235, 89, 91, 15, 182, 192, 201, 194, 32, 0 })
    
100. ' push ebx
     
101. ' push ecx
     
102. ' xor al,al
     
103. ' mov ah,1
     
104. ' xor ecx,ecx
     
105. ' .while ecx < 8
     
106. ' mov ebx,[ebp+8+ecx*4]
     
107. ' and ebx,1
     
108. ' .if ebx
     
109. ' or al,ah
     
110. ' .endif
     
111. ' shl ah,1
     
112. ' inc ecx
     
113. ' .endw
     
114. ' pop ecx
     
115. ' pop ebx
     
116. ' movzx eax,al
     
117. ' leave
     
118. ' retn 32
     
119. 返回 (0)
     

复制代码