В чем ошибка произведение ненулевых элементов в векторе?

extrn vvod:near,disp:near 
Dseg segment para public 'data' 
   mas db 10 dup (?) 
   m db ?  
   mes1 db 'Vvedi n=$' 
   mes2 db 'mas[$' 
   mes3 db ']=$' 
   mes4 db 'Ishodny vektor$' 
   mes5 db 10,13,'$'     
; переход на новую строку 
   mes6 db ' $' 
  
   mes7 db 'proizvedenie elementov=$' 
   n dw ? 
Dseg ends 
;------------------------------ 
Sseg segment  para stack 'stack' 
   db 30 dup(0) 
Sseg ends 
;----------------------------- 
Cseg segment para public 'code' 
osn proc near 
   assume cs:cseg,ds:dseg,ss:sseg 
   mov ax,dseg 
   mov ds,ax 
;---------------------------- 
; ввод вектора 
; Ввод n 
   lea dx,mes1 
   mov ax,0900h 
   int 21h 
   call vvod 
   mov n,bx 
; Ввод элементов вектора 
   mov cx,n      
   mov si,0  
 
zikl1:    
   lea dx,mes2 
;mas[ 
   mov ax,0900h 
   int 21h 
   mov ax,si 
   call disp 
   lea dx,mes3 
;]= 
   mov ax,0900h 
   int 21h 
   call vvod 
   mov mas[si],bl  
   inc si 
   loop zikl1 
;---------------------------- 
; вывод вектора 
   lea dx,mes4 
;исходный вектор 
   mov ax,0900h 
   int 21h 
   lea dx,mes5 
;переход на новую строку 
   mov ax,0900h 
   int 21h 
   mov cx,n      
   mov si,0  
 
zikl2:   
   mov al, mas[si] 
   cbw 
   call disp 
   lea dx,mes6 
;пробел 
   mov ax,0900h 
   int 21h 
   inc si 
   loop zikl2 
;---------------------------- 
;произведение ненулевых элементов вектора 
   mov cx,n      
   mov si,0
   mov bl,1 
zikl3: 
cmp mas[si],0 
   je m1 
mov al,mas[si]
imul bl
   m1: inc si 
   loop zikl3 
 
;---------------------------- 
; вывод произведения 
   lea dx,mes5 
;переход на новую строку 
   mov ax,0900h 
   int 21h 
   lea dx,mes7 
;произведение ненулевых элементов 
   mov ax,0900h 
   int 21h 
   mov al,m 
   cbw 
   call disp 
;--------------------- 
; завершение программы 
   mov ax,4c00h 
   int 21h 
osn endp 
Cseg ends 
end  osn

zikl3: 
cmp mas[si],0 
   je m1 
mov al,mas[si]
imul bl
   m1: inc si 
   loop zikl3