ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ БЫСТОРАБОТАЮЩИХ ПРОГРАММ

Перевод с английского Пашорина В.И.

Продолжение. Начало см. с. 9-12, 48-61, 97-103, 183-188

8. Команды ATTRIBUTE, SCREEN$ и POINT

Если Вы программировали игры на БЕЙСИКе, то вероятно сталкивались с тем, что Вам необходимо знать в определенной игровой ситуации текущее расположение заданного символа на экране. Это, например, нужно при проверке условия - достигла ли ракета цели, либо при выполнении посадки на Луну. В БЕЙСИКе для этого существуют три способа:

- использовать оператор ATTRIBUTE, который проверяет значение INK, PAPER, FLASH и BRIGHT в заданном знакоместе экрана и выдает число, соответствующее этим параметрам;

- использовать оператор SCREEN$, который определяет код символа в заданном знакоместе и выдает код этого символа, если он входит в диапазон 32...127. В противном случае считается, что ячейка пуста;

Примечание: процедуру в машинных кодах, которая может проверить не только символы ASCII, но и символы UDG-графики и символы блочной графики, т.е. из диапазона 32... 164 мы привели в первом томе, посвященном графике для "Спектрума" -"Элементарная графика" на с. 99 под названием SCANER. - ИНФОРКОМ.

- использование оператора POINT, который проверяет состояние одного пиксела экрана и выдает 1, если пиксел включен и 0, если он выключен.

Все эти три способа могут быть реализованы и в программах в машинных кодах с использованием специальных процедур ПЗУ.

8.1. ATTRIBUTE (строка, столбец).

Процедура ATTR, аналогичная по действию оператору ATTRIBUTE, находится в ПЗУ по адресу 9603. Перед ее вызовом необходимо записать координаты исследуемого знакоместа в регистровой паре BC (номер строки - в регистре B, а номер столбца - в регистре C). Результат проверки в виде числа 0...255 записывается на вершину стека калькулятора.

Определить атрибуты знакоместа, используя это число, можно по формуле:

ЧИСЛО=128*FLASH + 64*BRIGHT + 8*PAPER + INK значение

Это число можно переписать со стека калькулятора в регистр A, используя процедуру ПЗУ FP_TO_AA, находящуюся по адресу 11733, а затем сравнить его с заданным числом N с помощью команды CP N.

Пример реализации этого способа показан в программе 8.1. Программа проверяет каждое знакоместо экрана до тех пор, пока не найдет ячейку, атрибуты которой соответствуют PAPER 1, INK 7, FLASH 1, т.е. числу 143. После запуска этой программы на экране появляется ракета, медленно перемещающаяся по направлению к человечку. При совмещении ракеты с этим человечком происходит возврат в БЕЙСИК. Вы можете вместо команды возврата RET подключить процедуру, создающую звуковой эффект, сопровождающий попадание ракеты в человечка.

Такой способ проверки атрибутов символьных ячеек безусловно хорош, но требует, чтобы, например, все поражаемые объекты имели одинаковые атрибуты.

Листинг 8. 1.

АДРЕС МЕТКА МАШ.КОД АССЕМБЛЕР КОММЕНТАРИЙ

ORG 23760

23760 ED 5B 7B 5C LD DE,(23675) ;Адрес первого символа

8.2 SCREEN$

Точно так же, как и при вызове процедуры ATTR, перед вызовом этой процедуры необходимо в регистровую пару BC записать координаты символьной ячейки. Процедура

SCREEN$ находится по адресу 9526. Параметры символа исследуемой символьной ячейки при вызове этой процедуры будут записываться на калькуляторный стек в пятибайтной форме. Использование калькуляторного стека для хранения параметров символа для Вас, наверное, открытие, поскольку до сих пор речь шла о хранении на стеке только чисел в пятибайтной форме.

Коды калькулятора при этом оперируют не с самими символами, а с их параметрами, записанными в пятибайтной форме. Для того, чтобы передать параметры символа на стек, необходимо записать в регистровую пару ВС размер символа в байтах, а в регистровую пару DE - начальный адрес участка памяти, где хранится вся информация о символе. Для стандартных символов в регистр A записывается 0.

Для передачи этих параметров на стек используется процедура, находящаяся в ПЗУ по адресу 10929. Процедура же по адресу 11249 выполняет обратную функцию - передает параметры символа со стека в соответствующие регистры A, B, C, D, Е. При этом размер символа будет записан в регистровую пару ВС, а начальный адрес участка памяти с информацией о символе - в регистровую пару DE.

Программа 8.2 показывает, как можно использовать эти процедуры. После выполнения программы, на экране появятся два символа @, соответственно в позициях 0,20 и 0,21. Вместо вызова процедуры PRINT STRING (адрес 6252), можно использовать команду LD A,(DE) для проверки значения символа в позиции 0,20, а затем выполнить необходимые действия.

Листинг 8.2.

АДРЕС

МЕТКА

.КОД

АССЕМБЛЕР ORG 23750

КОММЕНТАРИЙ

ки, на местоположение которой указывает пара DE, а длина которой находится в ВС. В нашем случае - это символ "@".

с адреса 15360. Однако начальный адрес этого набора можно менять, меняя значение системной переменной CHARS (23606/7). Она указывает на 256 байтов ниже, чем начало символьного набора. Если переписать символьный набор из ПЗУ в ОЗУ таким образом, чтобы в этот набор вышел участок с информацией об UDG и чтобы UDG "А" соответствовал код 32, UDG "В" - код 33 и т.д., то можно вызывать процедуру SCREEN$ для идентификации UDG на экране.

