52 lines
1020 B
C
52 lines
1020 B
C
|
|
/* Random numbers */
|
|
/* Copyright (c) Mix Software 1988 */
|
|
|
|
/* ------------------------------------------------------------ */
|
|
|
|
double drand(n)
|
|
int n;
|
|
{
|
|
extern double (far *$0DFIXR)();
|
|
double d;
|
|
d = (double) rand() / (double) 0x7FFF;
|
|
if (n == 0) return d;
|
|
return $0DFIXR(d * n);
|
|
}
|
|
|
|
/* ------------------------------------------------------------ */
|
|
|
|
rand()
|
|
{
|
|
extern long _seed;
|
|
_seed = _seed * 15790321;
|
|
return (int) ((_seed >> 17) & 0x7FFF);
|
|
}
|
|
|
|
/* ------------------------------------------------------------ */
|
|
|
|
void srand(seed)
|
|
unsigned seed;
|
|
{
|
|
extern long _seed;
|
|
union REGS r;
|
|
union {
|
|
long lval;
|
|
struct {
|
|
unsigned lsword;
|
|
unsigned msword;
|
|
} words;
|
|
} val;
|
|
if (seed == 1) _seed = 13849l;
|
|
else {
|
|
r.x.ax = 0x2c00;
|
|
intdos(&r,&r);
|
|
val.words.lsword = r.x.dx;
|
|
val.words.msword = r.x.cx;
|
|
_seed = val.lval;
|
|
}
|
|
}
|
|
|
|
long _seed = 13849;
|
|
|