Системный таймер и частота процессора

[falabella]

Всем привет. На носу диплом.. в процессе разработки зашла в тупик. у меня есть функция для определения тактовой частоты процессора. Нужно с помощью нее получать конкретные временные зедержки (привязку нужно сделать через системный таймер). Не могу придумать как это реализовать. Частота получается с помощью RdtSC(если нужно взглянуть на функцию, могу выложить исходник). Очень надеюсь на вашу помощь..

[B_N]

Делается простой пустой цикл в котором проверяется количество прошедших тактов. Если через таймер,то выкладывайте исходник, Вы даже не указали ОС.

[falabella]

ОС виста. процессор 2 ядерный


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var hF, T, sc, et : int64;

function RdTSC : int64;
begin
asm
db $0f, $31
end;
end;


function GetCyclesPerSecond:int64; stdcall;
begin
QueryPerformanceFrequency(hF);
QueryPerformanceCounter(T);
et := T + hF;
sc := RdTSC;
repeat
QueryPerformanceCounter(T);
until (T >= et);
Result := RdTSC - sc;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetCyclesPerSecond;
end;

end.

[B_N]

Не совсем ясно вот это:

Сообщение от falabella

.........получать конкретные временные зедержки (привязку нужно сделать через системный таймер)..............

Зачем здесь RDTSC, если речь идёт о системном таймере?
P.S.

db $0f, $31

Дельфи до сих пор не знает про RDTSC??

[falabella]

на системный таймер нужно завязать вызов функции определения частоты. Нет, Delphi про RDTSC пока не в курсе).

[B_N]

Сообщение от falabella

на системный таймер нужно завязать вызов функции определения частоты.

Опять ничего не понял. Вы собираетесь периодически проверять количество прошедших тактов и делить их на <тактов в секунду>? Что в Вашем случае понимается под системным таймером? И какой величины задержка нужна?

[falabella]

мин. вел. определяется тактовой частотой МП. Системный таймер i8253(4)

[B_N]

Сообщение от falabella

мин. вел. определяется тактовой частотой МП.

Минимальная величина определяется операционной системой. Особенно в Ring3

Сообщение от falabella

Системный таймер i8253(4)

А при чём здесь счётчик тактов процессора? И как Вы собираетесь из дельфи таймер программировать?
Вы можете объяснить собственный вопрос? Если Вы собираетесь строить задержки по таймеру, зачем Вам RDTSC? Если по тактам, зачем таймер? По какой схеме Вы их хотите связать?

[falabella]

Я, к сожалению, не выбираю каким способом их организовать. Мне поставлена задача: сделать с помощью указанных средств(частота МКП и системный тайиер). И если бы я знала как их связать я бы здесь не написала...
Я надеюсь получить здесь конкретный ответ (читай код), как мне прикрутить формирование задержки на таймер. Мой опыт программирования на Delphi пока ограничен институтом, и я не могу поспорить с Вами, можно ли там запрограммировать таймер. Но раз такая задача поставлена, то, наверное, это реально.

[B_N]

Сообщение от falabella

Я, к сожалению, не выбираю каким способом их организовать. Мне поставлена задача: сделать с помощью указанных средств(частота МКП и системный тайиер). И если бы я знала как их связать я бы здесь не написала...
Я надеюсь получить здесь конкретный ответ (читай код), как мне прикрутить формирование задержки на таймер. Мой опыт программирования на Delphi пока ограничен институтом, и я не могу поспорить с Вами, можно ли там запрограммировать таймер. Но раз такая задача поставлена, то, наверное, это реально.

Да дело в том, что я никак не могу понять Ваше задание. Частота МП определяется элементарно:

#include <windows.h>
#include <iostream>

long main()
{
	LARGE_INTEGER c1, c2, freq;
	LARGE_INTEGER Peek1, Peek2;
	double lapse;
	__int64 CyclesPerSecond;

	QueryPerformanceFrequency(&freq);

	QueryPerformanceCounter(&c1);
	__asm RDTSC
	__asm MOV		DWORD PTR Peek1.LowPart,		EAX
	__asm MOV		DWORD PTR Peek1.HighPart,		EDX

	Sleep(100);

	QueryPerformanceCounter(&c2);
	__asm RDTSC
	__asm MOV		DWORD PTR Peek2.LowPart,		EAX
	__asm MOV		DWORD PTR Peek2.HighPart,		EDX

	lapse			= (double)(c2.QuadPart - c1.QuadPart) / (double)freq.QuadPart;
	CyclesPerSecond	= (__int64)( (Peek2.QuadPart - Peek1.QuadPart) / lapse );

	std :: cout << CyclesPerSecond << " Hz."<< std :: endl;
	return 0;
}

Но зачем сюда прикручивать таймер я не понимаю. Может быть, всё-таки, речь идёт о том, чтобы получать в цикле таймстампы через RDTSC, это дело другого рода, это можно легко организовать. Но NT не даст программировать системную плату из третьего кольца, тем более такую вещь, как таймер, поэтому я и пытаюсь уточнить Вашу задачу.