REP #$30
LDA $9A ;タイルのx座標
PHA
CLC
ADC.W #$0010
STA $9A
LDA $03 ;タイルの16x番号
JSR SUBL_SET_MAP16
PLA
STA $9A
SEP #$30
RTS
SUBL_SET_MAP16:
PHX
TAX
JSR SUB_8034
PLX
RTS
RETURN18:
PLX
PLB
RTS
SUB_8034:
SEP #$20
PHB
LDA #$00
PHA
PLB
REP #$30
PHX
LDA $9A
STA $0C
LDA $98
STA $0E
LDA.W #$0000
SEP #$20
LDA $5B
STA $09
LDA $1933
BEQ NO_SHIFT
LSR $09
NO_SHIFT:
LDY $0E
LDA $09
AND #$01
BEQ HORIZ
LDA $9B
STA $00
LDA $99
STA $9B
LDA $00
STA $99
LDY $0C
HORIZ:
CPY.W #$0200
BCS RETURN18
LDA $1933
ASL A
TAX
LDA $BEA8,x
STA $65
LDA $BEA9,x
STA $66
STZ $67
LDA $1925
ASL A
TAY
LDA ($65),y
STA $04
INY
LDA ($65),y
STA $05
STZ $06
LDA $9B
STA $07
ASL A
CLC
ADC $07
TAY
LDA ($04),y
STA $6B
STA $6E
INY
LDA ($04),y
STA $6C
STA $6F
LDA #$7E
STA $6D
INC A
STA $70
LDA $09
AND #$01
BEQ NO_AND
LDA $99
LSR A
LDA $9B
AND #$01
BRA LABEL52
NO_AND:
LDA $9B
LSR A
LDA $99
LABEL52:
ROL A
ASL A
ASL A
ORA #$20
STA $04
CPX.W #$0000
BEQ NO_ADD
CLC
ADC #$10
STA $04
NO_ADD:
LDA $98
AND #$F0
CLC
ASL A
ROL A
STA $05
ROL A
AND #$03
ORA $04
STA $06
LDA $9A
AND #$F0
LSR A
LSR A
LSR A
STA $04
LDA $05
AND #$C0
ORA $04
STA $07
REP #$20
LDA $09
AND.W #$0001
BNE LABEL51
LDA $1A
SEC
SBC.W #$0080
TAX
LDY $1C
LDA $1933
BEQ LABEL50
LDX $1E
LDA $20
SEC
SBC.W #$0080
TAY
BRA LABEL50
LABEL51:
LDX $1A
LDA $1C
SEC
SBC.W #$0080
TAY
LDA $1933
BEQ LABEL50
LDA $1E
SEC
SBC.W #$0080
TAX
LDY $20
LABEL50:
STX $08
STY $0A
LDA $98
AND.W #$01F0
STA $04
LDA $9A
LSR A
LSR A
LSR A
LSR A
AND.W #$000F
ORA $04
TAY
PLA
SEP #$20
STA [$6B],y
XBA
STA [$6E],y
XBA
REP #$20
ASL A
TAY
PHK
PER.W #$0006
PEA $804C
JML $00C0FB
MAP16_RETURN:
PLB
RTS