сравнение двух строк

[aza_kaz]

помогите пожалуйста с заданием
Даны две строки по длине не превышающие 255 символов. Определить идентичные фрагменты строк.
Основной модуль на Турбо-Паскале должен содержать диалоговый ввод необходимых данных, вызов функции или процедуры на ассемблере и вывод результатов;
второй модуль - функция или процедура на ассемблере, выполняющая заданную обработку и вызывающая для печати диагностических сообщений процедуру на Турбо-Паскале
в принципе с модулем на паскале и на ассемблере нет проблем. проблема именно в определении идентичных фрагментов. и записью их в другую переменную

Заранее спасибо

[MalCer]

...
str1 db 'blabla' ;1-я строка
str2 db 'blabla' ;2-я строка
...
cld
mov ESI,offset str1 
mov EDI, off set str2
mov ECX,6 
repe cmpsb 
je sovpadaut ;совпадают
Nesovpadaut:
 ;Продолжение, если строки не совпадают

[aza_kaz]

а вот как записать единтичные фрагменты строк в отдельную переменную, чтоб в дальнейшем вывести их на экран.

[MalCer]

Тупо, но все же:

...
str1 dd "str1",0 
str2 dd "str1",0
res  dd ?
...
CLD
MOV ECX,4
LEA ESI,str1
LEA EDI,str2
REPE CMPSB
JNE NO_SAME
JMP _SAME
NO_SAME:
  invoke ExitProcess,0      
_SAME:
mov eax,str1
mov [res],eax

или пройдитесь циклом выбирая каждую букву отдельно и записывая ее в переменную, что правильнее:

_SAME:
MOV ECX,4
LEA ESI,str1 
LEA EDI,res 
L1:
    MOV AL,[ESI]
    MOV [EDI],AL
    INC EDI
    INC ESI
LOOP L1