16bit Shift Arithmetic Right.
Source position: systemh.inc line 1173
function SarSmallint( 
const AValue: SmallInt; 
const Shift: Byte = 1 
):SmallInt; 
SarSmallint performs an arithmetic right shift for Shift positions on an 16bit integer AValue and returns the result. Shift is optional, and is 1 by default. The difference with the regular Shr shift operation is that the leftmost bit is preserved during the shift operation.

8bit Shift Arithmetic Right. 


32bit Shift Arithmetic Right. 


64bit Shift Arithmetic Right. 