易语言置入代码实现逻辑型数组的并且(有假返回假)、或者(有真返回真)运算(返回逻辑型)

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
15. 输出调试文本 (并且_数组 ({ 真, 真, 真, 真 }))
    
16. 输出调试文本 (并且_数组 ({ 真, 假, 真, 真 }))
    
17. 输出调试文本 (或者_数组 ({ 假, 假, 真, 真 }))
    
18. 输出调试文本 (或者_数组 ({ 假, 假, 假, 假 }))
    
19. 
    
20. 
    
21. 
    
22. .子程序 并且_数组, 逻辑型, 公开
    
23. .参数 逻辑型数组, 逻辑型, 数组, 有一个假，则返回假，否则返回真
    
24. 
    
25. 置入代码 ({ 83, 81, 82, 139, 69, 8, 139, 0, 139, 80, 4, 131, 192, 8, 51, 219, 235, 12, 139, 12, 152, 11, 201, 117, 4, 51, 192, 235, 10, 67, 59, 218, 114, 240, 184, 1, 0, 0, 0, 90, 89, 91, 201, 194, 4, 0 })
    
26. ' push ebx
    
27. ' push ecx
    
28. ' push edx
    
29. ' mov eax,[ebp+8]
    
30. ' mov eax,[eax]
    
31. ' mov edx,[eax+4]
    
32. ' add eax,8
    
33. ' xor ebx,ebx
    
34. ' .while ebx < edx
    
35. ' mov ecx,[eax+ebx*4]
    
36. ' .if ecx == 0
    
37. ' xor eax,eax
    
38. ' jmp ASM_END
    
39. ' .endif
    
40. ' inc ebx
    
41. ' .endw
    
42. ' mov eax,1
    
43. ' ASM_END:
    
44. ' pop edx
    
45. ' pop ecx
    
46. ' pop ebx
    
47. ' leave
    
48. ' retn 4
    
49. 
    
50. 返回 (假)
    
51. 
    
52. .子程序 或者_数组, 逻辑型, 公开
    
53. .参数 逻辑型数组, 逻辑型, 数组, 有一个真，则返回真，否则返回假
    
54. 
    
55. 置入代码 ({ 83, 81, 82, 139, 69, 8, 139, 0, 139, 80, 4, 131, 192, 8, 51, 219, 235, 16, 139, 12, 152, 131, 249, 1, 117, 7, 184, 1, 0, 0, 0, 235, 7, 67, 59, 218, 114, 236, 51, 192, 90, 89, 91, 201, 194, 4, 0 })
    
56. ' push ebx
    
57. ' push ecx
    
58. ' push edx
    
59. ' mov eax,[ebp+8]
    
60. ' mov eax,[eax]
    
61. ' mov edx,[eax+4]
    
62. ' add eax,8
    
63. ' xor ebx,ebx
    
64. ' .while ebx < edx
    
65. ' mov ecx,[eax+ebx*4]
    
66. ' .if ecx == 1
    
67. ' mov eax,1
    
68. ' jmp ASM_END
    
69. ' .endif
    
70. ' inc ebx
    
71. ' .endw
    
72. ' xor eax,eax
    
73. ' ASM_END:
    
74. ' pop edx
    
75. ' pop ecx
    
76. ' pop ebx
    
77. ' leave
    
78. ' retn 4
    
79. 
    
80. 返回 (假)
    

复制代码

520

编辑时间又亮了