string assmbly

INCLUDE 'EMU8086.INC'
.MODEL SMALL
.STACK 100h
.DATA
    ARY DB 50 DUP ("$")

.CODE
    MAIN PROC
        MOV AX,DATA
        MOV DS,AX
        PRINT "ENTER THE SIZE"
        MOV AH,1
        INT 21H
        SUB AL,30H
        MOV CH,0
        MOV CL,AL

        LEA SI,ARY
        PRINTN
        MOV AH,1
        TOP:
        INT 21H
        MOV [SI],AL
        INC SI
        LOOP TOP

        PRINTN

        MOV AH,9
        LEA DX,ARY
        INT 21H

        EXIT: