From aad713c477d19d7854d8ed3d4c9a95a276b16731 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Fri, 15 May 2020 20:32:04 -0400 Subject: [PATCH] sms: implement backspace with pad button A --- blk/627 | 13 +++++++------ blk/636 | 2 +- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/blk/627 b/blk/627 index b4914dc..0ae0e4f 100644 --- a/blk/627 +++ b/blk/627 @@ -1,14 +1,15 @@ : _cell! ( tilenum pos ) 2 * 0x7800 OR _ctl ( tilenum ) _data 1 _zero ; +: _spc! 0 ( blank ) XYPOS @ _cell! ; : _lf - XYPOS @ 0 ( blank ) OVER _cell! - [ VDP_COLS LITN ] / 1+ [ VDP_ROWS LITN ] MOD - [ VDP_COLS LITN ] * XYPOS ! -; + _spc! XYPOS @ [ VDP_COLS LITN ] / 1+ [ VDP_ROWS LITN ] MOD + [ VDP_COLS LITN ] * XYPOS ! ; +: _bs _spc! XYPOS @ 1- + [ VDP_COLS VDP_ROWS * LITN ] MOD XYPOS ! ; : (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 ! -; + = IF DROP 0 THEN XYPOS ! ; diff --git a/blk/636 b/blk/636 index 958d1f7..6ea0980 100644 --- a/blk/636 +++ b/blk/636 @@ -3,7 +3,7 @@ BEGIN _updsel UNTIL _prevstat C@ 0x20 ( BUTC ) OVER AND NOT IF DROP _sel C@ EXIT THEN - 0x40 ( BUTA ) AND NOT IF EXIT THEN + 0x40 ( BUTA ) AND NOT IF 0x8 ( BS ) EXIT THEN ( If not BUTC or BUTA, it has to be START ) 0xd _next C! _sel C@ ;