Подсчитать сумму ненулевых элементов массива

[Daniel$]

Доброго времени суток!)
У меня проблемы с ассемблером..
Программа есть, но она подсчитывает сумму четных элементов.
Не могли бы вы мне объяснить, как сумму четных изменить на сумму не нулевых?
Конечно, можно было бы просто подсчитать сумму всех элементов массива, но это не канает =\

ASSUME CS:kom, SS:stek, DS:dan    ; описание сегментов
;сегмент кода
kom     SEGMENT
; сегмент данных
dan     SEGMENT
mas     DW 2,1,0,2,4,0,1,3,6,1,4,1    ; массив чисел
koli     DW 12    ; количество элементов массива
sum     DW ?    ; переменная для хранения суммы
ind     DW ?    ; переменная для хранения индекса этого элемента
dan     ENDS

; главная функция
main    PROC FAR
MOV AX,dan    ; записываем адрес данных в ax
MOV DS,AX    ; записываем адрес данных из ax  в сегмент данных
MOV AX,stek    ; записываем адрес стека в ax
MOV SS,AX    ; записываем адрес стека из ax в сегмент стека
PUSH BP        ; сохраняем старый адрес возврата
MOV BP,SP    ; BP=SP адрес кадра стека
caller:    MOV AX, koli    ; количество элементов - счетчик цикла
    PUSH AX        ; вталкиваем в стек
    LEA BX,mas    ; адрес массива в регистр BX
    PUSH BX        ; вталкиваем в стек
    CALL summa    ; вызов функции поиска четных элементов

vyvod:    MOV AX,sum    ; берем значение суммы
    PUSH AX        ; отправляем в стек
    MOV AX,10    ; задаем базу – десятеричная система
    PUSH AX        ; отправляем в стек базу
    CALL kod    ; вызываем функцию вывода чисел
    MOV BX,' '    ; берем символ
    PUSH BX        ; заталкиваем его в стек
    CALL putchar    ; вызываем функцию вывода символа
    MOV AX,10    ; выводим его как десятеричное число
    PUSH AX        ; для этого отправляем как параметр
    CALL kod    ; функции вывода числа
exit:   xor AX,AX    ; обнуляем ax
    MOV AH,4cH    ; выход в DOS
    INT 21H        ; передача управления в DOS
main    ENDP

; процедура поиска четных элементов массива
summa  PROC        ; объявление процедуры
ike     EQU -2[BP]    ; локальная переменная хранится в стеке
PUSH  BP        ; сохранить старое значение BP в стек
MOV BP,SP        ; BP=SP - устанавливаем указатель на базу
b1:
    mov CX,6[BP]        ; количество элементов массива
    mov BX,4[BP]        ; адрес массива
    mov si,0            ; индекс - номер элемента - храним в si
    mov sum,0        
b2:
     mov dx,BX[si]            ; текущий элемент массива в dx
    cmp dx,0            ; сравниваем текущий с 0
    jbe b4            ; <= тогда в конец цикла, к следующему числу
    and dx,1            ; проверка остатка от деления на 2
    cmp dx, 0
    jne b4            ; != тогда в конец цикла, к следующему числу
b3:
    mov ax, sum                
    add ax,BX[si]
    mov sum, ax        ; увеличиваем сумму
b4:    
    add si,2            ; увеличиваем индекс на длину элемента
    dec cx            ; уменьшаем счетчик цикла
    jcxz vyhod        ; счетчик обнулен? да-выход
    jmp b2            ; нет - повторить цикл сравнения
vyhod:
    POP  BP            ; восстанавливаем BP
    RET  6            ; возврат с удалением параметров из стека
summa ENDP

; процедура вывода строчного символа
putchar PROC
PUSH BP        ; сохранить старое значение BP в стек
PUSH AX        ;
PUSH DX        ;
MOV BP,SP    ; BP=SP
MOV DL,8[BP]    ;
MOV AH,2    ; 2 - вывод символа на экран
INT 21H        ; передача управления в DOS
POP DX        ; вытолкнуть из стека DX
POP AX        ; вытолкнуть из стека AX
POP BP        ; восстанавливаем адрес возврата
RET 2        ;
putchar ENDP

; процедура вывода числа в десятеричной форме
kod     PROC
x       EQU 6[BP]    ; локальная переменная x в стеке
baza    EQU 4[BP]    ; локальная переменная baza в стеке
y       EQU -2[BP]    ; локальная переменная y в стеке
PUSH BP            ; сохранить старое значение BP
MOV BP,SP        ; BP=SP адрес кадра стека
SUB SP,2        ; SP=SP-2
MOV AX,x        ;
CWD    
IDIV WORD PTR baza    
MOV y,AX    
CMP AX,0    
JE m1    
MOV AX,y    
PUSH AX    

CALL kod        ; рекурсия
m1:     MOV AX,x    ;
    CWD
    IDIV WORD PTR baza
    ADD DX,'0'    ;записываем код нуля в DX
    PUSH DX        ; вталкиваем DX
    CALL putchar    ; вызов процедуры вывода символа на экран
    ADD SP,2    ; переходим на 1 вниз
    POP BP        ; восстановление адреса возврата
    RET 6        ; возврат с удалением параметров (4 ячейки)
    kod     ENDP
    kom     ENDS    ; завершение сегмента кода

; сегмент стека
stek    SEGMENT STACK
DW 1000 DUP(?)    ; создается пустая область из 1000 слов стек
; dnost   EQU $    ; символ конца строки
stek    ENDS
END main

[UsamaBenLadan]

Сумма чётных:
b2:
test [byte ptr bx+si],1
jnz b4

Сумма нечётных:
b2:
test [byte ptr bx+si],1
jz b4

Сумма ненулевых:
b2:
cmp [word ptr bx+si],0
je b4