Microprocessor 8086 assembly -Count all characters in string

Microprocessor 8086 assembly -Count all characters in string

.MODEL SMALL
.DATA
MSG1 DB "ENTER THE STRING :$"
MSG2 DB 0AH,0DH,"THE COUNT IS :$"
STRING DB 60 DUP('$')
NUM DB 0
.CODE
MAIN PROC
MOV AX,@DATA
MOV DS,AX

LEA DX,MSG1
CALL MESSAGE

LEA SI,STRING

LOOP1:
CALL INPUT
MOV BL,AL
MOV [SI],BL
CMP BL,0DH
JZ DOWN1
INC SI
JNE LOOP1

DOWN1:
LEA DX,MSG2
CALL MESSAGE
LEA SI,STRING

LOOP2:
MOV BL,[SI]
CMP BL,0DH
JZ DOWN2
CALL COUNT
INC SI
JNE LOOP2

DOWN2:
ADD NUM,30H
MOV AH,02H
MOV DL,NUM
INT 21H

MOV AH,4CH
INT 21H
MAIN ENDP

MESSAGE PROC
MOV AH,09H
INT 21H
RET
MESSAGE ENDP

INPUT PROC
MOV AH,01H
INT 21H
RET
INPUT ENDP

COUNT PROC
INC NUM
RET
COUNT ENDP
END MAIN

Output
ENTER THE STRING:Anandhu
THE COUNT IS :7