Delphi Sources

Поддерживает ли процессор технологию 3DNow




Разработали новый процессор на женской логике, обрабатывающий четыре логических значения: "Ни да, ни нет", "И да, и нет", "Три раза нет!" и "Нет, и не проси!!!"


// так как будем использовать 32-битный регистр
{$ifndef ver80}
function 3DNowSupport: Boolean; assembler;
asm
  push ebx
  mov @Result, True
  mov eax, $80000000
  dw $A20F
  cmp eax, $80000000
  jbe @NOEXTENDED // 3DNow не поддерживается
  mov eax, $80000001
  dw $A20F
  test edx, $80000000
  jnz @EXIT // 3DNow поддерживается
  @NOEXTENDED:
  mov @Result, False
  @EXIT:
  pop ebx
end;
{$endif}