CSeg

Declaration:
Function CSeg : Word;
Description:
CSeg returns the Code segment register. In Free Pascal, it returns always a zero, since Free Pascal is a 32 bit compiler.
Errors:
None.
See also:
DSeg (484), Seg (567), Ofs (541), Ptr (549)

Listing: refex/ex13.pp


Program Example13;

{ Program to demonstrate the CSeg function. }

var W : word;

begin
  W:=CSeg; {W:=0, provided for compatibility,
                  FPC is 32 bit.}
end.