Source position: expatbasics.pas line 245
function shr_int8(
i: ShortInt;
shift: ShortInt
):ShortInt;