diff options
| author | B. Watson <yalhcru@gmail.com> | 2016-02-19 16:04:48 -0500 |
|---|---|---|
| committer | B. Watson <yalhcru@gmail.com> | 2016-02-19 16:04:48 -0500 |
| commit | 671eec97f75007cdce6323a24d00ffbb08df89e0 (patch) | |
| tree | ac7ab724884e746fcfa43f848535f0aca8628720 /conio | |
| parent | 8bcbde0e1515f5cfe2e96aa9d82073b83f4e4f7a (diff) | |
| download | taipan-671eec97f75007cdce6323a24d00ffbb08df89e0.tar.gz | |
comment out conio revers function, save 22 bytes, now 5998 free
Diffstat (limited to 'conio')
| -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 |