Подсчитать количество единичных битов в массиве чисел (для Х86)

mov edx,N - количество двойных слов в массиве
    lea esi,mass
    xor ebx,ebx
@1:   lodsd    
    bsr ecx,eax <-- ищем старший ненулевой бит
    jz @3 <-- если eax=0 переходим к следующему элементу
    not ecx
    add cl,33
    shl eax,cl <-- пропускаем ненужные разряды
@2:adc ebx,0
   shl eax,1
    jnz @2
@3:   sub edx,1
    jnz    @1

   xor ebx,ebx <-- счетчик
   or eax,eax
   jz exit
@@: inc ebx
   lea ecx,[eax-1]
   and eax,ecx <-- в регистре EAX циклически сбрасывается крайний справа единичный бит (проверьте сами)
   jnz @b

.data
table db 0,1,1,2,1,2,2,2,3,1,2,2,...,7,8
count db 0
.code
mov ebx,offset table
...
@@: lodsb
       xlat
       add count,al
       loop @b

.data
...
count dd 0
...
.code
...
     lodsd
     mov ebx,eax
     or eax,eax
     jz exit
     shr eax,1
@@:sub ebx,eax
     shr eax,1
     jnz @b
exit: add count,ebx
     ...

   mov ebx,8040201h
    mov edi,11111111h
        xor eax,eax
.....
        lodsb        ;в 32 разрядах регистра только 8 младших 
    mul ebx    ;создаем четыре копии байта каждый со сдвигом в 1 разряд
    shrd eax,edx,3  ;удаляем ненужные биты
    and eax,edi;выделяем каждый четвертый бит
    mul edi;сложение
    shr eax,28;результат в еах
        add count,eax

        lodsd
    mov ebx,eax
    shr ebx,1
    and ebx,77777777h;n=(х >> 1) & 0x77777777 Подсчет битов
    sub eax,ebx      ;x=x-n                   в 4-х битовых
        shr ebx,1          ;                       полях
    and ebx,77777777h;n=(n >> 1) & 0x77777777
    sub eax,ebx      ;x=x-n
        shr ebx,1
    and ebx,77777777h;n=(n >> 1) & 0x77777777
    sub eax,ebx      ;x=x-n
    mov ebx,eax
    shr ebx,4
    add eax,ebx
    and eax,0F0F0F0Fh;x=(x+(x >> 4))& 0xF0F0F0F вычисление сумм
    imul eax,1010101h;x=x * 0x1010101           сложение байтов
    shr eax,24
        add count,eax