Объясните как определить тактовую частоту процессора(uses tasm под консоль), лучше кодом. Долго искал, ничего путнего не нашел.
Вот так я делал, когда надо было определять частоту в Асм-модуле, а использовать значение в Паскале:
IDEALКое-что поправить, и можно будет работать только с Асм-ом... Справишься?
P386
LOCALS
MODEL small
SEGMENT sseg para stack 'STACK'
DB 200h DUP (?)
ENDS
DATASEG
; Частота процессора (переменная описана в Паскаль-программе)
EXTRN CPU_Freq:DWORD;
; Массив для сохранения значений отсчетов счетчика
; тактов в моменты срабатывания системного таймера
TimeCounter DD 17 DUP(?)
; Разность между соседними замерами
DeltaT DD 16 DUP(?)
; Среднее значение длительности интервала
AverageTime DD ?
; Предыдущее значение системного таймера
Time DD ?
ENDS
CODESEG
; к этой процедуре нам необходим доступ из Паскаля
PUBLIC Frequency
PROC Frequency
MOV AX, DGROUP
MOV DS, AX
; Настроить сегментный регистр ES на область данных BIOS
MOV AX, 0
MOV ES, AX
; Инициализировать переменные
MOV EAX, [ES:046Ch]
MOV [Time], EAX
; Процедура, ожидающая изменения таймера
CALL WaitTimer
; Замерить начальные моменты для 17 интервалов
MOV BX, 17
MOV DI, offset TimeCounter
@@t0: CALL WaitTimer
; Команда RDTSC
DB 0Fh, 31h
MOV [DI], EAX
ADD DI, 4
DEC BX
JNZ @@t0
; Вычислить длительность 16 интервалов в тактах
MOV BX, 16
MOV DI, offset TimeCounter
MOV SI, offset DeltaT
MOV EDX, 0
@@t1: MOV EAX, [DI+4]
SUB EAX, [DI]
MOV [SI], EAX
ADD EDX, EAX ;накопление суммы значений
ADD DI, 4
ADD SI, 4
DEC BX
JNZ @@t1
; Вычислить среднюю длительность интервала
SHR EDX, 4 ; деление на 16
MOV [AverageTime], EDX
; Умножить среднее значение на частоту генератора системного таймера
MOV EAX, [AverageTime]
MOV EDX, 1193180
MUL EDX
; Разделить результат на коэффициент пересчета системного таймера 65536
SHRD EAX, EDX,16
; Вычислить частоту в МГц (разделить на 1000000)
XOR EDX, EDX
MOV EBX, 1000000
DIV EBX
; Частота процессора переносится в CPU_Freq
MOV [CPU_Freq], EAX
; Возвращаемся из процедуры
RET
ENDP Frequency
; Процедура, ожидающая изменения таймера
PROC WaitTimer near
MOV EAX, [Time]
@@T: CMP EAX, [ES:046Ch]
JE @@T
MOV EAX,[ES:046Ch]
MOV [Time],EAX
RET
ENDP WaitTimer
ENDS
END
Спасибо большое, volvo. Только у меня один вопрос - как использоавть в своей программе 64-битные регистры?
У меня TASM ругается на них, пишет типа "undefineid symbol eax".
Упс, значит не 64 бита Твой код, что компилирует я не спорю. Все нормально, версия 4.1 у меня. Просто моем коде когда использую EAX компилятор ругается
Вот например:
.code
.8086 ; <--- Вот тут
Спасибо, все отлично работает теперь!
Ты случайно не знаешь как узнать название процессора? Оно вроде где-то в памяти хранится...
http://www.intel.com/software/products/documentation/vlin/mergedprojects/analyzer_ec/mergedprojects/reference_olh/mergedprojects/instructions/instruct32_hh/vc46.htm