Обработка символьной информации, с помощью функций DOS Опции

[Rocket]

Вот задание: Ввести с клавиатуры две строки. Сравнить их. Вывести на экран какая из строк больше и насколько. Какие мысли есть по реализации данной программы? Как осуществить сравнение строк?

[Rocket]

Вот последняя вариация программы:

data segment
entrStr	   db 13, 10, 'string:$'
entrSStr	   db 13, 10, 'substring:$'
sNotFound db 13, 10, 'substring was not found$'
sResult	  db 13, 10, 'pos = $'

inpStr  db 100
inpStrLen db ?
inpStrDat db 100 dup(?)

inpSStr  db 100
inpSStrLen db ?
inpSStrDat db 100 dup(?)

count_of_digits  dw 2
data ends


code segment
assume cs:code, ds:data

writeDEC proc

	push ax
	push bx
	push cx
	push dx
	
	xor cx, cx
	mov bx, 10
		
 next_digit:
	xor dx, dx	
	div bx		
	push dx		
	inc cx		
	or ax, ax
	jnz next_digit	
		
next_char:
	pop ax		
	add al, '0'
	int 29h		
	loop next_char
	
	pop  dx
	pop  cx
	pop  bx
	pop  ax
	ret		

writeDEC endp


findSStr proc

; Ищем первый символ подстроки
FindFirstCh:
	mov al, [di] ;
	inc di
	cmp al, [si]
	jz beginCompare	; Нашли
	
nextCompare:
	loop FindFirstCh
	xor ax, ax	; не найдено, вернем 0

	; Если цикл FindFirstCh закончился - значит подстроки нет
	jmp exit_proc
	
beginCompare:
	; Проверяем следующие за первым в подстроке символы
	push cx
	push si
	push di
	dec di
	mov cl, inpSStrLen
	
	; Проверка
yesCompare:
	mov al, [di]
	inc di
	cmp al, [si]
	;не совпало переход
	jnz noCompare	; Очередной символ не совпал
	inc si
	loop yesCompare
	
	; Если здесь - значит все совпало
	jmp found
	
	; Не совпало - восстанавливаем данные и ищем дальше
	; первый символ подстроки в строке
noCompare:
	pop di
	pop si
	pop cx
	jmp short nextCompare
	
found:
	; вытягиваем из стека адрес первого символа
	pop di
	
	; и вычисляем его позицию
	mov dx, offset inpStrDat
	mov ax, di
	sub ax, dx
		
	pop si
	pop cx
	
exit_proc:
	ret

findSStr endp


start: 
 	mov ax,data
	mov ds, ax
	
	
	; вводим строку
	mov ah, 09h
	lea dx, entrStr
	int 21h
	mov ah, 0ah
	lea dx, inpStr
	int 21h
	
	; записываем '$' в конец строки
	lea di, inpStrDat
	xor ch, ch
	mov cl, inpStrLen
	add di, cx
	mov byte ptr[di], '$'
	
	; вводим подстроку
	mov ah, 09h
	lea dx, entrSStr
	int 21h
	mov ah, 0ah
	lea dx, inpSStr
	int 21h
	
	; Подготовка
	xor cx, cx
	mov di, offset inpStrDat
	mov si, offset inpSStrDat
	mov cl, inpStrLen
	
	call findSStr

	test ax, 0
	jnz not_found

	; Есть совпадение, выводим сообщение
	push ax
	mov ah, 09h
	mov dx, offset sResult
	int 21h
	pop ax
	call writeDEC
	jmp exit_prog
	
not_found:
	mov ah, 09h
	mov dx, offset sNotFound
	int 21h
	
exit_prog:
	mov ax, 4c00h
	int 21h
code ends
end start

и в ней присутствует косяк... Вобщем, когда подстроки нет в строке, то программа всё равно выводит сообщение с номером позиции...выводит 0. Мне кажется, что не происходит вот это:

xor ax, ax; не найдено, вернем 0
; Если цикл FindFirstCh закончился - значит подстроки нет
jmp exit_proc