Программа 8.3 работает точно так же, как и программа 8.1, но эта программа способна распознавать на экране символ, код которого равен 144. Выполнив копирование стандартного символьного набора в ОЗУ и переписав значение символьной переменной CHARS можно совсем отказаться от UDG. Теперь можно часть стандартных символов (например, строчные буквы и некоторые знаки пунктуации) заменить на символы, форму которых можем задать сами (это будет около 50 символов). Процедура SCREEN$ будет легко распознавать на экране любой символ, если он входит в символьный набор. И еще одно важное замечание. Необходимо всегда иметь свободный участок памяти, используемый как рабочий для стека. Если такого участка нет или он есть, но периодически не очищается, то при выполнении программы может появиться сообщение о переполнении памяти. Поэтому перед каждым вызовом процедуры SCREEN$ необходимо очищать специально зарезервированный рабочий участок.

Листинг 8.3.

МЕТКА МАШ.КОД

СМ. ЛИСТИНГ 8.1

ORG 23760

LD HL,(23675) DEC H

LD (23606),HL

CALL 9528 CALL 11249

LD A,(DE)

CP 32

LD HL,15360 LD (23606),HL

Адрес первого символа UDG. Отступили на 256 байтов. Мы помним, что CHARS указывает на 256 байтов ниже, чем начало шрифта. Переустановили CHARS так, она теперь указывает на область UDG.

Вызов процедуры SCREEN$. Передача параметров символа со стека в регистры. Проверка номера символа в текущем знакоместе. Проверка "не пробел ли это?" Расположение стандартного шрифта минус 256 б. Восстановили стандартное значение CHARS.

Далее, как в программе 8. 1

Процедура очистки рабочего участка имеется в ПЗУ по адресу 5823. Вызов этой процедуры в программе 8.3 можно производить после команды LD A,(DE), однако предварительно необходимо сохранить в памяти последнее значение регистра А.

8.3 POINT

Оператор POINT x,y в БЕЙСИК-программах выдает 1, если пиксел экрана с координатами x,y включен и выдает 0, если он выключен. Процедура ПЗУ, соответствующая этому оператору (адрес 8910), может быть вызвана, если предварительно записать в регистр B у-координату, а в регистр C, соответственно x координату пиксела. При этом результат зашлется на стек, а т.к. он равен 0 или 1, то мы можем переписать его в регистр A и сравнить с заданным значением. В программе 8.4 показан способ проверки пиксела верхнего левого угла (координаты 0,175).

Если в начале в символьную ячейку с координатами 0,0 занести черный квадрат, то результат работы процедуры будет равен 1, т.к. пиксел с координатами 0,175 входит в этот квадрат.

Листинг 8.4.

9. ПРИНТЕР

Не так уж много существует программ, для работы которых необходим принтер. Всегда можно ограничиться для вывода информации только экраном дисплея. Но иногда, например, необходимо показать свой уровень, достигнутый в какой-нибудь игре друзьям или знакомым. В этом случае нужно сделать копию изображения экрана на принтере. Поэтому в этой главе мы рассмотрим три BASIC-команды: COPY, LPRINT, LLIST и их аналоги в машинных кодах, обеспечивающих работу с принтером.

9.1. COPY

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

В программе 9.1 показан способ передачи на принтер всех 24 строк экрана, поскольку для некоторых игр достигнутый уровень показан в нижних строках экрана и при обычном вызове процедуры COPY получить необходимую информацию с двух последних строк не удается.

Листинг 9.1

Как Вы заметили, в этой программе перед вызовом процедуры, находящейся в ПЗУ по адресу 3762, необходимо в регистровую пару HL записать начальный адрес экранной области ОЗУ (т.к. нам необходима копия, начиная с первой строки, то этот адрес 16384), а в регистр B - число копируемых строк, умноженное на 8.

9.2 LPRINT

Эта команда имеет сходство с командой PRINT. Различие состоит в том, что не работают по этой команде управляющие коды и, конечно, используется другой канал для вывода информации на принтер, который необходимо открыть в программе в машинных кодах, прежде чем использовать команду RST 16. Например, чтобы вывести на принтер литеру "A", т.е. реализовать в машинных кодах LPRINT "A", необходимо первоначально открыть канал 3, затем записать в регистр A код литеры "A", ну а затем использовать команду RST 16.

Программа 9.2 демонстрирует этот способ для вывода на принтер символьной строки.

Листинг 9.2

Для выполнения табуляции выводимой на принтер информации, необходимо предварительно в системную переменную PRCC (23680) через POKE записать соответствующее число.

9.3 LLIST

Это третья БЕЙСИК-команда для работы с принтером. Реализовать ее в машинных кодах довольно просто. Достаточно только записать CALL 6133 и будет выполняться листинг строк BASIC-программы на принтере.

1. Спектрум в школе - осваиваем интересные численные методы решения математических уравнений.
2. Sinclair logo - снова об обработке списков. (продолжение, начало см. на с. 69-74, 90-95, 178 - 182).
3. Применение ассемблера для создания быстроработающих программ - продолжение, начало см. с. 9-12, 48-61, 97-103, 183-188. Команды ATTRIBUTE, SCREEN$ и POINT.
4. Страница iS-DOS - новинка сезона - дисковая операционная система для SPECTRUM "iS-DOS".
5. Профессиональный подход - компьютер и звук.
6. Читатель - читателю - к вопросу о стандартизации Спектрумов.
7. Читатель - читателю - SPECCY + АСТРОЛОГИЯ.
8. Сделайте сами - программа для создания адвентюрных игр ABS.
9. Компьютерная новелла - Стратегия капитана Кренона. Часть 2. Столкновение (по мотивам программы Rebel Star 2).
10. Последние известия - в эти октябрьские дни "ИНФОРКОМУ" исполнилось четыре года и в связи с этим мы предприняли ряд важных шагов, для которых, как нам кажется, настало время.