izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 16:38:06 +11:00
Code Issues Releases Wiki Activity

cvm: fix NEWLN behavior

Browse Source 
I hadn't noticed yet, but making CVM use the Grid subsystem made
me lose scrolling. It's fine because that scrolling was "artificial"
in the sense that it was provided by curses, not Collapse OS and I
prefer having something that closer emulates a real machine.

However, CVM didn't properly clear the new line when entering it.
Fixed.

Scrolling behavior will come back when it's implemented in the Grid
subsystem.
This commit is contained in:
Virgil Dupras 2020-11-17 11:52:54 -05:00
parent eab8ab6f60
commit 224e9183fb
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cvm/forth.c
View File

@ -105,7 +105,7 @@ int main(int argc, char *argv[])
// debug panel // debug panel
dw = newwin(1, 30, LINES-1, COLS-30); dw = newwin(1, 30, LINES-1, COLS-30);
w = newwin(WLINES, WCOLS, 1, 1); w = newwin(WLINES, WCOLS, 1, 1);
scrollok(w, 1); scrollok(w, 0);
while (VM_steps(1000)) { while (VM_steps(1000)) {
debug_panel(); debug_panel();
} }

1
cvm/forth.fs
View File

@ -2,7 +2,6 @@
: CURSOR! ( new old -- ) : CURSOR! ( new old -- )
DROP COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ; DROP COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ;
: CELL! ( c pos -- ) 0 CURSOR! 0 PC! ; : CELL! ( c pos -- ) 0 CURSOR! 0 PC! ;
: NEWLN ( ln -- ) DROP 0xa 0 PC! ;
SYSVARS 0x70 + CONSTANT GRID_MEM SYSVARS 0x70 + CONSTANT GRID_MEM
402 403 LOADR ( Grid ) 402 403 LOADR ( Grid )