Сформировать строку, содержащую вместо указанного сочетания строку с сочетанием “double”

.186
.model small
.data
    str1 db 'real'
    len1 equ $-str1
    str2 db 'double'
    len2 equ $-str2
    OK db 13, 10, 'novaya stroka: $'
    str_in db 100, ?, 101 dup (?)
.stack 256
.code
start:
    mov ax, @data
    mov ds, ax
    mov es, ax
    ;ввод строки
    mov ax, 0a00h
    mov dx, offset str_in
    int 21h
    ;в конец введенной строки помещается код 13, но в длинну строки он не включается
    ;надо его заменить на $, чтобы потом можно было выводить строку через 9 функцию 21 прерывания
    mov di, offset str_in+2
    mov bl, str_in[1]
    xor bh, bh
    MOV str_in[bx+2], '$'
    mov cx, bx
    inc str_in[1]           ;и увеличить длинну строки на единицу
    
    cld
@@1:
    mov al, 'r'         ;будем искать в строке символ 'r' и если он будет, то от него искать строку real
    repne scasb
    jcxz write          ;если просмотрели всю строку то на выход
    pusha               
    dec di          ;di на 'r'
    mov cx, len1    ;длинна строки real
    mov si, offset str1
    repe cmpsb      
    je @1           
    popa                ;если строки не равны. то продолжаем поиск
    jmp short next
@1: 
    call change     
    popa
    add di, len2-1          ;пропускаем подстроку 'double'
    sub cx, 3               ;хоть убей не помню для чего это :DD скажите что во время отладки обнаружили что так надо)))
    sub str_in[1], len1     ;получаем новую длинну строки
    add str_in[1], len2
next:
    jcxz write              
    jmp short @@1
    ;тут уже вывод
write:  
    mov dx, offset OK
    mov ah, 9
    int 21h
    mov dx, offset str_in+2
    int 21h
exit:   
    xor ax, ax
    int 16h
    mov ax, 4c00h
    int 21h
 
change proc
    pusha
    mov si, di              ;в di смещение символа 'r', кладем его в si
    push si 
    mov ax, si
    sub ax, offset str_in+2     
    xor cx, cx
    mov cl, str_in[1]
    mov di, offset str_in+2 ;получаем смещение, куда нужно переместить строку
    add di, cx
    dec di
    add di, len2-len1
    ;получаем сколько символов будем перемещать
    sub cx, ax
    add si, cx  ;настраиваем si на последний символ в строк
    dec si
    std
    ;перемещаем строку с конца
    rep movsb
    pop di
    ;di на строку real
    sub di, len1
    mov si, offset str2
    mov cx, len2
    cld
    ;и затираем ее строкой double
    rep movsb
    popa
    ret
change endp
end start

str_in db 100, ?, 152 dup (?)