Paging stuff.

git-svn-id: https://spexeah.com:8443/svn/Asuro@114 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/kernel.pas

@@ -54,6 +54,9 @@ begin
      memorymanager.init();
      scheduler.init();
 
+     pint:= puint32(0);
+     pint^:= 10;
+
      STI;
      isr32.hook(uint32(@bios_data_area.tick_update));
 
@@ -67,6 +70,12 @@ begin
 
      //drivers
      keyboard.init(keyboard_layout);
+     if PageDirectory[KERNEL_PAGE_NUMBER].Present then begin
+        console.writestringln('!');
+     end else begin
+        console.writestringln('?');  
+     end;
+     while true do begin end;
 
      asm
         MOV dds, CS

src/paging.pas

@@ -6,20 +6,32 @@ type
     PPageTableEntry = ^TPageTableEntry;
 
     TPageTableEntry = bitpacked record
-        Present, Writable, UserMode, WriteThrough,
-        NotCacheable, Accessed, Dirty, AttrIndex,
+        Present, 
+        Writable, 
+        UserMode, 
+        WriteThrough,
+        NotCacheable, 
+        Accessed, 
+        Dirty, 
+        AttrIndex,
         GlobalPage: Boolean;
-        Avail: UBit3;
-        FrameAddr: UBit20;
+        Available: UBit3;
+        FrameAddress: UBit20;
     end;
 
     PPageDirEntry = ^TPageDirEntry;
     TPageDirEntry = bitpacked record
-        Present, Writable, UserMode, WriteThrough,
-        NotCacheable, Accessed, Reserved, PageSize,
+        Present, 
+        Writable, 
+        UserMode, 
+        WriteThrough,
+        NotCacheable, 
+        Accessed, 
+        Reserved, 
+        PageSize,
         GlobalPage: Boolean;
-        Avail: UBit3;
-        TableAddr: UBit20;
+        Available: UBit3;
+        TableAddress: UBit20;
     end;
 
     TPageDirectory = Array[1..1024] of TPageDirEntry;

src/util.pas

@@ -32,7 +32,8 @@ function inl(port : uint16) : uint32;
 procedure memset(location : uint32; value : uint8; size : uint32);
 procedure psleep(t : uint16);
 
-procedure endptr(); external '__end' name '__end';
+var
+    endptr : uint32; external name '__end';
 
 implementation
 
@@ -174,7 +175,7 @@ var
     i   : uint32;
 
 begin
-    for i:=0 to size do begin
+    for i:=0 to size-1 do begin
         loc:= puint8(location + i);
         loc^:= value;
     end;