Игрушка 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

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

---

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

Цитата:

---

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

Так предложите правильный вариант.

---

Я совсем не про то.

- - - Добавлено - - -

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

Взаимодействие при запуске своего кода в ПП: надо подать три запроса - выделить память (код 1), записать из памяти ЦП в память ПП (код 020), запустить п/п в памяти ПП (код 030). Если запросы с кодами 020 и 030 можно гнать сплошным потоком. То на запрос с кодом 1 надо дождаться ответа, произошла ли ошибка при выделении памяти, и если всё нормально, то адрес выделенного блока в ОЗУ ПП.

Цитата:

---

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

Взаимодействие при запуске своего кода в ПП

---

Если посмотреть код рядом с этой процедурой, то можно понять, что, как я и писал ранее:

Цитата:

---

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

в некоторых местах будет правильным, в некоторых - нет

---

Так что мнение

Цитата:

---

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

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

---

то же в общем случае - неправильно

Да там можно вариант Хунты использовать, никаких проверок на выделение памяти в ПП нету. Также нет никакого выхода в РТ-11.
Не выделит полсотни байт в ПП - ну облом (да, там столько мало запрашивается и думается случай скорей нереальный что в ПП нет немножко свободной памяти).

Цитата:

---

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

Если посмотреть код рядом с этой процедурой, то можно понять, что, как я и писал ранее:

---

Сама процедура PPSEN написана правильно. А вот рядом с ней к PPRUN у меня тоже есть претензии.

Цитата:

---

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

то же в общем случае - неправильно

---

Вы считаете моё мнение неправильным, я ваше. Ну что ж, на том и разойдёмся.

- - - Добавлено - - -

Цитата:

---

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

Да там можно вариант Хунты использовать, никаких проверок на выделение памяти в ПП нету.

---

Используйте. Он вполне пройдёт, если не будет ошибок с выделением памяти. А если будет ошибка, то в PPAPP останется ноль и вы закачаете по нулевому адресу в ОЗУ ПП.
А так как у вас всё равно проверку на выделение памяти не производится, то и сработает.

Цитата:

---

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

Вы считаете моё мнение неправильным, я ваше. Ну что ж, на том и разойдёмся.

---

Ок, поскольку я не специалист по УК-НЦ - пошёл-ка я отсюда. Колдуйте дальше. Без меня.

И вообще господа, я сам знаю что код у меня такой что лучше его не смотреть. (всякие явно бросающиеся в глаза вещи в циклы не завернуты, где-то вообще на регистрах можно было вместо переменных в памяти, логику лучше можно сделать, какие-то флаговые переменные для которых хватает байта выделены как word и т.д.).
Но так уж понаписал как понаписал. Сейчас всё это причесывать не буду. Но в будущем постараюсь что-то учесть и написание кода улучшать :) (я надеюсь на это).

Цитата:

---

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

всякие явно бросающиеся в глаза вещи в циклы не завернуты

---

Развёрнутый цикл выполняется быстрее, место правда кушает. Но тест копирования памяти это показал.

Цитата:

---

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

где-то вообще на регистрах можно было вместо переменных в памяти,

---

Регистров маловато. Через них лучше делать адресацию к РА/РД. Ну впрочем у вас так и сделано.

Цитата:

---

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

какие-то флаговые переменные для которых хватает байта выделены как word и т.д.).

---

Запись в байт в 1801ВМ2 медленней проходит, а память ПП так вообще. Но если скорость не играет роль, то можно и в отдельных битиках хранить в слове.

Цитата:

---

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

Используйте. Он вполне пройдёт, если не будет ошибок с выделением памяти. А если будет ошибка, то в PPAPP останется ноль и вы закачаете по нулевому адресу в ОЗУ ПП.
А так как у вас всё равно проверку на выделение памяти не производится, то и сработает.

---

Посмотрел реализацию запроса блока памяти в ПЗУ. Обязательно надо ждать ответа. В блоке в слове со смещением 6 передаётся размер блока в словах при запросе памяти. А при передаче данных в ПП там находится адрес передаваемого блока в ЦП. Т.е. если вы не будете ждать и сформируете новый блок для передачи в ПП (код 020), то перед установкой бита готовности ваш адрес ЦП затрётся размером выделенного блока.
Так что не сработает, если даже ошибок не будет. Так что обязательно ждать готовности канала К2 после передачи данных.

Цитата:

---

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

Вроде для УКНЦ ничего похожего не видел.

---

Спасибо за игрушку, понравилась!

Динамично, приятно, быстро, красиво.

Хотелось бы, чтобы не так рано переключалась игра на быструю скорость)

Цитата:

---

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

Хотелось бы, чтобы не так рано переключалась игра на быструю скорость)

---

Даже не предполагалось что кто-то будет реально играть :)
Сделал несколько больше очки переключения уровня (и соответственно скорости): 500., 1000., 1500., 2000., 3000., 4000., 6000.

Цитата:

---

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

