diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-12-06 22:00:37 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-12-06 22:06:44 -0800 |
| commit | 601785364f45a7bd9846ac7ddd51df80784e7421 (patch) | |
| tree | 94658e4494abb001230d53e42e2214942a49aed4 | |
| parent | 642c7c8cab9dc4efe056a7774b42832646a43ba3 (diff) | |
| download | mu-601785364f45a7bd9846ac7ddd51df80784e7421.tar.gz | |
7343
| -rw-r--r-- | apps/tile/environment.mu | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 1795b32b..2015e4cf 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -1904,16 +1904,15 @@ fn clear-canvas _env: (addr environment) { var screen/edi: (addr screen) <- copy _screen clear-screen screen var nrows/eax: (addr int) <- get env, nrows - var _sep-col/ecx: (addr int) <- get env, code-separator-col - var sep-col/ecx: int <- copy *_sep-col - draw-vertical-line screen, 1, *nrows, sep-col + var sep-col/ecx: (addr int) <- get env, code-separator-col + draw-vertical-line screen, 1, *nrows, *sep-col # wordstar-style cheatsheet of shortcuts move-cursor screen, *nrows, 0 start-reverse-video screen print-string screen, " ctrl-q " reset-formatting screen print-string screen, " quit " - var menu-start/ebx: int <- copy sep-col + var menu-start/ebx: int <- copy *sep-col menu-start <- subtract 0x48 # 72 = half the size of the menu move-cursor screen, *nrows, menu-start start-reverse-video screen @@ -1953,7 +1952,7 @@ fn clear-canvas _env: (addr environment) { reset-formatting screen print-string screen, " define function " # primitives - var dummy/eax: int <- render-primitives screen, *nrows, sep-col + var dummy/eax: int <- render-primitives screen, *nrows, *sep-col } # return value: top-most row written to |