izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-14 15:08:05 +11:00
Code Issues Releases Wiki Activity
038ca61ea5
collapseos/cvm/forth.fs

16 lines
367 B
Forth
Raw Normal View History

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
cvm: use Grid in /cvm/forth Also, fixed broken AT-XY in Grid...
2020-11-15 12:08:18 +11:00
SYSVARS 0x70 + CONSTANT GRID_MEM
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 + !
grid: add XYMODE In VE on the SMS, the first contents line would always be cleared because of NEWLN being called when the FBUF would spit its last char. Inconvenient... I've added a "graphical" mode to the grid subsystem to inhibit this behavior in a graphical situation such as in VE. Also, write a more complete Grid documentation.
2020-11-15 14:35:08 +11:00
," BLK$ ' EFS@ BLK@* ! ' EFS! BLK!* ! GRID$ " EOT,
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
ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!
Reference in New Issue Copy Permalink