collapseos/arch/z80/sms/blk/608

: (emit)
    DUP 0x08 = IF DROP _bs EXIT THEN
    DUP 0x0d = IF DROP _lf EXIT THEN
    0x20 - DUP 0< IF DROP EXIT THEN
    DUP 0x5e > IF DROP 0x5e THEN ( 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 ;
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			`: (emit)`
			`DUP 0x08 = IF DROP _bs EXIT THEN`
			`DUP 0x0d = IF DROP _lf EXIT THEN`
			`0x20 - DUP 0< IF DROP EXIT THEN`
sms: don't use MIN in drivers it has been removed from the core. 2020-11-10 07:03:41 +11:00			`DUP 0x5e > IF DROP 0x5e THEN ( tilenum ) XYPOS @ _cell!`
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 @ 1+ DUP [ VDP_COLS VDP_ROWS * LITN ]`
			`= IF DROP 0 THEN XYPOS ! ;`
sms: CollapseOS prompt! 2020-05-16 02:14:27 +10:00			`: 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 !`
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			`( bit 6, enable display, bit 7, ?? ) 0x81c0 _ctl ;`