about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--304screen.subx13
-rw-r--r--400.mu1
-rwxr-xr-xapps/mubin369174 -> 369220 bytes
3 files changed, 14 insertions, 0 deletions
diff --git a/304screen.subx b/304screen.subx
index 2e3635ee..afed9775 100644
--- a/304screen.subx
+++ b/304screen.subx
@@ -131,6 +131,19 @@ $print-string-to-real-screen:end:
     5d/pop-to-ebp
     c3/return
 
+print-stream-to-real-screen:  # s: (addr stream byte)
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    #
+    (write-stream-data Stdout *(ebp+8))
+    (flush Stdout)
+$print-stream-to-real-screen:end:
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
 # print a grapheme in utf-8 (only up to 4 bytes so far)
 print-grapheme-to-real-screen:  # c: grapheme
     # . prologue
diff --git a/400.mu b/400.mu
index 8e42eabc..aed97812 100644
--- a/400.mu
+++ b/400.mu
@@ -142,6 +142,7 @@ sig real-screen-size -> nrows/eax: int, ncols/ecx: int
 sig clear-real-screen
 sig move-cursor-on-real-screen row: int, column: int
 sig print-string-to-real-screen s: (addr array byte)
+sig print-stream-to-real-screen s: (addr stream byte)
 sig print-grapheme-to-real-screen c: grapheme
 sig print-int32-hex-to-real-screen n: int
 sig reset-formatting-on-real-screen
diff --git a/apps/mu b/apps/mu
index 336596d1..33169c68 100755
--- a/apps/mu
+++ b/apps/mu
Binary files differ