mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 00:18:05 +11:00
d1718a90c7
Because that mode behaves exactly like in a regular TMS9918, a new driver for TMS9918 has been added in blkfs and SMS' VDP now uses it. Also, fix broken 5x7 font.
16 lines
447 B
Plaintext
16 lines
447 B
Plaintext
: _g ( given a top-left of dot-X in BLK(, spit 7 bin lines )
|
|
7 0 DO
|
|
0 5 0 DO ( a r )
|
|
1 LSHIFT
|
|
OVER J 64 * I + + C@ 'X' = IF 1+ THEN
|
|
LOOP 3 LSHIFT C, LOOP DROP ;
|
|
: _l ( a u -- a, spit a line of u glyphs )
|
|
( u ) 0 DO ( a )
|
|
DUP I 5 * + _g
|
|
LOOP ;
|
|
: CPFNT5x7
|
|
0 , 0 , 0 , 0 C, ( space char )
|
|
535 532 DO I BLK@ BLK( 12 _l 448 + 12 _l DROP LOOP ( 72 )
|
|
535 BLK@ BLK( 12 _l 448 + 10 _l DROP ( 94! )
|
|
;
|