В рамках пятницы

Код:
t_b:
	ld hl,$2C0
td:
	ld b,5
	push hl
tl:
	add hl,hl
	jr nc,nol
	inc l
nol:
	djnz tl
	ld (hl),5*8
	pop hl
	inc l
;L=X,H=Y(7-3 bit)
	ld a,h
	add a,8
	ld h,a
	cp $ba
	jr nz,td
t_e:
	jr $