izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/402

11 lines
294 B
Plaintext
Raw Normal View History

Add Grid subsystem The goal is to offload the SMS VDP driver a little bit.
2020-11-10 09:15:41 +11:00
: XYPOS [ GRID_MEM LITN ] ;
Adjust Grid subsystem Rename ROWS to LINES (it's what VE uses). Also, don't use COLS and LINES as immediates in the Grid subsystem: we expect those words to be available at runtime.
2020-11-11 11:06:39 +11:00
: _cl* COLS LINES * ;
: AT-XY ( x y -- ) LINES * + _cl* MOD XYPOS ! ;
Add Grid subsystem The goal is to offload the SMS VDP driver a little bit.
2020-11-10 09:15:41 +11:00
: _lf
XYPOS @ BEGIN ( pos )
0 ( blank ) SWAP TUCK CELL!
Adjust Grid subsystem Rename ROWS to LINES (it's what VE uses). Also, don't use COLS and LINES as immediates in the Grid subsystem: we expect those words to be available at runtime.
2020-11-11 11:06:39 +11:00
1+ DUP COLS MOD NOT UNTIL
_cl* MOD XYPOS ! ;
Add Grid subsystem The goal is to offload the SMS VDP driver a little bit.
2020-11-10 09:15:41 +11:00
: _bs 0 ( blank ) XYPOS @ TUCK CELL! ( pos ) 1-
Adjust Grid subsystem Rename ROWS to LINES (it's what VE uses). Also, don't use COLS and LINES as immediates in the Grid subsystem: we expect those words to be available at runtime.
2020-11-11 11:06:39 +11:00
_cl* MOD XYPOS ! ;