XProfan

function GetCPUSPeed():Longword;stdcall;
var timerhigh,timerlow:dword;
begin
SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
try
asm
dw 310Fh
mov TimerLow,eax
mov TimerHigh,edx
end;
Sleep(1000);
asm
dw 310Fh
sub eax,TimerLow
sub edx,TimerHigh
mov TimerLow,eax
mov TimerHigh,edx
end;
Result:=Round(TimerLow/1000000);
finally
SetPriorityClass(GetCurrentProcess,NORMAL_PRIORITY_CLASS);
end;
end;

 {$cleq}
Declare x&
Cls
Print
Print Ermittelte Frequenz der CPU dieses Computers: ;

AsmStart GetCpuSpeed

    .data
    var1  dq  0
    var2  dq  1000000
    var3  dq  0
    .code
    .686p
    invoke GetCurrentProcess
    invoke SetPriorityClass,eax,REALTIME_PRIORITY_CLASS
    invoke GetCurrentThread
    invoke SetThreadPriority,eax,THREAD_PRIORITY_TIME_CRITICAL;
    rdtsc
    lea edi,var1
    mov [edi],eax
    mov [edi+4],edx
    invoke Sleep,1000
    rdtsc
    lea edi,var1
    sub eax,[edi]
    sbb edx,[edi+4]
    mov [edi],eax
    mov [edi+4],edx
    fild  var1
    fild  var2
    fdiv
    fistp var3
    invoke GetCurrentProcess
    invoke SetPriorityClass,eax,NORMAL_PRIORITY_CLASS
    lea edi,var3
    mov eax,[edi]

AsmEnd(x&)

Print Str$(x&)+ MHz.
WaitInput
Fin