			public	strcat
strcat_asm	segment	'code'
			assume	cs:strcat_asm

strcat		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
			sub		ax,ax
			mov		cx,7fffH
			repne	scasb				;find end of destination string
			dec		di					;backup to null byte
			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
strcat		endp
strcat_asm	ends
			end
OPOop?	
0P	0 op	P0)	)?3?6	0>oPGV	WabgogPjpmyoPz}P @	@pp@_0 O	@P 