//==============================================================================
//                          Power managment[begin]
//==============================================================================

procedure tCPUid.CheckPowerMangement;
  function CheckAMDMobile: byte;
  begin
     cpuid($80000007, EAX, EBX, ECX, EDX);
     // EDX
     // bit 2 = voltage ID control
     // bit 1 = frequency ID control
     if (((EDX shr 1) and $3) = 3) then result:=1
                                  else result:=0;
  end;
begin
  if (FlagBrand = intel) then
     begin
        if (FeatureEcx and $80)=0 then FlagSpeedStep:=1;// EIST
        if ((Family = $6) and (Model = $B) and (BrandID = $6)) then FlagSpeedStep:=1;// Mobile Pentium III-M (Tualatin)
        if ((Family = $6) and (Model = $8) and (CacheL2 = 256) {and (PlatformID % 2) and (Multiplier > 5.0)}) then FlagSpeedStep:=1;// Mobile Pentium III (Coppermine)
      end;
   if (FlagBrand = amd) then
                         begin
                           FlagPowerNow:=CheckAMDMobile;
                           FlagAMDMobile:=FlagPowerNow;
                         end;
end;

//==============================================================================
//                          Power managment[end]
//==============================================================================