2015-11-17 14:14:15 +00:00
|
|
|
;
|
2015-11-26 20:06:20 +00:00
|
|
|
; 1998-08-07, Ullrich von Bassewitz
|
|
|
|
|
; 2015-11-23, Greg King
|
2015-11-17 14:14:15 +00:00
|
|
|
;
|
2015-11-26 20:06:20 +00:00
|
|
|
; unsigned char __fastcall__ revers (unsigned char onoff);
|
2015-11-17 14:14:15 +00:00
|
|
|
;
|
2014-11-29 13:18:48 +00:00
|
|
|
|
2015-10-02 14:50:22 +00:00
|
|
|
.export _revers
|
|
|
|
|
|
2015-11-26 20:06:20 +00:00
|
|
|
.importzp RVS
|
2015-07-13 10:10:09 +00:00
|
|
|
|
2015-07-16 14:00:32 +00:00
|
|
|
.proc _revers
|
2015-11-26 20:06:20 +00:00
|
|
|
cmp #$01 ; False or true?
|
|
|
|
|
cla
|
|
|
|
|
ror a ; Either $00 or $80
|
|
|
|
|
ldy RVS ; Load old value
|
|
|
|
|
sta RVS ; Set new value
|
|
|
|
|
tya
|
|
|
|
|
asl a
|
|
|
|
|
rol a ; Either $00 or $01
|
|
|
|
|
clx
|
2015-08-29 13:58:57 +00:00
|
|
|
rts
|
2015-07-16 14:00:32 +00:00
|
|
|
.endproc
|
