6713 - move-cursor on fake screen

1 files changed, 9 insertions, 0 deletions

diff --git a/405screen.mu b/405screen.mu
index 99eae4f4..2d7d0c72 100644
--- a/405screen.mu
+++ b/405screen.mu
@@ -118,6 +118,15 @@ $move-cursor:body: {
   {
     break-if-=
     # fake screen
+    var screen-addr/esi: (addr screen) <- copy screen
+    # screen->cursor-row = row
+    var dest/edi: (addr int) <- get screen-addr, cursor-row
+    var src/eax: int <- copy row
+    copy-to *dest, src
+    # screen->cursor-col = column
+    dest <- get screen-addr, cursor-col
+    src <- copy column
+    copy-to *dest, src
   }
 }
 }