Function CSeg : Word;
CSeg returns the Code segment register. In Free Pascal, it returns always a zero, since Free Pascal is a 32 bit compiler.
None.
Program Example13;
{ Program to demonstrate the CSeg function. }
var W : word;
begin
W:=CSeg; {W:=0, provided for comppatibility,
FPC is 32 bit.}
end.