CSeg: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
Řádek 13: | Řádek 13: | ||
:[[DSeg]] | :[[DSeg]] | ||
− | :[[ | + | :[[SSeg]] |
Řádek 51: | Řádek 51: | ||
[[Category:System]] | [[Category:System]] | ||
[[Category:Funkce System]] | [[Category:Funkce System]] | ||
− | [[Category: | + | [[Category:Funkce pro operace s ukazateli a adresami]] |
Aktuální verze z 5. 10. 2012, 21:41
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
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.