git-svn-id: https://spexeah.com:8443/svn/Asuro@155 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron 2017-05-20 20:01:21 +00:00
parent 5d9f613f3e
commit b89f4d2e4c
8 changed files with 0 additions and 3 deletions

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -36,8 +36,6 @@ var
begin begin
FirstBlock:= base SHR 22; FirstBlock:= base SHR 22;
LastBlock:= (base+length) SHR 22; LastBlock:= (base+length) SHR 22;
console.writewordln(FirstBlock);
console.writewordln(LastBlock);
if (FirstBlock > 1023) then exit; if (FirstBlock > 1023) then exit;
while LastBlock > 1023 do begin while LastBlock > 1023 do begin
LastBlock:= LastBlock-1; LastBlock:= LastBlock-1;

View File

@ -73,7 +73,6 @@ begin
map_page:= false; map_page:= false;
PageDirectory^[page_number].Present:= true; PageDirectory^[page_number].Present:= true;
addr:= block; addr:= block;
writehexln(block);
PageDirectory^[page_number].Address:= addr SHL 10; PageDirectory^[page_number].Address:= addr SHL 10;
PageDirectory^[page_number].PageSize:= true; PageDirectory^[page_number].PageSize:= true;
PageDirectory^[page_number].Writable:= true; PageDirectory^[page_number].Writable:= true;