Даже не предполагалось что кто-то будет реально играть
Сделал несколько больше очки переключения уровня (и соответственно скорости): 500., 1000., 1500., 2000., 3000., 4000., 6000.

---

На мой взгляд, сильно увеличивать скорость вообще не надо.
Чуть увеличил разок и все.
Люди обычно играют, чтобы расслабиться, переключиться.
А тут раз, и вдруг все быстрее пошло)

Цитата:

---

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

На мой взгляд, сильно увеличивать скорость вообще не надо.

---

Надо будет подумать сделать там выбор навроде "Уровень вкл/выкл".

Цитата:

---

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

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

Код:

---

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

---

---

Хунта наверное не посмотрит. Но ведь... Чорт подъери:

Да уж, журнал УКНЦ 1/1995

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

[свернуть]

Не то чтобы я спорил с Alex_K и откуда-то взял нечто другое. Но вон в журнале тоже как-бы "а и нафиг нам tstb лишнее, проживем и без него". Даже без "первого" tstb (вдруг как-раз без первого-то можно).

Флеймово было, но я останусь верен старому коду с двумя tstb уж фиг с ним.

Цитата:

---

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

Даже без "первого" tstb (вдруг как-раз без первого-то можно).

---

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

Цитата:

---

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

на запрос с кодом 1 надо дождаться ответа

---

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

Цитата:

---

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

Не то чтобы я спорил с Alex_K и откуда-то взял нечто другое. Но вон в журнале тоже как-бы "а и нафиг нам tstb лишнее, проживем и без него". Даже без "первого" tstb (вдруг как-раз без первого-то можно).

---

А вы обратили внимание, что там только две команды - передача в ОЗУ ПП (код 020) и запуск в ОЗУ ПП (код 030). Отсутствует команда выделения блока памяти в ОЗУ ПП (код 1). Здесь естественно сработает, т.к. функции 020 и 030 не меняют ваш блок параметров. А функция 1 после исполнения передаёт в ваш блок параметров результат операции.

- - - Добавлено - - -

Цитата:

---

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

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

---

Да уж, задержка будет ужасной. И выигрыш в задержке будет только при запуске кода по команде 030. В случае передачи команды 020 и не ожидания установки бита готовности придётся ждать его перед командой 030. Вот собственно и весь выигрыш. А так ожидание ещё может уйти на синхронизацию с запуском кода в ПП, если кодам в ЦП и ПП надо взаимодействовать между собой.

- - - Добавлено - - -

Ещё столовую ложку дёгтя в бочку мёда. По поводу последовательной подачи команд 020 и 030. Всё сработает и с циклом на четыре, если адрес запуска в ПП будет равен адресу загрузки. А вот если не равны, то вы в блоке параметров пропишите уже новый адрес, а в ПП ещё не успел обработаться запрос 020. Тогда загрузка в ПП начнётся уже с нового адреса.
Я писал несколько программ, которые оставались резидентами в ПП, так у меня получалось, что адрес запуска не был равен адресу загрузки. В младших адресах был резидент, а в более старших осуществлялась инициализация и уменьшение занимаемого блока памяти под объём резидента.

Цитата:

---

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

Отсутствует команда выделения блока памяти в ОЗУ ПП (код 1)

---

Ну кто-ж его теперь знает. Это ведь бумажный журнал. Сократили, закомментировали тремя точками остальной код. Однако по таким вот журналам и учились. Я уже забыл откуда взял изначальный код с двумя tstb, откуда-то (да да тупая копипаста). Похоже не из этого журнала. В каком-то другом видимо было.

Цитата:

---

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

Ну кто-ж его теперь знает. Это ведь бумажный журнал. Сократили, закомментировали тремя точками остальной код. Однако по таким вот журналам и учились. Я уже забыл откуда взял изначальный код с двумя tstb, откуда-то (да да тупая копипаста). Похоже не из этого журнала. В каком-то другом видимо было.

---

А чего тут знать-то? Блок параметров под меткой Z имеет адрес загрузки 30000. Тем более выделяют два блока, один на загрузку, другой на запуск. Никакой экономии памяти!!!

Цитата:

---

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

Сделал несколько больше очки переключения уровня (и соответственно скорости): 500., 1000., 1500., 2000., 3000., 4000., 6000.

---

В новой версии у меня на эмуляторе в нижней части экрана (под игровым полем) мусор.

Цитата:

---

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

Я уже забыл откуда взял изначальный код с двумя tstb, откуда-то (да да тупая копипаста). Похоже не из этого журнала. В каком-то другом видимо было.

---

Когда я начинал программировать в ПП, у меня не было соответствующей документации "Работа с внешними устройствами". Код запуска в ПП я брал из программы ZWUK.SAV. Она там уже была со счётчиком пять, т.е. такая как надо.

Цитата:

---

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

в нижней части экрана (под игровым полем) мусор.

---

