aboutsummaryrefslogtreecommitdiff
path: root/console.s
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2016-02-19 05:44:14 -0500
committerB. Watson <yalhcru@gmail.com>2016-02-19 05:44:14 -0500
commit4658f043d20c7521be638fe6aac60d7b03bfd36b (patch)
treeee00a049183fbd69a5467076bf0d5d80952efd76 /console.s
parent15534e8f7da91de858ebe5ce01ee4759687653ad (diff)
downloadtaipan-4658f043d20c7521be638fe6aac60d7b03bfd36b.tar.gz
add delete key to name_firm(); shrink code, 5921 bytes free
Diffstat (limited to 'console.s')
-rw-r--r--console.s7
1 files changed, 6 insertions, 1 deletions
diff --git a/console.s b/console.s
index 2ad5e58..7c7e18e 100644
--- a/console.s
+++ b/console.s
@@ -1,7 +1,7 @@
.include "atari.inc"
- .export _clrtobot, _clrtoeol, _clrtoline, _cspaces, _cblank
+ .export _clrtobot, _clrtoeol, _clrtoline, _cspaces, _cblank, _backspace
.import mul40 ; from cc65's runtime
.importzp tmp3 ; ditto
@@ -94,3 +94,8 @@ _cblank:
pla
sta COLCRS
rts
+
+_backspace:
+ dec COLCRS
+ lda #1
+ bne _cblank