.MODEL SMALL
.STACK 100H
.DATA

MSG1 DB 'ENTER THE WORD: $'

.CODE

MAIN PROC

    MOV AX,@DATA  ;initializes the data
    MOV DS,AX

    MOV AH,9      ;reads the text
    LEA DX,MSG1
    INT 21h       ;display the msg

    XOR CX,CX     ;count=0

    MOV AH,1      ;prepare to read
    INT 21H       ;read a character

 WHILE_:

    CMP AL,0DH    ;is AL greater than 0DH?
    JE END_WHILE  ;yes, exit loop

    PUSH AX       ;push it on stack
    INC CX        ;count = count + 1

    INT 21H       ;read character
    JMP WHILE_    ;loop back

 END_WHILE:

    MOV AH,2      ;display character function
    MOV DL,0DH    ;carriage return?
    INT 21H       ;execute
    MOV DL,0AH    ;LF
    INT 21H       ;execute
    JCXZ EXIT     ;exit if no characters read

 TOP:

    POP DX        ;get a character from stack
    INT 21H       ;display it
    LOOP TOP    ;

 EXIT:

    MOV AH,4CH  ;
    INT 21H
    MAIN ENDP
END MAIN