REVERSE A STRING

.MODEL SMALL
.STACK 100H

.DATA
    M1 DB 'ENTER A STRING : $'
    M2 DB 0AH,0DH,'REVERSE : $'

.CODE

MAIN PROC

    MOV AX,@DATA
    MOV DS,AX

    LEA DX,M1
    MOV AH,9
    INT 21H

    MOV CX,0
    MOV AH,1

    L1:
        INT 21H

        CMP AL,0DH    ; STRING INPUT
        JE L2

        PUSH AX
        INC CX
        JMP L1

    L2:

        LEA DX,M2
        MOV AH,9
        INT 21H

        MOV AH,2

        L3:
            POP DX
            INT 21H             ; REVERSE OUTPUT

            LOOP L3

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