Использование ассемблера в Дельфи


         

Подсчет количества установленных бит в integer


function CountBits(const Value: Integer): Integer;

asm

mov ECX,EAX

xor EAX,EAX

test ECX,ECX

jz @@ending

@@counting:

shr ECX,1

adc EAX,0

test ECX,ECX

jnz @@counting

@@ending:

end;



Содержание раздела