.size 8000

.text@100
	jp lbegin

.data@143
	80

.text@150
lbegin:
	xor a, a
	ldff(26), a
	ld a, 80
	ldff(26), a
	ld b, 2d
	ld c, 0e
lwaitbegin:
	dec b
	jrnz lwaitbegin
	dec c
	jrnz lwaitbegin
	ld a, 77
	ldff(24), a
	ld a, 22
	ldff(25), a
	ld a, 00
	ldff(16), a
	ld a, 09
	ldff(17), a
	ld a, 00
	ldff(18), a
	ld a, 87
	ldff(19), a
	ld b, fc
	ld c, 02
lwait:
	dec b
	jrnz lwait
	dec c
	jrnz lwait
	nop
	nop
	nop
	ld a, 08
	ldff(17), a
limbo:
	jr limbo

