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

Squeezed out a few bytes

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3427 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-03-28 16:01:08 +00:00
parent 025221f44a
commit 0a7067e89b
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
libsrc/apple2/revers.s
View File

@ -1,5 +1,5 @@
; ;
; Kevin Ruland ; Ullrich von Bassewitz, 2005-03-28
; ;
; unsigned char __fastcall__ revers (unsigned char onoff) ; unsigned char __fastcall__ revers (unsigned char onoff)
; ;
@ -9,15 +9,14 @@
.include "apple2.inc" .include "apple2.inc"
_revers: _revers:
ldy INVFLG ; Stash old value tax ; Test onoff
and #$FF ; Test for any bit beq normal ; If zero, "normal" must be set
beq normal ; Nothing set ldx #$3F+1 ; Set "inverse"
lda #~$3F ; Not Inverse normal: dex ; $00->$FF, $40->$3F
normal: eor #$FF ; Xor Normal lda #$00 ; Preload return code for "normal"
sta INVFLG ldy INVFLG ; Load current flag value
tya ; What was the old value? stx INVFLG ; Save new flag value
eor #$FF ; Normal = $FF, Inverse = $3F bmi :+ ; Jump if current value is $FF (normal)
beq :+ lda #$01 ; Return "inverse"
lda #$01
: ldx #$00 : ldx #$00
rts rts