;Заполнить массив байт фиксированной длины с клавиатуры числами от 0 до 9.
;Найти сумму элементов массива.
model small
.386
.stack 100h
.data
    strLength db 10,13, 'Enter length: $'
    strInput db 10,13, 'Enter Element $',10,13
    strOutPut db 10, 13, 'Massiv $',10,13
    strSumma db 10,13, 'Summa: $'
    strError db 10,13, 'Error $'
    lenArray db ?
    Array db 10 dup(?)
    Summa dw 0
    error db ?
.code
    digit proc
        mov error, 0
        mov ah, 01h
        int 21h

        cmp al, '0'
        jb @errorf

        cmp al, '9'
        ja @errorf

        ret

        @errorf:
            mov ah, 09h
            mov dx, OFFSET strError
            int 21h

            mov error, 1
            ret
    digit endp

    inputArr proc
        mov ah, 9h
        mov dx, OFFSET strInput
        int 21h

        mov cl, lenArray
        mov si, 0

        @input:
            call digit

            cmp error, 1
            je @exitf

            mov Array[si], al
            inc si

            loop @input

        @exitf:
            ret


    inputArr endp

    outPutArr proc
        mov ah, 9h
        mov dx, OFFSET strOutPut
        int 21h

        mov cl, lenArray
        mov si, 0
        mov ah, 2h

        @output:
            mov dl, Array[si]
            int 21h

            mov dl, ' '
            int 21h

            inc si
            loop @output

        ret
    outPutArr endp

    Sum proc
        mov cl, lenArray
        mov si, 0

        @sum:
            mov al, Array[si]
            sub al, '0'
            add summa, al


            loop @sum

        ret
    sum endp

    main:
        mov ax, @data
        mov ds, ax

        mov ah, 09h
        mov dx, OFFSET strLength
        int 21h

        call digit

        cmp error, 1
        je @exit

        sub al, '0'
        mov lenArray, al

            call inputArr

        cmp error, 1
        je @exit

        call outputArr

        call Sum

        mov ah, 09h
        mov dx, OFFSET strSumma
        int 21h

        mov ah, 09h
        mov dx, OFFSET summa
        int 21h

        @exit:
            mov ah, 4Ch
            int 21h
    end main