procedure cCPUid.FindDevice(var fPCIDevice: tPCIDevice; DeviceID: word);
var
  pdata:dword;
  dwBus, dwDev, dwFunc: byte;
begin
  FillChar(fPCIDevice, SizeOf(fPCIDevice), 0);
  for dwBus:=0 to 255 do
    for dwDev:=0 to 31 do
      begin
        if not oHWIO.IPCIIORef.ProbeDevice(dwBus, dwDev) then continue;
        for dwFunc:=0 to 7 do
          begin
            oHWIO.IPCIIORef.GetPCIRDWord(dwBus, dwDev, dwFunc, 0, pdata);
            pdata:=Word(pdata shr 16);
            if pdata=DeviceID then
                                begin
                                  fPCIDevice.Detected:=true;
                                  fPCIDevice.dwBus:=dwBus;
                                  fPCIDevice.dwDev:=dwDev;
                                  fPCIDevice.dwFunc:=dwFunc;
                                  exit;
                                end;
          end;
      end;
end;

procedure tPCIIO.GetPCIRDWord( dwBus, dwDev, dwFunc, offs : byte; var pdata:DWord );
begin
  FIPortIORef.WritePortL(PCRAddress,$80000000 or (longint(dwBus) shl 16) or ((longint(dwDev) and $1f) shl 11) or
            ((longint(dwFunc) and $07 ) shl 8) or (offs and $fc));
  pdata := FIPortIORef.ReadPortL(PCRData);
end;

procedure tPCIIO.SetPCIRDWord(dwBus, dwDev, dwFunc, offs:byte; pdata:DWord);
var IPort: IPortIO;
begin
  IPort := oHWIO.IPortIORef;
  IPort.WritePortL(PCRAddress,$80000000 or (longint(dwBus) shl 16) or ((longint(dwDev) and $1f) shl 11) or
              ((longint(dwFunc) and $07) shl 8) or (offs and $fc));
  IPort.WritePortL(PCRData, pdata);
end;

procedure tPCIIO.GetPCIRByte(dwBus, dwDev, dwFunc, offs:byte; var pdata:byte);
var
  temp : longint;
  pcrreg : longint;
begin
  PCRReg :=$80000000 or (longint(dwBus) shl 16) or ((longint(dwDev) and $1f) shl 11) or
  ((longint(dwFunc) and $07) shl 8) or (offs and $fc);
  FIPortIORef.WritePortL(PCRAddress, PCRReg);
  Temp := FIPortIORef.ReadPortL(PCRData);
  pdata := (Temp shr ((offs mod 4) shl 3));
end;

procedure tPCIIO.SetPCIRByte(dwBus, dwDev, dwFunc, offs, pdata:byte);
var
  temp   : longword;
  pcrreg : longint;
begin
  PCRReg := $80000000 or (longint(dwBus) shl 16) or ((longint(dwDev) and $1f) shl 11) or
  ((longint(dwFunc) and $07) shl 8) or (offs and $fc);

  FIPortIORef.WritePortL(PCRAddress, PCRReg);
  Temp := FIPortIORef.ReadPortL(PCRData) and NOT(($ff shl ((offs and 3) * 8))) or
                        (pdata shl ((offs and 3) * 8));
  FIPortIORef.WritePortL(PCRData, Temp);
end;

function tPCIIO.ProbeDevice(dwBus, dwDev: byte): boolean;
const InvalidDevice = $FFFFFFFF;
var VenDevID: longword;
begin
  GetPCIRDWord(dwBus, dwDev, 0, 0, VenDevID);
  result := ((VenDevID <> InvalidDevice) and (VenDevID <> 0));
end;