(Assembler) одномерные массивы

[Natascha Cherevko]

Помогите понять как её решить. Получается сплошной бред с этими метками ничего не понимаю что да как. Задача такая Дан одномерный массив размером М. Состоящий из целых чисел. Проверить есть ли в нём элементы равные нулю.
(Задача не решена)
.model small
.stack 100h
.data
m dw ?
n dw ?
mas dw 10 dup(?)
cher dw ?
k dw ?
messin db 0ah,0dh, 'elementov v massive: $'
bufer db 06,00,5 dup (?)
newline db 0ah, 0dh, '$'
answer db 7 dup(?), '$'
messout db 0ah, 0dh,'vedite znachenie elementa: $'
mes1 db 0ah,0dh,'elementov ravniix nulu: $'

.code
start:
mov ax,@data
mov ds,ax
mov messin+20,'m'
lea dx,messin
mov ah,09h
int 21h
call input
mov m,ax
xor si,si
mov cx,m
m1:lea dx,messout
mov ah,09h
int 21h
lea dx, bufer
call input
mov mas[si],ax
add si,2
loop m1

xor si,si
mov cx,m
m3: mov ax, mas[si]
cmp ax,0
mov bx,m1
add bx,1
mov m1,bx

loop m3


lea dx,mes1
mov ah,09h
int 21h
mov ax,m
call output
mov ah,4ch
int 21h

include bin2str.asm
include str2bin.asm

input proc
push bx
push dx
push dx
lea dx, newline
mov ah,09h
int 21h
pop dx
mov ah,0ah
int 21h
mov bx,dx
inc bx
call str2bin
pop dx
pop bx
ret
input endp
output proc
push bx
lea bx,answer
call bin2str
lea dx,answer+1
mov ah,09h
int 21h
lea dx,newline
mov ah,09h
int 21h
pop bx
ret
output endp
end start

[R71MT]

Вот тебе код.. Вводишь с клавиатуры массив, вводишь элемент для поиска (ноль, или другое), и получаешь кол-во найденных элементов в массиве..

.model small
.386
.stack
        db    256 dup(0)

.data
mes0    db    13,10,' Введите массив....: $'
mes1    db    13,10,' Элемент для поиска: $'
mes2    db    13,10,' Найдено элементов.: $'
buff    db    80,0,80 dup(0)     ; буфер для строки

.code
start:  mov   ax,@data
        mov   ds,ax
        lea   dx,mes0            ; мессага
        call  Message            ;
        mov   ah,0Ah             ; вводим элементы массива
        mov   dx,buff            ;    ..и сохраняем их в буфере
        int   21h                ;

        lea   dx,mes1            ;
        call  Message            ;
        mov   ah,1               ; вводим элемент для поиска
        int   21h                ;
        xor   ah,ah              ;
        push  ax                 ; запоминаем его..

        lea   dx,mes2            ;
        call  Message            ;
        pop   ax                 ; искомый элемент в AL
        xor   cx,cx              ;
        mov   cl,[buff+1]        ; СХ - длина введённого массива
        inc   cx                 ;        +1 для последнего элемента
        lea   di,buff+2          ; DI - адрес массива
find:   repne scasb              ; ищем AL в буфере..
        or    cx,cx              ; все элементы проверили?
        jz    print              ; да: закончить
        inc   ah                 ; нет: считаем кол-во найденых
        jmp   find               ; продолжаем поиск дальше..

print:  shr   ax,8               ; отправляем результат в AL
        aam                      ; распаковываем его в BCD
        or    ax,3030h           ; переводим число в символы
        xchg  ah,al              ; +---> ..и выводим на экран
        int   29h                ; ^
        xchg  ah,al              ; ^
        int   29h                ; ^

exit:   xor   ax,ax              ; выход!
        int   16h                ;
        mov   ax,4c00h           ;
        int   21h                ;

;eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
Message:
        mov   ah,9
        int   21h
        ret

end start