			public	strcpy
strcpy_asm	segment	'code'
			assume	cs:strcpy_asm

strcpy		proc	far

s1			equ		dword ptr [bp+0ah]
s2			equ		dword ptr [bp+06h]

			push	bp
			mov		bp,sp
			push	si
			push	di
			push	ds
			cld
			les		di,s1
			lds		si,s2
cpyloop:
			lodsb
			stosb
			test	al,al
			jnz		cpyloop
			mov		ax,word ptr s1
			mov		dx,word ptr s1+2
			pop		ds
			pop		di
			pop		si
			pop		bp
			ret		08h
strcpy		endp
strcpy_asm	ends
			end

			pop		ds
			pop		di
			pop		si
			pop		bp
			ret		0ah
memcpy		endp
memcpy_