431 lines
13 KiB
ObjectPascal
431 lines
13 KiB
ObjectPascal
{
|
|
Driver->Bus->PCI - Peripheral Component Interconnect Driver.
|
|
|
|
@author(Aaron Hance <ah@aaronhance.me>)
|
|
@author(Kieron Morris <kjm@kieronmorris.me>)
|
|
}
|
|
unit PCI;
|
|
|
|
interface
|
|
|
|
uses
|
|
tracer,
|
|
util,
|
|
console,
|
|
drivertypes,
|
|
lmemorymanager,
|
|
vmemorymanager,
|
|
drivermanagement;
|
|
|
|
const
|
|
PCI_PORT_CONF_ADDR = $CF8;
|
|
PCI_PORT_CONF_DATA = $CFC;
|
|
|
|
type
|
|
|
|
TPCI_Device_Bridge = bitpacked record
|
|
device_id : uint16;
|
|
vendor_id : uint16;
|
|
status : uint16;
|
|
command : uint16;
|
|
class_code : uint8;
|
|
subclass_class : uint8;
|
|
prog_if : uint8;
|
|
revision_id : uint8;
|
|
BIST : uint8;
|
|
header_type : uint8;
|
|
latency_timer : uint8;
|
|
cache_size : uint8;
|
|
address0 : uint32;
|
|
address1 : uint32;
|
|
latency_timer2 : uint8;
|
|
subordinate_bus : uint8;
|
|
secondery_bus : uint8;
|
|
primary_bus : uint8;
|
|
secondery_status : uint16;
|
|
io_limit : uint8;
|
|
io_base : uint8;
|
|
memory_limit : uint16;
|
|
memory_base : uint16;
|
|
pref_memory_limit : uint16;
|
|
pref_memory_base : uint16;
|
|
pref_base_upper : uint32;
|
|
pref_limit_upper : uint32;
|
|
io_limit_upper : uint16;
|
|
io_base_upper : uint16;
|
|
reserved : uint16;
|
|
reserved0 : uint8;
|
|
capability_pointer : uint8;
|
|
epx_rom_addr : uint32;
|
|
bridge_control : uint16;
|
|
interrupt_pin : uint8;
|
|
interrupt_line : uint8;
|
|
end;
|
|
|
|
var
|
|
devices : array[0..1024] of TPCI_Device;
|
|
busses : array[0..256] of TPCI_Device_Bridge;
|
|
|
|
device_count : uint16;
|
|
bus_count : uint8 = 1;
|
|
get_device_count : uint8;
|
|
|
|
procedure init();
|
|
procedure scanBus(bus : uint8);
|
|
function loadDeviceConfig(bus : uint8; slot : uint8; func : uint8) : boolean;
|
|
function getDeviceInfo(class_code : uint8; subclass_code : uint8; prog_if : uint8; var count : uint32) : TdeviceArray; //(Will in future)returns TPCI_DEVICE.vendor_id := 0xFFFF if no device found.
|
|
procedure requestConfig(bus : uint8; slot : uint8; func : uint8; row : uint8);
|
|
procedure writeConfig(bus: uint8; slot : uint8; func : uint8; row : uint8; val : uint32);
|
|
procedure setBusMaster(bus : uint8; slot : uint8; func : uint8; master : boolean);
|
|
|
|
implementation
|
|
|
|
function load(ptr : void) : boolean;
|
|
var
|
|
current_bus : uint8;
|
|
|
|
begin
|
|
push_trace('PCI.load');
|
|
console.outputln('PCI', 'Scanning Bus: 0');
|
|
scanBus(0);
|
|
//while unscanned busses scan busses
|
|
current_bus := 1;
|
|
while true do begin
|
|
if current_bus < bus_count then begin
|
|
console.output('PCI', 'Scanning Bus: ');
|
|
console.writeintln(bus_count);
|
|
scanBus(current_bus);
|
|
current_bus := current_bus + 1;
|
|
end else break;
|
|
end;
|
|
load:= true;
|
|
pop_trace;
|
|
end;
|
|
|
|
procedure init();
|
|
var
|
|
DevID : TDeviceIdentifier;
|
|
|
|
begin
|
|
push_trace('PCI.init');
|
|
console.outputln('PCI','INIT BEGIN.');
|
|
DevID.Bus:= biUnknown;
|
|
DevID.id0:= 0;
|
|
DevID.id1:= 0;
|
|
DevID.id2:= 0;
|
|
DevID.id3:= 0;
|
|
DevID.ex:= nil;
|
|
drivermanagement.register_driver_ex('PCI Driver', @DevID, @load, true);
|
|
console.outputln('PCI', 'INIT END.');
|
|
pop_trace;
|
|
end;
|
|
|
|
procedure scanBus(bus : uint8);
|
|
var
|
|
slot : uint16;
|
|
func : uint16;
|
|
result : boolean;
|
|
|
|
begin
|
|
push_trace('PCI.scanBus');
|
|
for slot := 0 to 31 do begin
|
|
result := loadDeviceConfig(bus, slot, 0);
|
|
if result = true then begin
|
|
if devices[device_count - 1].header_type and $80 <> 0 then begin
|
|
for func := 1 to 8 do begin
|
|
loadDeviceConfig(bus, slot, func);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
pop_trace;
|
|
end;
|
|
|
|
{
|
|
void pci_config_write_dword(uint8_t bus, uint8_t slot, uint8_t func, uint8_t offset, uint32_t val)
|
|
|
|
uint32_t addr;
|
|
uint32_t lbus = (uint32_t)bus;
|
|
uint32_t lslot = (uint32_t)slot;
|
|
uint32_t lfunc = (uint32_t)func;
|
|
|
|
addr = (uint32_t)((lbus<<16) | (lslot << 11) | (lfunc << 8) |
|
|
(offset & 0xfc) | ((uint32_t)0x80000000));
|
|
outl(PCI_PORT_CONF_ADDR, addr);
|
|
io_wait();
|
|
outl(PCI_PORT_CONF_DATA, val);
|
|
io_wait();
|
|
}
|
|
|
|
procedure writeConfig(bus: uint8; slot : uint8; func : uint8; row : uint8; val : uint32);
|
|
var
|
|
addr : uint32;
|
|
|
|
begin
|
|
push_trace('PCI.writeConfig');
|
|
addr := ($1 shl 31);
|
|
addr := addr or (bus shl 16);
|
|
addr := addr or ((slot) shl 11);
|
|
addr := addr or ((func) shl 8);
|
|
addr := addr or ((row) shl 2);
|
|
outl(PCI_PORT_CONF_ADDR, addr);
|
|
outl(PCI_PORT_CONF_DATA, val);
|
|
pop_trace;
|
|
end;
|
|
|
|
procedure setBusMaster(bus : uint8; slot : uint8; func : uint8; master : boolean);
|
|
var
|
|
data : uint32;
|
|
|
|
begin
|
|
push_trace('PCI.setBusMaster');
|
|
requestConfig(bus, slot, func, 1);
|
|
data := inl($CFC);
|
|
if master then begin
|
|
data := data OR $00000004;
|
|
end else begin
|
|
data := data AND $FFFFFFFB;
|
|
end;
|
|
writeConfig(bus, slot, func, 1, data);
|
|
pop_trace;
|
|
end;
|
|
|
|
procedure requestConfig(bus : uint8; slot : uint8; func : uint8; row : uint8);
|
|
var
|
|
addr : uint32;
|
|
|
|
begin
|
|
push_trace('PCI.requestConfig');
|
|
addr := ($1 shl 31);
|
|
addr := addr or (bus shl 16);
|
|
addr := addr or ((slot) shl 11);
|
|
addr := addr or ((func) shl 8);
|
|
addr := addr or ((row) shl 2);
|
|
outl(PCI_PORT_CONF_ADDR, addr);
|
|
pop_trace;
|
|
end;
|
|
|
|
procedure loadBusConfig(bus : uint8; slot : uint8; func : uint8; device : TPCI_Device);
|
|
var
|
|
busT : TPCI_Device_Bridge;
|
|
data : uint32;
|
|
|
|
begin
|
|
push_trace('PCI.loadBusConfig');
|
|
|
|
busT.device_id := device.device_id;
|
|
busT.vendor_id := device.vendor_id;
|
|
busT.status := device.status;
|
|
busT.command := device.command;
|
|
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;
|
|
|
|
requestConfig(bus, slot, func, 4);
|
|
busT.address0 := inl($CFC);
|
|
requestConfig(bus, slot, func, 5);
|
|
busT.address1 := inl($CFC);
|
|
|
|
requestConfig(bus, slot, func, 6);
|
|
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);
|
|
|
|
requestConfig(bus, slot, func, 7);
|
|
data := inl($CFC);
|
|
busT.secondery_status := getword(data, false);
|
|
busT.io_limit := getbyte(data, 2);
|
|
busT.io_base := getbyte(data, 3);
|
|
|
|
requestConfig(bus, slot, func, 8);
|
|
data := inl($CFC);
|
|
busT.memory_limit := getword(data, false);
|
|
busT.memory_base := getword(data, true);
|
|
|
|
requestConfig(bus, slot, func, 9);
|
|
data := inl($CFC);
|
|
busT.pref_memory_limit := getword(data, false);
|
|
busT.pref_memory_base := getword(data, true);
|
|
|
|
requestConfig(bus, slot, func, 10);
|
|
busT.pref_base_upper := inl($CFC);
|
|
requestConfig(bus, slot, func, 11);
|
|
busT.pref_limit_upper := inl($CFC);
|
|
|
|
requestConfig(bus, slot, func, 11);
|
|
data := inl($CFC);
|
|
busT.io_limit_upper := getword(data, false);
|
|
busT.io_base_upper := getword(data, true);
|
|
|
|
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);
|
|
|
|
busses[bus_count] := busT;
|
|
bus_count := bus_count + 1;
|
|
pop_trace;
|
|
end;
|
|
|
|
function loadDeviceConfig(bus : uint8; slot : uint8; func : uint8) : boolean;
|
|
var
|
|
device : TPCI_Device;
|
|
data : uint32;
|
|
DevID : PDeviceIdentifier;
|
|
|
|
begin
|
|
push_trace('PCI.loadDeviceConfig');
|
|
loadDeviceConfig := false;
|
|
|
|
device.bus:= bus;
|
|
device.slot:= slot;
|
|
device.func:= func;
|
|
|
|
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 begin
|
|
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, 3);
|
|
device.subclass_class := getbyte(data, 2);
|
|
device.prog_if := getbyte(data, 1);
|
|
device.revision_id := getbyte(data, 0);
|
|
|
|
requestConfig(bus, slot, func, 3);
|
|
data := inl($CFC);
|
|
device.BIST := getbyte(data, 3);
|
|
device.header_type := getbyte(data, 2);
|
|
device.latency_timer := getbyte(data, 1);
|
|
device.cache_size := getbyte(data, 0);
|
|
|
|
if device.header_type and $7 = 0 then begin
|
|
loadDeviceConfig := true;
|
|
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, 1);
|
|
device.capabilities := getbyte(data, 0);
|
|
|
|
requestConfig(bus, slot, func, 14);
|
|
device.reserved2 := inl($CFC);
|
|
|
|
requestConfig(bus, slot, func, 15);
|
|
data := inl($CFC);
|
|
device.max_latency := getbyte(data, 3);
|
|
device.min_grant := getbyte(data, 2);
|
|
device.interrupt_pin := getbyte(data, 1);
|
|
device.interrupt_line := getbyte(data, 0);
|
|
|
|
DevID:= PDeviceIdentifier(kalloc(sizeof(TDeviceIdentifier)));
|
|
DevID^.Bus:= biPCI;
|
|
DevID^.id0:= device.device_id;
|
|
DevID^.id1:= device.class_code;
|
|
DevID^.id2:= device.subclass_class;
|
|
DevID^.id3:= device.prog_if;
|
|
DevID^.id4:= device.vendor_id;
|
|
DevID^.ex:= nil;
|
|
|
|
console.output('PCI', 'Found Device: ');
|
|
console.writehex(device.header_type);
|
|
console.writestring(' ');
|
|
console.writehex(device.device_id);
|
|
console.writestring(' ');
|
|
console.writehex(device.class_code);
|
|
console.writestring(' ');
|
|
console.writehex(device.subclass_class);
|
|
console.writestring(' ');
|
|
console.writehexln(device.prog_if);
|
|
|
|
devices[device_count] := device;
|
|
device_count := device_count + 1;
|
|
|
|
drivermanagement.register_device('PCI Device', DevID, @device);
|
|
kfree(void(DevID));
|
|
end else begin
|
|
loadBusConfig(bus, slot, func, device);
|
|
end;
|
|
//TODO implement other types?
|
|
end;
|
|
//if device.class_code = 1 then ata.init(device);
|
|
pop_trace;
|
|
end;
|
|
|
|
function getDeviceInfo(class_code : uint8; subclass_code : uint8; prog_if : uint8; var count : uint32) : TDeviceArray;
|
|
var
|
|
i : uint16;
|
|
devices_out : array[0..31] of TPCI_Device;
|
|
|
|
begin
|
|
push_trace('PCI.getDeviceInfo');
|
|
count := 0;
|
|
for i:=0 to device_count do begin
|
|
{writehex(devices[i].class_code);
|
|
writestring(' ?= ');
|
|
writehex(class_code);
|
|
writestring(' && ');
|
|
writehex(devices[i].subclass_class);
|
|
writestring(' ?= ');
|
|
writehex(subclass_code);
|
|
writestring(' && ');
|
|
writehex(devices[i].prog_if);
|
|
writestring(' ?= ');
|
|
writehex(prog_if);}
|
|
if (devices[i].class_code = class_code) and (devices[i].subclass_class = subclass_code) and ((devices[i].prog_if = prog_if) or (prog_if = $FF)) then begin
|
|
devices_out[count] := devices[i];
|
|
count := count + 1;
|
|
end;
|
|
end;
|
|
getDeviceInfo := devices_out;
|
|
pop_trace;
|
|
end;
|
|
|
|
end. |