input two number and compare in assembly

.MODEL SMALL
.STACK 100H

.DATA
MSG1 DB 10,13, 'ENTER NUMBER 1: $'
MSG2 DB 10,13, 'ENTER NUMBER 2: $'
MSG3 DB 10,13, 'SMALLER $'
MSG4 DB 10,13, 'GREATER $'

.CODE
MAIN PROC
;initialize data segment
MOV AX,@DATA
MOV DS,AX

;message  1
LEA DX,MSG1
MOV AH,9
INT 21H

;input   1
MOV AH,1
INT 21H
MOV BL,AL

;message  2
LEA DX,MSG2
MOV AH,9
INT 21H

;input 2
MOV AH,1
INT 21H
MOV CL,AL

SUB CL,48
SUB BL,48

CMP BL,CL
JL L1

LEA DX,MSG4
MOV AH,9
INT 21H
JMP EXIT

L1:
;message4
LEA DX,MSG3
MOV AH,9
INT 21H
EXIT:

;output
MOV AH,4CH
INT 21H

MAIN ENDP
END MAIN