Source position: systemh.inc line 727
function SarShortint(
const AValue: ShortInt;
const Shift: Byte = 1
):ShortInt;