7327
This commit is contained in:
parent
f2ee237eea
commit
2d14f6c971
|
@ -1478,16 +1478,16 @@ 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 _repl-col/ecx: (addr int) <- get env, code-separator-col
|
||||
var repl-col/ecx: int <- copy *_repl-col
|
||||
draw-vertical-line screen, 1, *nrows, repl-col
|
||||
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
|
||||
# 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 repl-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
|
||||
|
@ -1523,9 +1523,9 @@ fn clear-canvas _env: (addr environment) {
|
|||
reset-formatting screen
|
||||
print-string screen, " define function "
|
||||
# primitives
|
||||
var dummy/eax: int <- render-primitives screen, *nrows, repl-col
|
||||
var dummy/eax: int <- render-primitives screen, *nrows, sep-col
|
||||
# currently defined functions
|
||||
render-functions screen, repl-col, env
|
||||
render-functions screen, sep-col, env
|
||||
}
|
||||
|
||||
# return value: top-most row written to
|
||||
|
|
Loading…
Reference in New Issue