collapseos/blk/402

: XYPOS [ GRID_MEM LITN ] ;
: _cl* COLS LINES * ;
: AT-XY ( x y -- ) LINES * + _cl* MOD XYPOS ! ;
'? NEWLN NIP NOT [IF]
: NEWLN ( ln -- ) COLS * DUP COLS + SWAP DO 0 I CELL! LOOP ;
[THEN]
: _lf
    XYPOS @ COLS / 1+ LINES MOD DUP NEWLN
    COLS * 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-09 17:15:41 -05: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-10 19:06:39 -05:00			`: _cl* COLS LINES * ;`
			`: AT-XY ( x y -- ) LINES * + _cl* MOD XYPOS ! ;`
ti84: use Grid subsystem Also, rename CLRLN to NEWLN and make it clear that it's only called on entering a new line. This way, we can set Z offset in there for the TI-84+ LCD driver. 2020-11-10 20:30:37 -05:00			`'? NEWLN NIP NOT [IF]`
			`: NEWLN ( ln -- ) COLS * DUP COLS + SWAP DO 0 I CELL! LOOP ;`
grid: add CLRLN and change _lf behavior Instead of clearing the rest of the line on a _lf, it's simpler to just clear any new line we're entering into. 2020-11-10 19:19:44 -05:00			`[THEN]`
Add Grid subsystem The goal is to offload the SMS VDP driver a little bit. 2020-11-09 17:15:41 -05:00			`: _lf`
ti84: use Grid subsystem Also, rename CLRLN to NEWLN and make it clear that it's only called on entering a new line. This way, we can set Z offset in there for the TI-84+ LCD driver. 2020-11-10 20:30:37 -05:00			`XYPOS @ COLS / 1+ LINES MOD DUP NEWLN`
			`COLS * XYPOS ! ;`
Add Grid subsystem The goal is to offload the SMS VDP driver a little bit. 2020-11-09 17:15:41 -05: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-10 19:06:39 -05:00			`_cl* MOD XYPOS ! ;`