Определение тактовой частоты процессора

[lesega]

Подскажите пожалуйста, где можно найти программу на Турбо-Паскале или саму программу.
Используя функции системного таймера ЭВМ определить быстродействие и производительность ЦП ПЭВМ для тестируемой инструкции процессора. На основании данных программы определить тактовую частоту процессора.

[Ivan_32]

Это очень просто, но нужно быть в защищенном режиме что бы это сделать(а может я ошибаюсь?).
Понадобится вам 2 вещи:
Таймер и инструкция RDTSC.
TSC=это счетчик тактов, каждый такт инкрементирует его. Т.е. допустим ваш процессор работает на частоте 3.4 Ггц, значит он совершает 3 400 000 000 тактов в секунду. Т.е. счетчик этот инкрементируется именно на это значение. Инструкция RDTSC считывает текущее значение этого счетчика в пару регистров EDX:EAX - то есть ту самую пару в которую обычно используется инструкцией MUL(умножение) и DIV(деление). Вот псевдокод:

tscHi dd ?
tscLo dd ?

RDTSC
MOV [tscHi],EDX
MOV [tscLo],EAX
invoke Wait(1000) ; ждем одну секунду
SUB EDX,[tscHi]
SUB EAX,[tscLo]
;Все, в EDX:EAX находится текущая частота процессора.

В случае с частотами процессора, меньше чем 4 ггц можно просто выводить значение EAX. В остальных случаях стоит воспользоваться функциями из MSVCRT.DLL - тамошние printf и прочие умею выводить long long если не ошибаюсь. Но, особой точности вы так не достигнете.
Для точности лучше выполнять вычисления с помощью FPU.

[OCTAGRAM]

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

MSVCRT.DLL

Это же Turbo Pascal... какие там dll?


У Klaus Hartnegg естъ страничка, на которой собраны разные альтернативные реализации Delay. Среди них наверняка есть с исходником 32битная версия.

[Инспектор ГУЛ]

а про что идёт речь вообще что я не догоняю... что за тактовую частоту процессора, и быстродействие? может кто нить объяснит? Чтоб расширить свои знания...