Hexa to Decimal

.MODEL SMALL
.STACK 100H
.DATA

X DB 'Enter a hexadecimal digit : $'
Y DB 10,13,'The Decimal digit is : $'

MAIN PROC

    MOV AX,@DATA
    MOV DS,AX

    MOV AH,9H
    LEA DX,X
    INT 21H

    MOV AH,1H
    INT 21H
    MOV BL,AL
    SUB BL,17D     ;PRINT '2'


    MOV AH,2
    MOV DL,10
    INT 21H           ;NEWLINE +SPACE REDUCED
    MOV DL,13
    INT 21H



    MOV AH,9
    LEA DX,Y
    INT 21H



    MOV AH,2
    MOV DL,49D          ; 1 BEFORE '2'
    INT 21H



         MOV AH,2
         MOV DL,BL
         INT 21H



    EXIT:
    MOV AH,4CH
    INT 21H
    MAIN ENDP
END MAIN