Return to rand.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / compat-4.1

Power 6/32 Unix version 1.2b

/* @(#)rand.c	4.1 (Berkeley) 12/21/80 */
static	long	randx = 1;

srand(x)
unsigned x;
{
	randx = x;
}

rand()
{
	register R12;		/* = r12 */

	R12 = randx;
	asm ("	emul	$1103515245, r12, $12345, r0");
	asm ("	movl	r1, r0");
	asm ("	movl	r0, r12");
	return ((randx = R12) & 0x7fffffff);

/*	return((randx = randx * 1103515245 + 12345) & 0x7fffffff); */
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.