1 type rgb {
 2   # components normalized to within [0.0, 1.0]
 3   r: float
 4   g: float
 5   b: float
 6 }
 7 
 8 # print translating to [0, 256)
 9 fn print-rgb screen: (addr screen), _c: (addr rgb) {
10   var c/esi: (addr rgb) <- copy _c
11   var n/ecx: int <- copy 0xff
12   var xn/xmm1: float <- convert n
13   var tmp/xmm0: float <- copy xn
14   var tmp-a/eax: (addr float) <- get c, r
15   tmp <- multiply *tmp-a
16   var tmp2/edx: int <- convert tmp
17   print-int32-decimal screen, tmp2
18   print-string screen, " "
19   tmp-a <- get c, g
20   tmp <- copy xn
21   tmp <- multiply *tmp-a
22   tmp2 <- convert tmp
23   print-int32-decimal screen, tmp2
24   print-string screen, " "
25   tmp-a <- get c, b
26   tmp <- copy xn
27   tmp <- multiply *tmp-a
28   tmp2 <- convert tmp
29   print-int32-decimal screen, tmp2
30   print-string screen, "\n"
31 }