WRITE A PROGRAM <A-F> HEX INTO DECIMAL LIPU VERSION

.MODEL SMALL
.STACK 100H
.DATA
A DW "INPUT:ENTER A HEX DIGIT: $"
B DW "OUTPUT:IN DECIMAL IT IS: $"

.CODE
MAIN PROC

    MOV AX,@DATA
    MOV DS,AX

   ;MSG1
   LEA DX,A
   MOV AH,9
   INT 21H

   ;SCAN
   MOV AH,1
   INT 21H
   MOV BL,AL



   ;NEWLINE
   MOV AH,2
   MOV DL,0DH
   INT 21H
   MOV DL,0AH
   INT 21H

    ;MSG2
   LEA DX,B
   MOV AH,9
   INT 21H


   MOV AH,2
   MOV DL,'1'
   INT 21H

   SUB BL,11H

   MOV AH,2
   MOV DL,BL
   INT 21H


   MAIN ENDP
END MAIN