Задача по Ассемблеру: дан массив из 10 байт. Посчитать количество байт с числом единиц в байте равным трем Мой код:

Mov Cx, 10

Xor BL, BL

Get: Shl Al, 1

Jnc No

Inc Bl

Cmp Bl, 3

Inc Bh

No: Loop Get

Нужно на подобном языке написать, только не понимаю как

Pascal:
program  Project;
var
  a,b,c: integer;
  min, max: integer;
begin
  Write('a=');
  Readln(a);
  Write('b=');
  Readln(b);
  Write('c=');
  Readln(c);
  if (a>b) and (a>c) then
  begin
     max:=a;
     if b>c then
     begin       
       a:=c;
       c:=max;
     end
     else
     begin
       a:=b;
       b:=max;
     end
  end else
  begin
     if (b>a) and (b>c) then
      begin
         max:=b;
         if a>c then
         begin       
           b:=c;
           c:=max;
         end
         else
         begin
           b:=a;
           a:=max;
         end
      end else
      begin
        max:=c;
         if a>b then
         begin       
           c:=b;
           b:=max;
         end
         else
         begin
           c:=a;
           a:=max;
         end
      end
  end;
  Write('a=',a);
  Write('b=',b);
  Write('c=',c)
end.

1. Кладем на каждую чашу по 3 монеты. Весы будут либо в равновесии, либо одна чаша перевесит другую.
1а. Если весы будут уравновешены, то в каждой группе из 3 монет имеется фальшивая. 
2а. Проверяем первую группу из 3 монет. Кладем на каждую чашу весов по одной монете. Если весы будут в равновесии, то фальшивая монета - та, которая осталась; если фальшивая монета находится на весах, то взвешивание это покажет (чаша с фальшивой монетой будет выше).
3а. Такие же действия выполняем со второй группой из 3 монет. 
1б. Если при первоначальном взвешивании одна чаша перевесит другую, то обе фальшивые монеты находятся в одной группе монет (в той, которая легче).
2б. Кладем на каждую чашу весов по одной монете из выбранной (более легкой) группы монет. Если весы в равновесии, то обе монеты на весах фальшивые. Если одна чаша перевешивает другую, то фальшивые монеты - одна из тех, что находятся на весах (более легкая) и оставшаяся монета.
Таким образом, две фальшивые монеты можно определить максимум на три взвешивания, минимум - за два.