1 files changed, 13 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