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

{$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}