7272 - snapshot: printing floats in decimal

I've made some progress to where I can print whole integers right. But
this whole approach of mixing decimals with binary exponents is going to
be super confusing. I need to bite the bullet and just use decimal exponents.

1 files changed, 12 insertions, 1 deletions

diff --git a/405screen.mu b/405screen.mu
index e271bf79..0fd0f4e3 100644
--- a/405screen.mu
+++ b/405screen.mu
@@ -485,7 +485,18 @@ fn print-int32-decimal screen: (addr screen), n: int {
     return
   }
   # fake screen
-  # TODO
+  var s2: (stream byte 0x100)
+  var s2-addr/esi: (addr stream byte) <- address s2
+  write-int32-decimal s2-addr, n
+  var screen-addr/edi: (addr screen) <- copy screen
+  {
+    var done?/eax: boolean <- stream-empty? s2-addr
+    compare done?, 0
+    break-if-!=
+    var g/eax: grapheme <- read-grapheme s2-addr
+    print-grapheme screen, g
+    loop
+  }
 }
 
 fn reset-formatting screen: (addr screen) {