.MODEL SMALL
.STACK 100H
.DATA
MSG1 DB 'TYPE A CHARACTER: $'
MSG2 DB 'THE ASCII CODE OF $'
MSG3 DB ' IN HEX IS $'
D1   DB 0H
D2   DB 0H
.CODE
MAIN PROC
    MOV AX, @DATA
    MOV DS, AX

INPUT:
    LEA DX, MSG1
    MOV AH, 9
    INT 21H

    MOV AH, 1;
    INT 21H
    MOV D1, AL
    MOV AH, 2
    MOV DL, 0AH
    INT 21H

CHECH:
    CMP D1, 0DH
    JE EXET
    LEA DX, MSG2
    MOV AH, 9
    INT 21H

PRINT:
    MOV CL, 4
    MOV D2, 2
FOR:
    CMP D2, 0
    JE INPUT_AGAIN

    MOV BL, D1
    SHR BL, CL

    CMP BL, 9
    JG PRINT_A
    ADD BL, 48
    MOV AH, 2
    MOV DL, BL
    INT 21H
    JMP NEXT

PRINT_A:
    ADD BL, 55
    MOV AH, 2
    MOV DL, BL
    INT 21H
    JMP NEXT

NEXT:
   DEC D2
   ROL D1, 4
   JMP FOR

INPUT_AGAIN:
   MOV AH, 2
   MOV DL, 0AH
   INT 21H
   JMP INPUT

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