В слове определить разность между количеством нулевых битов в младшем и старшем байте.
>>Заранее спасибо<<
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.