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