Удалить из строки заданный символ

data segment
               string db 'asdfhfdafafafsdfdfhdafdsfdnfbkjbajdfasfa',0ah,'$'
               l    dw $ - string
data ends
 
code segment
assume cs:code,ds:data
start:
    mov ax,data
    mov ds,ax
    
    lea dx,string                      ;вывод на экран строки до обработки
    mov ah,9
    int 21h 
    
    mov dx,30h
    lea di,string
    mov cx,l
n:
    cmp byte ptr [di],'a'                    ;собственно здесь указан искомый символ.
    jne nn
 
;если найден искомый символ то перезапишем строку, без этого символа.
        mov si,di
        inc si
        push di
        push cx
        inc cx
        m:
            mov al,byte ptr [si]
            mov byte ptr [di],al
            inc si
            inc di
            loop m
            pop cx
            pop di
nn:
    inc di
    loop n
    
    lea dx,string                            ;вывод после обработки
    mov ah,9
    int 21h 
        
    mov ah,4ch
    int 21h
code ends
end start