6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-07 23:29:39 +00:00
Code Issues Projects Releases Wiki Activity

don't use INVFLG but our own variable to indicate revers - the

Browse Source 
INVFLG is changed by the Atari key


git-svn-id: svn://svn.cc65.org/cc65/trunk@16 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2000-05-30 22:20:01 +00:00
parent 1a679b3a20
commit 247c29f7a5
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
libsrc/atari/cputc.s
View File

@ -20,6 +20,7 @@ _cputcxy:
.ifdef DIRECT_SCREEN .ifdef DIRECT_SCREEN
.importzp tmp4,ptr4 .importzp tmp4,ptr4
.import _revflag
_cputc: _cputc:
cmp #$0D ; CR cmp #$0D ; CR
@ -92,7 +93,7 @@ L3: clc
adc SAVMSC+1 adc SAVMSC+1
sta ptr4+1 sta ptr4+1
pla ; get char again pla ; get char again
ora INVFLG ora _revflag
ldy COLCRS ldy COLCRS
sta (ptr4),y sta (ptr4),y
rts rts

9
libsrc/atari/revers.s
View File

@ -6,6 +6,7 @@
.include "atari.inc" .include "atari.inc"
.export _revers .export _revers
.export _revflag
_revers: _revers:
ldx #$00 ; Assume revers off ldx #$00 ; Assume revers off
@ -13,11 +14,15 @@ _revers:
beq L1 ; Jump if off beq L1 ; Jump if off
ldx #$80 ; Load on value ldx #$80 ; Load on value
L1: ldy #$00 ; Assume old value is zero L1: ldy #$00 ; Assume old value is zero
lda INVFLG ; Load old value lda _revflag ; Load old value
stx INVFLG ; Set new value stx _revflag ; Set new value
beq L2 ; Jump if old value zero beq L2 ; Jump if old value zero
iny ; Make old value = 1 iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC tya ; Load low byte, set CC
rts rts
.data
_revflag:
.byte 0