易语言MASM置入代码将24位RGB颜色转换成16位深度颜色 (红5位,绿6位,蓝5位,返回整数型)

EAX

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. .局部变量 红, 整数型
    
13. .局部变量 绿, 整数型
    
14. .局部变量 蓝, 整数型
    
15. .局部变量 颜色, 整数型
    
16. 
    
17. .变量循环首 (0, 255, 1, 红)
    
18.     .变量循环首 (0, 255, 1, 绿)
    
19.         .变量循环首 (0, 255, 1, 蓝)
    
20.             颜色 ＝ 取颜色值 (红, 绿, 蓝)
    
21.             .如果真 (颜色位深度_24位到16位 (颜色) ≠ 颜色位深度_24位到16位_易源码 (颜色))
    
22.                 暂停 ()
    
23.             .如果真结束
    
24. 
    
25.         .变量循环尾 ()
    
26.     .变量循环尾 ()
    
27. .变量循环尾 ()
    
28. 输出调试文本 (“完成”)
    
29. 
    
30. 
    
31. .子程序 颜色位深度_24位到16位, 整数型, 公开, 红5位,绿6位,蓝5位 返回值范围:0~65535 失败返回:-1
    
32. .参数 颜色值, 整数型, , 范围:0~16777215
    
33. 
    
34. 置入代码 ({ 83, 81, 82, 139, 69, 8, 61, 255, 255, 255, 0, 118, 7, 184, 255, 255, 255, 255, 235, 39, 138, 216, 138, 252, 193, 200, 16, 138, 200, 192, 235, 3, 192, 239, 2, 192, 233, 3, 15, 182, 201, 15, 182, 199, 15, 182, 219, 193, 224, 5, 193, 227, 11, 11, 200, 11, 203, 139, 193, 90, 89, 91, 201, 194, 4, 0 })
    
35. ' push ebx
    
36. ' push ecx
    
37. ' push edx
    
38. ' mov eax,[ebp+8]
    
39. ' .if eax > 16777215
    
40. ' mov eax,-1
    
41. ' jmp ASM_END
    
42. ' .endif
    
43. ' mov bl,al
    
44. ' mov bh,ah
    
45. ' ror eax,16
    
46. ' mov cl,al
    
47. ' shr bl,3
    
48. ' shr bh,2
    
49. ' shr cl,3
    
50. ' movzx ecx,cl
    
51. ' movzx eax,bh
    
52. ' movzx ebx,bl
    
53. ' shl eax,5
    
54. ' shl ebx,11
    
55. ' or ecx,eax
    
56. ' or ecx,ebx
    
57. ' mov eax,ecx
    
58. ' ASM_END:
    
59. ' pop edx
    
60. ' pop ecx
    
61. ' pop ebx
    
62. ' leave
    
63. ' retn 4
    
64. 返回 (0)
    
65. 
    
66. .子程序 取红色值, 字节型
    
67. .参数 颜色值, 整数型
    
68. 
    
69. 返回 (位与 (颜色值, 255))
    
70. 
    
71. .子程序 取绿色值, 字节型
    
72. .参数 颜色值, 整数型
    
73. 
    
74. 返回 (位与 (右移 (颜色值, 8), 255))
    
75. 
    
76. .子程序 取蓝色值, 字节型
    
77. .参数 颜色值, 整数型
    
78. 
    
79. 返回 (位与 (右移 (颜色值, 16), 255))
    
80. 
    
81. .子程序 颜色位深度_24位到16位_易源码, 整数型
    
82. .参数 颜色值, 整数型
    
83. 
    
84. .如果真 (颜色值 ＜ 0 或 颜色值 ＞ 16777215)
    
85.     返回 (-1)
    
86. .如果真结束
    
87. 返回 (位或 (右移 (取蓝色值 (颜色值), 3), 左移 (右移 (取绿色值 (颜色值), 2), 5), 左移 (右移 (取红色值 (颜色值), 3), 11)))
    

复制代码