1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
CSeg
,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...“
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]]
;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]]
