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