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

; Лабораторная работа №4
; Манякин Алексей, вариант 8
; Программа определяет первое вхождение S2 в строку S1
; Длина строки S1 должна быть больше чем длина S2
; Строки должны заканчиваться 0 (Z-String))
 
.model small
 
.stack 200h             ; Размер стека 512 байт
.data
S1    DB      'kgkghjkyrtuooodfhgfhtyjre7itygooojhdfgsdgdzgdx',0h
S2    DB      'ooo',0h  ;строка для поиска
n1    DW     ?          ; Длина строки S1
n2    DW     ?          ; Длина строки S2
msg4 db   'Nachinaia  s          simvola $'
MsgFound            DB      'Stroka naidena! ',13,10,'$'
MsgNotFound     DB      'Stroka ne naidena! ',13,10,'$'
 
.code
    mov ax,@DATA ; Установка регистра DS на сегмент данных
        mov ds,ax
    mov es,ax
 
    mov ah,0  ;уст. видео режим. Очистить экран
    mov al,2   ;текст, формат  окна   80x25
    int 10h      ;видео сервис
 
        ; Определение длины строки S1
 
 
 
 
 
STRLEN:  
mov DI, offset s1 
mov cx,0ffh ;Длина сравниваемых строк 
mov al,0
repne scasb ;Поиск различия в строках 
sub di,offset s1
mov n1,di
 
 
mov DI, offset s2 
mov cx,0ffh ;Длина сравниваемых строк 
mov al,0
repne scasb ;Поиск различия в строках 
sub di,offset s2
mov n2,di
 
 
 
 
 
                ; Инициализация
        mov si,0
        mov di,0
        mov bx,0
 
 
 
        ; Реализация n1-n2+1
        mov cx,n1
        sub cx,n2
        inc cx
CYCLE:
        mov al,[S1+bx]
        cmp al,S2
        jz CHAREQU
CC5:
        inc bx
        cmp bx,cx
        jnz CYCLE
        jmp NOTFOUND
        
        ; Символы равны
CHAREQU:
        mov dl,1     ;используем как флаг
        mov di,0
 
CYCLE2:
        mov al,[S1 + bx + di]
        cmp al,[S2 + di]
        jz CHAREQU2
        ; Символы не равны
        ; Сбрасываем флаг
        mov dl,0
 
CHAREQU2:     ; Символы равны
        inc di
        cmp di,n2
        jnz CYCLE2
        ; Смотрим нашли ли мы строку
        cmp dl,1
        jz FOUND          ; Если нашли
        jmp CC5            ; Если не нашли
 
FOUND:
    
        mov ah,09h
        lea dx,MsgFound
        int 21h
 
; первод номера позиции в стороку и вывод на экран
 
             mov ax,bx
         inc ax
         mov cx,0010
         mov si,offset(msg4) + 17
c2:
        cmp ax,cx
        jb c3
        xor dx,dx         
        div cx
        or dl,30h
        mov [si],dl
        DEC si 
        jmp c2
c3:
        or al, 30h
        mov [si], al        
        
        mov ah,09h                      ; помещаем в al 09h - при 21 прирывании будет выведено сообщение
            mov dx,offset(msg4)   ;загружаем в  dx адрес ASCII строки символов заканчивающихся '$'
            int 21h     
 
jmp EXITDOS
 
NOTFOUND:
        mov ah,09h
        lea dx,MsgNotFound
        int 21h
 
EXITDOS:    ; Выход в DOS
 
        MOV DH,00
        MOV AH,0 ;ожидать следующую нажатую клавишу
        INT 16H
 
        mov ax,4C00h
    int 21h
 
; Определение длины строки
; Определяет длину строки (не считая  0)
; Входные данные:
; STR - смещение к строке
; Выходные данные:
; n - длина строки
; Вытаскивание параметров из стека - как в Си
 
end

mov DI, offset s1 
mov cx,0ffh ;Длина сравниваемых строк 
mov al,0
repne scasb ;Поиск различия в строках 
sub di,offset s1
mov n1,di
 
 
mov DI, offset s2 
mov cx,0ffh ;Длина сравниваемых строк 
mov al,0
repne scasb ;Поиск различия в строках 
sub di,offset s2
mov n2,di

S1 DB 'kgkghjkyrtuooodfhgfhtyjre7itygooojhdfgsdgdzgdx',0h
Num = $ - S1; <-- вот она длина строки