Print star using loop in assembly language

.MODEL SMALL
.STACK 100H

.DATA
M1 DB 10,13,'ENTER LIMIT: $'

.CODE

MAIN PROC
    ;INITIALIZE DATA SEGMENT
    MOV AX,@DATA
    MOV DS,AX

    ;STRING OUTPUT
    LEA DX,M1
    MOV AH,9
    INT 21H

    ;SINGLE KEY INPUT
    MOV AH,1
    INT 21H
    MOV BL,AL
    SUB BL,48

    MOV CL,'*'
    MOV CH,1

    LOOOP:
    MOV AH,2
    MOV DL,CL
    INT 21H
    INC CH

    CMP BL,CH
    JL EXIT
    JMP LOOOP

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

END MAIN