diff options
| -rw-r--r-- | conio/revers.s | 33 |
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 |