Функция CSeg()

Возвращает текущее значение регистра CS.

Объявление:

Function CSeg : Word;

Режим:

Windows,  Protected,  Real

Замечание:

Результат типа Word - сегментная часть адреса сегмента кода, в котором была вызвана функция CSeg.

Пример:

{CSeg.PAS}
{ Пример программы для функций CSeg, DSeg, SSeg, SPtr, Ofs и Seg }
 
Uses WinCrt; 
var I : Integer;

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;
 
Begin
    Write('Текущий сегмент кода : $');
    WriteHexWord(CSeg);
    WriteLn;
    Write('Сегмент данных : $');
    WriteHexWord(DSeg);
    WriteLn;
    Write('Сегмент стека $');
    WriteHexWord(SSeg);
    WriteLn;
    Write('Указатель на стек : $');
    WriteHexWord(SPtr);
    WriteLn;
    Write('Переменная I по смещению : $');
    WriteHexWord(Ofs(I));
    Write(' в сегменте : $');
    WriteHexWord(Seg(I));
End.