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

src/kernel.pas

@@ -71,6 +71,7 @@ var
 
    temp            : uint32;
    atmp            : puint32;
+   test          : puint8;
    
 begin
      multibootinfo:= mbinfo;
@@ -146,6 +147,7 @@ begin
      console.writestringln('');
      console.writestringln('Press any key to boot in to Asuro Terminal...');
      keyboard.hook(@temphook);
+
      util.halt_and_dont_catch_fire;
 end;
  

src/lmemorymanager.pas

@@ -14,6 +14,7 @@ interface
 uses
     util,
     vmemorymanager,
+    pmemorymanager,
     console;
 
 const
@@ -45,6 +46,7 @@ var
 
 procedure init;
 function kalloc(size : uint32) : void;
+function kpalloc(address : uint32) : void;
 procedure kfree(area : void);
 
 implementation
@@ -97,6 +99,17 @@ begin
     console.writestringln('LMM: INIT END.');
 end;
 
+function kpalloc(address : uint32) : void;
+var
+    block : uint16;
+
+begin
+    block:= address SHR 22;
+    force_alloc_block(block, 0);
+    map_page(block, block);
+    kpalloc:= void(block SHL 22);
+end;
+
 function kalloc(size : uint32) : void;
 var
    Heap_Entries : uint32;