Source position: mpmfn4integers.pas line 545
procedure mp_rshd2(
const a: Tmp_int;
var b: Tmp_int;
cnt: LongInt
);