Поддерживает ли процессор технологию 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}