diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-25 19:41:07 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-25 19:41:07 -0700 |
| commit | ad54c696678318126e41058182335e2bf5b30d88 (patch) | |
| tree | 622bdd23dbde88c73d7089c3ec84c0879f0e204d /apps/tile | |
| parent | a148b23a22709a45647fd07ce95db9147217a061 (diff) | |
| download | mu-ad54c696678318126e41058182335e2bf5b30d88.tar.gz | |
7102
Diffstat (limited to 'apps/tile')
| -rw-r--r-- | apps/tile/environment.mu | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 2b768c0a..ed2b2c1b 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -1426,7 +1426,7 @@ fn clear-canvas _env: (addr environment) { print-string screen, " ctrl-q " reset-formatting screen print-string screen, " quit " - var menu-start/ecx: int <- copy repl-col + var menu-start/ebx: int <- copy repl-col menu-start <- subtract 0x40 # 64 = half the size of the menu move-cursor screen, *nrows, menu-start start-reverse-video screen @@ -1457,14 +1457,24 @@ fn clear-canvas _env: (addr environment) { print-string screen, " ctrl-d " reset-formatting screen print-string screen, " define function " + # primitives + var start-col/ecx: int <- copy repl-col + start-col <- subtract 0x18 + move-cursor screen, 1, start-col + print-string screen, "primitives:" + move-cursor screen, 4, start-col + print-string screen, "functions:" + start-col <- add 2 + move-cursor screen, 2, start-col + print-string screen, "+ - *" # currently defined functions - var row/ecx: int <- copy 3 + var row/ebx: int <- copy 5 var functions/esi: (addr handle function) <- get env, functions { var curr/eax: (addr function) <- lookup *functions compare curr, 0 break-if-= - move-cursor screen, row, 2 + move-cursor screen, row, start-col render-function screen, curr functions <- get curr, next row <- increment |