vector1_at	proc far

@@origin	= word ptr  6
@@length	= word ptr  8
@@angle	= word ptr  0Ah

	push	bp
	mov	bp, sp
	movsx	eax, [bp+@@length]
	movsx	edx, [bp+@@angle]
	imul	eax, edx
	sar	eax, 8
	add	ax, [bp+@@origin]
	pop	bp
	retf
vector1_at	endp