Source position: tos.pas line 320
function Fcntl(
f: SmallInt;
arg: LongInt;
cmd: SmallInt
):SmallInt;