cc65/libsrc/apple2/revers.s

	;;
	;; Kevin Ruland
	;;
	;; unsigned char __fastcall__ revers (unsigned char onoff)
	;;

	.export		_revers

	.include	"apple2.inc"

_revers:
	ldy	INVFLG		; Stash old value
	and	#$FF		; Test for any bit
	beq	normal		; Nothing set
	lda	#~$3F		; Not Inverse
normal:	
	eor	#$FF		; Xor Normal
	sta	INVFLG
	tya			; What was the old value?
	eor	#$FF		; Normal = $FF, Inverse = $3F
	beq	L2
	lda	#$01
L2:	
	rts