collapseos/blk/402

: XYPOS [ GRID_MEM LITN ] ;
: _cl* COLS LINES * ;
: AT-XY ( x y -- ) LINES * + _cl* MOD XYPOS ! ;
: _lf
    XYPOS @ BEGIN ( pos )
        0 ( blank ) SWAP TUCK CELL!
        1+ DUP COLS MOD NOT UNTIL
    _cl* MOD XYPOS ! ;
: _bs 0 ( blank ) XYPOS @ TUCK CELL! ( pos ) 1-
    _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			`: 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 ! ;`