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

; unsigned char revers (unsigned char onoff);

	    .export _revers
	    .importzp tmp1

	    .include "../inc/geossym.inc"
	    .include "../inc/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
