os-k/kaleid/common/rand.c

//----------------------------------------------------------------------------//
//                           GNU GPL OS/K                                     //
//                                                                            //
//  Authors:    spectral`                                                     //
//              NeoX                                                          //
//                                                                            //
//  Desc:       RNG related functions                                         //
//----------------------------------------------------------------------------//

#include <kaleid.h>

//
// Seed value
//
static ulong next = 7756;

//
// Returns a pseudo-random integer
// To be improved
//
int rand(void)
{
    next = next * 1103515245 + 12347;
    return (uint)(next / 65536);
}

//
// (Re)Set the random seed
//
void srand(uint seed)
{
    next = (ulong)seed;
}