From 8bcbde0e1515f5cfe2e96aa9d82073b83f4e4f7a Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Fri, 19 Feb 2016 15:59:47 -0500
Subject: shrink code, now 5976 bytes free. update cart.txt

---
 console.s | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

(limited to 'console.s')

diff --git a/console.s b/console.s
index 7c7e18e..04524ab 100644
--- a/console.s
+++ b/console.s
@@ -2,9 +2,11 @@
 
  .include "atari.inc"
  .export _clrtobot, _clrtoeol, _clrtoline, _cspaces, _cblank, _backspace
+ .export _rvs_on, _rvs_off
 
  .import mul40        ; from cc65's runtime
  .importzp tmp3       ; ditto
+ .import _revflag     ; conio/revers.s
  .import bump_destptr ; these two are
  .importzp destptr    ; from draw_lorcha.s
  .import _cspace
@@ -26,7 +28,9 @@
 
 _clrtobot: ; same as clrtoline(24);
  lda #24
- bne _clrtoline
+ ;bne _clrtoline
+ .byte $2c ; BIT absolute opcode
+ ; fall through to _clrtoeol
 
 _clrtoeol:
  lda ROWCRS
@@ -81,6 +85,11 @@ _cspaces:
  bne @lp
  rts
 
+_backspace:
+ dec COLCRS
+ lda #1
+ ; fall through to _cblank
+
 _cblank:
  tax
  lda COLCRS
@@ -95,7 +104,10 @@ _cblank:
  sta COLCRS
  rts
 
-_backspace:
- dec COLCRS
- lda #1
- bne _cblank
+_rvs_on:
+ lda #$80
+ .byte $2c ; BIT absolute opcode
+_rvs_off:
+ lda #0
+ sta _revflag
+ rts
-- 
cgit v1.2.3