یه کمکه کوچیک

[ماری کوری20011]

من یه برنامه نوشتم که یه رشته با دو کاراکترو دریافت کنه تو رشته کارکتر اول جستجو با کا رکتر دوم جای گزین شه ولی موقع خروجی دادن خروحی درست با یه سری علامت می ده چیکار کنم که دیگه اون علامتا نیاد

datasg segment para 'data'
msg1 db 'enter a string :',"$"
msg2 db 'enter souce character:',"$"
msg3 db 'enter target character:',"$"
msg4 db 'your result is:',"$"
ch1 db ?
ch2 db ?
strlist label byte
db 20
len db ?
str1 db 10 dup('')
dolar db '$'

datasg ends
codesg segment para 'code'
main proc far
assume ds:datasg,cs:codesg
mov ax,datasg
mov ds,ax

mov ah,6h
mov al,25
mov ch,0
mov ch,0
mov dh,24
mov dl,79
mov bh,7
int 10h

mov dx,offset msg1
mov ah,9h
int 21h

mov ah,2h
mov dh,12
mov dl,30
mov bh,0
int 10h

mov ah,0ah
lea dx,strlist
int 21h

mov ah,2h
mov dh,14
mov dl,30
mov bh,0
int 10h

mov dx,offset msg2
mov ah,9h
int 21h



mov ah,1h
int 21h
mov ch1,al

mov ah,2h
mov dh,16
mov dl,30
mov bh,0
int 10h

mov dx,offset msg3
mov ah,9h
int 21h

mov ah,1h
int 21h
mov ch2,al

mov ah,2h
mov dh,18
mov dl,30
mov bh,0
int 10h

mov bl,ch1
mov bh ,ch2
mov cl,0
lea si,str1
l2: cmp cl,len
je lend
cmp [si],bl
jne l1
mov [si],bh
l1: inc cl
inc si
jmp l2
lend:


mov dx,offset msg4
mov ah,9h
int 21h


lea dx,str1
mov ah,9h
int 21h
ret
msg db "end","$"

mov ax,4c00h
int 21h

main endp
codesg ends
end main
:تشویق::تشویق: