New version from Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@3421 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2005-03-26 17:03:30 +00:00
parent fe2d8f26ed
commit 071c58bda2
27 changed files with 512 additions and 598 deletions

View File

@@ -1,8 +1,8 @@
;;
;; Kevin Ruland
;;
;; unsigned char __fastcall__ revers (unsigned char onoff)
;;
;
; Kevin Ruland
;
; unsigned char __fastcall__ revers (unsigned char onoff)
;
.export _revers
@@ -13,13 +13,11 @@ _revers:
and #$FF ; Test for any bit
beq normal ; Nothing set
lda #~$3F ; Not Inverse
normal:
eor #$FF ; Xor Normal
normal: eor #$FF ; Xor Normal
sta INVFLG
tya ; What was the old value?
eor #$FF ; Normal = $FF, Inverse = $3F
beq L2
beq :+
lda #$01
L2:
: ldx #$00
rts