tutorial/task10-solution1.mu

   1 fn to-km miles: float -> _/xmm1: float {
   2   var result/xmm1: float <- copy miles
   3   var factor/xmm0: float <- rational 0x649, 0x3e8  # 1.609 = 1609/1000 in hex
   4   result <- multiply factor
   5   return result
   6 }
   7
   8 fn test-to-km {
   9   # 0 miles = 0 km
  10   var zero: float  # Mu implicitly initializes variables in memory to 0
  11   var result/xmm1: float <- to-km zero
  12   compare result, zero
  13   {
  14     break-if-=
  15     draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "F - 0 miles = 0 km\n", 3/fg 0/bg
  16     count-test-failure
  17   }
  18   # 1 mile = 1.609 km approximately
  19   var one/eax: int <- copy 1
  20   var one-float/xmm0: float <- convert one
  21   result <- to-km one-float
  22   var lower-bound/xmm0: float <- rational 0x649, 0x3e8  # 1609/1000 in hex
  23   {
  24     compare result, lower-bound
  25     break-if-float>=
  26     draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "F - 1 mile > 1.609 km\n", 3/fg 0/bg
  27     count-test-failure
  28   }
  29   var upper-bound/xmm0: float <- rational 0x64a, 0x3e8  # 1610/1000 in hex
  30   {
  31     compare result, upper-bound
  32     break-if-float<=
  33     draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "F - 1 mile < 1.610 km\n", 3/fg 0/bg
  34     count-test-failure
  35   }
  36   # 2 miles = 3.218 km approximately
  37   var two/eax: int <- copy 2
  38   var two-float/xmm0: float <- convert two
  39   result <- to-km two-float
  40   var lower-bound/xmm0: float <- rational 0xc92, 0x3e8  # 3218/1000 in hex
  41   {
  42     compare result, lower-bound
  43     break-if-float>=
  44     draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "F - 2 miles > 3.218 km\n", 3/fg 0/bg
  45     count-test-failure
  46   }
  47   var upper-bound/xmm0: float <- rational 0xc93, 0x3e8  # 3219/1000 in hex
  48   {
  49     compare result, upper-bound
  50     break-if-float<=
  51     draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "F - 2 miles < 3.219 km\n", 3/fg 0/bg
  52     count-test-failure
  53   }
  54 }
  55
  56 fn main {
  57 }