Имитатор "телевизора"

© Патрахин В.В., г. Оленегорск, 1994.

Программа создает эффект "снега" при отсутствии сигнала на входе телевизора. В программе используются переменные: YX двухбайтная величина, старший байт - строка, младший - столбец левого верхнего угла экрана

имитируемого "'телевизора". VERT размер по вертикали (в знакоместах) экрана имитируемого телевизора. HORIZ то же по горизонтали.

Эффект будет наиболее полным, если добавить шипение.

Комментарий ИНФОРКОМА.

Предложенная программа основана на том, что окно заданных размеров заполняется произвольной информацией, в качестве которой используется содержимое ПЗУ. Посмотрите: в строках 60, 80, 100, 120 в регистре DE задается некий произвольный адрес (в ПЗУ), а в строках 560-570 (в HL при этом находится адрес в дисплейном файле) происходит перенесение информации из ячейки ПЗУ на экран. За тем следует переход к следующей ячейке и повторение цикла (строки 580-600). Всего используется 4 повторения подпрограммы SNOW с разными адресами, благодаря этому и создается эффект "снега". Кстати сказать, в цикл переноса ин формации из ПЗУ в видео - ОЗУ удобно вставить звуковое сопровождение. Мы (по совету автора) сделали такое усовершенствование: 00572 AND #10

00574 OR #00

00576 OUT (#FE),A

В строке 572 "выделяется" бит, соответствующий управлению динамикой (устраняются полосы на бордюре в такт шипению), в строке 574 задается цвет бордюра (для черного цвета эту строку можно исключить, но лучше -оставить для простоты внесения изменений в уже готовый блок; для белого бордюра здесь должно быть OR #07), в строке 576 полученное (случайное) значение аккумулятора выдается в порт звукового динамика, создавая шипение. Таким образом. Вы слышите, как "шипит" Ваше ПЗУ.

Параметры блока кодов со звуковым сопровождением: Start of object: #9C40 (40000) Length: #00 6A (00106)

Executes: #9C40 (40000)

И его дамп:

Тестируя программу, мы отмети ли, что четырех повторений цикла SNOW может быть и достаточно для простейшей имитации "снега", но для более реалистичной - явно не достаточно - слишком заметен полный цикл из 4-х повторений. В идеале было бы желательно организовать один замкнутый цикл с использованием в качестве генератора адреса для регистра DE - генератор случайных чисел. Если Вы уже прочитали предыдущую статью, то, конечно, подумали о том же самом, что и мы: интересно было бы узнать, как поведет себя предложенный генератор RND в процедуре "телевизора". Для этого необходимо внести следующие изменения:

Строки 110-120 - удалите, а следом за процедурой SNOW расположите генератор случайных чисел из предыдущей статьи - подпрограмму RND. Результат её работы, находящийся в ячейке SEED, и будем использовать в качестве адреса, задаваемого в DE. Это будет число от 0 до 65535. В этом случае, естественно, результат работы такого "телевизора" будет за висеть от содержимого памяти ПЗУ+ОЗУ Вашего компьютера, поэтому введено ограничение на старший байт адреса: строка 90 не дает выходить за пределы ПЗУ.

Когда мы запустили программу, то были просто "сражены наповал" реалистичностью эффекта: на экране нашего "Спектрума" светился (и шипел) настоящий маленький теле экран, время, от времени пытаясь настроиться на какую-то слабую станцию, но у него это никак не получалось. Такому поведению "телевизора" быстро нашлось объяснение: в ПЗУ 1982 года имеется свободная область, заполненная кодом #FF, и когда генератор случайных чисел попадал в этот диапазон, создавался эффект попыток "захвата" АПЧ слабого сигнала передаю щей станции. Эффект "захвата сигнала" почти пропадает при использовании ПЗУ "TURBO-90" (в котором нет свободного участка, но, за счет инкремента регистра DE в строке 590, в процесс вовлекается часть видео - ОЗУ) и совсем исчезнет, если изменить строку:

00090 AND #1F

отрезав вероятность попадании о свободную область ПЗУ. Теперь видим полное отсутствие, какого бы то ни было

сигнала на входе нашего "телевизора", но, все равно, очень реалистичный "снег" на мини-экране. Правда программа

стала длиннее почти вдвое:

Start of object: #9C40 (40000)

Length: #OOB5 (00181)

Executes: #9C40 (40000)

Однако если процедура RND будет также использоваться в Вашей программе и для других целей, то её применение заодно и в "телевизоре", наоборот, сэкономит память. А полученный эффект, безусловно, покорит тех, кто будет пользоваться Вашими программами.

В заключение, приводим полный дамп блока кодов имитатора телевизора вместе с генератором RND.

1. Компьютеры которые мы выбираем - От "Ленинграда" до "ATM".
2. Компьютеры которые мы выбираем - устранение несовместимости компьютера "Робик".
3. Профессиональный подход - генератор случайных чисел.
4. Читатель - читателю - имитатор "телевизора".
5. Читатель - читателю - экран высокого цветового разрешения.
6. Читатель - читателю - несколько устройств для "Спекки".
7. Читатель - читателю - нестандартные загрузчики.
8. Возвращаясь к напечатанному - расширение памяти "Ленинграда-1" до 128К.
9. Возвращаясь к напечатанному - некоторые подробности о мониторе TURBO-90.
10. Этюды - предлагаю в новую замечательную рубрику ЭТЮДЫ несколько своих программ.
11. Форум - многие читатели задают вопрос, который интересует, наверное, не только их: "Где же он, "Хаккер-93".
12. Перекрёсток - Павел Ловыгин из г. Костромы делится своими успехами в некоторых адвентюрах.
13. Ролевые игры - Система правил AD&D (продолжение).
14. Советы эксперта - описание игры "TAU CETI III".
15. Возвращаясь к напечатанному - Ocean conqueror.
16. Возвращаясь к напечатанному - The great escape.
17. Авторская программа - заявки авторских системных и игровых программ.
18. Наши дистрибьюторы - вы можете приобретать литературу "Инфоркома" по следующим адресам.