[M.A.D.M.A.N.]

Кусок кода реализация команды BSR:

Код:

    i := 31;
    while ((j  and $80000000) = 0) do
    begin
      Dec(i);
      j := j shl 1;
    end;

Чо вы какую-то х-ню городите на ассемблере?