Удаление из исходной строки повторные вхождения заданного символа

;DOS, TASM, COM-файл
;tasm.exe /m filename.asm
;tlink.exe /t /x filename.obj
;
.model tiny
.code
.386
org 100h
start:
    mov ah,10   ;ввод строки
    lea dx,strBig
    int 21h
 
    mov ah,2    ;перевод строки
    mov dl,10
    int 21h
 
    mov ah,1    ;ввод символа
    int 21h
    mov bl,al   ;сохранить символ
 
    mov ah,2    ;перевод строки
    mov dl,13
    int 21h
    mov dl,10
    int 21h
 
    xor cx,cx   ;очистка регистра
    mov cl,[len]    ;число введенных символов
    lea si,str
m1:
    lodsb       ;читать символ из строки
    mov ah,2    ;вывод его на экран
    mov dl,al
    int 21h
    cmp bl,dl   ;это наш символ?
    jz short ok ;да
    loop m1     ;продолжить читать и выводить символы
 
ok:
    dec cx      ;уменьшить число символов
;продолжить вывод строки без нашего символа
m2:
    lodsb
    cmp bl,al   ;это наш символ?
    jz short ok1    ;пропустить вывод
    mov ah,2    ;иначе вывод очередного символа
    mov dl,al
    int 21h
ok1:
    loop m2
 
exit:
 
    xor ax,ax   ;ждать нажатия клавиши
    int 16h
 
    ret     ;выход из программы
;--------Строка-----------
strBig db 255 ;лимит
len db ?      ;введенных символов
str:          ;символы
 
    end start