This commit is contained in:
Kartik K. Agaram 2021-08-02 10:27:58 -07:00
parent 4692c48f40
commit 19d2e6423a
1 changed files with 4 additions and 0 deletions

View File

@ -15,7 +15,11 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han
var running-tests?/eax: boolean <- running-tests?
compare running-tests?, 0/false
break-if-!=
var old-x/eax: int <- copy 0
var old-y/ecx: int <- copy 0
old-x, old-y <- cursor-position 0/screen
show-stack-state
set-cursor-position 0/screen, old-x, old-y
}
# show intermediate progress on screen if necessary
# treat input at the real keyboard as interrupting