mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 21:18:05 +11:00
224e9183fb
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.
16 lines
367 B
Forth
16 lines
367 B
Forth
: COLS 80 ; : LINES 32 ;
|
|
: CURSOR! ( new old -- )
|
|
DROP COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ;
|
|
: CELL! ( c pos -- ) 0 CURSOR! 0 PC! ;
|
|
|
|
SYSVARS 0x70 + CONSTANT GRID_MEM
|
|
402 403 LOADR ( Grid )
|
|
390 LOAD ( xcomp core high )
|
|
(entry) _
|
|
( Update LATEST )
|
|
PC ORG @ 8 + !
|
|
," BLK$ ' EFS@ BLK@* ! ' EFS! BLK!* ! GRID$ " EOT,
|
|
ORG @ 256 /MOD 2 PC! 2 PC!
|
|
H@ 256 /MOD 2 PC! 2 PC!
|
|
|