6423 - done with sample app 'print-file'

Observations:
  - the orchestration from 'in' to 'addr-in' to '_in-addr' to 'in-addr'
    is quite painful. Once to turn a handle into its address, once to turn
    a handle into the address of its payload, and a third time to switch
    a variable out of the overloaded 'eax' variable to make room for read-byte-buffered.
  - I'm starting to use SubX as an escape hatch for features missing in Mu:
    - access to syscalls (which pass args in registers)
    - access to global variables

2 files changed, 10 insertions, 6 deletions

diff --git a/apps/mu b/apps/mu
index 1f77f3b4..06f3a21b 100755
--- a/apps/mu
+++ b/apps/mu
Binary files differdiff --git a/apps/print-file.mu b/apps/print-file.mu
index b5b5601b..8bec0105 100644
--- a/apps/print-file.mu
+++ b/apps/print-file.mu
@@ -19,13 +19,17 @@ $main-body: {
         var addr-in/eax: (addr handle buffered-file) <- address in
         open *filename, 0, addr-in
       }
-      var in-addr/eax: (addr buffered-file) <- lookup in
-      print-string "filename: "
-      print-string *filename
-      print-string ": "
-      print-int32-to-screen in-addr
-      print-string "\n"
+      var _in-addr/eax: (addr buffered-file) <- lookup in
+      var in-addr/ecx: (addr buffered-file) <- copy _in-addr
+      {
+        var c/eax: byte <- read-byte-buffered in-addr
+        compare c, 0xffffffff
+        break-if-=
+        print-byte c
+        loop
+      }
     }
   }
+  flush-stdout
   exit-status <- copy 0
 }