Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Флаги

Rocker © (2003-05-24 10:28:00)
Есть какая-то комбинация флагов (как известно это числа - 2 в какой-то степени), допустим 2+8+32. Получим 42. Как определить, если изначально дано число 42, какие флаги при этом были использованы? То есть, если дано 42, то получить: 2,8,32.
Как это осуществить методами Delphi (Pascal) я знаю. А как на ассемблере?

Digitman (2003-05-26 14:03:00) [1]
function GetBitSet(Value: Integer; out BitNums: PByteArray): Integer;
asm
push esi
mov esi, ecx
mov edx, eax
xor ecx, ecx
xor eax, eax
@@1:
shr edx, 1
jnc @@2
mov [esi], cl
inc esi
inc eax
@@2:
inc ecx
cmp ecx, 32
jb @@1
pop esi
end;

procedure TForm1.Button4Click(Sender: TObject);
var
List: PByteArray;
i, NumOfBitsSet: Integer;
s: string;
begin
GetMem(List, 32);
try
NumOfBitsSet := GetBitSet(65534, List);
for i := 0 to NumOfBitsSet - 1 do
s:= s + IntToStr(List[i]) + #10;
ShowMessage(s);
finally
Freemem(List);
end;
end;

icWasya (2003-05-26 13:23:00) [2]
> Как это осуществить методами Delphi (Pascal) я знаю. А как на ассемблере?

ставишь точку останова на первом операторе
Run -> Run
когда остановится - View->Debug Window->CPU

и смотри что получилось

Юрий Зотов (2003-05-25 15:06:00) [3]
> А как на ассемблере?

Так же. Просмотреть, какие биты установлены, вот и все.

Anatoly Podgoretsky (2003-05-24 10:39:00) [4]
А как ты делаешь это на Дельфи и зачем это делать на ассемблере?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »