From 4658f043d20c7521be638fe6aac60d7b03bfd36b Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Fri, 19 Feb 2016 05:44:14 -0500
Subject: add delete key to name_firm(); shrink code, 5921 bytes free

---
 console.s | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'console.s')

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
-- 
cgit v1.2.3