Колличество четных элементов в одномерном массиве

[forsy]

Помогите найти ошибки в программе!
Программа считает колличество четных элементов в одномерном массиве!

Program s1;
var
 a : array[1..10] of word;
 i, s: word;
begin
 randomize;
 for i :=1 to 10 do
begin
 a[i] := 1 + random(100);
 write(a[i], ' ');
end;
writeln;
asm
cld
mov cx,10
mov bp,0
lea si,a
 @1:
 lodsw
 mov bx,2
 idiv bx
 cmp dx,0
 je @2
@2:
 loop @1
 add bp,1
 mov s,bp
end;
 writeln('s= ', s);
 writeln;
end.

[B_N]

Вот это:

je @2  
@2:

как понимать? Очевидно, увеличение должно происходить межу этими строками. И НЕ ТРОГАЙТЕ РЕГИСТР BP!

[Stilet]

Я бы это так решал:

.data
q		dw 1,2,3,4,5,6,7,8,9,10
s		db 0
.code
start:
 mov esi, offset q
 mov ecx,9
wq:
 lodsw
 mov ebx,2
 div bl
 cmp ah,0
 jz a
 inc [s]
a:
 loop wq
 ret
end start

[B_N]

Остаток от деления в [E]DX. К тому же перенос в асм всех этих паскальных штучек с дивами и модами - лишнее Чётность проверяется с помощью

TEST <operand>, 1