Source position: tos.pas line 230
procedure VsetMask(
ormask: LongInt;
andmask: LongInt;
overlay: SmallInt
);