diff options
Diffstat (limited to 'prototypes/tile')
-rw-r--r-- | prototypes/tile/1.mu | 16 | ||||
-rw-r--r-- | prototypes/tile/10.mu | 28 | ||||
-rw-r--r-- | prototypes/tile/2.mu | 14 | ||||
-rw-r--r-- | prototypes/tile/3.mu | 22 | ||||
-rw-r--r-- | prototypes/tile/4.mu | 14 | ||||
-rw-r--r-- | prototypes/tile/5.mu | 12 | ||||
-rw-r--r-- | prototypes/tile/6.mu | 30 | ||||
-rw-r--r-- | prototypes/tile/7.mu | 28 | ||||
-rw-r--r-- | prototypes/tile/8.mu | 28 | ||||
-rw-r--r-- | prototypes/tile/9.mu | 28 |
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 { |