Генерация случайных чисел в заданном диапазоне

[hobot]

#include <stdint.h> /* The state word must be initialized to non-zero */ uint32_t xorshift32(uint32_t state[static 1]) { uint32_t x = state[0]; x ^= x << 13; x ^= x >> 17; x ^= x << 5; state[0] = x; return x; }

А как такое переписать на МАКРО-11, что за оператор ^= и <<
Можно как-то в виде готовой функции оформить для не программера вроде меня, что бы протестировать и
возможно использовать? (использовать в программах для RT-11 разумеется, не для спектрума!) Очень желательно ПАСКАЛЬ - главное что бы не Си !!!

Спасибо.

- - - Добавлено - - -

у меня есть старенькая функция генерации - у неё одна проблема 1-е число ) Как это победить - я не знаю увы.

[Advertiser]