.include "libSFX.i"

;VRAM destination addresses
VRAM_MAP_LOC     = $9000
VRAM_TILES_LOC   = $2000
VRAM_FONTILE_LOC = $0010
VRAM_FONTMAP_LOC = $1000

Main:
  VRAM_memcpy VRAM_MAP_LOC, bg, sizeof_bg
  VRAM_memcpy VRAM_TILES_LOC, tile, sizeof_tile
	VRAM_memcpy VRAM_FONTILE_LOC, fontile, sizeof_fontile
  CGRAM_memcpy 0, pal, sizeof_pal

	lda #bgmode(BG_MODE_4, BG3_PRIO_NORMAL, BG_SIZE_8X8, BG_SIZE_8X8, BG_SIZE_8X8, BG_SIZE_8X8)
	sta BGMODE
	lda #bgsc(VRAM_MAP_LOC, SC_SIZE_32X32)
	sta BG1SC
	lda #bgsc(VRAM_FONTMAP_LOC, SC_SIZE_32X32)
	sta BG2SC
	lda #bgsc($f000, SC_SIZE_32X32)
	sta BG3SC
	ldx #bgnba(VRAM_TILES_LOC, 0, 0, 0)
	stx BG12NBA
	lda #tm(ON, ON, OFF, OFF, OFF)
	sta TM
	RW a8i16
	stz $210D
	stz $210D
	stz $210E
	stz $210E
	stz $210F
	stz $210F
	stz $2110
	stz $2110
	stz $2112
	stz $2112

	ldx #512 + 32 - 4
  zero_oam:
    stz shadow_oam + 3, x
    dex
    bne zero_oam

	ldx #0

	filltext:
		lda textboxtable, x
		sta textbox, x
		inx
		lda #%10000000
		sta textbox, x
		inx
		cmp #$00
		bne filltext

	lda #inidisp(ON, DISP_BRIGHTNESS_MAX)
	sta SFX_inidisp
	VBL_set VBlankHand
	VBL_on

:	wai
	bra :-

	VBlankHand:
		HDMA_set_absolute 0, 2, BG1VOFS, hdmavofs
		lda #%00000001
		sta HDMAEN

		;stz $2115
		;lda #$00
		;stz $2116
		;sta $2117
		;lda #%00000001 ;Dear B Bus, 2 bytes to 2 addresses, increment, From, CPU
		;sta $4310
		;lda #$18 ;PPU Data Write
		;sta $4311
		;lda #.bankbyte(textbox)
		;sta $4314
		;ldx #textbox
		;stx $4312
		;ldx #1134 ;bytes
		;stx $4315
		;lda #%00000010 ;channel 1
		;sta $420B

		VRAM_memcpy VRAM_FONTMAP_LOC, textbox, 256

		lda #243
		sta $210f
		stz $210f
		lda #237
		sta $2110
		stz $2110 ;offset textbox
		rtl

hdmavofs:
	.repeat 112, i
        .byte 2
        .word ($0000 - i) & $ffff
	.endrep


;--
;RODATA ROMDATA
.RODATA
  incbin  bg,            "data/NSEVNTestBG.png.map"

.segment "ROM2"
  incbin  pal,        "data/NSEVNTestBGpal.png.palette"

.segment "ROM3"
  incbin  tile,          "data/NSEVNTestBG.png.tiles"
	incbin  fontile, "data/font.png.tiles"
	incbin  textboxtable, "data/text/TheTruth.txt"

.segment "LORAM"
shadow_oam: .res 512+32
textbox: .res 1134