{ **** UBPFD *********** by delphibase.endimus.com **** >> Определение поддержки MMX Зависимости: Types Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol Copyright: Unknown Дата: 17 июля 2002 г. ***************************************************** } functionCheckMMX: 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
;