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

[BlaireCas]

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

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

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

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

[свернуть]

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

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

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

Диск с автозагрузкой: column.zip

[Advertiser]

[BlaireCas]

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

[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

перед таким

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

??

[BlaireCas]

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

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

[Hunta]

Выполнится последний раз 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

[BlaireCas]

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

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

[Hunta]

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

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

[Alex_K]

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

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

[Hunta]

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

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

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

[Alex_K]

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

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