;
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001

; unsigned char revers (unsigned char onoff);

	    .export _revers
	    .importzp tmp1

	    .include "geossym.inc"
	    .include "const.inc"

_revers:
	tax
	bne L0			; turn on
	lda #0
	.byte $2c
L0:	lda #SET_REVERSE
	sta tmp1

	lda currentMode
	tax
	and #SET_REVERSE
	tay			; store old value
	txa
	and #%11011111		; mask out
	ora tmp1		; set new value
	sta currentMode

	ldx #0
	tya
	beq L1
	lda #1
L1:	rts