Source position: tos.pas line 222
function setinterrupt(
src_inter: SmallInt;
cause: SmallInt
):LongInt;