include	clib.inc
include	string.inc

_TEXT	SEGMENT

stricmp proc dist pascal public uses si di ds s1:dword, s2:dword
	les di,s1
	lds si,s2
	mov al,-1
    @@:
	test al,al
	jz @F
	mov al,[si]
	mov ah,es:[di]
	inc si
	inc di
	cmp ah,al
	je @B
	cmpaxi
	je @B
	sbb al,al
	sbb al,-1
      @@:
	cbw
	ret
stricmp endp

_TEXT	ENDS

	END
