include	clib.inc

_TEXT	SEGMENT

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

_TEXT	ENDS

	END
