From 671eec97f75007cdce6323a24d00ffbb08df89e0 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Fri, 19 Feb 2016 16:04:48 -0500 Subject: comment out conio revers function, save 22 bytes, now 5998 free --- conio/revers.s | 33 +++++++++++++++++++-------------- 1 file changed, 19 insertions(+), 14 deletions(-) (limited to 'conio') diff --git a/conio/revers.s b/conio/revers.s index 7195039..a04a969 100644 --- a/conio/revers.s +++ b/conio/revers.s @@ -1,26 +1,31 @@ ; ; Ullrich von Bassewitz, 07.08.1998 + +; modified version for taipan, which doesn't actually +; call revers() any more. only _revflag is needed, see +; rvs_on() and rvs_off() in console.s. + ; ; unsigned char revers (unsigned char onoff); ; .include "atari.inc" - .export _revers +; .export _revers .export _revflag -_revers: - ldx #$00 ; Assume revers off - tay ; Test onoff - beq L1 ; Jump if off - ldx #$80 ; Load on value -L1: ldy #$00 ; Assume old value is zero - lda _revflag ; Load old value - stx _revflag ; Set new value - beq L2 ; Jump if old value zero - iny ; Make old value = 1 -L2: ldx #$00 ; Load high byte of result - tya ; Load low byte, set CC - rts +;_revers: +; ldx #$00 ; Assume revers off +; tay ; Test onoff +; beq L1 ; Jump if off +; ldx #$80 ; Load on value +;L1: ldy #$00 ; Assume old value is zero +; lda _revflag ; Load old value +; stx _revflag ; Set new value +; beq L2 ; Jump if old value zero +; iny ; Make old value = 1 +;L2: ldx #$00 ; Load high byte of result +; tya ; Load low byte, set CC +; rts .bss -- cgit v1.2.3