izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity
d09de0a0d3
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-14 14:50:14 -05: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-16 10:05:48 -05: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-14 14:50:14 -05: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-02 14:20:50 -05:00
SYSVARS 0xa0 + CONSTANT GRID_MEM
cvm: use Grid in /cvm/forth Also, fixed broken AT-XY in Grid...
2020-11-14 20:08:18 -05: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-14 14:50:14 -05: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-14 22:35:08 -05: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-07 20:08:45 -05: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-14 14:50:14 -05:00
Reference in New Issue Copy Permalink