.size 8000

.text@48
	ei
	jp lstatint

.text@100
	jp lbegin

.data@143
	c0

.text@150
lbegin:
	ld a, 00
	ldff(ff), a
	ld a, 30
	ldff(00), a
	ld a, 01
	ldff(4d), a
	stop, 00
	ld c, 44
	ld b, 90
lbegin_waitly90:
	ldff a, (c)
	cmp a, b
	jrnz lbegin_waitly90
	ld a, 11
	ldff(40), a
	ld hl, 8000
	ld b, 08
lbegin_settile0data:
	ld a, 00
	ld(hl++), a
	ld a, 7e
	ld(hl++), a
	dec b
	jrnz lbegin_settile0data
	ld b, 08
lbegin_settile1data:
	ld a, 00
	ld(hl++), a
	ld a, 81
	ld(hl++), a
	dec b
	jrnz lbegin_settile1data
	ld b, 08
lbegin_settile2data:
	ld a, ff
	ld(hl++), a
	ld a, 81
	ld(hl++), a
	dec b
	jrnz lbegin_settile2data
	ld b, 08
lbegin_settile3data:
	ld a, ff
	ld(hl++), a
	ld a, 7e
	ld(hl++), a
	dec b
	jrnz lbegin_settile3data
	ld c, 12
	ld hl, 9800
lbegin_set_bgmap:
	ld b, 06
	ld a, 02
lbegin_set_bgmapline_tilenos0to11:
	ld(hl++), a
	inc a
	ld(hl++), a
	dec a
	dec b
	jrnz lbegin_set_bgmapline_tilenos0to11
	ld b, 0a
lbegin_set_bgmapline_tilenos12to31:
	xor a, a
	ld(hl++), a
	inc a
	ld(hl++), a
	dec b
	jrnz lbegin_set_bgmapline_tilenos12to31
	dec c
	jrnz lbegin_set_bgmap
	ld a, e4
	ldff(47), a
	ld a, 80
	ldff(68), a
	ld c, 69
	xor a, a
	ldff(c), a
	ldff(c), a
	ld a, 94
	ldff(c), a
	ld a, 52
	ldff(c), a
	ld a, 08
	ldff(c), a
	ld a, 21
	ldff(c), a
	ld a, ff
	ldff(c), a
	ldff(c), a
	ld a, 20
	ldff(41), a
	ld a, 02
	ldff(ff), a
	ld c, 43
	ld a, 91
	ldff(40), a
	ei
	xor a, a

.text@1000
lstatint:
	ldff(c), a
	ld a, 60

.text@1024
	ldff(c), a
	pop hl
	ld a, c0

.text@1064
	ldff(c), a
	xor a, a

