найти количество отрицательных элементов в массиве

[fatin]

Нужно найти количество отрицательных элементов в массиве а, только не полутчается и выдает ошибку, вот и не пойму какую? Помогите пожалоста разобраться? очень нужно!!!!(Ассемблер)
.model small
.stack 100h
.data
a db 5,-2,3,4,5,6,-85,-10,-9,11
n equ 10
msg db 'kol-vo otricatelnih elementov: ','$'
p db ' ','$'
.code
mov ax,@data
mov ds,ax
mov ax,0
mov si,0
xor bx,bx
xor ax,ax
lea dx,msg
mov ah,9
int 21h
xor ax,ax
mov cx,n
label1:
cmp a[si],0
jl label2
inc si
cmp si,n
je c21
loop label1
label2:
inc bl
inc si
cmp si,n
je c21
loop label1
c21:
mov al,bl
mov cx,10
lea si,p+3
c20:
cmp ax,10
jb c30
xor dx,dx
div cx
or dl,30h
mov [si],dl
dec si
jmp c20
c30:
or al,30h
mov [si],al
lea dx,p
mov ah,9
int 21h

[R71MT]

.data
array   db  5,-2,3,4,5,6,-85,-10,-9,11
len     =   $ - array      ; длина массива

.code                      ;
      xor   ax,ax          ; очищаем АХ
      mov   si,array       ; указатель на массив
      mov   cx,len         ; его длина
@1:   lodsb                ; берём в AL байт из SI
      or    al,al          ; логическая операция (можно test)
      jns   next           ; проверяем флаг SF на нуль
      inc   ah             ; считаем отрицательные элементы
next: loop  @1             ; мотаем цикл СХ-раз..
      ;--------------------; AH = кол-во отрицательных элементов