Программа, подсчитывающая количество единиц. Ассемблер, tasm

Data SEGMENT
A     DB     01101011b
Data ENDS
Ourstack SEGMENT Stack                  
DB 100h DUP (?)                         
Ourstack ENDS                           
ASSUME CS:Code, DS: Data, SS:Ourstack    
Code SEGMENT                            
Start:    
 MOV AX,data
            MOV DS, AX 
            mov  bx,word ptr A
        mov  cx,16
        mov  ax,0
@@1:  shr bx,1
        adc  ax,0
        loop @@1
        mov bx,word ptr A+2
        mov cx,16
@@2: shr bx,1
       adc ax,0
        loop @@2
     mov cx,32
     sub cx,ax 
mov AX, 4C00h                           
    int 21h                                 
Code ENDS
END Start

; masm dos exe #
.286
.model small
.data 
A DB 01101011b
.code
Start:  mov ax,@data
    mov ds,ax
    mov ax,3;очистим экран
    int 10 
    mov bl,A
    mov cx,8;А - это байт, в байте 8 разрядов
    mov dl,0;обнулим счетчик
@@1:    shr bl,1;сдвигаем вправо
    adc dl,0;если единичка, тогда увеличиваем счетчик
    loop @@1
    add dl,'0';делаем цифру
    mov ah,2;выводим ее на экран
    int 21h
    mov ah,0;ждем нажатия на клаву
    int 16h
    mov ah,4Ch ;выходим из программы
    int 21h 
end start