mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-10 02:38:05 +11:00
17 lines
575 B
Plaintext
17 lines
575 B
Plaintext
|
( Each row in ~FNT is a row of the glyph and there is 7 of
|
||
|
|
them. We insert a blank one at the end of those 7. )
|
||
|
|
: _sfont ( a -- Send font to TMS )
|
||
|
|
7 0 DO C@+ _data LOOP DROP
|
||
|
|
( blank row ) 0 _data ;
|
||
|
|
: CELL! ( tilenum pos )
|
||
|
|
0x7800 OR _ctl ( tilenum )
|
||
|
|
0x5e MOD _data ;
|
||
|
|
: COLS 40 ; : LINES 24 ;
|
||
|
|
: TMS$
|
||
|
|
0x8100 _ctl ( blank screen ) _blank
|
||
|
|
0x4000 _ctl 0x5e 0 DO ~FNT I 7 * + _sfont LOOP
|
||
|
|
0x820e _ctl ( name table 0x3800 )
|
||
|
|
0x8400 _ctl ( patter table 0x0000 )
|
||
|
|
0x87f0 _ctl ( colors 0 and 1 )
|
||
|
|
0x8000 _ctl 0x81d0 _ctl ( text mode, display on ) ;
|