diff --git a/src/driver/ATA.pas b/src/driver/ATA.pas
index 9ada638a..21126102 100644
--- a/src/driver/ATA.pas
+++ b/src/driver/ATA.pas
@@ -1,7 +1,7 @@
 { ************************************************
   * Asuro
   * Unit: Drivers/ATA
-  * Description: ATA Driver
+  * Description: ATA DMA Driver
   ************************************************
   * Author: Aaron Hance
   * Contributors: 
@@ -17,124 +17,48 @@ uses
     terminal;
 
 type 
-    intptr = ^uint32;
+
+    charptr = ^char;
 
     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;
 
 var 
-    //0 = primary, 1 = secondary
-    dataPort         : array[0..3] of uint16;
-    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;
-
+    devices : array[0..4] of ATA_Device;
+    PRG_Table : array[0..10] of Physical_Region_Descriptor; // up 64K r/w each, upto 8000 supported per table.
     controller : TPCI_device;
 
-procedure init();
-procedure identify(drive : uint8; bus : uint8); 
-procedure read28(sector : uint32);
-procedure write28(sector : uint32; data : intptr; count : uint32);
-procedure flush();
+procedure init(_controller : TPCI_device);
 
 implementation
 
-procedure init();
+procedure init(_controller : TPCI_device);
 begin
-    
-    //controller := device;
-    controller.address0 := $3F6;
-    controller.address1 := $376;
-    // 0x1f0, 0x170, 0x3F6, 0x376
-    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!');
+    controller := _controller;
+    devices[0].primary := true;
+    devices[0].Command_Register := controller.address4;
+    devices[0].Status_Register := controller.address4 + 2;
+    devices[0].PRDT_Address_Reg := controller.address4 + 4;
 
 end;
 
-procedure read28(sector : uint32); begin
- end;
-
-procedure write28(sector : uint32; data : intptr; count : uint32); begin
- end;
-
-procedure flush(); begin
- end;
-
 
 end.
\ No newline at end of file