chrand
OCTET r = {{chrand(prandgen)}};
OCTET r = {{chrand(prandgen)}};
prandgen->seedptr = prandgen->ira + chrand (prandgen) % NK;
prandgen->rndptrX = prandgen->ira + chrand (prandgen) % NK;
prandgen->rndptrA = prandgen->ira + chrand (prandgen) % NK;
prandgen->rndptrB = prandgen->ira + chrand (prandgen) % NK;