P8000/WEGA/contrib/lcc/lib/libc/port/gen/rand.c

15 lines
143 B
C

static long randx=1;
void
srand(x)
unsigned x;
{
randx = x;
}
int
rand()
{
return(((randx = randx * 1103515245L + 12345)>>16) & 0x7fff);
}