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

mov   al, byte [mass]  ; в al байт из массива "mass".
test  al, 100b         ; проверяем 2-й справа бит.
jnz   bitset           ; переход если 2-й справа бит равен 1.

data segment
mas db 12,3,13,254,34,82,234,1,8,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: shr 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

; компилировать FASM'ом.
 
    use16
    org  100h
 
    mov cx, 10
    lea bx, [mas]
    xor dx, dx
deg:
    push cx
    mov al, [bx] ; number
    mov cl, 8
beg:
    test al, 1b
    jz nol
    inc [kol]
nol: 
    shr al, 1
    loop beg
    cmp [kol], 3
    jnz bolshe
    inc dx
bolshe:
    mov [kol], 0
    inc bx
    pop cx
    loop deg
    add dl, 0x30             ; прнобразуем в ASCII число.
    mov [otvet], dl
quit: 
; вывод строки в текущей позиции курсора.
    mov  ah, 9
    mov  dx, mess
    int  21h
 
; получить код нажатой клавиши.
    mov  ah, 10h
    int  16h
 
    mov ax,4c00h
    int 21h
 
mas   db 12,3,13,254,34,82,234,1,8,0
kol   db 0
mess: db 'Chislo bait sodergashih tri edenitsi: '
otvet db 0,13,10,'$'