Source position: systemh.inc line 734
function SarSmallint(
const AValue: SmallInt;
const Shift: Byte = 1
):SmallInt;