.MODEL SMALL .STACK .DATA str db 'original character --> $' str1 db 'converted character --> $' oaod db 0ah,0dh,'$' NO1 DB 'ABCDEFGHIJK$' LL EQU $-NO1-1 .CODE MOV AX,@DATA MOV DS,AX ; 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 ; mov cx,LL ; dec cx xor bx,bx lop: mov dl,no1[bx] or dl,00100000b MOV AH,02 INT 21H inc bx loop lop ; lea dx,oaod mov ah,09h int 21h ; MOV AH,4CH INT 21H END