Частота процессора. Delphi

[Disb]

Нашел код в DelphiWorld и у вас на C -http://www.programmersforum.ru/showthread.php?t=8457
Самое интересное, что этот же код присутствует в методичке по ОС в качестве авторского.

function GetCPUSpeed: Double;
const
  DelayTime = 500;
var
  TimerHi: DWORD;
  TimerLo: DWORD;
  PriorityClass: Integer;
  Priority: Integer;
 begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
   dw 310Fh         // rdtsc
   MOV TimerLo, EAX
   MOV TimerHi, EDX
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh         // rdtsc
    SUB EAX, TimerLo
    SBB EDX, TimerHi
    MOV TimerLo, EAX
    MOV TimerHi, EDX
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result:=TimerLo/(1000.0 * DelayTime);
end;

Был бы очень благодарен, если бы вы построчно объяснили, зачем нужна конкретная команда в каждой строке.

[B_N]

Этот код уже лет 15 присутствует везде, куда не глянь. Что тут объяснять? Инструкция RDTSC (Read Time-Stamp Counter) помещает значение счетчика времени из регистра состояния машины в EDX:EAX. Способ, кстати, ненадежный - соответствующей установкой регистра CR4 доступ к ней остается только на нулевом уровне привилегий. SUB - целое вычитание, SBB - целое вычитание с заёмом флага CF, MOV перемещает значение из правого операнда в левый. Учите ассемблер и читайте докумены Intel. А то, что в дельфи RDTSC надо через опкод писать - удивило...
----------------
Немного поправлюсь, а то непонятно получилось: не счётчка времени, а счётчика тактов процессора.