Source position: tos.pas line 156
procedure Xbtimer(
timer: SmallInt;
control: SmallInt;
data: SmallInt;
vec: Pointer
);