1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/atari/revers.s
cpg 247c29f7a5 don't use INVFLG but our own variable to indicate revers - the
INVFLG is changed by the Atari key


git-svn-id: svn://svn.cc65.org/cc65/trunk@16 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-30 22:20:01 +00:00

29 lines
543 B
ArmAsm

;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.include "atari.inc"
.export _revers
.export _revflag
_revers:
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
L1: ldy #$00 ; Assume old value is zero
lda _revflag ; Load old value
stx _revflag ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.data
_revflag:
.byte 0