Дан массив из 10 байт. Посчитать количество байт с числом единиц в байте равным три

data segment
mas db 2,3,1011011b,255,34,82,234,1,51,0
kol db 0
otvet db ?
data ends
 
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
 
mov cx,10
lea bx,mas
xor dx,dx
 
 
deg:
push cx
mov al,[bx]
mov cl,8
 beg: 
 test al,1b
 jz nol
 inc kol
 nol: sar al,1
 loop beg
cmp kol,3
jnz bolshe
inc dx
bolshe: 
mov kol,0
inc bx
pop cx
loop deg
 
mov otvet,dl
 
QUIT: mov ax,4c00h
int 21h
code ends
end start

.286
.model tiny
.code
ORG 100h
start:  mov ax,3
    int 10h; чищу экран
    mov cx,10
    mov si, offset mas
    xor dx,dx
deg:    push cx
    lodsb;mov al,[bx]
    mov cx,8
beg:    test al,1
    jz nol
    inc kol
nol:    shr al,1; <-- вот здесь исправил!
    loop beg
    cmp kol,3
    jnz netri
    inc dx
netri:  mov kol,0
    pop cx
    loop deg
    mov ax,dx; и вывод на экран добавил
    aam
    xchg al,ah
    add word ptr x,ax
    mov dx,offset otvet
    mov ah,9
    int 21h; вывожу результат на экран
    mov ah,0; жду нажатия на любую клавишу
    int 16h
    retn; выхожу из программы
mas db 2,3,1011011b,255,34,82,234,1,51,0
;      1,2,5       ,7  ,2 ,3 ,5  ,1,4 ,0 число единичных бит в байте
kol db 0
otvet db 'в массиве '
x db '00 байт с числом единиц в байте равным три$'
END start

    .model tiny
    .code
 
    org 100h
start:
    mov si, offset mas
    mov cx, 10
    xor dl, dl
mainloop:
    lodsb
    xor ah, ah
calc:
    shr al, 1
    adc ah, 0
    or  al, al
    jnz calc
    xor ah, 3
    sub ah, 1
    adc dl, 0
    loop    mainloop
    xor ah, ah
    mov al, dl
    aaa
    rol ax, 8
    or  ax, 3030h
    mov word ptr x, ax
    mov dx, offset otvet
    mov ah, 9
    int 21h
    ret
;----------------------------------
mas db  2,3,1011011b,255,34,82,234,1,51,0
otvet   db  'в массиве '
x   db  '00 байт с числом единиц в байте равным три$'
;----------------------------------
    end start

.model tiny
.code
.486
org 100h
start:
mov si,offset mas
xor ax,ax
cwd
mov cx,10
calc:lodsb
     bt  word ptr [set],ax
     adc dl,ah
loop calc
add dl,'0'
mov ah,2
int 21h
xor ax,ax
int 16h
ret
mas db 2,3,1011011b,255,34,82,234,1,51,0
;      1,2,5       ,7  ,2 ,3 ,5  ,1,4 ,0 ÷èñëî åäèíè÷íûõ áèò â áàéòå
set dq 0000000100010110000101100110100000010110011010000110100010000000b,\
       0000000000000001000000010001011000000001000101100001011001101000b,\
       0000000000000001000000010001011000000001000101100001011001101000b,\
       0000000000000000000000000000000100000000000000010000000100010110b
end start