;{procedure RunKernal(Enter:DWord; cr3:DWord; esp:DWord); Far;}

RunKernal:
MOV  BP, SP
MOV  EAX, DWord PTR [BP+8]
MOV  CR3, EAX

MOV  EAX, DWord PTR [BP+12]
MOV  DWord PTR CS:[@JMainPM], EAX

XOR  EAX, EAX
XOR  EBX, EBX

MOV  AX,SEG    GDT
MOV  BX,OFFSET GDT
SHL  EAX,4
ADD  EAX,EBX
PUSH SEG GDTR
POP  ES
MOV  DWord PTR ES:[GDTR+2],EAX
CALL DisableInt

LGDT QWord PTR ES:[GDTR]

;{ON_PM:}
MOV EAX,CR0
OR  EAX,80000001h 
MOV CR0,EAX

MOV  BX, 10h
MOV  FS,BX
MOV  GS,BX
MOV  DS,BX
MOV  ES,BX

MOV  EAX, DWord PTR [BP+4]

MOV  BX, 18h
MOV  SS, BX
MOV  EBP, EAX;{10FFFFFh ;{11MB-1}
MOV  ESP, EAX;{10FFFFFh ;{11MB-1}

          DB 066h
          DB 0EAh
@JMainPM: DD 00
          DW 08h

RETF

procedure MapFirstMegabyte(PageDirectory:PPageTable);
var Addr:DWord;
 i:integer;
begin
if  PageDirectory<> nil then
  begin
  Addr:=0; {Отображаем первый мегабайт на первый}
  for i:=0 to 255 do {255=(1024*1024 div PageSize)-1}
      begin
      MapAddr(Addr,Addr);
      Addr:=Addr+PageSize;
      end;
  end;
end;

   mov   ax, SEG_KN_TSS
   ltr   ax