Советы по Delphi
А какой у меня процессор?
|
{ Ниже приведен код модуля Delphi, позволяющий определить тип CPU. Код является модифицированным кодом Intel. Использование его очевидно. Если для вас это утверждение спорно, пошлите мне ваш электронный адрес, и я вышлю вам демонстрационный пример. Поскольку Delphi ассемблер 16-битный, код смотрится несколько странным. Чтобы видеть 32-битные инструкции, попробуйте воспользоваться 32-битным дизассемблером (или прочтите комментарии). } unit CpuId; { Источником данного кода послужил код Intel, который был модифицирован для Delphi inline-ассемблера. Посколько Intel сделал свой код доступным, я также придаю ему статус свободнораспространяемого. |
Успехов!
Ray Lischner
Tempest Software
6/18/95
}
interface
type
{ Все типы известны. В случае создания новых, задайте им пригодные имена, и соответственно расширьте функцию CpuTypeString. } TCpuType = (cpu8086, cpu80286, cpu386, cpu486, cpuPentium);
{ Возвращает тип текущего CPU }
function CpuType: TCpuType;
{ Возвращаем тип как короткую строку }
function CpuTypeString: String;
implementation
uses SysUtils;
function CpuType: TCpuType; assembler;
asm
push DS
{ Во-первых, проверяем наличие 8086 CPU }
{ Биты 12-15 в регистре FLAGS всегда выставлены в }
{ 8086 процессоре. }
pushf { сохраняем EFLAGS } pop bx { сохраняем EFLAGS в BX } mov ax,0fffh { сбрасываем биты 12-15 } and ax,bx { в EFLAGS } push ax { сохраняем в стеке значение EFLAGS } popf { замещаем текущее значение EFLAGS } pushf { устанавливаем новый EFLAGS } pop ax { сохраняем новый EFLAGS в AX } and ax,0f000h { если биты 12-15 выставлены, то CPU } cmp ax,0f000h { 8086/8088 } mov ax, cpu8086 { вывешиваем флаг 8086/8088 } je @@End_CpuType
{ Проверка 80286 CPU } { Биты 12-15 регистра FLAGS всегда очищены в случае } { 80286 процессора. } or bx,0f000h { пробуем установить биты 12-15 } push bx popf pushf pop ax and ax,0f000h { если биты 12-15 сброшены, CPU=80286 } mov ax, cpu80286 { включаем флаг 80286 } jz @@End_CpuType
{ Для определения процессоров марки 386 и выше, необходимо использовать 32-битные инструкции, но 16-битный ассемблер Delphi не признает 32-битные коды операций и операнды. Взамен этого используется префикс размера операнда 66H, который позволяет преобразовать каждую инструкцию в ее 32-битный эквивалент. Для непосредственных 32-битных операндов вам нужно будет также хранить первое слово операнда сразу после следующей за ним инструкции. 32-битная инструкция показана в комментариях после инструкции 66H. }
{ Проверяем на i386 CPU } { Бит AC и бит #18 - новые биты, введенные в регистр EFLAGS } { в i486 DX CPU для компенсационного выравнивания. } { Этот бит не может быть выставлен в i386 CPU. }
db 66h { pushfd } pushf db 66h { pop eax } pop ax { получаем оригинальный EFLAGS } db 66h { mov ecx, eax } mov cx,ax { сохраняем оригинальный EFLAGS } db 66h { xor eax,40000h } xor ax,0h { перебрасываем бит AC в EFLAGS } dw 0004h db 66h { push eax } push ax { сохраняем для EFLAGS } db 66h { popfd } popf { копируем в EFLAGS } db 66h { pushfd } pushf { выталкиваем EFLAGS } db 66h { pop eax } pop ax { получаем новое значение EFLAGS } db 66h { xor eax,ecx } xor ax,cx { невозможно переключить бит AC, CPU=Intel386 } mov ax, cpu386 { включаем 386 флаг } je @@End_CpuType
{ Производим проверку i486 DX CPU / i487 SX MCP и i486 SX CPU }
{ Проверяем способность устанавливать/сбрасывать флаг ID (бит 21) в EFLAGS, }
{ который указывает присутствие процессора }
{ с помощью использования инструкции CPUID. }
db 66h { pushfd } pushf { выталкиваем оригинальный EFLAGS } db 66h { pop eax } pop ax { получаем оригинальный EFLAGS в eax } db 66h { mov ecx, eax } mov cx,ax { сохраняем оригинальный EFLAGS в ecx } db 66h { xor eax,200000h } xor ax,0h { перебрасываем бит ID в EFLAGS } dw 0020h db 66h { push eax } push ax { сохраняем для EFLAGS } db 66h { popfd } popf { копируем в EFLAGS } db 66h { pushfd } pushf { выталкиваем EFLAGS } db 66h { pop eax } pop ax { получаем новое значение EFLAGS } db 66h { xor eax, ecx } xor ax, cx mov ax, cpu486 { вывешиваем i486 флаг } je @@End_CpuType { если бит ID не может быть изменен, CPU=486 }
{ инструкция CPUID без функционального назначения }
{ Выполняем инструкцию CPUID для определения поставщика, }
{ семейства, модели и версии. Инструкция CPUID для этих }
{ целей может быть использована, начиная с версии B0 }
{ процессора P5. }
db 66h { mov eax, 1 } mov ax, 1 { устанавливаем для инструкции CPUID } dw 0 db 66h { cpuid } db 0Fh { код операции Hardcoded для инструкции CPUID } db 0a2h db 66h { and eax, 0F00H } and ax, 0F00H { все маскируем } dw 0 db 66h { shr eax, 8 } shr ax, 8 { сдвигаем тип cpu вплоть до нижнего байта } sub ax, 1 { вычитаем 1 для отображения на TCpuType }
@@End_CpuType:
pop ds end;
function CpuTypeString: String;
var
kind: TCpuType; begin
kind := CpuType; case kind of cpu8086: Result := '8086'; cpu80286: Result := '80286'; cpu386: Result := '386'; cpu486: Result := '486'; cpuPentium: Result := 'Pentium'; else { Пытаемся добавить "гибкости" для будущих версий процессоров, например, для P6. } Result := Format('P%d', [Ord(kind)]); end; end;
end.
[001953]
