;@xkas
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;HDMA Multiple Background Scroll
;by Ice Man
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	lorom				;\ ROM is LoRom
	header				;| and has a header
	org $328000			;/ Address to insert code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;RATS Tag Macro
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

macro RATS_start(id)
	db "STAR"
	dw RATS_Endcode<id>-RATS_Startcode<id>
	dw RATS_Endcode<id>-RATS_Startcode<id>^#$FFFF
RATS_Startcode<id>:
endmacro

macro RATS_end(id)
RATS_Endcode<id>:
endmacro

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;HDMA Channel Settings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

%RATS_start(0)
	REP #%00010000
	LDA.b #%01000010
	STA.w $4330
	LDA.b #$0F
	STA.w $4331
	LDX.w #.HTbl2
	STX.w $4332
	LDA.b #.HTbl2>>16
	STA.w $4334
	LDA.b #$7F
	STA.w $4337
	LDA.b #%1000
	TSB.w $0D9F
	SEP #%00010000
	JSR .Grp1
	RTL

.Grp1	REP #%00100000
	LDA.b $1E
	STA.b $00
	LDX.b $00
	STX.w $211B
	LDX.b $01
	STX.w $211B
	LDX.b #$14
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB409
	LDX.b #$1C
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB40B
	LDX.b #$20
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB40D
	LDX.b #$40
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB40F
	LDX.b #$44
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB411
	LDX.b #$48
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB413
	LDX.b #$4C
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB415
	LDX.b #$50
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB417
	LDX.b #$54
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB419
	LDX.b #$58
	STX.w $211C
	LDA.w $2134
	ASL
	AND.w #$FF00
	ADC.w #$0000
	XBA
	STA.l $7FB41B

	SEP #%00100000
	RTS

.HTbl2	db $5F : dw $B409
	db $30 : dw $B40B
	db $18 : dw $B40D
	db $08 : dw $B40F
	db $08 : dw $B411
	db $08 : dw $B413
	db $08 : dw $B415
	db $08 : dw $B417
	db $08 : dw $B419
	db $08 : dw $B41B
	db $00
%RATS_end(0)