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

Browse Source
This commit is contained in:
aaron
2018-04-15 05:00:59 +00:00
parent 798219e46a
commit b7523db308
4 changed files with 223 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/driver/storage/IDE.pas
View File

@ -389,6 +389,7 @@ begin
outb($1F5, LBA shr 16);
outb($1F7, $20); //read command
for i:=0 to sectorCount do begin
//poll status
@ -403,11 +404,11 @@ begin
end;
for ii:=0 to 127 do begin //read data
Puint32(buffer + ((i * 512) + (ii * 32) DIV 32))^ := uint32(inw($1F0)); //wrong
for iii:=0 to 1000 do if(ii = iii) then begin end;
Puint32(buffer + ((i * 512) + (ii * 32) DIV 32))^ := uint32(inw($1F0));
while true do if (inw($1f7) and (1 shl 7)) = 0 then break; //Wait until drive not busy
if ii <> 127 then begin
Puint32(buffer + ((i * 512) + (ii * 32) DIV 32))^ := ((uint32(inw($1F0)) shl 16) or Puint32(buffer + ((i * 512) + (ii * 32) DIV 32))^); //wrong
for iii:=0 to 1000 do if(ii = iii) then begin end
while true do if (inw($1f7) and (1 shl 7)) = 0 then break; //Wait until drive not busy
end;
end;
end;