about summary refs log tree commit diff stats
path: root/prototypes/tile
diff options
context:
space:
mode:
Diffstat (limited to 'prototypes/tile')
-rw-r--r--prototypes/tile/1.mu16
-rw-r--r--prototypes/tile/10.mu28
-rw-r--r--prototypes/tile/2.mu14
-rw-r--r--prototypes/tile/3.mu22
-rw-r--r--prototypes/tile/4.mu14
-rw-r--r--prototypes/tile/5.mu12
-rw-r--r--prototypes/tile/6.mu30
-rw-r--r--prototypes/tile/7.mu28
-rw-r--r--prototypes/tile/8.mu28
-rw-r--r--prototypes/tile/9.mu28
10 files changed, 110 insertions, 110 deletions
diff --git a/prototypes/tile/1.mu b/prototypes/tile/1.mu
index 42c1f08b..4c0f8a6d 100644
--- a/prototypes/tile/1.mu
+++ b/prototypes/tile/1.mu
@@ -10,9 +10,9 @@
 # https://archive.org/details/akkartik-2min-2020-07-01
 
 fn main -> exit-status/ebx: int {
-  clear-screen
-  move-cursor-on-screen 5, 5
-  print-string-to-screen "_________"
+  clear-screen 0
+  move-cursor 0, 5, 5
+  print-string 0, "_________"
   enable-keyboard-immediate-mode
   var dummy/eax: byte <- read-key
   var row/eax: int <- copy 5
@@ -26,7 +26,7 @@ fn main -> exit-status/ebx: int {
   }
   var dummy/eax: byte <- read-key
   enable-keyboard-type-mode
-  clear-screen
+  clear-screen 0
   exit-status <- copy 0
 }
 
