1 # Some information about the default palette of 256 colors provided by the
  2 # BIOS on x86 computers.
  3 
  4 == code
  5 
  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
 46 
 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
 68 
 69 == data
 70 
 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