the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reworked version by Oliver Schmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2913 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2004-03-11 21:54:22 +00:00
parent 5f2569ef28
commit a57deeb58a
25 changed files with 499 additions and 364 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/apple2/revers.s
View File

@@ -9,17 +9,17 @@
.include "apple2.inc"
_revers:
ldy TEXTTYP ; Stash old value
ldy INVFLG ; Stash old value
and #$FF ; Test for any bit
bne reverse ; Nothing set
lda #$FF
reverse:
ora #$3F
sta TEXTTYP
beq normal ; Nothing set
lda #~$3F ; Not Inverse
normal:
eor #$FF ; Xor Normal
sta INVFLG
tya ; What was the old value?
eor #$FF ; Normal = $FF, Reverse = $3F
eor #$FF ; Normal = $FF, Inverse = $3F
beq L2
lda #01
lda #$01
L2:
rts