@@ -35,11 +35,11 @@ fn animate row: int {
   {
     compare col, 0xe
     break-if-=
-    move-cursor-on-screen row, col
-    print-string-to-screen " "
+    move-cursor 0, row, col
+    print-string 0, " "
     increment row
-    move-cursor-on-screen row, col
-    print-string-to-screen "_"
+    move-cursor 0, row, col
+    print-string 0, "_"
     decrement row
     col <- increment
     loop
diff --git a/prototypes/tile/10.mu b/prototypes/tile/10.mu
index a20e50ef..a9a4c85c 100644
--- a/prototypes/tile/10.mu
+++ b/prototypes/tile/10.mu
@@ -75,7 +75,7 @@ $main:loop: {
     render root-addr, cursor-addr
     loop
   }
-  clear-screen
+  clear-screen 0
   enable-keyboard-type-mode
   exit-status <- copy 0
 }
@@ -199,7 +199,7 @@ fn create-child node: (handle cell) {
 #######################################################
 
 fn render root: (addr cell), cursor: (addr cell) {
-  clear-screen
+  clear-screen 0
   var depth/eax: int <- tree-depth root
   var viewport-width/ecx: int <- copy 0x65  # col2
   viewport-width <- subtract 5  # col1
@@ -318,11 +318,11 @@ fn draw-hatching row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -333,8 +333,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
@@ -346,8 +346,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # x = next power-of-2 multiple of _dr after _nr
   var x/ecx: int <- copy 1
   {
-#?     print-int32-hex-to-screen x
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, x
+#?     print-string 0, "\n"
     var tmp/edx: int <- copy _dr
     tmp <- multiply x
     compare tmp, _nr
@@ -355,7 +355,7 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
     x <- shift-left 1
     loop
   }
-#?   print-string-to-screen "--\n"
+#?   print-string 0, "--\n"
   # min, max = x/2, x
   var max/ecx: int <- copy x
   var min/edx: int <- copy max
@@ -363,8 +363,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # narrow down result between min and max
   var i/eax: int <- copy min
   {
-#?     print-int32-hex-to-screen i
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, i
+#?     print-string 0, "\n"
     var foo/ebx: int <- copy _dr
     foo <- multiply i
     compare foo, _nr
@@ -374,9 +374,9 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   }
   result <- copy i
   result <- decrement
-#?   print-string-to-screen "=> "
-#?   print-int32-hex-to-screen result
-#?   print-string-to-screen "\n"
+#?   print-string 0, "=> "
+#?   print-int32-hex 0, result
+#?   print-string 0, "\n"
 }
 
 fn test-try-divide-1 {
diff --git a/prototypes/tile/2.mu b/prototypes/tile/2.mu
index aa0cd05e..c6daa971 100644
--- a/prototypes/tile/2.mu
+++ b/prototypes/tile/2.mu
@@ -9,7 +9,7 @@
 
 fn main -> exit-status/ebx: int {
   var num-lines/ecx: int <- copy 0x10
-  clear-screen
+  clear-screen 0
   # open a file
   var f: (addr buffered-file)
   {
@@ -36,7 +36,7 @@ fn main -> exit-status/ebx: int {
     enable-keyboard-type-mode
   }
   # clean up
-  clear-screen
+  clear-screen 0
   exit-status <- copy 0
 }
 
@@ -48,11 +48,11 @@ $render:clear-loop: {
     break-if-<=
     decrement start-row
     var col/eax: int <- copy 1
-    move-cursor-on-screen start-row, col
+    move-cursor 0, start-row, col
     {
       compare col, num-cols
       break-if->
-      print-string-to-screen " "
+      print-string 0, " "
       col <- increment
       loop
     }
@@ -61,7 +61,7 @@ $render:clear-loop: {
   # render rest of screen below
   var row/edx: int <- copy start-row
   var col/ebx: int <- copy 1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
 $render:render-loop: {
     compare row, num-rows
     break-if->=
@@ -73,10 +73,10 @@ $render:render-loop: {
       break-if-!=
       row <- increment
       col <- copy 0
-      move-cursor-on-screen row, col
+      move-cursor 0, row, col
       loop $render:render-loop
     }
-    print-byte-to-screen c
+    print-byte 0, c
     col <- increment
     loop
   }
diff --git a/prototypes/tile/3.mu b/prototypes/tile/3.mu
index 3ee274de..8f234f21 100644
--- a/prototypes/tile/3.mu
+++ b/prototypes/tile/3.mu
@@ -7,7 +7,7 @@
 
 fn main -> exit-status/ebx: int {
   var num-lines/ecx: int <- copy 0x64  # 100
-  clear-screen
+  clear-screen 0
   # open a file
   var f: (addr buffered-file)
   {
@@ -36,14 +36,14 @@ fn main -> exit-status/ebx: int {
   var t3/esi: int <- copy t2
   t3 <- subtract t1
   # clean up
-  clear-screen
+  clear-screen 0
   # results
-  print-int32-hex-to-screen t1
-  print-string-to-screen "\n"
-  print-int32-hex-to-screen t2
-  print-string-to-screen "\n"
-  print-int32-hex-to-screen t3
-  print-string-to-screen "\n"
+  print-int32-hex 0, t1
+  print-string 0, "\n"
+  print-int32-hex 0, t2
+  print-string 0, "\n"
+  print-int32-hex 0, t3
+  print-string 0, "\n"
   #
   exit-status <- copy 0
 }
@@ -53,7 +53,7 @@ fn render f: (addr buffered-file), num-rows: int {
   # render screen
   var row/edx: int <- copy 1
   var col/ebx: int <- copy 1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
 $render:render-loop: {
     compare row, num-rows
     break-if->=
@@ -65,10 +65,10 @@ $render:render-loop: {
       break-if-!=
       row <- increment
       col <- copy 0
-      move-cursor-on-screen row, col
+      move-cursor 0, row, col
       loop $render:render-loop
     }
-    print-byte-to-screen c
+    print-byte 0, c
     col <- increment
     loop
   }
diff --git a/prototypes/tile/4.mu b/prototypes/tile/4.mu
index 660dbfbc..bd2bd77c 100644
--- a/prototypes/tile/4.mu
+++ b/prototypes/tile/4.mu
@@ -7,7 +7,7 @@
 #   $ ./a.elf
 
 fn main -> exit-status/ebx: int {
-  clear-screen
+  clear-screen 0
   enable-keyboard-immediate-mode
   var dummy/eax: byte <- read-key
   draw-box 5, 5, 0x23, 0x23  # 35, 35
@@ -19,12 +19,12 @@ fn main -> exit-status/ebx: int {
   draw-box 5, 5, 0x23, 0xaf  # 35, 175
   var dummy/eax: byte <- read-key
   enable-keyboard-type-mode
-  clear-screen
+  clear-screen 0
   exit-status <- copy 0
 }
 
 fn draw-box row1: int, col1: int, row2: int, col2: int {
-  clear-screen
+  clear-screen 0
   draw-horizontal-line row1, col1, col2
   draw-vertical-line row1, row2, col1
   draw-horizontal-line row2, col1, col2
@@ -33,11 +33,11 @@ fn draw-box row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -48,8 +48,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
diff --git a/prototypes/tile/5.mu b/prototypes/tile/5.mu
index c7785df6..941f132e 100644
--- a/prototypes/tile/5.mu
+++ b/prototypes/tile/5.mu
@@ -41,7 +41,7 @@ $main:loop: {
     render root-addr
     loop
   }
-  clear-screen
+  clear-screen 0
   enable-keyboard-type-mode
   exit-status <- copy 0
 }
@@ -67,7 +67,7 @@ fn create-child node: (addr cell) {
 #######################################################
 
 fn render root: (addr cell) {
-  clear-screen
+  clear-screen 0
   var depth/eax: int <- tree-depth root
   var viewport-width/ecx: int <- copy 0x64  # col2
   viewport-width <- subtract 5  # col1
@@ -134,11 +134,11 @@ fn draw-box row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -149,8 +149,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
diff --git a/prototypes/tile/6.mu b/prototypes/tile/6.mu
index 4cf1d4c2..ecd22ae4 100644
--- a/prototypes/tile/6.mu
+++ b/prototypes/tile/6.mu
@@ -68,7 +68,7 @@ $main:loop: {
     render root-addr
     loop
   }
-  clear-screen
+  clear-screen 0
   enable-keyboard-type-mode
   exit-status <- copy 0
 }
@@ -83,7 +83,7 @@ fn process c: byte, root: (addr handle cell), cursor: (addr handle cell) {
   var c2/eax: (addr cell) <- lookup *c1
   var c3/edx: (addr cell) <- copy c2
   {
-    print-string-to-screen "iter\n"
+    print-string 0, "iter\n"
     var tmp/ebx: (addr handle cell) <- get c3, first-child
     var tmp2/eax: (addr cell) <- lookup *tmp
     compare tmp2, 0
@@ -106,7 +106,7 @@ fn create-child node: (addr cell) {
 #######################################################
 
 fn render root: (addr cell) {
-  clear-screen
+  clear-screen 0
   var depth/eax: int <- tree-depth root
   var viewport-width/ecx: int <- copy 0x64  # col2
   viewport-width <- subtract 5  # col1
@@ -161,11 +161,11 @@ fn draw-box row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -176,8 +176,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
@@ -189,8 +189,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # x = next power-of-2 multiple of _dr after _nr
   var x/ecx: int <- copy 1
   {
-#?     print-int32-hex-to-screen x
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, x
+#?     print-string 0, "\n"
     var tmp/edx: int <- copy _dr
     tmp <- multiply x
     compare tmp, _nr
@@ -198,7 +198,7 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
     x <- shift-left 1
     loop
   }
-#?   print-string-to-screen "--\n"
+#?   print-string 0, "--\n"
   # min, max = x/2, x
   var max/ecx: int <- copy x
   var min/edx: int <- copy max
@@ -206,8 +206,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # narrow down result between min and max
   var i/eax: int <- copy min
   {
-#?     print-int32-hex-to-screen i
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, i
+#?     print-string 0, "\n"
     var foo/ebx: int <- copy _dr
     foo <- multiply i
     compare foo, _nr
@@ -217,9 +217,9 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   }
   result <- copy i
   result <- decrement
-#?   print-string-to-screen "=> "
-#?   print-int32-hex-to-screen result
-#?   print-string-to-screen "\n"
+#?   print-string 0, "=> "
+#?   print-int32-hex 0, result
+#?   print-string 0, "\n"
 }
 
 fn test-try-divide-1 {
diff --git a/prototypes/tile/7.mu b/prototypes/tile/7.mu
index 3cec67b6..42182745 100644
--- a/prototypes/tile/7.mu
+++ b/prototypes/tile/7.mu
@@ -72,7 +72,7 @@ $main:loop: {
     render root-addr
     loop
   }
-  clear-screen
+  clear-screen 0
   enable-keyboard-type-mode
   exit-status <- copy 0
 }
@@ -105,7 +105,7 @@ fn create-child node: (addr cell) {
 #######################################################
 
 fn render root: (addr cell) {
-  clear-screen
+  clear-screen 0
   var depth/eax: int <- tree-depth root
   var viewport-width/ecx: int <- copy 0x64  # col2
   viewport-width <- subtract 5  # col1
@@ -175,11 +175,11 @@ fn draw-box row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -190,8 +190,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
@@ -203,8 +203,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # x = next power-of-2 multiple of _dr after _nr
   var x/ecx: int <- copy 1
   {
-#?     print-int32-hex-to-screen x
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, x
+#?     print-string 0, "\n"
     var tmp/edx: int <- copy _dr
     tmp <- multiply x
     compare tmp, _nr
@@ -212,7 +212,7 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
     x <- shift-left 1
     loop
   }
-#?   print-string-to-screen "--\n"
+#?   print-string 0, "--\n"
   # min, max = x/2, x
   var max/ecx: int <- copy x
   var min/edx: int <- copy max
@@ -220,8 +220,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # narrow down result between min and max
   var i/eax: int <- copy min
   {
-#?     print-int32-hex-to-screen i
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, i
+#?     print-string 0, "\n"
     var foo/ebx: int <- copy _dr
     foo <- multiply i
     compare foo, _nr
@@ -231,9 +231,9 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   }
   result <- copy i
   result <- decrement
-#?   print-string-to-screen "=> "
-#?   print-int32-hex-to-screen result
-#?   print-string-to-screen "\n"
+#?   print-string 0, "=> "
+#?   print-int32-hex 0, result
+#?   print-string 0, "\n"
 }
 
 fn test-try-divide-1 {
diff --git a/prototypes/tile/8.mu b/prototypes/tile/8.mu
index 9b7df0f8..d86f3f8e 100644
--- a/prototypes/tile/8.mu
+++ b/prototypes/tile/8.mu
@@ -72,7 +72,7 @@ $main:loop: {
     render root-addr
     loop
   }
-  clear-screen
+  clear-screen 0
   enable-keyboard-type-mode
   exit-status <- copy 0
 }
@@ -105,7 +105,7 @@ fn create-child node: (addr cell) {
 #######################################################
 
 fn render root: (addr cell) {
-  clear-screen
+  clear-screen 0
   var depth/eax: int <- tree-depth root
   var viewport-width/ecx: int <- copy 0x64  # col2
   viewport-width <- subtract 5  # col1
@@ -205,11 +205,11 @@ fn draw-box row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -220,8 +220,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
@@ -233,8 +233,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # x = next power-of-2 multiple of _dr after _nr
   var x/ecx: int <- copy 1
   {
-#?     print-int32-hex-to-screen x
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, x
+#?     print-string 0, "\n"
     var tmp/edx: int <- copy _dr
     tmp <- multiply x
     compare tmp, _nr
@@ -242,7 +242,7 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
     x <- shift-left 1
     loop
   }
-#?   print-string-to-screen "--\n"
+#?   print-string 0, "--\n"
   # min, max = x/2, x
   var max/ecx: int <- copy x
   var min/edx: int <- copy max
@@ -250,8 +250,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # narrow down result between min and max
   var i/eax: int <- copy min
   {
-#?     print-int32-hex-to-screen i
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, i
+#?     print-string 0, "\n"
     var foo/ebx: int <- copy _dr
     foo <- multiply i
     compare foo, _nr
@@ -261,9 +261,9 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   }
   result <- copy i
   result <- decrement
-#?   print-string-to-screen "=> "
-#?   print-int32-hex-to-screen result
-#?   print-string-to-screen "\n"
+#?   print-string 0, "=> "
+#?   print-int32-hex 0, result
+#?   print-string 0, "\n"
 }
 
 fn test-try-divide-1 {
diff --git a/prototypes/tile/9.mu b/prototypes/tile/9.mu
index 91637afb..298db795 100644
--- a/prototypes/tile/9.mu
+++ b/prototypes/tile/9.mu
@@ -71,7 +71,7 @@ $main:loop: {
     render root-addr, cursor-addr
     loop
   }
-  clear-screen
+  clear-screen 0
   enable-keyboard-type-mode
   exit-status <- copy 0
 }
@@ -183,7 +183,7 @@ fn create-child node: (addr cell) {
 #######################################################
 
 fn render root: (addr cell), cursor: (addr cell) {
-  clear-screen
+  clear-screen 0
   var depth/eax: int <- tree-depth root
   var viewport-width/ecx: int <- copy 0x64  # col2
   viewport-width <- subtract 5  # col1
@@ -283,11 +283,11 @@ fn draw-box row1: int, col1: int, row2: int, col2: int {
 
 fn draw-horizontal-line row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor-on-screen row, col
+  move-cursor 0, row, col
   {
     compare col, col2
     break-if->=
-    print-string-to-screen "-"
+    print-string 0, "-"
     col <- increment
     loop
   }
@@ -298,8 +298,8 @@ fn draw-vertical-line row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor-on-screen row, col
-    print-string-to-screen "|"
+    move-cursor 0, row, col
+    print-string 0, "|"
     row <- increment
     loop
   }
@@ -311,8 +311,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # x = next power-of-2 multiple of _dr after _nr
   var x/ecx: int <- copy 1
   {
-#?     print-int32-hex-to-screen x
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, x
+#?     print-string 0, "\n"
     var tmp/edx: int <- copy _dr
     tmp <- multiply x
     compare tmp, _nr
@@ -320,7 +320,7 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
     x <- shift-left 1
     loop
   }
-#?   print-string-to-screen "--\n"
+#?   print-string 0, "--\n"
   # min, max = x/2, x
   var max/ecx: int <- copy x
   var min/edx: int <- copy max
@@ -328,8 +328,8 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   # narrow down result between min and max
   var i/eax: int <- copy min
   {
-#?     print-int32-hex-to-screen i
-#?     print-string-to-screen "\n"
+#?     print-int32-hex 0, i
+#?     print-string 0, "\n"
     var foo/ebx: int <- copy _dr
     foo <- multiply i
     compare foo, _nr
@@ -339,9 +339,9 @@ fn try-divide _nr: int, _dr: int -> result/eax: int {
   }
   result <- copy i
   result <- decrement
-#?   print-string-to-screen "=> "
-#?   print-int32-hex-to-screen result
-#?   print-string-to-screen "\n"
+#?   print-string 0, "=> "
+#?   print-int32-hex 0, result
+#?   print-string 0, "\n"
 }
 
 fn test-try-divide-1 {
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-09-07 05:41:39 +0000