Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@164 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
aaron 2017-05-21 00:33:02 +00:00
parent 4663e8922d
commit 20e1dc37c0
1 changed files with 78 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

90
src/drivers/PCI.pas
View File

@ -76,17 +76,14 @@ type
other_bridge_device : uint16 = $8000; other_bridge_device : uint16 = $8000;
end; end;
TPCI_Device_class record
class_code : uint8;
sub_classes : array[256] of uint8;
prog_if : array[256] of uint8;
end;
TPCI_Config bitpacked record TPCI_Config bitpacked record
enable_bit : uint8; //first bit enables, rest reserved enable_bit : boolean;
reserved : ubit7;
bus_number : uint8; bus_number : uint8;
df_number : uint8; // 5bits device number, 3bits function number device_number : ubit5;
register_offset : uint8; //last 2bits should be 00 function_number : ubit3;
register_offset : ubit6;
always_0 : ubit2;
end; end;
TPCI_BIST bitpacked record TPCI_BIST bitpacked record
@ -167,19 +164,88 @@ type
end; end;
TStatus_Register bitpacked record 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; end;
var var
classes: array [255] of TPCI_Device_class; devices : array[0..(256 * 32)] of TPCI_Device;
busses : array[0..256] of TPCI_Device_Bridge;
device_count, bus_count : uint16 = 0;
procedure init(); procedure init();
procedure loadConfig(bus : uint8; slot : uint8; func : uint8; offset : uint8);
function check_device(bus : uint8; device : uint8) :
function get_vendor_ID() : uint16;
function get_function() : boolean;
function read_device_config();
function read_bridge_config();
implementation implementation
procedure init(); function init();
begin var
i : uint16;
begin
//enumerate all pci devices
for i:=0 to 31 do begin
check_and_get(0, i);
end; end;
end;
procedure loadConfig(bus : uint8; slot : uint8; func : uint8; offset : uint8);
var
packet : TPCI_Config;
begin
packet.bus_number := bus;
packet.device_number := slot;
packet.function_number := func;
packet.register_offset := offset;
util.outl(0xCF8, packet);
end;
function check_device(bus : uint8; device : uint8) : boolean;
var
i : uint8;
vendor_id : uint16;
isDevice : boolean;
begin
loadConfig(bus, slot, 0, 0);
vendor_id := get_vendor_ID();
if vendor_id = $0xFFFF then exit;
isDevice := get_function();
if isDevice then begin
devices[device_count] := TPCI_Device(read_device_config);
device_count := device_count + 1;
end;
else begin
busses[bus_count] := TPCI_Device_Bridge(read_bridge_config);
end;
end;
function get_vendor_ID(bus : uint8; device : uint8) : uint16;
begin
end;
end. end.