.model	small,c
	.code

_fstricmp proc far uses si di ds es,S1:dword,S2:dword
	lds	si,S1
	les	di,S2
lp:	lodsb
	cmp	al,'a'
	jb	n1
	cmp	al,'z'
	ja	n1
	sub	al,'a'-'A'
n1:	mov	ah,es:[di]
	inc	di
	cmp	ah,'a'
	jb	n2
	cmp	ah,'z'
	ja	n2
	sub	ah,'a'-'A'
n2:	sub	al,ah
	jne	over
	and	ah,ah
	jnz	lp
over:	cbw
	ret
_fstricmp endp
	end