Поиск подстроки в строке

[valdemar593]

Граждане всем доброго времени суток
Поиск подстроки в строке
Не хочет второй раз вводить с клавиатуры подстроку
И сам алгоритм правильный?

.MODEL SMALL
.STACK 100h
.DATA
len1 dw ? 	 ; 
len2 dw ?        ; 
str1 db 80 dup(0) ; 
str2 db 80 dup(0) ; 
msg_yes db 'Ура Нашло', 13, 10, '$'
msg_no db 'Не беда Не нашло', 13, 10, '$'


.CODE 
MOV AX, @Data
MOV DX, AX


MOV AH, 3Fh
MOV BX, 0
MOV DX, offset str1
INT 21h
MOV len1, AX


MOV AH, 3Fh
MOV BX, 0
MOV DX, offset str2
INT 21h
MOV len2, AX


SEARCH: 
CLD
MOV CX, len1
LEA DI, str1
LEA SI, str2

LOOP_SEARCH:
JCXZ NOT_FOUND
MOV AX, [SI]
MOV BX, [DI]
CMP AX, BX
JE FIRST_CHAR_FOUND
INC DI
JMP LOOP_SEARCH


FIRST_CHAR_FOUND:
PUSH CX    
MOV CX, len2 - 1
CHAR_FOUND:
JCXZ FOUND
INC SI
INC DI
MOV AX, [SI]
MOV BX, [DI]
CMP AX, BX
JE CHAR_FOUND
POP CX
JNE LOOP_SEARCH

FOUND:

NOT_FOUND:

MOV AH, 4CH
INT 21H
END