Двигаемся потихоньку...

"Кривые руки - причина боли моска!"

В прошлом уроке сразу ошибка.
надо:
SAVE #D: DL.M65

Пардон, но всё же назову CODES -> START так привычнее.

1000 START *=$0600

В редакторе эта строчка перепишет прежнюю.

Кстати, Эта команда - инструкция для MAC/65, а не для процессора.
Первая инструкция для процессора, которая будет помещена на 6 страницу
- 1010__JMP INIT.
Специально выделил 2 пробела перед JMP!
Если один пробел -> это будет воспринято как МЕТКА!

1000 START *=$0600
1010 JMP INIT
1020 ;
1030 NEWDL .BYTE BL8,BL7
1040 .BYTE GR0+LMS
1050 .WORD DLDATA

Вот здесь включаем моск!
MAC/65 при компиляции сразу выдаст ошибку фазирования, так как DLDATA ещё не определена нигде!

Увы, надо исправлять!

Вот табличка DLDATA:

1000 START *=$0600
1010 JMP INIT
1020 ;
1030 DLDATA
1040 L0 .SBYTE "Consol: /START/ /SELECT/ /OPTION/" - Start+Select+Option
1050 L1 .SBYTE "Consol: /Start/ /SELECT/ /OPTION/" - Select+Option
1060 L2 .SBYTE "Consol: /START/ /Select/ /OPTION/" - Start+Option
1070 L3 .SBYTE "Consol: /Start/ /Select/ /OPTION/" - Option
1080 L4 .SBYTE "Consol: /START/ /SELECT/ /Option/" - Start+Select
1090 L5 .SBYTE "Consol: /Start/ /SELECT/ /Option/" - Select
1100 L6 .SBYTE "Consol: /START/ /Select/ /Option/" - Start
1110 L7 .SBYTE "Consol: /Start/ /Select/ /Option/" - Не нажаты
1120 NEWDL ; Наш новый DLIST (8+7+8+1)=24 линии
1130 .BYTE BL8,BL7
1130 .BYTE GR0+LMS
1140 OUTTXT ; Метка нужна, чтобы загружать сюда изменяемые адреса.
1140 .WORD DLDATA ; Указываем команде LMS Адрес загрузки текста статуса.
1150 .BYTE BL1
1160 .BYTE JTO ; Скачок на старый OLDDL, как ни в чём ни бывало ...
1170 .WORD OLDDL+3 ; Тройку добавляем, так как область (24 пустых линии) над голубым экраном мы уже обработали.

...

!!! Надо не забыть определить возникающие вечно переменные !!! , вроде OLDDL.


Вспомним про консоль.

Это регистр Атари с адресом
CONSOL 53279 ($D01F)

!!! Надо не забыть, перед чтением из него, его очистить, а то там может чёрти-что оказаться, из-за дребезга контактов, например !!!

Вот таблица его состояний:

CONSOLE KEYS____________PEEK(53279)_____BIT VALUES

START + SELECT + OPTION______0___________00000000
SELECT + OPTION______________1___________00000001
START + OPTION_______________2___________00000010
OPTION_______________________3___________00000011
START + SELECT_______________4___________00000100
SELECT_______________________5___________00000101
START________________________6___________00000110
None_________________________7___________00000111