include	clib.inc
include	string.inc

_TEXT	SEGMENT

strcmpi proc public
	push si
	push di
    strcmpi_lup:
	mov ah,[si]
	mov al,es:[di]
	test ah,ah
	jz strcmpi_end
	cmpaxi
	jne strcmpi_end
	inc si
	inc di
	jmp strcmpi_lup
    strcmpi_end:
	mov cx,di
	pop di
	pop dx
	ret
strcmpi endp

_TEXT	ENDS

	END
