Show numbers as ascending order in assembly language

.MODEL SMALL
.STACK 100H

.DATA

M1 DB 'ENTER LIMIT: $'
M2 DB 10,13,'NUMBER AS ASCENDING ORDER: $'

.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

    MOV CL,'1'

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

    TOP:
    MOV AH,2
    MOV DL,CL
    INT 21H
    INC CL

    CMP BL,CL
    JL EXIT
    JMP TOP

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

END MAIN