Заменить в строке заданное слово (подстроку) другой заданой подстрокой

replace proc            ;функция 
    mov cx,ssize
    lea si,strf     ;входная строка
    lea di,stro     ;выходная строка
lp1:    lodsb       ;читаем байт
    cmp al,'A'  ;если это английская буква
    jc nxt      ;то идем на eng
    cmp al,'Z'  ;если нет, то идем на nxt
    jbe eng
    cmp al,'a'
    jc nxt
    cmp al,'z'
    jbe eng
    
nxt:    stosb       ;сохраняем символ
nxt1:   loop lp1
    mov ax,0a0dh
    stosw           ;добавляем перевод строки
exx:    mov ax,di
    sub ax,offset stro  ;расчитываем длину новой строки
    ret
;на эту ветку передается управление когда попадается английское слово
eng:    push bx     ;сохраняем регистры
    push si
    push cx
    mov cl,symb[1]      ;длина русского слова
    mov ch,0    
    mov si,offset symb+2
    rep movsb       ;вместо английского слова в текущую позицию копируем русское
    pop cx
    pop si
    mov bx,offset strf  ;вычисляем границу строки
    add bx,ssize
    
ks: cmp si,bx   ;смотрим не вылезли ли за конечную границу строки
    jnc ns          ;если вылезли, то пропускать дальнейшие действия
    cmp [si],byte ptr ' '   ;ищем конец английского слова
    jz ns
    inc si          ;увеличиваем адрес
    dec cx          ;уменьшаем счетчик
    jmp ks
ns: pop bx
    jmp nxt1        ;возвращаемся в основной цикл после замены
replace endp