1 # Some quick-n-dirty ways to create floats.
 2 
 3 fn fill-in-rational _out: (addr float), nr: int, dr: int {
 4   var out/edi: (addr float) <- copy _out
 5   var result/xmm0: float <- convert nr
 6   var divisor/xmm1: float <- convert dr
 7   result <- divide divisor
 8   copy-to *out, result
 9 }
10 
11 fn fill-in-sqrt _out: (addr float), n: int {
12   var out/edi: (addr float) <- copy _out
13   var result/xmm0: float <- convert n
14   result <- square-root result
15   copy-to *out, result
16 }
17 
18 fn rational nr: int, dr: int -> _/xmm0: float {
19   var result/xmm0: float <- convert nr
20   var divisor/xmm1: float <- convert dr
21   result <- divide divisor
22   return result
23 }
24 
25 # n/m rounded up
26 fn scale-down-and-round-up n: int, m: int -> _/ecx: int {
27   var result/ecx: int <- copy n
28   result <- add m
29   result <- decrement
30   var result-f/xmm0: float <- convert result
31   var m-f/xmm1: float <- convert m
32   result-f <- divide m-f
33   result <- truncate result-f
34   return result
35 }