[emu8086] Удаление и замена символов в строке

@stack  segment para stack
        db      1024 dup(?)
@stack  ends
 
@data   segment
        CrLf    db      0Dh, 0Ah, '$'
 
        String  db      50, 0, 50 dup(?)
        Prompt  db      'Enter a string:', 0Dh, 0Ah, '$'
        Message db      'Result:', 0Dh, 0Ah, '$'
@data   ends
 
@code   segment
        assume  cs:@code, ds:@data, ss:@stack
main    proc
        ;инициализация сегментного регистра данных
        mov     ax,     @data
        mov     ds,     ax
 
        mov     ah,     09h
        lea     dx,     [Prompt]
        int     21h
        mov     ah,     0Ah
        lea     dx,     [String]
        int     21h
        mov     ah,     09h
        lea     dx,     [CrLf]
        int     21h
 
        mov     ah,     09h
        lea     dx,     [Message]
        int     21h
        mov     cx,     0
        mov     cl,     [String+1]
        lea     si,     [String+2]
@@For:
        lodsb
        cmp     al,     '0'
        jb      @@IsAlpha
        cmp     al,     '9'
        ja      @@IsAlpha
        push    cx
        mov     ah,     02h
        mov     dl,     '*'
        int     21h
        int     21h
        pop     cx
        jmp     @@Next
@@IsAlpha:
        cmp     al,     'A'
        jb      @@Next
        cmp     al,     'Z'
        jbe     @@ShowChar
        cmp     al,     'a'
        jb      @@Next
        cmp     al,     'z'
        jbe     @@ShowChar
        jmp     @@Next
@@ShowChar:
        push    cx
        mov     ah,     02h
        mov     dl,     al
        int     21h
        pop     cx
@@Next:
        loop    @@For
        ;завершение программы
        mov     ax,     4C00h
        int 21h
main    endp
@code   ends
 
        end     main

ja @@Next