Zobrazení zdroje stránky CSeg

Vrací aktuální hodnotu registru CS.

;Deklarace
 function CSeg: Word;

;Režim
:Windows, Reálný, Chráněný

;Poznámky
:Výsledkem typu [[Word]] je segmentová adresa kódového segmentu, ze kterého byla funkce [[CSeg]] zavolána.

;Viz také
:[[DSeg]]

:[[SSeg]]


Vzorový příklad

 {CSeg.PAS}
 {Vzorový příklad funkce CSeg, DSeg, SSeg, SPtr, Ofs a Seg.}
 { Pro Windows: }
 { uses WinCrt; }
 procedure WriteHexWord(w: Word);
 const
   hexChars: array [0..$F] of Char =
     '0123456789ABCDEF';
  begin
   Write(hexChars[Hi(w) shr 4],
         hexChars[Hi(w) and $F],
         hexChars[Lo(w) shr 4],
         hexChars[Lo(w) and $F]);
  end;
 var
   i: Integer;
 begin
   Write('Aktuální kódový segment je $');
   WriteHexWord(CSeg); Writeln;
   Write('Globální datový segment je $');
   WriteHexWord(DSeg); Writeln;
   Write('Segment zásobníku je $');
   WriteHexWord(SSeg); Writeln;
   Write('Ukazatel zásobníku je na $');
   WriteHexWord(SPtr); Writeln;
   Write('i je na ofsetu $');
   WriteHexWord(Ofs(i));
   Write(' v segmentu $');
   WriteHexWord(Seg(i));
 end.

[[Category:System]]
[[Category:Funkce System]]
[[Category:Funkce pro operace s ukazateli a adresami]]