mbirth/delphi-sva
Archived
1
0
Fork 0
Code Releases Activity

modified SMBus.pas

Browse Source 
+ added some more Intel SMBus controllers
This commit is contained in:
mbirth 2004-12-08 09:57:21 +00:00
parent 2f919306eb
commit 5567d83885
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
SMBus.pas
View File

@ -93,6 +93,13 @@ begin
PCI_Structure.Vendor_Name := 'Intel®'; PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '82801BA/ICH2'; PCI_Structure.Device_Name := '82801BA/ICH2';
end; end;
$24538086:
begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0;
PCI_Structure.Rev := Get_PCI_Reg(Bus, Dev, Fun, 8) and $FF;
PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '82801E';
end;
$24838086: $24838086:
begin begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0; PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0;
@ -107,6 +114,34 @@ begin
PCI_Structure.Vendor_Name := 'Intel®'; PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '82801DB/DBM'; PCI_Structure.Device_Name := '82801DB/DBM';
end; end;
$24D38086:
begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0;
PCI_Structure.Rev := Get_PCI_Reg(Bus, Dev, Fun, 8) and $FF;
PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '82801EB/ER (ICH5/ICH5R)';
end;
$25A48086:
begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0;
PCI_Structure.Rev := Get_PCI_Reg(Bus, Dev, Fun, 8) and $FF;
PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '6300ESB';
end;
$266A8086:
begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0;
PCI_Structure.Rev := Get_PCI_Reg(Bus, Dev, Fun, 8) and $FF;
PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '82801FB/FBM/FR/FW/FRW (ICH6)';
end;
$76038086:
begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $20) and $FFF0;
PCI_Structure.Rev := Get_PCI_Reg(Bus, Dev, Fun, 8) and $FF;
PCI_Structure.Vendor_Name := 'Intel®';
PCI_Structure.Device_Name := '82372FB PIIX5';
end;
$30571106: $30571106:
begin begin
PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $90) and $FFF0; PCI_Structure.SMB_Address := Get_PCI_Reg(Bus, Dev, Fun, $90) and $FFF0;