Форум программистов [Powered by Invision Power Board]

Код

.data
    hStdOut   dd ?
    hStdIn    dd ?
    mes       db "Enter elements (separator - space): ",0Dh,0Ah
    kol_chars dd 1
    stroka    dw 1
    massiv    dw ?
    buf          dw ?
    count1      db ?
    
    len          db ?
    
    ten          dw 10
    
    i          dw 0
...
    mov    esi, 0
    mov        edi, 10
    mov        len, 0
    while1:
        invoke    ReadConsole, hStdIn, offset stroka, 1, offset kol_chars, 0 ; получили символ
        
        cmp        stroka, 13
        je        end_insert ; окончание ввода - <Enter>
        
        cmp        stroka, "-" ; проверка на отрицательность
        jne        insert
        mov        ax, 0;
        cmp        massiv[esi], ax
        jne        error ; ошибка - не верный ввод
        mov        ax, 1
        mov        massiv[esi], ax
        
        insert:
            cmp    stroka, " "
            jne        insert_value
            next_value: ; число сформировано
                mov        ebx, 1
                mov        ax, 0
                ; заполнение нулями начала строки
                while2:
                    mov        massiv[esi+ebx], ax
                    inc        ebx
                    cmp        ebx, edi
                    jb        while2
                ; переход к следующей строке
                inc        len
                inc        i
                movzx    eax, i
                mul        ten
                mov        esi, eax
                mov        edi, 10
                jmp        while1
            insert_value: ; формирование числа
                ; проверка корректности цифры
                cmp        stroka, "0"
                jb        error
                cmp        stroka, "7"
                ja        error
                ; добавление корректной цифры
                ;dec        edi
                mov        ebx, edi
                ; осуществление сдвига влево
                while3:
                    cmp        ebx, 10
                    jae        end_while3
                    mov        ax, massiv[esi+ebx+1]
                    mov        massiv[esi+ebx], ax
                    inc        ebx
                    jmp        while3
                end_while3:
                dec        edi;
                lea        ecx, stroka
                mov        ax, [ecx]
                mov        massiv[esi+10], ax
                
                ;invoke    WriteConsole, hStdOut, offset stroka, sizeof stroka, offset kol_chars, 0    
                
                ;xor        ecx, ecx
                ;wl:
                ;    mov        ax,    massiv[esi+ecx]
                ;    mov        buf, ax
                ;    invoke    WriteConsole, hStdOut, offset buf, sizeof buf, offset kol_chars, 0
                ;    inc        ecx
                ;    cmp        ecx, 10
                ;    jbe        wl
                
                jmp        while1
    end_insert: