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

procedure exc_14;

procedure exc_16;

procedure exc_17;

procedure exc_18;

procedure PIC_1;

procedure PIC_2;

procedure keyb;

procedure int_30h;

procedure int_30hr;

procedure int_32h;

implementation

{------Преобразование логического адреса в линейный адрес-----}

function lin_adr;

begin

lin_adr:=longint(seg) shl 4+off

end;{lin_adr}

{-------------Преобразование данных в 16-ричную форму---------}

function hex(p:longint):string;

var s:string;

begin

s:='h';

repeat

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

p:=p shr 4

until p=0;

hex:=s

end;{hex}

function hw(p:word):string;

var