diff options
| -rw-r--r-- | apps/tile/environment.mu | 8 | ||||
| -rw-r--r-- | apps/tile/rpn.mu | 116 |
2 files changed, 121 insertions, 3 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 77949e21..1e4ae762 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -1477,15 +1477,17 @@ fn clear-canvas _env: (addr environment) { move-cursor screen, 3, start-col print-string screen, "open read slurp lines" move-cursor screen, 4, start-col - print-string screen, "fake-screen" + print-string screen, "fake-screen print move" move-cursor screen, 5, start-col + print-string screen, "up down left right" + move-cursor screen, 6, start-col print-string screen, "dup swap" # currently defined functions start-col <- subtract 2 - move-cursor screen, 6, start-col + move-cursor screen, 8, start-col print-string screen, "functions:" start-col <- add 2 - var row/ebx: int <- copy 7 + var row/ebx: int <- copy 9 var functions/esi: (addr handle function) <- get env, functions { var curr/eax: (addr function) <- lookup *functions diff --git a/apps/tile/rpn.mu b/apps/tile/rpn.mu index 71562eaf..0f6e16fa 100644 --- a/apps/tile/rpn.mu +++ b/apps/tile/rpn.mu @@ -357,6 +357,122 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch: move-cursor target, r, c break $evaluate:process-word } + { + var is-up?/eax: boolean <- stream-data-equal? curr-stream, "up" + compare is-up?, 0 + break-if-= + var out2/esi: (addr value-stack) <- copy out + # select screen from top of out (but don't pop it) + var top-addr/ebx: (addr int) <- get out2, top + compare *top-addr, 0 + break-if-<= + var data-ah/eax: (addr handle array value) <- get out2, data + var _data/eax: (addr array value) <- lookup *data-ah + var data/edi: (addr array value) <- copy _data + var top/eax: int <- copy *top-addr + top <- decrement + var target-offset/eax: (offset value) <- compute-offset data, top + var target-val/ebx: (addr value) <- index data, target-offset + var type/eax: (addr int) <- get target-val, type + compare *type, 4 # screen + break-if-!= + var target-ah/eax: (addr handle screen) <- get target-val, screen-data + var _target/eax: (addr screen) <- lookup *target-ah + var target/edi: (addr screen) <- copy _target + var dest/eax: (addr int) <- get target, cursor-row + compare *dest, 1 + break-if-<= $evaluate:process-word + decrement *dest + break $evaluate:process-word + } + { + var is-down?/eax: boolean <- stream-data-equal? curr-stream, "down" + compare is-down?, 0 + break-if-= + var out2/esi: (addr value-stack) <- copy out + # select screen from top of out (but don't pop it) + var top-addr/ebx: (addr int) <- get out2, top + compare *top-addr, 0 + break-if-<= + var data-ah/eax: (addr handle array value) <- get out2, data + var _data/eax: (addr array value) <- lookup *data-ah + var data/edi: (addr array value) <- copy _data + var top/eax: int <- copy *top-addr + top <- decrement + var target-offset/eax: (offset value) <- compute-offset data, top + var target-val/ebx: (addr value) <- index data, target-offset + var type/eax: (addr int) <- get target-val, type + compare *type, 4 # screen + break-if-!= + var target-ah/eax: (addr handle screen) <- get target-val, screen-data + var _target/eax: (addr screen) <- lookup *target-ah + var target/edi: (addr screen) <- copy _target + var bound-a/ecx: (addr int) <- get target, num-rows + var bound/ecx: int <- copy *bound-a + var dest/eax: (addr int) <- get target, cursor-row + compare *dest, bound + break-if->= $evaluate:process-word + increment *dest + break $evaluate:process-word + } + { + var is-left?/eax: boolean <- stream-data-equal? curr-stream, "left" + compare is-left?, 0 + break-if-= + var out2/esi: (addr value-stack) <- copy out + # select screen from top of out (but don't pop it) + var top-addr/ebx: (addr int) <- get out2, top + compare *top-addr, 0 + break-if-<= + var data-ah/eax: (addr handle array value) <- get out2, data + var _data/eax: (addr array value) <- lookup *data-ah + var data/edi: (addr array value) <- copy _data + var top/eax: int <- copy *top-addr + top <- decrement + var target-offset/eax: (offset value) <- compute-offset data, top + var target-val/ebx: (addr value) <- index data, target-offset + var type/eax: (addr int) <- get target-val, type + compare *type, 4 # screen + break-if-!= + var target-ah/eax: (addr handle screen) <- get target-val, screen-data + var _target/eax: (addr screen) <- lookup *target-ah + var target/edi: (addr screen) <- copy _target + var dest/eax: (addr int) <- get target, cursor-col + compare *dest, 1 + break-if-<= $evaluate:process-word + decrement *dest + break $evaluate:process-word + } + { + var is-right?/eax: boolean <- stream-data-equal? curr-stream, "right" + compare is-right?, 0 + break-if-= + var out2/esi: (addr value-stack) <- copy out + # select screen from top of out (but don't pop it) + var top-addr/ebx: (addr int) <- get out2, top + compare *top-addr, 0 + break-if-<= + var data-ah/eax: (addr handle array value) <- get out2, data + var _data/eax: (addr array value) <- lookup *data-ah + var data/edi: (addr array value) <- copy _data + var top/eax: int <- copy *top-addr + top <- decrement + var target-offset/eax: (offset value) <- compute-offset data, top + var target-val/ebx: (addr value) <- index data, target-offset + var type/eax: (addr int) <- get target-val, type + compare *type, 4 # screen + break-if-!= + var target-ah/eax: (addr handle screen) <- get target-val, screen-data + var _target/eax: (addr screen) <- lookup *target-ah + var target/edi: (addr screen) <- copy _target + var bound-a/ecx: (addr int) <- get target, num-cols + var bound/ecx: int <- copy *bound-a + var dest/eax: (addr int) <- get target, cursor-col + compare *dest, bound + break-if->= $evaluate:process-word + increment *dest + break $evaluate:process-word + } ## HACKS: we're trying to avoid turning this into Forth { var is-dup?/eax: boolean <- stream-data-equal? curr-stream, "dup" |