mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 17:48:05 +11:00
f09950a12a
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.
10 lines
335 B
Plaintext
10 lines
335 B
Plaintext
: _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 ! ;
|