Заменить во вводимом тексте каждое слово 'man' словом 'woman'

xor bx,bx
xor si,si
xor di,di
cld
lea si,men
lea di,women
mov ah,01h
m1:int 21h
stos w       
inc bx
repne scas w
cmp cx,0
je m1
dec di
dec si
mov al,'women'
m2:stos w
loop m2
moov cx,bx
lea di,men
lea si,women
mov ah,02h
m3:lods w
mov dx,ax
unt 21h
loop m3

;TASM, DOS, COM-файл
;tasm.exe /m
;tlink.exe /t /x
;
.model tiny
.code
.386
ORG 100h
START:
    mov ah,10   ;ввести строку
    lea dx,string   ;
    int 21h
    mov si,dx   ;сохранить адрес строки
 
    mov ah,2    ;вывести символ
    mov dl,10   ;перевод строки
    int 21h
 
    xor cx,cx   ;обнуляем счетчик длины строки
 
    inc si      ;выходим на число введенных символов
    mov cl,[si] ;число введенных символов в CX для циклов
    inc si      ;установить SI на первый символ строки
    lea di,strRez   ;строка - результат
m1:
    lodsb       ;читаем символ из [SI] в AL
    mov bl,al
    shl ebx,8   ;сдвиг символа влево
    cmp ebx,6D616E00h ;это слово 'man'?
    jnz short m2    ;нет, записать символ в строку - результат
 
;Слово найдено
    xor ebx,ebx ;очистка регистра для следующего слова
    sub di,2    ;DI на первый символ слова 'man'
 
push si cx      ;сохранить адрес строки и ее счетчик
    mov cx,5
    lea si,woman    ;скопировать слово 'woman' вместо 'man'
    rep movsb
pop cx si
    jmp short m3    ;на следующий символ исходной строки
m2:
    stosb       ;запись символа в строку - результат
m3:
    loop m1     ;повторять цикл, пока счетчик символов не CX=0
 
    mov byte ptr [di],'$' ;записать в конце строки - результата
 
    mov ah,9    ;вывести строку - результат на экран
    lea dx,strRez
    int 21h
 
    mov ah,0    ;ждать нажатой клавиши
    int 16h
;
    ret     ;выход из программы
 
woman   db  'woman'
string  db 255,256 dup (?) ;для вводимой строки
strRez:            ;для строки - результата
    end start