Задача на подсчет битов, Помогите решить задачу!!! Опции

[polosatik]

В слове определить разность между количеством нулевых битов в младшем и старшем байте.

>>Заранее спасибо<<

[Ozzя]

http://www.studfiles.ru/dir/cat32/subj79/f...9/view3328.html

Добавлено через 10 мин.
В принципе, оттуда только код подсчет нужен. Я его проверил. Работает.

label
  move;
var
  counter,slovo : word;
  mlbyte,stbyte : byte;

begin
  slovo:=127;
  mlbyte:=lo(slovo);
  stbyte:=hi(slovo);
  asm
    mov Ah,mlbyte
    mov bx,0
    mov cx,8
    move:
      sal ah,1 //;move highest bit in AX to CF
      adc bl,0
    loop move
    mov counter,bx
  end;
  writeln(counter);
  readln;
end.

[polosatik]

спасибо))