akkartik/mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

7327

Browse Source
This commit is contained in:
Kartik Agaram 2020-12-03 21:49:03 -08:00
parent f2ee237eea
commit 2d14f6c971
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
apps/tile/environment.mu
View File

@ -1478,16 +1478,16 @@ fn clear-canvas _env: (addr environment) {
var screen/edi: (addr screen) <- copy _screen var screen/edi: (addr screen) <- copy _screen
clear-screen screen clear-screen screen
var nrows/eax: (addr int) <- get env, nrows var nrows/eax: (addr int) <- get env, nrows
var _repl-col/ecx: (addr int) <- get env, code-separator-col var _sep-col/ecx: (addr int) <- get env, code-separator-col
var repl-col/ecx: int <- copy *_repl-col var sep-col/ecx: int <- copy *_sep-col
draw-vertical-line screen, 1, *nrows, repl-col draw-vertical-line screen, 1, *nrows, sep-col
# wordstar-style cheatsheet of shortcuts # wordstar-style cheatsheet of shortcuts
move-cursor screen, *nrows, 0 move-cursor screen, *nrows, 0
start-reverse-video screen start-reverse-video screen
print-string screen, " ctrl-q " print-string screen, " ctrl-q "
reset-formatting screen reset-formatting screen
print-string screen, " quit " print-string screen, " quit "
var menu-start/ebx: int <- copy repl-col var menu-start/ebx: int <- copy sep-col
menu-start <- subtract 0x48 # 72 = half the size of the menu menu-start <- subtract 0x48 # 72 = half the size of the menu
move-cursor screen, *nrows, menu-start move-cursor screen, *nrows, menu-start
start-reverse-video screen start-reverse-video screen
@ -1523,9 +1523,9 @@ fn clear-canvas _env: (addr environment) {
reset-formatting screen reset-formatting screen
print-string screen, " define function " print-string screen, " define function "
# primitives # primitives
var dummy/eax: int <- render-primitives screen, *nrows, repl-col var dummy/eax: int <- render-primitives screen, *nrows, sep-col
# currently defined functions # currently defined functions
render-functions screen, repl-col, env render-functions screen, sep-col, env
} }
# return value: top-most row written to # return value: top-most row written to