From 8c89fc147cfe8d021251dc65dfc54d8a43ac8312 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sat, 12 Dec 2020 17:28:32 -0500 Subject: [PATCH] tms9918: fix character range which was too narrow We couldn't get a tilde! --- blk.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/blk.fs b/blk.fs index 1a7feb4..16a174f 100644 --- a/blk.fs +++ b/blk.fs @@ -2765,7 +2765,7 @@ them. We insert a blank one at the end of those 7. ) ( blank row ) 0xff _data ; : CELL! ( c pos ) 0x7800 OR _ctl ( tilenum ) - 0x20 - ( glyph ) 0x5e MOD _data ; + 0x20 - ( glyph ) 0x5f MOD _data ; ( ----- 472 ) : CURSOR! ( new old -- ) DUP 0x3800 OR _ctl [ TMS_DATAPORT LITN ] PC@ @@ -2776,8 +2776,8 @@ them. We insert a blank one at the end of those 7. ) : TMS$ 0x8100 _ctl ( blank screen ) 0x7800 _ctl COLS LINES * _zero - 0x4000 _ctl 0x5e 0 DO ~FNT I 7 * + _sfont LOOP - 0x4400 _ctl 0x5e 0 DO ~FNT I 7 * + _sfont^ LOOP + 0x4000 _ctl 0x5f 0 DO ~FNT I 7 * + _sfont LOOP + 0x4400 _ctl 0x5f 0 DO ~FNT I 7 * + _sfont^ LOOP 0x820e _ctl ( name table 0x3800 ) 0x8400 _ctl ( pattern table 0x0000 ) 0x87f0 _ctl ( colors 0 and 1 )