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@227 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
aaron 2017-10-23 14:02:45 +00:00
parent 99a032536d
commit 80748ac625
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/driver/IDE.pas Normal file
View File

@ -0,0 +1,44 @@
{ ************************************************
* Asuro
* Unit: Drivers/IDE
* Description: IDE Driver
************************************************
* Author: Aaron Hance
* Contributors:
************************************************ }
unit IDE;
interface
uses
util,
PCI,
console;
type
var
SATA1 = uint32;
SATA2 = uint32;
SATA3 = uint32;
SATA4 = uint32;
BUS_MASTER = uint32;
procedure init(TPCI_Device : device);
begin
end;
implementation
procedure init(TPCI_Device : device) begin
SATA1 = device.address0;
SATA2 = device.address1;
SATA3 = device.address2;
SATA4 = device.address3;
BUS_MASTER = device.address4;
end;
end.