Курсовая работа: Робота в захищеному режимі мікропроцесора

s:string;

begin

s:='';

for i:=0 to 3 do begin

s:=hex_tabl[p and $f]+s;

p:=p shr 4

end;

hw:=s

end;{hw}

{------------Формирование дескриптора таблицы GDT-------------}

procedure init_gdt(i:byte;limit,base:longint;acces,

byte_6h:byte);

begin

with gdt[i] do begin

lim_l :=limit;

base_l :=base;

base_h :=base shr 16;

acc :=acces;

lim_h :=limit shr 16 or byte_6h;

base_hh:=base shr 24;

end

end; {init_gdt}

{------Формирование данных регистра GDTR и его загрузка-------}

procedure init_gdtr;

begin

gdtr.lim:=sizeof(gdt)-1;

gdtr.base:=lin_adr(seg(gdt),ofs(gdt));

asm

db 0fh,01h,16h { LGDT gdtr: }