(c) Сергей Астров,
г.Чебоксары, 1996.

   Генератор псевдослучайных
             чисел.

   Каюсь! И исправляю свою ошиб-
ку, которую я допустил при  опи-
сании работы генератора  псевдо-
случайных чисел в  ZX-РЕВЮ 6'95.
RND_3 - это генератор псевдослу-
чайных БИТОВ, и  чтобы  получить
псевдослучайное слово,  процеду-
ру следовало бы вызвать 16  раз,
а это сводит на нет быстроту ра-
боты генератора.  При  однократ-
ном вызове 15 битов старого чис-
ла присутствуют в  новом  числе,
добавляется лишь один  случайный
бит.
   Новая реализация лишена пере-
численных недостатков, но  нуле-
вое значение по прежнему  недос-
тижимо.  Идея  получения   чисел
практически та же, что и в  моем
предыдущем генераторе.  Исключе-
на проверка на нулевое значение,
будьте внимательны! Длина  гене-
ратора  23  байта,  используются
только регистры AF и HL.
1410.
RND_32    LD    HL,(SEED)
          CALL  RND
RND       LD    A,H
          ADD   HL,HL
          XOR   H
          ADD   HL,HL
          ADD   HL,HL
          ADD   HL,HL
          XOR   H
          ADD   HL,HL
          ADD   HL,HL
          XOR   H
          ADD   HL,HL
          ADD   HL,HL
          LD    L,A
          LD    (SEED),HL
          RET
SEED      DEFW  #FFFF ; НЕ НОЛЬ!
2
   ИФК:  У Сергея есть один воп-
рос: знает ли кто,  какие  байты
заменить  в  прошивке   принтера
СМ-6337,  чтобы  при   включении
сразу  устанавливалась альтерна-
тивная кодировка?

********************************