В строке заменить символ 'a' на 'A' и удалить символ 'b'

STAK SEGMENT STACK 
DB 256 DUP (?)
STAK ENDS
DATA SEGMENT 
BUF DB 30, 0, 30 DUP ('$'), '$' 
OUTP DB 30 DUP (' '),'$'
DATA ENDS
CODE SEGMENT 
ASSUME CS: CODE, DS: DATA, SS: STAK
START:
XOR AX, AX 
MOV BX, DATA 
MOV DS, BX 
MOV AH, 0AH 
LEA DX, BUF 
MOV CX, 0 
INT 21H
MOV CL, [BUF+1]
LEA SI,BUF+2 
LEA DI, OUTP 
M1:
MOV AL, [SI] 
CMP AL, 'a' 
JE CHANGE
CMP AL, ' ' 
JE SKIP 
JMP COPY 
CHANGE:
MOV AL, 'A' 
COPY:
MOV [DI], AL 
INC DI 
SKIP:
INC SI 
LOOP M1 
MOV AH, 09H
LEA DX, OUTP 
INT 21H
LEA DX,BUF+2 
INT 21H
MOV AH, 4CH 
INT 21H
CODE ENDS
END START

CMP AL, ' '
JE SKIP

CMP AL, 'b'
JE SKIP

.model small
.data
    string db 50,?,51 dup('$')    
.code
start:  
    mov ax, @data
    mov ds, ax
    mov es, ax
    
    mov ah,0ah
    lea dx,string
    int 21h
    
    xor cx,cx
    mov cl,byte ptr [string+1]
    lea si,string+2
    
n:  cmp byte ptr [si],'a'
    jne m
        mov byte ptr [si],'A'
m:  cmp byte ptr [si],'b'
    jne q
        push si
        push cx
        mov di,si
        inc si
        rep movsb
        pop cx
        pop si
        dec si      
q:  inc si
    loop n
    
    mov byte ptr [string+1],0ah
    mov ah,9
    lea dx,string+1
    int 21h
    mov ax, 4c00h
    int 21h 
end start

.model small
.stack 256
.data  
    out_str db 255 dup ('$')
    nl db 13,10,'$'
.code
start:
    mov ax, @data
    mov ds, ax
 
    mov ah, 1
    mov di, offset out_str
read:
    int 21h
    cmp al, 13
    je write
    cmp al, 'a'
    jne @@1
    mov al, 'A'
    jmp @@2
 
@@1:    cmp al, 'b'
    je @@3
    
@@2:    mov byte ptr [di], al
    inc di
@@3:    loop read
write:
    mov ah, 9
    mov dx, offset nl
    int 21h
    mov dx, offset out_str
    int 21h
    mov ah, 1
    int 21
Exit:
    mov ax, 4c00h
    int 21h 
 
end start