code 'lines', lines
	dup
	push edi
	push ecx
	mov edi,0xa0000
	xor al,al
	mov ecx,vp
.1	push ecx
	mov ecx,hp
	rep stosb
	pop ecx
	inc al
	loop .1
	pop ecx
	pop edi
	drop
next
