code vline
	push eax
	push edi
	push ecx
	call clip
	upop ecx	;h
	add [xy],cx
	mov eax,[fore]
.1	mov [edi],al
	add edi,dword [hp]
	loop .1
	pop ecx
	pop edi
	pop eax
next
