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