Вывести все числа в строке

.model small
.stack 256h
.data
    input_msg  db       "Please, enter your string (no more than 128 symbols)$"
    str_crlf   db       13, 10, '$'
    first_bit  equ      1000000000000000b
    c10    db       10  
    
    max_length dw       128         ; максимальная длина строки
    len        dw       0           ; реальная длина введенной строки
    string     db       128 dup(?), '$' ; исследуемая строка
    sum        dw       0
    counter_i  dw       0
    counter_j  dw       0
.code
 
;//////Функция преобразования строки в число//////         
EnterNumber PROC 
;-------Сохранение содержимого регистров в стек------- 
    push    ax         
    push    bx
    push    cx
    push    dx
    push    di
    push    si
;----------------------------------------------------
read_xor:
    xor bx, bx ; обнуляем место хранения цифр
    xor     cx, cx ; обнуляем количество введенных цифр
    xor     di, di ; флаг цифры
 
;-----Начало преобразования-----
read_start: 
    mov     si, counter_i
    mov al, string[si]
    inc counter_i
    
    cmp al, 32
    je  read_start
                 
    cmp     al, '0' ; если символ < '0' то пропускаем
    jc  read_not_a_digit
    cmp     al, '9' ; если символ > '9' то пропускаем
    jnc     read_not_a_digit    
 
;-----Чтение очередной цифры числа-----           
read_digit:
    mov di, 1       ; устанавливаем флаг цифры  
 
        push    ax                       
    mov     ax, bx      ; помещаем в ах введенные ранее цифры   
    imul    c10         ; умножаем их на 10
    jo  read_exception  ; в случае переполнения уведомляем об ошибке
    
    pop bx
    add     bx, ax      ; записываем результат обратно в bx 
 
        inc     cx      ; увеличиваем счётчик цифр    
    jmp     read_start 
 
;-----Чтение отличного от цифры символа------
read_not_a_digit:
    cmp di, 0
    je  read_start
 
    jmp read_finish
 
;-----Ветка вывода окна ошибки------
read_exception:
    jmp exit
 
;-----Ветка завершения процедуры-----   
read_finish:       
    mov     ax, bx
    call    WriteNumber
 
    mov cx, len
    cmp counter_i, cx
    jl  read_xor
    
    pop     si
    pop     di
    pop     dx
    pop     cx
    pop     bx
 
    RET   
EnterNumber ENDP
 
;//////Функция ввода исследуемой строки//////
InputString PROC
;-------Сохранение содержимого регистров в стек-------
    push    ax
    push    bx  
 
    xor     bx, bx
;-----------------------------------------------------
begin_input:    
    mov     ah,01h          ; считываем очередной символ
    int     21h
 
    cmp     al, 13          ; если нажан Enter, то заканчиваем ввод
    je  end_input
 
    mov     string[bx], al      ; записываем введённый символ в строку
    cmp     bx, max_length      ; если введено максимальное число символов
    je  end_input
 
    inc     bx          ; увеличиваем bx
    jmp     begin_input
 
end_input:
    mov len, bx
;-------Возврат содержимого регистров-----------------
    pop bx
    pop     ax  
 
    RET
InputString ENDP
 
;//////Функция преобразование числа в строку//////                   
WriteNumber PROC
;-------Сохранение содержимого регистров в стек-------
    push    ax
    push    bx
    push    cx
    push    dx   
 
;-----------------------------------------------------  
    xor     cx, cx ; обнуляем счётчик цифр
    mov     bx, 10 ; константный делитель
 
    test    ax, first_bit ; проверяем первый бит числа (1 - отрицательное, 0 - положительное)
    jz  write_push
 
    push    ax
    mov     dl, '-' ; вывод символа '-' на экран
    mov     ah, 02h
    int     21h
 
    pop     ax
    neg     ax ; отрицательное число приобретает нормальный вид
 
;-------Выделение цифр из исходного числа-----------       
write_push:                          
    xor     dx, dx
 
    div     bx ; деление по основанию 10
    push    dx ; последнюю цифру заносим в стек
    inc     cx ; увеличиваем счётчик цифр
    cmp     ax, 0 ; есди цифры не закончились - возвращаемся к делению
    jne     write_push
 
;-------Непосредственный вывод цифр на экран---------   
write_pop:       
    pop     dx
 
    add     dl, '0' ; добавляем к очередной цифре код '0'
    mov     ah, 02h ; выводим очередную цифру на экран
    int     21h
    loop    write_pop ; циклом выталкиваем все цифры
 
;-------Возврат содержимого регистров---------------
    pop     dx
    pop     cx
    pop     bx
    pop     ax
 
    RET
WriteNumber ENDP
 
;//////Функция перевода курсора на новую строку//////
WriteLine PROC 
    push ax
    push dx
    
    lea dx, str_crlf ; вывод строки с необходимым переводом
    mov ah, 09h
    int 21h
    
    pop dx
    pop ax
   
    RET         
WriteLine ENDP
 
;//////ОСНОВНАЯ ПРОГРАММА//////
start:
    mov     ax, @data ; точка входа в программу
    mov     ds, ax
    
    lea     dx, input_msg
    mov     ah, 09h
    int     21h
 
    call    WriteLine   
    call    InputString
 
    call    EnterNumber 
 
;-------Конец Программы
exit:   
    mov     ah, 4ch
    int     21h
end start

;ml -c cio_nums.asm && wlink fi cio_nums form dos
.model  small
.386
dos_inp macro   lbl, sz
_ib_    struc  
max db  sz      ; наибольшая длина строки
len db  ?               ; сюда вернется настоящая длина
bf  db  sz dup(?)   ; тут будет то, что ввели
_ib_    ends            
lbl _ib_ <>
endm
.stack  100
.data
req db  'Enter string:$'
dos_inp buf, 100
.code   
start:  
    mov ax, @data
    mov ds, ax
    mov es, ax
; Вывод на экран 
    mov     ah, 09h
    lea     dx, req
    int     21h
; ввод строки
    mov ah, 0Ah
    lea dx, buf
    int 21h
;;
    movzx   cx, byte ptr buf.len
    lea si, buf.bf
    xor bx, bx
@loop:  lodsb
    cmp al, 30h
    jb  @non_dig
    cmp al, 39h
    ja  @non_dig
    int 29h
    xor bx, bx
    jmp @next
@non_dig:
    or  bx, bx
    jnz @next
    mov ax, 0A0Dh
    int 29h
    xchg    ah,al
    int 29h
    inc bx
@next:  loop    @loop
; выход
    mov ah, 4Ch
    int 21h
    end start