Логично, я убрал сколько-то слов с таблицы строк экрана которая идет ниже 288. строки. По-идее на реальном УКНЦ ниже 288. строк он не нарисует, а у тебя эмулятор видимо "дальше пошел" :)
Я запускаю когда emustudio - нажимаю shift-del, ctrl-del, ctrl-del (даже запомнил) и становится вроде как УКНЦ без сканлайнов.

Цитата:

---

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

По-идее на реальном УКНЦ ниже 288. строк он не нарисует, а у тебя эмулятор видимо "дальше пошел"
Я запускаю когда emustudio - нажимаю shift-del, ctrl-del, ctrl-del (даже запомнил) и становится вроде как УКНЦ без сканлайнов.

---

На реальной - да.
Но есть одна хитрая версия игры LAND, которая почему-то рисует ниже реального экрана. Вот чтобы она нормально работала, я этот режим и сделал)

Цитата:

---

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

Но есть одна хитрая версия игры LAND

---

Ну честно сказать вот не знаю стоит-ли делать таблицу строк больше чем 288. юзабельных строк. На реальной машинке ведь не будет ну никак больше чем 288. А то что под ними пририсовывает - ну как-бы .. даже не знаю. Я могу зациклить их на начало, но это тоже вот ну зачем?
(и кстати да, твой эмулятор вполне пользуется спросом и нужен)

А то что раньше было у меня 300 строк - это скажем так "копипаст был" с игры descent где таблица строк была 300. и специально пока там все рисуется на основном экране - я выводил посредине надпись навроде "подождите..". В данной игрухе забил на эти вещи и сделал в итоге ровно 288. используемых строк.

Цитата:

---

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

одна хитрая версия игры LAND,

---

Эта игра LAND перетащена с ДВК с КГД. Там 286 строк. Плюс ещё верхняя информационная строка на УКНЦ - плюс 12 строк. Итого 298. Но реальная машина показывает только 288.

Цитата:

---

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

сильно увеличивать скорость вообще не надо

---

Добавил в меню "Вкл/Выкл" увеличения уровня и соответственно скорости. Дефолтно включен естественно. (К3 нажать, работает только в "стартовом меню").
Заодно чтобы подбодрить обновил в стартовом посте скриншот на EmuStudio. :) А мусор под экраном вычищать не буду уж извините.

(заодно избавился от стандартного link.sav для сборки, поскольку линкер теперь мой тупой пхп скрипт - то могут и баги вылезти внезапно, но вроде работоспособно)

Цитата:

---

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

Эта игра LAND перетащена с ДВК с КГД. Там 286 строк. Плюс ещё верхняя информационная строка на УКНЦ - плюс 12 строк. Итого 298. Но реальная машина показывает только 288.

---

Я знаю, сколько на реальной машине строк, тем более, что я реверсил чипы от УКНЦ)

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

- - - Добавлено - - -

Цитата:

---

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

А мусор под экраном вычищать не буду уж извините

---

Пффф. А чего там его вычищать-то? Его просто не надо делать. Практически ни в одной программе и игре на УКНЦ на моем эмуляторе там нет мусора, а у тебя есть)

Цитата:

---

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

Его просто не надо делать.

---

Он там не делается специально. Но ладно, вот ну припер к стенке :) Хорошо забью туда пустые строки.
Но тогда вопрос - сколько дополнительных строк выводит EmuStudio?

UPD: можно не отвечать, пофиксил зациклив пустой строкой. проапдейтил первый пост, сейчас на EmuStudio вроде как окей :)

Цитата:

---

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

Он там не делается специально. Но ладно, вот ну припер к стенке Хорошо забью туда пустые строки.
Но тогда вопрос - сколько дополнительных строк выводит EmuStudio?

---

Ну если так хочется, то после 288 строк достаточно одну двухсловную запись, первое слово будет указывать на адрес пустой видеостроки, а адрес следующего элемента равен самому себе.

Цитата:

---

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

Ну если так хочется, то после 288 строк достаточно одну двухсловную запись

---

У меня была идея вывести туда некую надпись мол EmuStudio Rulez! (а еще и скроллер можно было засунуть с рекламой BIL corp или прочими древними вещами) Но подумав решил не страдать ерундой :) Да конечно в цикле сделал на пустой адрес.

И вот кстати тоже момент. Как определить запущено на эмуляторе и на каком из наших двоих? Ну вроде пока эмуляцию бага реального ВМ2 не сделали, то-есть определить можно по этому. Далее как различить UKNCBTL или EmuStudio - ну вроде Никита недоделал момент когда VRAM банки в ПП отображаются на ПЗУ. То-есть он сделал, но чтение оттуда будет читать из VRAM (а в реальности читает из ПЗУ). Вот уж не знаю зачем определять где запущена программа, но .. вдруг захочется.

Отличная игрушка получается! Кто бы там что ни писал выше про кривой код - это профессиональные критики, а не игроки. Обычный пользователь не полезет в дебри кода косяки искать =)) Поэтому результат оцениваю строго положительно.