program StepDur; {$APPTYPE CONSOLE} uses SysUtils, windows, mmsystem; procedure NtDelayExecution(Alertable:boolean;Interval:PInt64); stdcall; external 'ntdll.dll'; function tsc: Int64; var ts: record case byte of 1: (count: Int64); 2: (b, a: cardinal); end; begin asm db $F; db $31; mov [ts.a], edx mov [ts.b], eax end; tsc:=ts.count; end; function calibrate_runtime:Int64; var i:byte; tstsc,tetsc,crtm:Int64; begin tstsc:=tsc; crtm:=tsc-tstsc; for i:=0 to 9 do begin tstsc:=tsc; crtm:=tsc-tstsc; if tetsc