.model	small,c
	.code

_fstrcmp proc far uses si di ds es,S1:dword,S2:dword
	lds	si,S1
	les	di,S2
lp:	lodsb
	mov	ah,es:[di]
	inc	di
	sub	al,ah
	jne	over
	and	ah,ah
	jnz	lp
over:	cbw
	ret
_fstrcmp endp
	end