6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-13 09:31:53 +00:00
Code Issues Projects Releases Wiki Activity

Removed tabs

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3429 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-03-28 17:27:04 +00:00
parent 939f6334dc
commit 2c1bbf7d40
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
libsrc/apple2/revers.s
View File

@ -4,19 +4,19 @@
; unsigned char __fastcall__ revers (unsigned char onoff)
;
.export _revers
.export _revers
.include "apple2.inc"
.include "apple2.inc"
_revers:
tax ; Test onoff
beq normal ; If zero, "normal" must be set
ldx #$3F+1 ; Set "inverse"
normal: dex ; $00->$FF, $40->$3F
lda #$00 ; Preload return code for "normal"
ldy INVFLG ; Load current flag value
stx INVFLG ; Save new flag value
bmi :+ ; Jump if current value is $FF (normal)
lda #$01 ; Return "inverse"
: ldx #$00
rts
tax ; Test onoff
beq normal ; If zero, "normal" must be set
ldx #$3F+1 ; Set "inverse"
normal: dex ; $00->$FF, $40->$3F
lda #$00 ; Preload return code for "normal"
ldy INVFLG ; Load current flag value
stx INVFLG ; Save new flag value
bmi :+ ; Jump if current value is $FF (normal)
lda #$01 ; Return "inverse"
: ldx #$00
rts