IT WERKS
git-svn-id: https://spexeah.com:8443/svn/Asuro@155 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
5d9f613f3e
commit
b89f4d2e4c
Binary file not shown.
Binary file not shown.
BIN
lib/libpsystem.a
BIN
lib/libpsystem.a
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -36,8 +36,6 @@ var
|
||||
begin
|
||||
FirstBlock:= base SHR 22;
|
||||
LastBlock:= (base+length) SHR 22;
|
||||
console.writewordln(FirstBlock);
|
||||
console.writewordln(LastBlock);
|
||||
if (FirstBlock > 1023) then exit;
|
||||
while LastBlock > 1023 do begin
|
||||
LastBlock:= LastBlock-1;
|
||||
|
@ -73,7 +73,6 @@ begin
|
||||
map_page:= false;
|
||||
PageDirectory^[page_number].Present:= true;
|
||||
addr:= block;
|
||||
writehexln(block);
|
||||
PageDirectory^[page_number].Address:= addr SHL 10;
|
||||
PageDirectory^[page_number].PageSize:= true;
|
||||
PageDirectory^[page_number].Writable:= true;
|
||||
|
Loading…
x
Reference in New Issue
Block a user