Hexa To Decimal

.MODEL SMALL
.STACK 100

.DATA

    MSG1 DB "ENTER NUMBER ON HEXADECIMAL ( CAPITAL ) : $"
    MSG2 DB 10,13,"IN DECIMAL : 1",
    NUM DB ?,"$"

.CODE

MAIN PROC

    MOV AX, @DATA
    MOV DS, AX

    LEA DX, MSG1
    MOV AH, 9
    INT 21H

    MOV AH, 1
    INT 21H
    SUB AL, 11H
    MOV NUM, AL

    LEA DX, MSG2
    MOV AH, 9
    INT 21H

    MOV AH, 4CH
    INT 21H

MAIN ENDP
END MAIN