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

;Посчитать отрицательные элементы. Массив байт.
.model small
.data
mass db 25,-13,10,-3,6;массив
.code
begin:
mov ax,@data
mov ds,ax
lea bx,mass;заносим в bx исполнительный адрес массива
mov cx,5;заносим в счётчик число элементов массива
metka:;мет ка
mov al,[bx];загружаем в al элемент массива
cmp al,0;сравниваем текущий элемент массива с нулём
jnl metka1;если больше переходим на metka1
inc dx;иначе dx+1
metka1:;метка
inc bx;следующий элемент массива
loop metka;переход на metka пока сх не равен нулю
mov ah,4ch;загрузка адреса команды выхода из программы
int 21h;прерывание
end begin;конец программы

; Дан массив из 8 байт. Рассматривая его как массив из 64 бит посчитать количество  нулей
.model small
.data
mass1 db 7,4,7,5,3,8,9,4;заданный массив байт
.code
begin:
mov ax,@data
mov ds,ax
lea bx,mass1;загрузка в bx исполнительного адреса массива
xor dl,dl ;обнуление dl
mov cx,8;загрузка в счётчик количества элементов массива
m1:;метка
push cx;сохранение значения регистра сх в стеке
mov al,[bx];загрузка в al элемента массива
mov cx,7;загрузка в счётчик количества сдвигов
m2:;метка
shl al,1;сдвиг влево на 1 бит
jnc no;если старший бит не равен 0 то переход на метку no
shl al,1;сдвиг влево 
inc dl ;счётчик нулей
no:;метка
loop m2;Переход на m2
pop cx;вызов из стека значения сх
inc bx;следующий элемент массива
loop m1;переход на метку m1
mov ah,4ch ;загрузка адреса команды выхода изпрограммы
int 21h;прерывание
end begin;конец программы

; masm dos exe #
.286
.model small
.code
start:  mov ax,@data
    mov ds,ax
    mov si,offset mass
    mov bx,0
    mov cx,num
a1: lodsb
    shl al,1
    adc bx,0
    loop a1
    mov ax,bx
    aam
    xchg ah,al
    add x,ax
    mov dx,offset string
    mov ah,9
    int 21h
    mov ah,0
    int 16h
    mov ah,4Ch
    int 21h
.data
mass db 25,-13,10,-3,6
num = $ - mass
string db 'в массиве '
x dw '00'
db ' отрицательных элементов$'
end start