| blob | 5ecd9a14bb38552336c2185b40c5457bb484bb03 |
1 # Some information about the default palette of 256 colors provided by the
2 # BIOS on x86 computers.
4 == code
6 # Return the r/g/b for color [0, 256) in ecx/edx/ebx respectively.
7 color-rgb: # color: int -> _/ecx: int, _/edx: int, _/ebx: int
8 # . prologue
9 55/push-ebp
10 89/<- %ebp 4/r32/esp
11 # . save registers
12 50/push-eax
13 56/push-esi
14 # esi = color
15 8b/-> *(ebp+8) 6/r32/esi
16 #
17 81 7/subop/compare %esi 0x100/imm32
18 {
19 7c/jump-if-< break/disp8
20 (abort "invalid color")
21 }
22 # var color/esi: int = Colors-rgb[color]
23 b8/copy-to-eax Colors-rgb/imm32
24 8b/-> *(eax+esi<<2+4) 6/r32/esi
25 # var red/ecx: int = color & 0xff
26 89/<- %eax 6/r32/esi
27 25/and-eax-with 0xff/imm32
28 89/<- %ecx 0/r32/eax
29 # var green/edx: int = (color >> 8) & 0xff
30 89/<- %eax 6/r32/esi
31 c1 5/subop/shift-right-logical %eax 8/imm8
32 25/and-eax-with 0xff/imm32
33 89/<- %edx 0/r32/eax
34 # var blue/ebx: int = (color >> 16)
35 89/<- %eax 6/r32/esi
36 c1 5/subop/shift-right-logical %eax 0x10/imm8
37 89/<- %ebx 0/r32/eax
38 $colors-rgb:end:
39 # . restore registers
40 5e/pop-to-esi
41 58/pop-to-eax
42 # . epilogue
43 89/<- %esp 5/r32/ebp
44 5d/pop-to-ebp
45 c3/return
47 test-color-rgb:
48 # . prologue
49 55/push-ebp
50 89/<- %ebp 4/r32/esp
51 #
52 (color-rgb 0x10) # => eax ecx edx
53 (check-ints-equal %ecx 0 "F - test-color-rgb/0x10/r")
54 (check-ints-equal %edx 0 "F - test-color-rgb/0x10/g")
55 (check-ints-equal %ebx 0 "F - test-color-rgb/0x10/b")
56 (color-rgb 1) # => eax ecx edx
57 (check-ints-equal %ecx 0 "F - test-color-rgb/1/r")
58 (check-ints-equal %edx 0 "F - test-color-rgb/1/g")
59 (check-ints-equal %ebx 0xaa "F - test-color-rgb/1/b")
60 (color-rgb 0xf) # => eax ecx edx
61 (check-ints-equal %ecx 0xff "F - test-color-rgb/0xf/r")
62 (check-ints-equal %edx 0xff "F - test-color-rgb/0xf/g")
63 (check-ints-equal %ebx 0xff "F - test-color-rgb/0xf/b")
64 # . epilogue
65 89/<- %esp 5/r32/ebp
66 5d/pop-to-ebp
67 c3/return
69 == data
71 Colors-rgb:
72 0x400/imm32
73 00 00 00 00
74 00 00 aa 00
75 00 aa 00 00
76 00 aa aa 00
77 aa 00 00 00
78 aa 00 aa 00
79 aa 55 00 00
80 aa aa aa 00
81 55 55 55 00
82 55 55 ff 00
83 55 ff 55 00
84 55 ff ff 00
85 ff 55 55 00
86 ff 55 ff 00
87 ff ff 55 00
88 ff ff ff 00
89 00 00 00 00
90 14 14 14 00
91 20 20 20 00
92 2c 2c 2c 00
93 38 38 38 00
94 45 45 45 00
95 51 51 51 00
96 61 61 61 00
97 71 71 71 00
98 82 82 82 00
99 92 92 92 00
100 a2 a2 a2 00
101 b6 b6 b6 00
102 cb cb cb 00
103 e3 e3 e3 00
104 ff ff ff 00
105 00 00 ff 00
106 41 00 ff 00
107 7d 00 ff 00
108 be 00 ff 00
109 ff 00 ff 00
110 ff 00 be 00
111 ff 00 7d 00
112 ff 00 41 00
113 ff 00 00 00
114 ff 41 00 00
115 ff 7d 00 00
116 ff be 00 00
117 ff ff 00 00
118 be ff 00 00
119 7d ff 00 00
120 41 ff 00 00
121 00 ff 00 00
122 00 ff 41 00
123 00 ff 7d 00
124 00 ff be 00
125 00 ff ff 00
126 00 be ff 00
127 00 7d ff 00
128 00 41 ff 00
129 7d 7d ff 00
130 9e 7d ff 00
131 be 7d ff 00
132 df 7d ff 00
133 ff 7d ff 00
134 ff 7d df 00
135 ff 7d be 00
136 ff 7d 9e 00
137 ff 7d 7d 00
138 ff 9e 7d 00
139 ff be 7d 00
140 ff df 7d 00
141 ff ff 7d 00
142 df ff 7d 00
143 be ff 7d 00
144 9e ff 7d 00
145 7d ff 7d 00
146 7d ff 9e 00
147 7d ff be 00
148 7d ff df 00
149 7d ff ff 00
150 7d df ff 00
151 7d be ff 00
152 7d 9e ff 00
153 b6 b6 ff 00
154 c7 b6 ff 00
155 db b6 ff 00
156 eb b6 ff 00
157 ff b6 ff 00
158 ff b6 eb 00
159 ff b6 db 00
160 ff b6 c7 00
161 ff b6 b6 00
162 ff c7 b6 00
163 ff db b6 00
164 ff eb b6 00
165 ff ff b6 00
166 eb ff b6 00
167 db ff b6 00
168 c7 ff b6 00
169 b6 ff b6 00
170 b6 ff c7 00
171 b6 ff db 00
172 b6 ff eb 00
173 b6 ff ff 00
174 b6 eb ff 00
175 b6 db ff 00
176 b6 c7 ff 00
177 00 00 71 00
178 1c 00 71 00
179 38 00 71 00
180 55 00 71 00
181 71 00 71 00
182 71 00 55 00
183 71 00 38 00
184 71 00 1c 00
185 71 00 00 00
186 71 1c 00 00
187 71 38 00 00
188 71 55 00 00
189 71 71 00 00
190 55 71 00 00
191 38 71 00 00
192 1c 71 00 00
193 00 71 00 00
194 00 71 1c 00
195 00 71 38 00
196 00 71 55 00
197 00 71 71 00
198 00 55 71 00
199 00 38 71 00
200 00 1c 71 00
201 38 38 71 00
202 45 38 71 00
203 55 38 71 00
204 61 38 71 00
205 71 38 71 00
206 71 38 61 00
207 71 38 55 00
208 71 38 45 00
209 71 38 38 00
210 71 45 38 00
211 71 55 38 00
212 71 61 38 00
213 71 71 38 00
214 61 71 38 00
215 55 71 38 00
216 45 71 38 00
217 38 71 38 00
218 38 71 45 00
219 38 71 55 00
220 38 71 61 00
221 38 71 71 00
222 38 61 71 00
223 38 55 71 00
224 38 45 71 00
225 51 51 71 00
226 59 51 71 00
227 61 51 71 00
228 69 51 71 00
229 71 51 71 00
230 71 51 69 00
231 71 51 61 00
232 71 51 59 00
233 71 51 51 00
234 71 59 51 00
235 71 61 51 00
236 71 69 51 00
237 71 71 51 00
238 69 71 51 00
239 61 71 51 00
240 59 71 51 00
241 51 71 51 00
242 51 71 59 00
243 51 71 61 00
244 51 71 69 00
245 51 71 71 00
246 51 69 71 00
247 51 61 71 00
248 51 59 71 00
249 00 00 41 00
250 10 00 41 00
251 20 00 41 00
252 30 00 41 00
253 41 00 41 00
254 41 00 30 00
255 41 00 20 00
256 41 00 10 00
257 41 00 00 00
258 41 10 00 00
259 41 20 00 00
260 41 30 00 00
261 41 41 00 00
262 30 41 00 00
263 20 41 00 00
264 10 41 00 00
265 00 41 00 00
266 00 41 10 00
267 00 41 20 00
268 00 41 30 00
269 00 41 41 00
270 00 30 41 00
271 00 20 41 00
272 00 10 41 00
273 20 20 41 00
274 28 20 41 00
275 30 20 41 00
276 38 20 41 00
277 41 20 41 00
278 41 20 38 00
279 41 20 30 00
280 41 20 28 00
281 41 20 20 00
282 41 28 20 00
283 41 30 20 00
284 41 38 20 00
285 41 41 20 00
286 38 41 20 00
287 30 41 20 00
288 28 41 20 00
289 20 41 20 00
290 20 41 28 00
291 20 41 30 00
292 20 41 38 00
293 20 41 41 00
294 20 38 41 00
295 20 30 41 00
296 20 28 41 00
297 2c 2c 41 00
298 30 2c 41 00
299 34 2c 41 00
300 3c 2c 41 00
301 41 2c 41 00
302 41 2c 3c 00
303 41 2c 34 00
304 41 2c 30 00
305 41 2c 2c 00
306 41 30 2c 00
307 41 34 2c 00
308 41 3c 2c 00
309 41 41 2c 00
310 3c 41 2c 00
311 34 41 2c 00
312 30 41 2c 00
313 2c 41 2c 00
314 2c 41 30 00
315 2c 41 34 00
316 2c 41 3c 00
317 2c 41 41 00
318 2c 3c 41 00
319 2c 34 41 00
320 2c 30 41 00
321 00 00 00 00
322 00 00 00 00
323 00 00 00 00
324 00 00 00 00
325 00 00 00 00
326 00 00 00 00
327 00 00 00 00
328 00 00 00 00