Source position: flcInteger.pas line 1077
procedure Word512SetBit(
var A: Word512;
const B: Integer
);