compare two number in assembly language

.MODEL SMALL
.STACK 100H

.DATA
MSG1 DB 10,13, 'ENTER A NUMBER: $'
MSG2 DB 10,13, ' NUMBER IS GREATER: $'
MSG3 DB 10,13, 'NUMBER IS SMALLER : $'
MSG4 DB 10,13, 'NUMBER IS EQUEL : $'

.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


 SUB BL,48

 CMP BL,5
 JL L1
 JE L2

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


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

 L2:
 LEA DX,MSG4
 MOV AH,9
 INT 21H
 EXIT:




 MOV AH,4CH
 INT 21H

MAIN ENDP
END MAIN