aboutsummaryrefslogtreecommitdiff
path: root/conio
diff options
context:
space:
mode:
Diffstat (limited to 'conio')
-rw-r--r--conio/revers.s33
1 files changed, 19 insertions, 14 deletions
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