Игрушка Columns для УКНЦ

Кажется никто давно не писал игр для нашей замечательной машинки УКНЦ.
А давайте напишем хотя-бы что-то? Хотя-бы тетрис? :) Так-сказать "потрясем ассемблером!" :)

Оригинал это Sega Genesis - Columns.
Вроде для УКНЦ ничего похожего не видел.

Падают разные шарики и прочее и надо чтобы совпало больше 3-х цветов по вертикали/горизонтали/диагонали. Затем они уничтожаются, фигурки в стакане падают вниз и вообщем все повторяется.

Картинка игрушки

https://i.imgur.com/cJEZJ59.png

[свернуть]

Арт нагло украден с zx-art. Спасибо автору, вроде подписал его ник внизу.
Процедура распаковки бэкграунда от Manwe за что ему вместе с IvanQ тоже спасибо.

Для старта - нажать "Пробел". Ну а дальше "вправо-влево-вверх-вниз".
Для RGB <-> GRB - нажать K1
Для так-сказать "улучшенных тайлов" - нажать К2 :)
K3 - включает или выключает увеличение уровня по набору определенных очков (если отключить - фигурки не начнут увеличивать скорость и можно будет играть на первом уровне пока не надоест)

Исходные коды: https://github.com/blairecas/column
.sav-ка находится там в /release

Диск с автозагрузкой: Вложение 79217

Поулучшал что можно. Добавил всякие там объяснения кнопок, вывод очков, уровень. Чутка тайлы подправил.
Сейчас стало более-менее законченное.

Сунулся в первое попавшееся место. В чём преимущество такого варианта

Код:

---

PPSEN:        mov        #PPMSG, R0                ; array address
        mov        #5, R1                        ; bytes to send+1 (sending from @#PP_MSG)
        br        1$
2$:        movb        (R0)+, @#176676
1$:        tstb        @#176674                ; test if we are ready to send
        bpl        1$                        ; cycle if >= 0 (not set last bit in byte)
        sob        R1, 2$
        return

---

перед таким

Код:

---

PPSEN:        mov        #PPMSG, R0                ; array address
        mov        #4, R1                        ; bytes to send (sending from @#PP_MSG)
1$:
        tstb        @#176674                ; test if we are ready to send
        bpl        1$                        ; cycle if >= 0 (not set last bit in byte)

        movb        (R0)+, @#176676

        sob        R1, 1$

        return

---

??

Цитата:

---

Сообщение от Hunta

В чём преимущество такого варианта

---

Выполнится последний раз tstb в первом случае. Тут я не знаю насколько это критично проверить по окончании данный регистр. Где-то очень давно взял этот кусок кода для пересылки данных в ПП и зачем-то там было сделано именно с тестом регистра "до" и "после".

Цитата:

---

Сообщение от BlaireCas

Выполнится последний раз tstb в первом случае.

---

Это обычный вариант - засылка по готовности. И обычно проверяется ПЕРЕД пересылкой, а после, если всё закончилось - тупо оставляем до следующего раза (немного ускоряем программу, немного делаем меньше код). Насколько я помню от времён программирования на УК-НЦ - никаких проблем не должно быть.

Так же (делаем меньше код)

Код:

---

; can palka go left?
CanGoLeft:
        ; check min X
        mov        PalkaX, R1
        beq        90$
        ; check stakan
        mov        PalkaY, R2
        add        #47., R2
        asr        R2
        bic        #^B111, R2                ; palka Y to stakan line addr
        add        R1, R2
        dec        R2
        tstb        Stakan(R2)
        bne        90$
        sec
        return
90$:        clc
        return

---

обычно реализуют как

Код:

---

; can palka go left?
CanGoLeft:
        ; check min X
        mov        PalkaX, R1
        beq        90$
        ; check stakan
        mov        PalkaY, R2
        add        #47., R2
        asr        R2
        bic        #^B111, R2                ; palka Y to stakan line addr
        add        R1, R2
        dec        R2
        tstb        Stakan(R2)
        BEQ        100$
90$:
        TST        (PC)+
100$:
        SEC
        RETURN

---

Цитата:

---

Сообщение от Hunta

Так же (делаем меньше код)

---

Да там в коде вагон с тележкой неоптимальщины/раздутия размеров и т.д.

Цитата:

---

Сообщение от BlaireCas

Да там в коде вагон с тележкой неоптимальщины/раздутия размеров и т.д

---

Ну так не надо так делать. 200 гигов памяти на PDP-11 не встретишь.

Цитата:

---

Сообщение от Hunta

Сунулся в первое попавшееся место. В чём преимущество такого варианта

---

Всё правильно сделано. Канал К2 работает так: первые два байта это адрес блока параметров. Третий байт должен быть обязательно ненулевым. А вот по приходу четвёртого байта п/п обработки прерываний его не считывает, а только ставит флаг вызова в диспетчере процессов. Уже когда выполнится процесс драйвера канала К2, то он считает этот четвёртый байт. Со стороны ЦП установится флаг готовности, что свидетельствует о том, что запрос выполнен.
Если же мы решили работать в режиме прерываний, то тогда заносятся четыре байта, в конце готовность не проверяется, устанавливается флаг разрешения прерывания. Как только прерывание произошло, то запрос выполнен.

Цитата:

---

Сообщение от Alex_K

Всё правильно сделано.

---

Цитата:

---

Сообщение от BlaireCas

Где-то очень давно взял этот кусок кода для пересылки данных в ПП и зачем-то там было сделано именно с тестом регистра "до" и "после".

---

Ох уж эти современные программисты и куски "волшебного кода". Ок, делаем дальше, не понимая почему.

Цитата:

---

Сообщение от Hunta

Ох уж эти современные программисты и куски "волшебного кода". Ок, делаем дальше, не понимая почему.

---

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