mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 15:08:44 +10:00
With the move of CVM's forth to the grid protocol, we've lost the cursor's visual indication. Now, we have it back. The challenge now is in implementing it in SMS' text mode. In mode 4, it's easy to mark a cell as inverted, but in text mode, that's not possible.
16 lines
394 B
Forth
16 lines
394 B
Forth
: COLS 80 ; : LINES 32 ;
|
|
: CURSOR! ( pos -- ) COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ;
|
|
: CELL! ( g pos -- ) CURSOR! 0x20 + 0 PC! ;
|
|
: NEWLN ( ln -- ) DROP 0xa 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!
|
|
|