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.