.MODEL SMALL
.STACK
.DATA
    str     db 'original character --> $'
    str1    db 'converted character --> $'
    oaod    db 0ah,0dh,'$'
    NO1 DB 'Z'
.CODE
    MOV AX,@DATA
    MOV DS,AX
;
    lea  dx,str
    mov ah,09h
    int 21h
;
    mov dl,no1
    MOV AH,02 ; display high hex
    INT 21H
;
    lea  dx,oaod
    mov ah,09h
    int 21h
;
    lea  dx,str1
    mov ah,09h
    int 21h
;
    mov dl,no1
    or dl,00100000b
    MOV AH,02 ; display high hex
    INT 21H
;
    lea  dx,oaod
    mov ah,09h
    int 21h
;
    MOV AH,4CH
    INT 21H
END