conversion

!addr = $0000
if read1($00FFD5) == $23
    sa1rom
    $addr = $6000
endif

org $0491D5
autoclean JSL NoSmall
NOP #2

freecode

NoSmall:
LDA #$01
STA $19
LDA $0DBC|!addr,x
STA $0DC2|!addr
RTL

ORG $00F5F5
db $EA,$EA,$EA

ORG $00F600
autoclean JSL CheckState

freecode

CheckState:
LDA $19
CMP #$02
BCS Big
JML $00F606
RTL

Big:
LDA #$01
STA $19
LDA #$04
STY $1DF9|!addr
JML $00F602
RTL