CSeg

Returns the current value of the CS register.

Declaration

function CSeg: Word;

Target

Windows, Real, Protected

Remarks

The result of type Word is the segment address of the code segment within which CSeg was called.

See Also

DSeg

SSeg

Sample Code

{CSeg.PAS}
{Sample code for the CSeg, DSeg, SSeg, SPtr, Ofs, and Seg functions.}

{ For 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('The current code segment is $');
 WriteHexWord(CSeg); Writeln;
 Write('The global data segment is $');
 WriteHexWord(DSeg); Writeln;
 Write('The stack segment is $');
 WriteHexWord(SSeg); Writeln;
 Write('The stack pointer is at $');
 WriteHexWord(SPtr); Writeln;
 Write('i is at offset $');
 WriteHexWord(Ofs(i));
 Write(' in segment $');
 WriteHexWord(Seg(i));
end.