CSeg

Z Delphi & Pascal (česká wiki)
Verze z 5. 10. 2012, 13:43, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Vytvorená stránka „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á ad...“)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.