collapseos/arch/z80/sms/blk/607

: _cell! ( tilenum pos )
    2 * 0x7800 OR _ctl ( tilenum ) _data 1 _zero ;
: _lf
    XYPOS @ BEGIN ( pos )
        0 ( blank ) SWAP TUCK _cell!
        1+ DUP [ VDP_COLS LITN ] MOD NOT UNTIL
    [ VDP_COLS VDP_ROWS * LITN ] MOD XYPOS ! ;
: _bs 0 ( blank ) XYPOS @ TUCK _cell! ( pos ) 1-
    [ VDP_COLS VDP_ROWS * LITN ] MOD XYPOS ! ;
sms: implement linefeed in VDP 2020-05-16 06:08:27 +10:00			`: _cell! ( tilenum pos )`
			`2 * 0x7800 OR _ctl ( tilenum ) _data 1 _zero ;`
			`: _lf`
sms/vdp: clear rest of line on line feed This allows us (in the following commit), to stop unvariably spitting 64 chars by line in LIST. This way, short lines don't use 3 rows per line (the line number uses 3 chars, which brings us to 67 chars per line). If we don't do that, we end up with the old contents of the line being kept at the right of the printed line. 2020-11-09 08:43:37 +11:00			`XYPOS @ BEGIN ( pos )`
			`0 ( blank ) SWAP TUCK _cell!`
			`1+ DUP [ VDP_COLS LITN ] MOD NOT UNTIL`
			`[ VDP_COLS VDP_ROWS * LITN ] MOD XYPOS ! ;`
			`: _bs 0 ( blank ) XYPOS @ TUCK _cell! ( pos ) 1-`
sms: implement backspace with pad button A 2020-05-16 10:32:04 +10:00			`[ VDP_COLS VDP_ROWS * LITN ] MOD XYPOS ! ;`