Source position: systemh.inc line 741
function SarLongint(
const AValue: LongInt;
const Shift: Byte = 1
):LongInt;