Проверка Деления на два (Четность Чисел)

.model small
.stack  100h
.data
mas db 1,2,3,2,1
      string db 0ah,0dh,'symma chetnih elementov: ','$'
    size=5
.code
.486
start:
mov     ax,@data
mov     bp,@data
mov     ds,ax
xor     ax,ax;сумма
xor     bp,bp;сумма
lea bx, mas;начало первой строки
xor si,si;смещение в строке
mov si,1
m1:
add ax,[bx+si];прибавляем к сумме э-т массива нечетный по индексу
add si,2
cmp si,size;если M, значит просуммировали все элементы
jnz m1
push ax;сохранить сумму
lea dx,string
mov ah,09h
int 21h
pop dx;восстановить сумму
add dl,'0'
mov ah,2
int 21h;вывести сумму
mov     ax,4c00h
int     21h
end     start

mov si,1
m1:
add ax,[bx+si];прибавляем к сумме э-т массива нечетный по индексу
add si,2
cmp si,size;если M, значит просуммировали все элементы
jnz m1

mov si,2
m1:
add ax,[bx+si];прибавляем к сумме э-т массива нечетный по индексу
add si,2
cmp si,size;если M, значит просуммировали все  элементы
jnz m1

xor     ax,ax;сумма чет
xor     bp,bp;сумма нечет
lea bx, mas;начало первой строки
xor si,si;смещение в строке начинается с 0
;mov si,1
m1:
test si, 1 ;четный элемент или нет
jz    chet
add bp, [bx + si] ;прибавляем к сумме э-т массива нечетный по индексу
jmp nextsi
chet:
add ax,[bx+si];прибавляем к сумме э-т массива четный по индексу
nextsi:
inc si
cmp si, size
jnz m1

summ_even dw 0
summ_odd dw 0

 lodsb
 cbw
 add summ_even, ax

 ; в ax число 
outDec proc
  xor cx, cx
next_div:
  xor dx, dx
  div ten
  push dx
  inc cx
  or ax, ax
  jnz next_div
  mov  ax, 0200h
outSym:
  pop  dx
  add  dl, '0'
  int  21h
  loop  outSym
  ret
 ten dw 10
outDec endp