Star Tip 3

ЗВЕЗДА СОВЕТ 3 (Random Number Generator) по Джон Ритман с Вашего Sinclair # 20 (Aug.1987) [Файлы STARTIP3. *]

Если вам понравился кубарем и Бэтмен, то вы будете знать, что Джон Ритман,

вместе со своим партнером Берни Драммонд, знает кое-что о програмно Мин блестящие игры. Одна из самых важных вещей в хорошем аркады приключение, или так кажется, является генератор случайных чисел.

“Это 32-битное случайное рутина число генератора я использовал в Бэтмена и

Head Over Heels. Процедура довольно быстро и возвращает разумный случайная число. Эта версия возвращается с HL проведения 16-битный случайное число. Тем не менее, если вам нужно все 32 бита, просто добавьте инструкция LD DE, (SEED + 2) только перед RET в конце. 32-разрядная семян могут быть изменены в любое значение из Ваш выбор “.

Так вот, для всех вас сборка наркоманов, листинг, который может быть

расположен в любом месте пригодны в памяти. Для тех из вас, которые не получили Сборщик, есть также дамп кода для вас, чтобы загрузить в через подходит шестигранной погрузчик. Для удобства мы собрали его 30000 (7530 шестнадцатеричном), и в случае, если вам интересно, его длина составляет 45 байта. [На самом деле 46 байт. JimG]

SEED: DB “Джон!”

             RANDOM: LD HL, (SEED + 2)             LD D, L             ДОБАВИТЬ HL, HL             ДОБАВИТЬ HL, HL             LD C, H             LD HL, (SEED)             LD B, H             RL B             LD E, H             RL E             RL D             ДОБАВИТЬ HL, BC             LD (SEED), HL             LD HL, (семян + 2)             ADC HL, DE             RES 7, H             LD (семян + 2), HL             JP M, RANDOM3             LD HL, SEED Random2: INC (HL)             INC HL             JR Z, Random2 RANDOM3: LD HL, (SEED)             RET