(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, чтобы при включении
сразу устанавливалась альтерна-
тивная кодировка?
********************************
