Определение поддержки MMX

Советы » Процессор » Определение поддержки MMX

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение поддержки MMX

Зависимости: Types
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   Unknown
Дата:        17 июля 2002 г.
***************************************************** }

function

CheckMMX: Boolean; var

TempCheck: dword; begin

TempCheck := 1; asm

push ebx mov eax,1 db $0F,$A2 test edx,$800000 jz @NOMMX mov edx,0 mov TempCheck,edx @NOMMX: pop ebx end

; CheckMMX := (TempCheck = 0); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com