mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-15 17:58:06 +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.
17 lines
533 B
Plaintext
17 lines
533 B
Plaintext
: (emit)
|
|
DUP 0x08 = IF DROP _bs EXIT THEN
|
|
DUP 0x0d = IF DROP _lf EXIT THEN
|
|
0x20 - DUP 0< IF DROP EXIT THEN
|
|
0x5e MIN ( tilenum ) XYPOS @ _cell!
|
|
XYPOS @ 1+ DUP [ VDP_COLS VDP_ROWS * LITN ]
|
|
= IF DROP 0 THEN XYPOS ! ;
|
|
: VDP$
|
|
9 0 DO _idat I 2 * + @ _ctl LOOP _blank
|
|
( palettes )
|
|
0xc000 _ctl
|
|
( BG ) 1 _zero 0x3f _data 14 _zero
|
|
( sprite, inverted colors ) 0x3f _data 15 _zero
|
|
0x4000 _ctl 0x5e 0 DO ~FNT I 7 * + _sfont LOOP
|
|
0 XYPOS !
|
|
( bit 6, enable display, bit 7, ?? ) 0x81c0 _ctl ;
|