2015-11-17 09:14:15 -05:00
|
|
|
;
|
2015-11-26 15:06:20 -05:00
|
|
|
; 1998-08-07, Ullrich von Bassewitz
|
|
|
|
|
; 2015-11-23, Greg King
|
2015-11-17 09:14:15 -05:00
|
|
|
;
|
2015-11-26 15:06:20 -05:00
|
|
|
; unsigned char __fastcall__ revers (unsigned char onoff);
|
2015-11-17 09:14:15 -05:00
|
|
|
;
|
2014-11-29 14:18:48 +01:00
|
|
|
|
2015-10-02 10:50:22 -04:00
|
|
|
.export _revers
|
|
|
|
|
|
2015-11-26 15:06:20 -05:00
|
|
|
.importzp RVS
|
2015-07-13 12:10:09 +02:00
|
|
|
|
2015-07-16 16:00:32 +02:00
|
|
|
.proc _revers
|
2015-11-26 15:06:20 -05: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 15:58:57 +02:00
|
|
|
rts
|
2015-07-16 16:00:32 +02:00
|
|
|
.endproc
|
