.include	"global.s"

	;; BANKED: checked
	.area	_BASE

	;; Initialize part (size = DE) of the VRAM at (HL) with B
.init_vram::
1$:
	LDH	A,(.STAT)
	AND	#0x02
	JR	NZ,1$

	LD	(HL),B
	INC	HL
	DEC	DE
	LD	A,D
	OR	E
	JR	NZ,1$
	RET
	;; Initialize window tile table with B
.init_wtt::
	LDH	A,(.LCDC)
	BIT	6,A
	JR	NZ,1$
	LD	HL,#0x9800	; HL = origin
	JR	.init_tt
1$:
	LD	HL,#0x9C00	; HL = origin
	JR	.init_tt
	;; Initialize background tile table with B
.init_btt::
	LDH	A,(.LCDC)
	BIT	3,A
	JR	NZ,1$
	LD	HL,#0x9800	; HL = origin
	JR	.init_tt
1$:
	LD	HL,#0x9C00	; HL = origin
;	JR	.init_tt
.init_tt::
	LD	DE,#0x0400	; One whole GB Screen
	JP	.init_vram