6718

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

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