Подсчитать число символов во введенной строке и вывести его на экран

ORG 100h
JMP start
 
mess0   DB  13,10,' ENTER STRING..: $'
mess1   DB  13,10,' TOTAL SYMBOLS.: $'
buff    DB  40,0,40 DUP(0)
 
start:
   MOV   AH,9
   MOV   DX,mess0         ; запрос на ввод
   INT   21h
   MOV   AH,0Ah           ; ввод строки в буфер
   MOV   DX,buff
   INT   21h
   MOV   AH,9             ; вывод результата на экран
   MOV   DX,mess1
   INT   21h
 
   XOR   AX,AX
   MOV   AL,[buff+1]      ; длинна строки хранится в буфере
   MOV   BX,10            ; параметр для HEX2ASC (система счисления)
   CALL  HEX2ASC          ; выводим число в DEC
 
   XOR   AX,AX
   INT   16h
   INT   20h              ; на выход!
 
;нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн
;//=========== ФУНКЦИЯ ВЫВОДИТ НА ЭКРАН СЛОВО В РАЗЛИЧНЫХ СС ===================|
HEX2ASC:
   PUSHA                  ; перевод из HEX в ASCII и вывод на экран
   XOR   CX,CX            ; на входе: BX = система счисления, AX = число
isDiv:
   XOR   DX,DX            ; очистим место под остаток
   DIV   BX               ; разделим AX на фактор системы счисления
   PUSH  DX               ; сохраняем остаток от деления
   INC   CX               ; увеличим счётчик разрядности цифры
   OR    AX,AX            ; это последняя цифра?!
   JNZ   isDiv            ; нет - читаем следующую..
isOut:
   POP   AX               ; снимаем со-стека остаток в обратном порядке
   CMP   AL,9             ; проверка на десятичную цифру
   JLE   noHex            ; меньше/равно? значит это не HEX-цифра
   ADD   AL,7             ; коррекция для HEX..
noHex:
   OR    AL,30h           ; переводим цифру в символ
   INT   29h              ; выводим её на экран
   LOOP  isOut            ; ^^.. и мотаем цикл CX-раз.
   POPA
RET

   MOV   AX,0Ah
   MOV   BX,16
   CALL   HEX2ASC