.size 8000

.text@48
	jp lstatint

.text@100
	jp lbegin

.text@150
lbegin:
	ld c, 44
	ld b, 97
lbegin_waitly97:
	ldff a, (c)
	cmp a, b
	jrnz lbegin_waitly97
	ld c, 41
	ld a, 40
	ldff(c), a
	ld a, 02
	ldff(ff), a
	xor a, a
	ldff(0f), a
	ldff(45), a
	ld c, 47
	ld a, ff
	ldff(c), a
	inc a
	ld b, 90
	ei

.text@1000
lstatint:
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	ldff(c), a
	dec a

.text@1033
	ldff(c), a
	pop hl
	ldff a, (45)
	inc a
	cmp a, b
	jrnz lstatint_set_lyc
	xor a, a
lstatint_set_lyc:
	ldff(45), a
	ld a, 00
	ei

