ass3

.model small
.data
msg1 db 'Enter a Character from A to F: $'
msg2 db 0ah,0dh, 'Decimal it is: 1$'

char db ?
.code
main proc
   mov ax,@data
   mov ds,ax

   lea dx,msg1
   mov ah,9      ;print msg1
   int 21h


   mov ah,1
   int 21h       ;Get input
   mov char,al

   lea dx,msg2   ;print msg2
   mov ah,9
   int 21h

   mov ah,2
   sub char,17
   mov dl,char   ;print output
   int 21h

   ;mov ah,4ch
   ;int 21h

   main endp
end main