git-svn-id: https://spexeah.com:8443/svn/Asuro@267 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
aaron
parent
91848251db
commit
8df1e07416
@ -18,102 +18,6 @@ uses
|
|||||||
ATA;
|
ATA;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
TClass_Code = (
|
|
||||||
LEGACY, MASS_STORAGE_CONTROLLER, NETWORK_CONTROLLER,
|
|
||||||
DISPLAY_CONTROLLER, MULTIMEDIA_CONTROLLER, MEMORY_CONTROLLER,
|
|
||||||
BRIDGE_DEVICE, SIMPLE_COMM_CONTROLLER, BASE_SYS_PERIPHERALS,
|
|
||||||
INPUT_DEVICE, DOCKING_STATION, PROCESSOR, SERIAL_BUS_CONTROLLER,
|
|
||||||
WIRELESS_CONTROLLER, INTELLIGENT_IO_CONTROLLER,
|
|
||||||
SATELLITE_COMM_CONTROLLER, ENCRYPTION_CONTROLLER,
|
|
||||||
SIGNAL_PROCESSING_CONTROLLER, RESERVED
|
|
||||||
); // 0XFF = OTHER DEVICE
|
|
||||||
|
|
||||||
// TSub_Class_Codes = record // first half sub device, second half prog id
|
|
||||||
// any_non_vga_compatible : uint16 = $0000;
|
|
||||||
// any_vga_compatible : uint16 = $0100;
|
|
||||||
// scsi_bus_controller : uint16 = $0000;
|
|
||||||
// ide_controller : uint16 = $01FF;
|
|
||||||
// floppy_controller : uint16 = $0200;
|
|
||||||
// ipi_bus_controller : uint16 = $0300;
|
|
||||||
// raid_controller : uint16 = $0400;
|
|
||||||
// ata_single_dma : uint16 = $0520;
|
|
||||||
// ata_chained_dma : uint16 = $0530;
|
|
||||||
// serial_ata_ahci_vsi : uint16 = $0600;
|
|
||||||
// serial_ata_ahci : uint16 = $0601;
|
|
||||||
// serial_attached_scsi : uint16 = $0700;
|
|
||||||
// other_mass_storage : uint16 = $8000;
|
|
||||||
// ethernet_controller : uint16 = $0000;
|
|
||||||
// token_ring_controller : uint16 = $0100;
|
|
||||||
// fddi_controller : uint16 = $0200;
|
|
||||||
// atm_controller : uint16 = $0300;
|
|
||||||
// isdn_controller : uint16 = $0400;
|
|
||||||
// worldfip_controller : uint16 = $0500;
|
|
||||||
// picmg_multi_computing : uint16 = $0600;
|
|
||||||
// other_network_controller : uint16 = $8000;
|
|
||||||
// vga_compatible_controller : uint16 = $0000;
|
|
||||||
// c8512_compatible_controller : uint16 = $0001;
|
|
||||||
// xga_controller : uint16 = $0100;
|
|
||||||
// c3d_controller : uint16 = $0200;
|
|
||||||
// other_display_controller : uint16 = $8000;
|
|
||||||
// video_device : uint16 = $0000;
|
|
||||||
// audio_device : uint16 = $0100;
|
|
||||||
// computer_telephony_device : uint16 = $0200;
|
|
||||||
// other_multimedia_device : uint16 = $8000;
|
|
||||||
// ram_controller : uint16 = $0000;
|
|
||||||
// flash_controller : uint16 = $0100;
|
|
||||||
// other_memory_controller : uint16 = $8000;
|
|
||||||
// host_bridge : uint16 = $0100;
|
|
||||||
// isa_bridge : uint16 = $0200;
|
|
||||||
// eisa_bridge : uint16 = $0300;
|
|
||||||
// pci_2_pci_bridge : uint16 = $0400;
|
|
||||||
// subtractive_pci_2_pci_bridge : uint16 = $0401;
|
|
||||||
// pcmcia_bridge : uint16 = $0500;
|
|
||||||
// nubus_bridge : uint16 = $0600;
|
|
||||||
// cardbus_bridge : uint16 = $0700;
|
|
||||||
// raceway_bridge : uint16 = $0800;
|
|
||||||
// semi_pci_2_pci_bridge_p : uint16 = $0940;
|
|
||||||
// semi_pci_2_pci_bridge_s : uint16 = $0980;
|
|
||||||
// infiniband_2_pci_bridge : uint16 = $0A00;
|
|
||||||
// other_bridge_device : uint16 = $8000;
|
|
||||||
// end;
|
|
||||||
|
|
||||||
TPCI_Config = bitpacked record
|
|
||||||
enable_bit : boolean;
|
|
||||||
reserved : ubit7;
|
|
||||||
bus_number : uint8;
|
|
||||||
device_number : ubit5;
|
|
||||||
function_number : ubit3;
|
|
||||||
register_offset : ubit6;
|
|
||||||
always_0 : ubit2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TPCI_BIST = bitpacked record
|
|
||||||
capable : boolean;
|
|
||||||
start : boolean;
|
|
||||||
reserved : ubit2;
|
|
||||||
completion_code : ubit3;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TPCI_Header_Type = bitpacked record
|
|
||||||
always_0 : boolean;
|
|
||||||
MF : boolean;
|
|
||||||
header_type : ubit7;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TPCI_Memory_BAR = bitpacked record
|
|
||||||
address : ubit28; //16-Byte aligned
|
|
||||||
prefetchable : boolean;
|
|
||||||
bar_type : ubit2;
|
|
||||||
always_0 : boolean;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TPCI_IO_BAR = bitpacked record
|
|
||||||
address : ubit30; //4-byte aligned
|
|
||||||
reserved : boolean;
|
|
||||||
always_0 : boolean;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TPCI_Device_Bridge = bitpacked record
|
TPCI_Device_Bridge = bitpacked record
|
||||||
device_id : uint16;
|
device_id : uint16;
|
||||||
vendor_id : uint16;
|
vendor_id : uint16;
|
||||||
@ -153,280 +57,233 @@ type
|
|||||||
interrupt_line : uint8;
|
interrupt_line : uint8;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TCommand_Register = bitpacked record
|
|
||||||
reserved : ubit5;
|
|
||||||
interupt_disable : boolean;
|
|
||||||
fast_b2b_enable : boolean;
|
|
||||||
seer_enable : boolean;
|
|
||||||
reserved0 : boolean;
|
|
||||||
parity_err_response : boolean;
|
|
||||||
VGA_palette_snoop : boolean;
|
|
||||||
mem_wai_enable : boolean;
|
|
||||||
special_cycles : boolean;
|
|
||||||
bus_master : boolean;
|
|
||||||
memory_space : boolean;
|
|
||||||
io_space : boolean;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TStatus_Register = bitpacked record
|
|
||||||
detected_parity_error,
|
|
||||||
signaled_sys_error,
|
|
||||||
received_master_abort,
|
|
||||||
received_target_abort,
|
|
||||||
signaled_target_abort : boolean;
|
|
||||||
DEVSEL_timing : ubit2;
|
|
||||||
master_data_parity_error,
|
|
||||||
fast_b2b_capable,
|
|
||||||
reserved,
|
|
||||||
c66Mhz_compatible,
|
|
||||||
capabilities_list,
|
|
||||||
interrupt_status : boolean;
|
|
||||||
reserved0 : ubit2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
var
|
||||||
devices : array[0..8191] of TPCI_Device;
|
devices : array[0..1024] of TPCI_Device;
|
||||||
busses : array[0..256] of TPCI_Device_Bridge;
|
busses : array[0..256] of TPCI_Device_Bridge;
|
||||||
|
|
||||||
device_count : uint16 = 0;
|
device_count : uint16;
|
||||||
bus_count : uint16 = 0;
|
bus_count : uint8;
|
||||||
|
|
||||||
procedure init();
|
procedure init();
|
||||||
procedure loadConfig(bus : uint8; slot : uint8; func : uint8; offset : uint8);
|
procedure scanBus(bus : uint8);
|
||||||
function check_device(bus : uint8; device : uint8; func : uint8) : boolean;
|
function loadDeviceConfig(bus : uint8; slot : uint8; func : uint8) : boolean;
|
||||||
|
function getDeviceInfo(class_code : uint8; subclass_code : uint8) : TPCI_Device; //returns TPCI_DEVICE.vendor_id := 0xFFFF if no device found.
|
||||||
function get_vendor_ID(bus : uint8; slot : uint8; func : uint8; offset : uint8) : uint16;
|
//TODO KEIRON HOW SHOULD I RETUNR MULTIPLE DEVICE IN A NICE WAY
|
||||||
function isDevice(bus : uint8; slot : uint8; func : uint8; offset : uint8) : ubit2;
|
|
||||||
|
|
||||||
function read8(bus : uint8; slot : uint8; func : uint8; offset : uint8; part : uint8) : uint8;
|
|
||||||
function read16(bus : uint8; slot : uint8; func : uint8; offset : uint8; part : uint8) : uint16;
|
|
||||||
function read32(bus : uint8; slot : uint8; func : uint8; offset : uint8) : uint32;
|
|
||||||
|
|
||||||
function read_device_config(bus : uint8; slot : uint8; func : uint8; offset : uint8) : TPCI_Device;
|
|
||||||
//function read_bridge_config() : TPCI_Device_Bridge;
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
procedure init();
|
procedure init();
|
||||||
var
|
|
||||||
i : uint16;
|
|
||||||
ii : uint16;
|
|
||||||
iii : uint8;
|
|
||||||
begin
|
begin
|
||||||
console.writestringln('PCI: INIT BEGIN.');
|
console.writestringln('PCI: INIT BEGIN.');
|
||||||
//enumerate pci bus
|
scanBus(0);
|
||||||
for ii:=0 to 256 do begin
|
|
||||||
for i:=0 to 31 do begin
|
//while unscanned busses scan busses
|
||||||
check_device(ii, i, 0);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
console.writestringln('PCI: INIT END.');
|
console.writestringln('PCI: INIT END.');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure loadConfig(bus : uint8; slot : uint8; func : uint8; offset : uint8);
|
procedure scanBus(bus : uint8);
|
||||||
var
|
var
|
||||||
packet : TPCI_Config;
|
|
||||||
packetI : uint32;
|
|
||||||
begin
|
|
||||||
packetI := ($1 shl 31);
|
|
||||||
packetI := packetI or (bus shl 16);
|
|
||||||
packetI := packetI or ((slot) shl 11);
|
|
||||||
packetI := packetI or ((func) shl 8);
|
|
||||||
packetI := packetI or ((offset) shl 2);
|
|
||||||
|
|
||||||
outl($CF8, uint32(packetI));
|
|
||||||
end;
|
|
||||||
|
|
||||||
function check_device(bus : uint8; device : uint8; func : uint8) : boolean;
|
|
||||||
var
|
|
||||||
vendor_id : uint16;
|
|
||||||
isDeviceb : uint8;
|
|
||||||
i : uint8;
|
|
||||||
begin
|
|
||||||
|
|
||||||
vendor_id := get_vendor_ID(bus, device, 0, 0);
|
|
||||||
if vendor_id = $FFFF then exit;
|
|
||||||
|
|
||||||
isDeviceb := isDevice(bus, device, 0, 8);
|
|
||||||
if isDeviceb >= 0 then begin
|
|
||||||
devices[device_count] := read_device_config(bus, device, 0, 0);
|
|
||||||
device_count := device_count + 1;
|
|
||||||
if devices[device_count - 1].header_type and $80 <> 0 then begin
|
|
||||||
for i:=0 to 8 do begin
|
|
||||||
//console.writechar(char(21));
|
|
||||||
vendor_id := get_vendor_ID(bus, device, i, 0);
|
|
||||||
//if vendor_id = $FFFF then exit(false);
|
|
||||||
devices[device_count] := read_device_config(bus, device, i, 0);
|
|
||||||
device_count := device_count + 1;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
check_device := true;
|
|
||||||
end else begin
|
|
||||||
//console.writestringln('PCI: Nested bus found');
|
|
||||||
//busses[bus_count] := read_bridge_config();
|
|
||||||
bus_count := bus_count + 1;
|
|
||||||
check_device := false;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function get_vendor_ID(bus : uint8; slot : uint8; func : uint8; offset : uint8) : uint16;
|
|
||||||
begin
|
|
||||||
get_vendor_ID := read16(bus, slot, func, offset, 0);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function isDevice(bus : uint8; slot : uint8; func : uint8; offset : uint8) : ubit2;
|
|
||||||
var
|
|
||||||
tmp : uint8;
|
|
||||||
begin
|
|
||||||
loadConfig(bus, slot, func, 0);
|
|
||||||
read8(bus, slot, func, 0, 2);
|
|
||||||
loadConfig(bus, slot, func, 1);
|
|
||||||
read8(bus, slot, func, 1, 2);
|
|
||||||
loadConfig(bus, slot, func, 2);
|
|
||||||
tmp := read8(bus, slot, func, 2, 3);
|
|
||||||
if(tmp = $06) then begin
|
|
||||||
isDevice := 0;
|
|
||||||
exit;
|
|
||||||
end;
|
|
||||||
|
|
||||||
isDevice := 1;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function read32(bus : uint8; slot : uint8; func : uint8; offset : uint8) : uint32;
|
|
||||||
begin
|
|
||||||
read32 := inl($CFC);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function read16(bus : uint8; slot : uint8; func : uint8; offset : uint8; part : uint8) : uint16;
|
|
||||||
var
|
|
||||||
input : uint32;
|
|
||||||
|
|
||||||
begin
|
|
||||||
input:= read32(bus, slot, func, offset);
|
|
||||||
input:= input SHR (part * 16);
|
|
||||||
input:= input and $0000FFFF;
|
|
||||||
read16:= input;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function read8(bus : uint8; slot : uint8; func : uint8; offset : uint8; part : uint8) : uint8;
|
|
||||||
var
|
|
||||||
input : uint32;
|
|
||||||
|
|
||||||
begin
|
|
||||||
input:= read32(bus, slot, func, offset);
|
|
||||||
input:= input SHR (part * 8);
|
|
||||||
input:= input and $000000FF;
|
|
||||||
read8:= input;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function read_device_config(bus : uint8; slot : uint8; func : uint8; offset : uint8) : TPCI_Device;
|
|
||||||
var
|
|
||||||
tmp : TPCI_Device;
|
|
||||||
i : uint16;
|
i : uint16;
|
||||||
off : uint32;
|
ii : uint16;
|
||||||
|
result : boolean;
|
||||||
begin
|
begin
|
||||||
//memset(uint32(@tmp), 0, sizeof(TPCI_Device));
|
for i := 0 to 31 do begin
|
||||||
|
result := loadDeviceConfig(bus, i, 0);
|
||||||
|
if result = true then begin
|
||||||
|
if devices[device_count - 1].header_type and $40 = 40 then begin
|
||||||
|
for ii := 1 to 8 do begin
|
||||||
|
loadDeviceConfig(bus, i, ii);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
off:= offset;
|
procedure requestConfig(bus : uint8; slot : uint8; func : uint8; row : uint8);
|
||||||
loadConfig(bus, slot, func, 0);
|
var
|
||||||
tmp.device_id := read16(bus, slot, func, off, 1);
|
packet : uint32;
|
||||||
tmp.vendor_id := read16(bus, slot, func, off, 0);
|
begin
|
||||||
|
packet := ($1 shl 31);
|
||||||
|
packet := packet or (bus shl 16);
|
||||||
|
packet := packet or ((slot) shl 11);
|
||||||
|
packet := packet or ((func) shl 8);
|
||||||
|
packet := packet or ((row) shl 2);
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 1);
|
outl($CF8, uint32(packet));
|
||||||
tmp.status := read16(bus, slot, func, off, 1);
|
end;
|
||||||
tmp.command := read16(bus, slot, func, off, 0);
|
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 2);
|
procedure loadBusConfig(bus : uint8; slot : uint8; func : uint8; device : TPCI_Device);
|
||||||
tmp.class_code := read8(bus, slot, func, off, 3);
|
var
|
||||||
tmp.subclass_class := read8(bus, slot, func, off, 2);
|
busT : TPCI_Device_Bridge;
|
||||||
tmp.prog_if := read8(bus, slot, func, off, 1);
|
data : uint32;
|
||||||
tmp.revision_id := read8(bus, slot, func, off, 0);
|
begin
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 3);
|
busT.device_id := device.device_id;
|
||||||
tmp.BIST := read8(bus, slot, func, off, 3);
|
busT.vendor_id := device.vendor_id;
|
||||||
tmp.header_type := read8(bus, slot, func, off, 2);
|
busT.status := device.status;
|
||||||
tmp.latency_timer := read8(bus, slot, func, off, 1);
|
busT.command := device.command;
|
||||||
tmp.cache_size := read8(bus, slot, func, off, 0);
|
busT.class_code := device.class_code;
|
||||||
|
busT.subclass_class := device.subclass_class;
|
||||||
|
busT.prog_if := device.prog_if;
|
||||||
|
busT.revision_id := device.revision_id;
|
||||||
|
busT.BIST := device.BIST;
|
||||||
|
busT.header_type := device.header_type;
|
||||||
|
busT.latency_timer := device.latency_timer;
|
||||||
|
busT.cache_size := device.cache_size;
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 4);
|
requestConfig(bus, slot, func, 4);
|
||||||
tmp.address0 := read32(bus, slot, func, off);
|
busT.address0 := inl($CFC);
|
||||||
loadConfig(bus, slot, func, 5);
|
requestConfig(bus, slot, func, 5);
|
||||||
tmp.address1 := read32(bus, slot, func, off);
|
busT.address1 := inl($CFC);
|
||||||
loadConfig(bus, slot, func, 6);
|
|
||||||
tmp.address2 := read32(bus, slot, func, off);
|
|
||||||
loadConfig(bus, slot, func, 7);
|
|
||||||
tmp.address3 := read32(bus, slot, func, off);
|
|
||||||
loadConfig(bus, slot, func, 8);
|
|
||||||
tmp.address4 := read32(bus, slot, func, off);
|
|
||||||
loadConfig(bus, slot, func, 9);
|
|
||||||
tmp.address5 := read32(bus, slot, func, off);
|
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 10);
|
requestConfig(bus, slot, func, 6);
|
||||||
tmp.CIS_pointer := read32(bus, slot, func, off);
|
data := inl($CFC);
|
||||||
|
busT.latency_timer2 := getbyte(data, 0);
|
||||||
|
busT.subordinate_bus := getbyte(data, 1);
|
||||||
|
busT.secondery_bus := getbyte(data, 2);
|
||||||
|
busT.primary_bus := getbyte(data, 3);
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 11);
|
requestConfig(bus, slot, func, 7);
|
||||||
tmp.subsystem_id := read16(bus, slot, func, off, 2);
|
data := inl($CFC);
|
||||||
tmp.subsystem_vid := read16(bus, slot, func, off, 0);
|
busT.secondery_status := getword(data, false);
|
||||||
|
busT.io_limit := getbyte(data, 2);
|
||||||
|
busT.io_base := getbyte(data, 3);
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 12);
|
requestConfig(bus, slot, func, 8);
|
||||||
tmp.exp_rom_addr := read32(bus, slot, func, off);
|
data := inl($CFC);
|
||||||
|
busT.memory_limit := getword(data, false);
|
||||||
|
busT.memory_base := getword(data, true);
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 13);
|
requestConfig(bus, slot, func, 9);
|
||||||
tmp.reserved0 := read16(bus, slot, func, off, 3);
|
data := inl($CFC);
|
||||||
tmp.reserved1 := read8(bus, slot, func, off, 1);
|
busT.pref_memory_limit := getword(data, false);
|
||||||
tmp.capabilities := read8(bus, slot, func, off, 0);
|
busT.pref_memory_base := getword(data, true);
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 14);
|
requestConfig(bus, slot, func, 10);
|
||||||
tmp.reserved2 := read32(bus, slot, func, off);
|
busT.pref_base_upper := inl($CFC);
|
||||||
|
requestConfig(bus, slot, func, 11);
|
||||||
|
busT.pref_limit_upper := inl($CFC);
|
||||||
|
|
||||||
loadConfig(bus, slot, func, 15);
|
requestConfig(bus, slot, func, 11);
|
||||||
tmp.max_latency := read8(bus, slot, func, off, 3);
|
data := inl($CFC);
|
||||||
tmp.min_grant := read8(bus, slot, func, off, 2);
|
busT.io_limit_upper := getword(data, false);
|
||||||
tmp.interrupt_pin := read8(bus, slot, func, off, 1);
|
busT.io_base_upper := getword(data, true);
|
||||||
tmp.interrupt_line := read8(bus, slot, func, off, 0);
|
|
||||||
|
requestConfig(bus, slot, func, 12);
|
||||||
|
data := inl($CFC);
|
||||||
|
busT.reserved := getword(data, false);
|
||||||
|
busT.reserved0 := getbyte(data, 2);
|
||||||
|
busT.capability_pointer := getbyte(data, 3);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 13);
|
||||||
|
busT.epx_rom_addr := inl($CFC);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 14);
|
||||||
|
data := inl($CFC);
|
||||||
|
busT.bridge_control := getword(data, false);
|
||||||
|
busT.interrupt_pin := getbyte(data, 2);
|
||||||
|
busT.interrupt_line := getbyte(data, 3);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function loadDeviceConfig(bus : uint8; slot : uint8; func : uint8) : boolean;
|
||||||
|
var
|
||||||
|
device : TPCI_Device;
|
||||||
|
data : uint32;
|
||||||
|
begin
|
||||||
|
|
||||||
|
loadDeviceConfig := false;
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 0);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.device_id := getword(data, false);
|
||||||
|
device.vendor_id := getword(data, true);
|
||||||
|
|
||||||
|
if device.vendor_id = $FFFF then exit;
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 1);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.status := getword(data, false);
|
||||||
|
device.command := getword(data, true);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 2);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.class_code := getbyte(data, 0);
|
||||||
|
device.subclass_class := getbyte(data, 1);
|
||||||
|
device.prog_if := getbyte(data, 2);
|
||||||
|
device.revision_id := getbyte(data, 3);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 3);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.BIST := getbyte(data, 0);
|
||||||
|
device.header_type := getbyte(data, 1);
|
||||||
|
device.latency_timer := getbyte(data, 2);
|
||||||
|
device.cache_size := getbyte(data, 3);
|
||||||
|
|
||||||
|
if device.header_type and $7 = 0 then begin
|
||||||
|
loadDeviceConfig := true;
|
||||||
|
end else begin
|
||||||
|
loadBusConfig(bus, slot, func, device);
|
||||||
|
end;
|
||||||
|
//TODO implement other types?
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 4);
|
||||||
|
device.address0 := inl($CFC);
|
||||||
|
requestConfig(bus, slot, func, 5);
|
||||||
|
device.address1 := inl($CFC);
|
||||||
|
requestConfig(bus, slot, func, 6);
|
||||||
|
device.address2 := inl($CFC);
|
||||||
|
requestConfig(bus, slot, func, 7);
|
||||||
|
device.address3 := inl($CFC);
|
||||||
|
requestConfig(bus, slot, func, 8);
|
||||||
|
device.address4 := inl($CFC);
|
||||||
|
requestConfig(bus, slot, func, 9);
|
||||||
|
device.address5 := inl($CFC);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 10);
|
||||||
|
device.CIS_Pointer := inl($CFC);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 11);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.subsystem_id := getword(data, false);
|
||||||
|
device.subsystem_vid := getword(data, true);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 12);
|
||||||
|
device.exp_rom_addr := inl($CFC);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 13);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.reserved0 := getword(data, false);
|
||||||
|
device.reserved1 := getbyte(data, 2);
|
||||||
|
device.capabilities := getbyte(data, 3);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 14);
|
||||||
|
device.reserved2 := inl($CFC);
|
||||||
|
|
||||||
|
requestConfig(bus, slot, func, 15);
|
||||||
|
data := inl($CFC);
|
||||||
|
device.max_latency := getbyte(data, 0);
|
||||||
|
device.min_grant := getbyte(data, 1);
|
||||||
|
device.interrupt_pin := getbyte(data, 2);
|
||||||
|
device.interrupt_line := getbyte(data, 3);
|
||||||
|
|
||||||
if(tmp.vendor_id <> $FFFF) then begin
|
|
||||||
|
|
||||||
console.writestring('PCI: Found Device: ');
|
console.writestring('PCI: Found Device: ');
|
||||||
console.writehex(slot);
|
console.writehex(slot);
|
||||||
console.writestring(' ');
|
console.writestring(' ');
|
||||||
console.writehex(tmp.device_id);
|
console.writehex(device.device_id);
|
||||||
console.writestring(' ');
|
console.writestring(' ');
|
||||||
console.writehex(tmp.vendor_id);
|
console.writehex(device.vendor_id);
|
||||||
console.writestring(' ');
|
console.writestring(' ');
|
||||||
console.writehex(tmp.class_code);
|
console.writehex(device.class_code);
|
||||||
console.writestring(' ');
|
console.writestring(' ');
|
||||||
console.writehexln(tmp.subclass_class);
|
console.writehexln(device.subclass_class);
|
||||||
|
|
||||||
|
devices[device_count] := device;
|
||||||
|
device_count := device_count + 1;
|
||||||
|
|
||||||
if tmp.class_code = 1 then begin
|
|
||||||
console.writestringln(' Device is MASS_STORAGE_CONTROLLER ');
|
|
||||||
if tmp.subclass_class = 1 then ATA.init(tmp);
|
|
||||||
end;
|
|
||||||
if tmp.class_code = 2 then begin
|
|
||||||
console.writestringln(' Device is NETWORK_CONTROLLER ');
|
|
||||||
end;
|
|
||||||
if tmp.class_code = 3 then begin
|
|
||||||
console.writestringln(' Device is DISPLAY_CONTROLLER ');
|
|
||||||
end;
|
|
||||||
if tmp.class_code = $0C then begin
|
|
||||||
if tmp.subclass_class = $03 then begin
|
|
||||||
console.writestringln(' Device is USB Controller');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
//psleep(300);
|
|
||||||
|
|
||||||
read_device_config := tmp;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// function read_bridge_config() : TPCI_Device_Bridge;
|
function getDeviceInfo(class_code : uint8; subclass_code : uint8) : TPCI_Device;
|
||||||
// begin
|
begin end;
|
||||||
// read_bridge_config.placeholder = $FF;
|
|
||||||
// end;
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user