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

Browse Source
This commit is contained in:
aaron 2017-10-25 19:11:23 +00:00
parent 098dd46597
commit 79b7b90d2a
1 changed files with 29 additions and 105 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

134
src/driver/ATA.pas
View File

@ -1,7 +1,7 @@
{ ************************************************ { ************************************************
* Asuro * Asuro
* Unit: Drivers/ATA * Unit: Drivers/ATA
* Description: ATA Driver * Description: ATA DMA Driver
************************************************ ************************************************
* Author: Aaron Hance * Author: Aaron Hance
* Contributors: * Contributors:
@ -17,124 +17,48 @@ uses
terminal; terminal;
type type
intptr = ^uint32;
charptr = ^char;
ATA_Device = record ATA_Device = record
primary : boolean;
Command_Register : uint32;
Status_Register : uint32;
PRDT_Address_Reg : uint32;
end;
Physical_Region_Descriptor = bitpacked record
empty0 : 0..1;
MRPB_Address : 1..32;
Byte_Count : 32..47;
empty1 : 47..63;
EOT : 63..64;
empty2 : 64..65;
end;
ATA_Command_Buffer bitpacked record
start_stop_bit : 0..1;
read_write_bit : 3..4;
end; end;
var var
//0 = primary, 1 = secondary devices : array[0..4] of ATA_Device;
dataPort : array[0..3] of uint16; PRG_Table : array[0..10] of Physical_Region_Descriptor; // up 64K r/w each, upto 8000 supported per table.
errorPort : array[0..3] of uint8;
sectorCountPort : array[0..3] of uint8;
lbaLowPort : array[0..3] of uint8;
lbaMidPort : array[0..3] of uint8;
lbaHiPort : array[0..3] of uint8;
devicePort : array[0..3] of uint8;
commandPort : array[0..3] of uint8;
controlPort : array[0..3] of uint8;
bytes_per_sector : uint16 = 512;
controller : TPCI_device; controller : TPCI_device;
procedure init(); procedure init(_controller : TPCI_device);
procedure identify(drive : uint8; bus : uint8);
procedure read28(sector : uint32);
procedure write28(sector : uint32; data : intptr; count : uint32);
procedure flush();
implementation implementation
procedure init(); procedure init(_controller : TPCI_device);
begin begin
controller := _controller;
//controller := device; devices[0].primary := true;
controller.address0 := $3F6; devices[0].Command_Register := controller.address4;
controller.address1 := $376; devices[0].Status_Register := controller.address4 + 2;
// 0x1f0, 0x170, 0x3F6, 0x376 devices[0].PRDT_Address_Reg := controller.address4 + 4;
console.writehexln(controller.address0);
dataPort[0] := controller.address0;
errorPort[0] := controller.address0 + 1;
sectorCountPort[0] := controller.address0 + 2;
lbaLowPort[0] := controller.address0 + 3;
lbaMidPort[0] := controller.address0 + 4;
lbaHiPort[0] := controller.address0 + 5;
devicePort[0] := controller.address0 + 6;
commandPort[0] := controller.address0 + 7;
controlPort[0] := controller.address1 + 2;
console.writestringln('Checking for ATA devices:');
identify($A0, $A0);
identify($B0, $A0);
end;
procedure identify(drive : uint8; bus : uint8);
var
status : uint8;
busNo : uint8;
i : uint16;
data : array[0..265] of uint16;
begin
outb(controlPort[0], 2);
busNo := 1;
if bus = $A0 then busNo := 0;
outb(devicePort[busNo], drive);
outb(controlPort[busNo], 0);
//psleep(1);
outb(devicePort[busNo], drive);
status := inb(commandPort[busNo]);
if status = $FF then begin
console.writestringln('No drives on bus');
exit;
end;
outb(devicePort[busNo], drive);
//psleep(1);
outb(sectorCountPort[busNo], 0);
//psleep(1);
outb(lbaLowPort[busNo], 0);
//psleep(1);
outb(lbaMidPort[busNo], 0);
//psleep(1);
outb(lbaHiPort[busNo], 0);
//psleep(1);
outb(commandPort[busNo], $EC);
//psleep(1);
status := inb(commandPort[busNo]);
if status = $0 then begin
console.writestring('No drive found');
exit;
end;
while (status and $80 = $80) and (status and $08 <> $08) do begin
status := inb(commandPort[busNo]);
console.writehexln(status);
end;
console.writehexln(status);
console.writestringln('Drive found!');
end; end;
procedure read28(sector : uint32); begin
end;
procedure write28(sector : uint32; data : intptr; count : uint32); begin
end;
procedure flush(); begin
end;
end. end.