collapseos/cvm/forth.fs

: COLS 80 ; : LINES 32 ;
: CURSOR! ( new old -- )
    DROP COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ;
: CELL! ( c pos -- ) 0 CURSOR! 0 PC! ;

SYSVARS 0xa0 + 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 @ |M 2 PC! 2 PC!
H@ |M 2 PC! 2 PC!
cvm: split stage and forth xcomp units I wanted to make CVM's forth use the Grid subsystem, but doing so would break the stage binary. Hence, this split. 2020-11-15 06:50:14 +11:00			`: COLS 80 ; : LINES 32 ;`
sms: add cursor visual indicator in VDP mode 4 This required the change of CURSOR! signature: we now supply it with both old and new cursor positions. Also, fix broken _bs in Grid subsystem. 2020-11-17 02:05:48 +11:00			`: CURSOR! ( new old -- )`
			`DROP COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ;`
			`: CELL! ( c pos -- ) 0 CURSOR! 0 PC! ;`
cvm: split stage and forth xcomp units I wanted to make CVM's forth use the Grid subsystem, but doing so would break the stage binary. Hence, this split. 2020-11-15 06:50:14 +11:00
Integrate RDLN input buffer into sysvars In the beginning of Collapse OS' Forth version, the readline sub- system was optional. This is why we had this separate RDLN$ routine and that the input buffer was allocated at boot time. It's been a while since the RDLN system has been made mandatory, but we still paid the complexity tax of this separation. Not anymore. 2021-01-03 06:20:50 +11:00			`SYSVARS 0xa0 + CONSTANT GRID_MEM`
cvm: use Grid in /cvm/forth Also, fixed broken AT-XY in Grid... 2020-11-15 12:08:18 +11:00			`402 403 LOADR ( Grid )`
cvm: split stage and forth xcomp units I wanted to make CVM's forth use the Grid subsystem, but doing so would break the stage binary. Hence, this split. 2020-11-15 06:50:14 +11:00			`390 LOAD ( xcomp core high )`
			`(entry) _`
			`( Update LATEST )`
			`PC ORG @ 8 + !`
Make BLK@* and BLK!* into ialiases 2021-01-03 07:51:12 +11:00			`," BLK$ ' EFS@ ' BLK@* *! ' EFS! ' BLK! **! GRID$ " EOT,`
Add words \|M and \|L Splitting a word into MSB/LSB pairs happens often and is worth, I think, native words. Also, I'm going to need it in the upcoming commits. 2020-12-08 12:08:45 +11:00			`ORG @ \|M 2 PC! 2 PC!`
			`H@ \|M 2 PC! 2 PC!`
cvm: split stage and forth xcomp units I wanted to make CVM's forth use the Grid subsystem, but doing so would break the stage binary. Hence, this split. 2020-11-15 06:50:14 +11:00