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

org $009E17
LDA #$80
STA $1DFB|!addr
LDX $010A|!addr
JSR $9DB5
SEP #$11
BEQ +
ROR $0DB5|!addr
LDX $0DB2|!addr
LDA #$04
-
STA $0DB4|!addr,x
DEX : BPL -
STA $0DBE|!addr
STZ $0DBF|!addr
STZ $19
REP #$20
STZ $0DB6|!addr
STZ $0DB8|!addr
STZ $0DBA|!addr
STZ $0F48|!addr
STZ $0F34|!addr
STZ $0F36|!addr
STZ $0F38|!addr
+
STZ $0DC1|!addr
SEP #$20
STZ $13C9|!addr
STZ $0DD5|!addr
STZ $0DB3|!addr
NOP

warnpc $009E62