Reverse Switch Palace Blocks

CustObj98:	LDX #$00
invswitch:	LDY $57
		LDA $1F27,x
		BNE page0
		LDA #$01
		BRA storepage
page0:		LDA #$00
storepage:	STA [$6E],y
		LDA switchtbl,x
		STA [$6B],y
		RTS
switchtbl:	db $6A,$6B,$6C,$6D
;--------------------------------------------------
CustObj99:	LDX #$01
		BRA invswitch
;--------------------------------------------------
CustObj9A:	LDX #$02
		BRA invswitch
;--------------------------------------------------
CustObj9B:	LDX #$03
		BRA invswitch
;--------------------------------------------------