Это, без сомнения, тоже задача повседневной потребности. Сразу укажем на то, что существуют два различных метода опроса клавиатуры - один связан с приемом и анализом данных, поступающих от внешнего порта, а другой - с использованием системных переменных KSTATE или LASTK. Мы здесь рассмотрим оба метода, т.к. оба достаточно часто применяются в программах.

Рассмотрим задачу, аналогичную предыдущей. Допустим, нам надо, чтобы на экране рисовались синие квадраты при нажатии следующих клавиш:

"P" - в пр а в о " Q" - в в е рх

"О" - влево "А" - вниз

"0" - выход из программы Для усложнения задачи введем еще клавишу "ПРОБЕЛ" в качестве переключателя режимов "РИСОВАНИЕ/СТИРАНИЕ".

МЕТОД 1

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

Анализируются 5 младших битов. При этом если клавиша не нажата, то бит включен (в отличие от опроса Кемпстон-джойсти-ка). Поэтому, если ни одна клавиша не нажата, то должно бы выдаваться число 255, но оно не выдается, а выдается 191. Дело в том, что по 6-му биту анализируется состояние порта входа от магнитофона и если сигнал не поступает, то 6-ой бит выключен и поэтому Вы получаете 191, а не 255 (255-64 = 191) .

Адрес Метка Маш.код 6590 3E02

6592 CD 0116

0618 CD440E 3E0F 325766

3E0B 325666

3E8F

CD4766

65AC REP 0E4F

65AE HERE 0 6FF

65B0 PAUSE 10 FE

65B2 0D

65B3 2 0F9

Мнемоника LD A, 02 CALL 1601

LD B,18 CALL 0E44 LD A, 0F LD (XPOS),A

LD A, 0B LD (YPOS) ,A

LD A, 8F

CALL PRINT

LD C, 4 F

LD B,FF

DJNZ PAUSE

DEC C

JR NZ,HERE

Комментарий

Открываем канал для печати на экране

Очистка экрана

Установка начальной колонки печати в переменной XPOS

Установка начальной строки печати в YPOS Аккумулятор указывает на символ | (143) Код символа отправляется в переменную SYM. Вызов процедуры печати символа

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

Первый замедляющий цикл

3EEF DBFE CB4 7 C8

3E7F DBFE CB47 CC2C66

CALL Z , TOGGL

A, DF A, (FE)

0,A

Z,RIGHT

1,A

Z,LEFT A, FD A, (FE) 0,A

Z,DOWN A, FB A, (FE) 0,A Z,UP RET

3C INC A

FE1F CP 1F

CAAC65 JP Z,REP

325766 LD (XPOS), A

CD4766 CALL PRINT

Указание на 5-ый полуряд Опрос 5-го полуряда Проверка клавиши "0" Выход в БЕЙСИК, если нажата Указание на 8-ой полуряд Опрос 8-го полуряда Проверка клавиши "ПРОБЕЛ" Вызов подпрограммы на переключение печатаемого символа для обеспечения стирания Указание на 6-й полуряд Опрос 6-го полуряда Проверка клавиши "P" Вправо, если нажата Проверка клавиши "O" Влево, если нажата Указание на 2-й полуряд Опрос 2-го полуряда Проверка клавиши "A" Вниз, если нажата Указание на 3-й полуряд Опрос 3-го полуряда Проверка клавиши "Q" Вверх, если нажата Если ни одна клавиша не нажата, то сначала в акк-р идет последний столбец печати и увеличивается на 1 Проверка на достижение правого края Если да, то возврат на опрос клавиатуры Если нет, то запомнить новый столбец и вызвать подпрограмму печати

65F9 65FA

65FC

65FF

6602 CD4766

6605 C3AC65

6608 DOWN 3A5666

660B 660C

660E

6611

6614 6617

6 61A UP

661D

661E

6620

6623

6626 CD4766

6629 C3AC65

662C TOGGL 3E7F

DEC A CP 00

JP Z,REP

(XPOS),A

CALL PRINT

JP REP

LD A, (YPOS)

INC A

CP 16

JP Z,REP

LD A, (YPOS)

CALL PRINT

JP REP

LD A,(YPOS)

DEC A

CP 00

JP Z,REP

LD A, (YPOS)

CALL PRINT

JP REP

LD A, 7F

