assembler tasm - надо сосчитать сколько елементов было введено

Как продолжение этого ответа

Теперь идея немного другая. Используется массив строк с фиксированной длиной (массив названий цифр, каждое название длиной 6 байт, символ-заполнитель "доллар"). Замена цифр их названиями также происходит в промежуточном буфере с последующим выводом его содержимого в консоль.

Длина введённой строки здесь определяется так.
Сначала ищется конец введённой строки (байт со значением 0Dh), затем из адреса этого байта вычитается адрес начала и получается длина строки.
Символьное представление длины записывается сразу после текста "Character count: ", а потом вся сформированная строка выводится в консоль.

.model small
.stack 100h

.data
mseee db "Writeln: $"
msgeee db "Character count: "
strlen db "$$$$"
Names db "zero$$","one$$$","two$$$","three$","four$$"
db "five$$","six$$$","seven$","eight$","nine$"
enteris db 13,10,'$'
inbuff db 100
len db ?
string db 100 dup (?)
buffer db 496 dup ('$')

.code
Start:
mov ax, @data
mov ds, ax
mov es, ax

mov ah, 09h
mov dx, offset mseee
int 21h

mov ah, 0Ah
mov dx, offset inbuff
int 21h

mov ah, 09h
mov dx, offset enteris
int 21h

;Определение длины, поиском адреса маркера окончания введённой строки 0Dh
mov cx,-1
lea di,string
mov al,0Dh
repne scasb
dec di
sub di,offset string; из адреса маркера вычесть адрес начала = длина
mov ax,di
xor cx,cx
mov dl,10
DivLen:
div dl
push ax
inc cx
xor ah,ah
or al,al
jnz DivLen
lea di,strlen
LenChar:
pop ax
xchg ah,al
or al,30h
stosb
loop LenChar

lea dx,msgeee
mov ah,9
int 21h
mov dx, offset enteris
int 21h

mov si, offset string
lea di,buffer
Repeat:
lodsb
cmp al,0Dh
je OutString
cmp al,'0'
jb CopyChar
cmp al,'9'
jbe CopyNumber
CopyChar:
stosb
jmp Repeat
CopyNumber:
sub al,'0'
mov bl,6
mul bl
mov bx,ax
CopySymb:
mov al,Names[bx]
cmp al,'$'
jz Repeat
stosb
inc bx
jmp CopySymb

OutString:
lea dx,buffer
mov ah,9
int 21h

xor ah,ah
int 16h
mov ax, 4C00h
int 21h

end start