How to test Paging?
Posted: Mon Jul 21, 2008 11:49 pm
I've set cr3 to point to my pagedirectory and set 31th bit of cr0 to enable paging. Nothing wrong, everything runs smoothly. But, how do I know if it works?
Code: Select all
type
PageTable: PLongWord; // pointer to unsigned 32-bit Integer
var
PageDirectory: array [0..255] of PageTable;
... // assume that PageDirectory has been initialized
var
p,q: PageTable;
begin
p:=PageDirectory[5];
q:=PageDirectory[5];
p^:=255;
WriteLn(q^);
end;