{$ifndef ver80} // так как будем использовать 32-битный регистр
  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}