Возврат на новый опрос клавиатуры

Ввод текущего столбца печати

Уменьшить его номер на 1

Проверка на достижение

левого края

Если да, то возврат на

опрос клавиатуры

Если нет, запомнить новый

столбец

Вызов подпрограммы печати Возврат на опрос клавиатуры В акк-р идет последняя строка печати и увеличивается на 1 Проверка на достижение нижнего края Если да, то возврат на опрос клавиатуры Если нет, то запомнить новую строку и вызвать подпрограмму печати Возврат на новый опрос клавиатуры

Ввод текущей строки печати

Уменьшить номер строки на 1

Проверка на достижение

верхнего края

Если да, то возврат на

опрос клавиатуры

Если нет, то запомнить

новую строку

Вызов подпрограммы печати Возврат на опрос клавиатуры Вновь проверяем нажатие клавиши "ПРОБЕЛ", т. к. она

A, (FE) 0,A

JR Z,TOGGL

3A5A6 6 LD A, (SYM)

FE8F CP 8F

2 8 06 JR Z, NEXT

3E8F LD A,8 F

32 5A6 6 LD (SYM) , A

6640 C9

6641 NEXT 3E8 0

32 5A6 6 LD

6646 C9

6647 PRINT 06FF

6649 WAIT 10 FE 664B 115566

010600 LD BC,0006 CD3C2 0 CALL 203C

RET

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

Чтобы переключить режим, надо сначала определить, какой символ установлен -синий квадрат (8F) или белый (80)

Поскольку был не синий, то устанавливаем в переменную SYM код синего квадрата Возврат

И, наоборот, раз был синий, то теперь устанавливаем белый квадрат ("СТИРАНИЕ") Возврат

Организация третьего замедляющего цикла Третий замедляющий цикл Регистр DE указывает на печатный текст Длина текста - 6 символов Вызов процедуры печати строки из ПЗУ Возврат в вызывающую процедуру

Символ управления печатью AT

Позиция печати по горизонт. Позиция печати по вертик. Управляющий символ INK Цвет символа - синий Код печатаемого символа.

МЕТОД 2

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

1. Использование системной переменной LAST K.

