.model	small,c
	.code

_fstrcpy proc far uses si di ds es,S1:dword,S2:dword
	les	di,S1
	lds	si,S2
	mov	dx,es
	mov	cx,di
lp:	lodsb
	stosb
	and	al,al
	jnz	lp
	mov	ax,cx
	ret
_fstrcpy endp
	end