Ассемблер

[Girrl666]

Ребята помогите, срочно нужно написать программу на ассемблере: Определение тактовой частоты процессора и др.характеристик, компилятор - любой!
Совсем не знаю что делать, могут отчислить...

[Stilet]

Могу только посоветовать такой шаблон:
file://localhost/D:/Help/delphiworld/get_clockrate_of_processor.html
Там на асме основное, используй его.

[MalCer]

Код с ассемблерными вставками:

double CPUSpeed(void) 
  { 
    DWORD dwTimerHi, dwTimerLo; 
    asm
     { 
        DW 0x310F 
        mov dwTimerLo, EAX 
        mov dwTimerHi, EDX 
      } 
    Sleep (500); 
    asm
     { 
        DW 0x310F 
        sub EAX, dwTimerLo 
        sub EDX, dwTimerHi 
        mov dwTimerLo, EAX 
        mov dwTimerHi, EDX 
     } 
    return dwTimerLo/(1000.0*500); 
  }

или

function GetCPUSpeed: Double;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: DWORD;
 PriorityClass, 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
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh
    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;

[netrino]

CPUID
http://www.sandpile.org/ia32/cpuid.htm

[Girrl666]

Спасибо, ребята !!!!!!