Эта системная переменная находится по адресу 23560. В ней запоминается код символа (токена) , находящегося на последней нажатой клавише. Причем, здесь есть различия, в зависимости от того, в каком клавиатурном регистре эта клавиша была нажата. Например, после нажатия клавиши "Р" там будет помещен код 7 0HEX (символ "р"), при нажатии CAPS SHIFT "P" - код 50HEX (символ "Р"), а при нажатии SYMB SHIFT "P" - код 22HEX (символ") .

Итак, первой особенностью является то, что одна и та же клавиша при использовании ее в разных режимах дает разные коды. поскольку в программе с равной вероятностью клавиатура может быть в режиме CAPS LOCK и в обычном режиме, то при определении перехода надо проверять оба кода. Например, для клавиши "Р" -переход на процедуру обработки движения вправо:

CP 70

JR Z,RIGHT

CP 50

JR Z,RIGHT

2. Вторая особенность состоит в том, что системная переменная "помнит" факт нажатия последней клавиши. Если при опросе клавиатуры через внешний порт мы имели сигнал только пока клавиша нажата, то здесь код сидит в переменной до тех пор, пока не будет нажата какая-либо другая клавиша, и тогда код сменится другим. Это означает, например для предыдущей программы, что стоит Вам только один раз коснуться клавиши "Р", как рисование синей полосы будет идти безостановочно, пока не будет достигнут край экрана или пока не произойдет нажатие другой клавиши. Но такое управление тоже часто применяется в программах, и об этом

3. Если этот недостаток является существенным, то можно воспользоваться системной переменной KSTATE. Она занимает 8 байтов, начиная с адреса 23552 по 23559. Строго говоря, это не просто переменная, а это небольшая область памяти, в которой процедуры ПЗУ, отвечающие за опрос клавиатуры, организуют свои временные хранилища информации. Наиболее интересен для нас адрес клавиши, причем он хоть и "запоминается" там, но ненадолго, в отличие от переменной LASTK. Здесь Вы можете прочитать код последней нажатой клавиши, причем он хоть и "запоминается" там, но ненадолго. Он хранится пять циклов прерываний, а поскольку в "Спектруме" прерывания происходят каждую 1/50 секунды, то код хранится в этой ячейке примерно 0.1 секунды.

4. И, наконец, последнее замечание. Для того, чтобы системные процедуры ПЗУ могли производить опрос клавиатуры и устанавливать системные переменные LASTK и KSTATE, необходимо, чтобы маскируемое прерывание было разрешено. Надо убедиться в этом, а лучше принудительно перед опросом клавиатуры дать команду EI (код FB HEX) .

1. Часть I - от авторов. Введение. Общее описание книги.
2. Первые шаги в машинных кодах - Самый – самый первый шаг.
3. Первые шаги в машинных кодах - Зачем изучать программирование в машинных кодах.
4. Первые шаги в машинных кодах - Архитектура процессора Z-80.
5. Формы представления чисел в процессоре Z-80 - Числовые системы. Двоичная дополнительная форма записи. Десятичная арифметика в двоичном выражении.
6. Система команд процессора - Загрузка числа в регистр. Копирование и обмен содержимого регистров. Загрузка регистров из памяти. Команды записи данных из регистров в память.
7. Арифметические и логические команды - Команды сложения. Команды вычитания. Команды сравнения. Команды логики.
8. Операции ветвления - Команды перехода. Операции в цикле. Команды работы со стеком. Вызов подпрограмм.
9. Команды обращения к ПЗУ - Точки запуска в ПЗУ. Описание встроенного калькулятора.
10. Команды для работы с битами - Команды сдвига,ротации и проверки битов.
11. Оперативная память - Команды обработки блоков памяти.
12. Ввод-вывод - Команды для работы с внешними устройствами.
13. Прерывания - описание системы прерываний процессора Z80.
14. Прочие команды - описание специфических команд процессора Z80.
15. Заключение - окончание первой части книги и примечания к ней.
16. Часть II - "Практикум по программированию в машинных кодах". Введение.
17. Особенности процессора Z80 - несколько страниц краткого повторения материала 1-ой части, рассмотрение основных особенностей процессора.
18. Расширение системы команд процессора - арифметические конструкции.
19. Расширение системы команд процессора - логические конструкции.
20. Расширение системы команд процессора - конструкции передачи данных.
21. Расширение системы команд процессора - конструкции ветвления.
22. Расширение системы команд процессора - конструкции вызова подпрограмм и возврата. Прочие конструкции.
23. Директивы АССЕМБЛЕРА - комментарии. Метки. EQU, DEFB, DEFW, DEFM, ORG, END.
24. Разбор программ в машинных кодах - вывод на бордюр цветных полос.
25. Разбор программ в машинных кодах - вывод данных на экран из машинного кода.
26. Разбор программ в машинных кодах - управление программой от Кемпстон-джойстика.
27. Разбор программ в машинных кодах - управление программой от клавиатуры.
28. Разбор программ в машинных кодах - проверка оперативной памяти компьютера.
29. Разбор программ в машинных кодах - практические приемы работы с калькулятором.
30. Разбор программ в машинных кодах - примеры использования прерываний 2-го рода.
31. Каналы и потоки - стандартные каналы. Прочие каналы. Область информации о каналах. Подключение потоков. Практические приемы работы с каналами и потоками.
32. Дополнение 1 - практические рекомендации по просмотру машинного кода фирменных игровых программ.
33. Дополнение 2 - обзор типичных ошибок, возникающих при программировании в машинных кодах.
34. Часть III - справочник по программированию в машинных кодах. Введение.
35. Система команд - сводная таблица значений кодов от 0 до 255 для Бэйсика и Ассемблера.
36. Система команд - таблица значений кодов для Ассемблера.
37. Таблица 3 - система команд встроенного калькулятора.
38. Словарь мнемоник ассемблера - все мнемоники машинного кода процессора Z-80 в алфавитном порядке.
39. Таблица 5 - таблица указателей прерываний из ПЗУ.
40. Русификация - русификация с использованием символов UDG.
41. Русификация - русификация заменой генератора. Русификация "под принтер" и "под пишущую машинку".
42. Полезные советы - несколько практических рекомендаций, связанных с русификацией компьютера.
43. Заключение - благодарим Вас за внимание, проявленное к нашей книге. Если Вы прочитали ее до конца и все в ней Вам понятно, то Вы сделали большой шаг вперед, но все же это только самый первый шаг.