compstring:
	mov byte [bx], al
	mov byte [si], ah
	cmp al, ah
	jne compstring_unequal
	cmp al, 0
	je compstring_equal
	inc bx
	inc si
	jmp compstring


	compstring_unequal:
	mov cx, 0
	ret
	compstring_equal:
	mov cx, 1
	ret