.model small
.stack 512


DATA SEGMENT
    MSG1 DB 10,13,'ENTER ANY STRING :- $'
    MSG2 DB 10,13,'LENGTH OF STRING IS :- $'
    MSG3 DB 10,13,'REVERSE OF ENTERED STRING IS :- $'

    P1 LABEL BYTE
    M1 DB 0FFH
    L1 DB ?
    P11 DB 255 DUP ('$')
    P22 DB 255 DUP ('$')

DATA ENDS
DISSSPLAY MACRO MSG
    MOV AH,9
    LEA DX,MSG
    INT 21H
ENDM
CODE SEGMENT
    ASSUME CS:CODE,DS:DATA
START:
        MOV AX,DATA
        MOV DS,AX

        DISSSPLAY MSG1

        LEA DX,P1
        MOV AH,0AH
        INT 21H

        DISSSPLAY MSG2

        MOV DL,L1
        ADD DL,30H
        MOV AH,2
        INT 21H

        DISSSPLAY MSG3

        LEA SI,P11
        LEA DI,P22

        MOV DL,L1
        DEC DL
        MOV DH,0
        ADD SI,DX
        MOV CL,L1
        MOV CH,0

REVERSE:
        MOV AL,[SI]
        MOV [DI],AL
        INC DI
        DEC SI
        LOOP REVERSE

        DISSSPLAY P22

        LEA SI,P11
        LEA DI,P22

        MOV CL,L1
        MOV CH,0

        MOV AH,4CH
        INT 21H
CODE ENDS
END START