izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 11:18:05 +11:00
Code Issues Releases Wiki Activity
efa2556c82
collapseos/cvm/forth.fs

16 lines
355 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,
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
Reference in New Issue Copy Permalink