DEF rLCDC EQU $FF40
DEF rLY EQU $FF44
DEF rBGP EQU $FF47
DEF rIE EQU $FFFF

SECTION "VBlank", ROM0[$40]
	reti

SECTION "Header", ROM0[$100]
Entry:
	di
	jp Main
	ds $150 - @, 0

SECTION "Main", ROM0
Main:
	ldh a, [rLY]
	cp a, 144
	jr c, Main
	xor a, a
	ldh [rLCDC], a
	inc a
	ldh [rIE], a

	ld bc, Font.end - Font
	ld de, Font
	ld hl, $8000 + 16 * 32
.copy
	ld a, [de]
	inc de
	ld [hli], a
	dec c
	jr nz, .copy
	dec b
	jr nz, .copy

	ld de, wScriptPool
	ld hl, ExampleScript
	call ExecuteScript
	ld a, %10010001
	ldh [rLCDC], a
	ei
.forever
	halt
	ld de, wScriptPool
	call ExecuteScript
	jr .forever

SECTION "Font", ROM0
Font:
	INCBIN "font.2bpp"
.end

SECTION "Script Pool", WRAM0
wScriptPool: ds 16