.MODEL SMALL .STACK .DATA inps db 'give me string --> $' str db 'original character --> $' str1 db 'converted character --> $' oaod db 0ah,0dh,'$' NO1 DB 100 dup (?) no2 db 100 dup (?) .CODE MOV AX,@DATA MOV DS,AX ; lea dx,inps mov ah,09h int 21h ; xor bx,bx ; inp: mov ah,01 ; input a character int 21h cmp al,'$' jne putchar mov no1[bx],'$' jmp process ; putchar: mov no1[bx],al inc bx jmp inp ; process: lea dx,oaod mov ah,09h int 21h ; lea dx,str mov ah,09h int 21h ; lea dx,no1 mov ah,09h int 21h ; lea dx,oaod mov ah,09h int 21h ; lea dx,str1 mov ah,09h int 21h ; inc bx mov cx,bx ; xor bx,bx xor si,si lop: mov dl,no1[bx] or dl,00100000b mov no2[si],dl inc bx inc si loop lop ; lea dx,no2 mov ah,09h int 21h ; lea dx,oaod mov ah,09h int 21h ; MOV AH,4CH INT 21H END