7499

1 files changed, 13 insertions, 0 deletions

diff --git a/baremetal/501draw-text.mu b/baremetal/501draw-text.mu
new file mode 100644
index 00000000..61b2d9ca
--- /dev/null
+++ b/baremetal/501draw-text.mu
@@ -0,0 +1,13 @@
+fn draw-text-rightward screen: (addr screen), text: (addr array byte), x: int, y: int, color: int {
+  var stream-storage: (stream byte 0x100)
+  var stream/esi: (addr stream byte) <- address stream-storage
+  write stream, text
+  {
+    var g/eax: grapheme <- read-grapheme stream
+    compare g, 0xffffffff  # end-of-file
+    break-if-=
+    draw-grapheme screen, g, x, y, color
+    add-to x, 8  # font-width
+    loop
+  }
+}