ttttttttttttttttttttttttttttttttttttttttt

.MODEL SMALL
.STACK 100H
.DATA


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 0FFH DUP ('$')
    P22 DB 0FFH DUP ('$')

    MS DB 'ENTER A INTEGER NUMBER: $'

.CODE

MAIN PROC

    MOV AX, @DATA
    MOV DS,AX

    MOV AH,9
    LEA DX,RS
    INT 21H

    MOV AH,1


FIRST:


    INT 21H
    CMP AL,30H
    JGE POSITIVE


    LOOP FIRST


POSITIVE:


    CMP AL,39H
    JG ILLEGAL
    INC DX