Christmas Tree Event - рисуем елочку =)

[reddie]

К сожалению, узнал об этом конкурсе только вчера от Manwe в этой темке https://zx-pk.ru/threads/34009-bk-by...=1#post1140654
В посте Manwe ссылка на результаты (последняя колонка - размер в байтах), ссылка на сам эвент (описание): http://logiker.com/Vintage-Computing...Challenge-2021
Спектрум, как ни странно, глубоко в эээ середине, непорядок. Решил помучать свои мозги, заранее условившись не смотреть готовые решения вообще, для любой платформы.
В правилах ничего не сказано про запреты на использование особенностей компа, поэтому код использует процедуру печати ПЗУ, а также некоторые трюки для сокращения объема:

- при запуске кода из Бейсика регистровая пара BC равняется адресу запуска. Используем, ибо нефиг
- сам адрес запуска, т.е. пара BC, указывает на массив данных для вывода строк
- в то же время, адрес кода (данных) рассчитан так, чтобы регистр C пригодился как счетчик строк, а регистр B экономит один байт при подсчете координат вывода
- вывод идет в служебный экран, это фича Спектрум-Бейсика при запуске кодов. Экономим память, убирая инициализацию основного потока (экрана)
- в условиях не сказано, что код обязан возвращать управление, поэтому для предотвращения очистки служебного экрана прога "вешается", дабы не выходить в Бейсик
- адрес запуска не совпадает с адресом загрузки блока, что тоже не является обязательным
- исходя из пункта один, корректный запуск возможен только из Бейсика. Можно просто запустить файл TRD в эмуляторе, на диске уже записан "boot" для загрузки и запуска кода

Размер моей версии - 35 байт. 14 байт данных строк "елочки" плюс 21 байт программы, это 15 команд Z80.
Однако ниже по топику char указал, как сократить программу еще на три байта, за что заслуживает почетной медали
Итоговый размер (пока?) - 32 байта. Код сократился до 13 команд и занимает 18 байт, плюс те же 14 байт данных. Улучшенная версия приложена.
Конечно, конкурс довольно специфический, и является неким писькомерством, но потренировать мозги было интересно.
Версия для ПК8000 от Ivagor, 42 байта: https://zx-pk.ru/threads/8378-pk8000...=1#post1140692 но и там есть подвижки в сторону уменьшения.

Christmas_Tree_by_reddie.zip

Christmas_Tree_by_char_and_reddie_for_ZX_Spectrum.zip

[Advertiser]

[Manwe]

Отличный результат!
А о конкурсе мы сами узнали в последний день – каждый из трёх участников на БК 0010 писал свою программу за один вечер.
Так-то понятно, что у 8-битного компьютера больше шансов выйти вперёд, чем у 16-битного. Поэтому меня и удивило, что БК 0010 смог обойти только C64 в этом конкурсе.

[litwr]

Отличный результат!
А о конкурсе мы сами узнали в последний день – каждый из трёх участников на БК 0010 писал свою программу за один вечер.
Так-то понятно, что у 8-битного компьютера больше шансов выйти вперёд, чем у 16-битного. Поэтому меня и удивило, что БК 0010 смог обойти только C64 в этом конкурсе.

Там ещё Коммодор+4 впереди, а это не 64; На самом деле, думаю там практически любая машина с 6502 могла запустить примерно тот же код, что и Коммодор 64 или +4.

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

К сожалению, узнал об этом конкурсе только вчера от Manwe в этой темке https://zx-pk.ru/threads/34009-bk-by...=1#post1140654
В посте Manwe ссылка на результаты (последняя колонка - размер в байтах), ссылка на сам эвент (описание): http://logiker.com/Vintage-Computing...Challenge-2021
Спектрум, как ни странно, глубоко в эээ середине, непорядок. Решил помучать свои мозги, заранее условившись не смотреть готовые решения вообще, для любой платформы.
В правилах ничего не сказано про запреты на использование особенностей компа, поэтому код использует процедуру печати ПЗУ, а также некоторые трюки для сокращения объема:

- при запуске кода из Бейсика регистровая пара BC равняется адресу запуска. Используем, ибо нефиг
- сам адрес запуска, т.е. пара BC, указывает на массив данных для вывода строк
- в то же время, адрес кода (данных) рассчитан так, чтобы регистр C пригодился как счетчик строк, а регистр B экономит один байт при подсчете координат вывода
- вывод идет в служебный экран, это фича Спектрум-Бейсика при запуске кодов. Экономим память, убирая инициализацию основного потока (экрана)
- в условиях не сказано, что код обязан возвращать управление, поэтому для предотвращения очистки служебного экрана прога "вешается", дабы не выходить в Бейсик
- адрес запуска не совпадает с адресом загрузки блока, что тоже не является обязательным
- исходя из пункта один, корректный запуск возможен только из Бейсика. Можно просто запустить файл TRD в эмуляторе, на диске уже записан "boot" для загрузки и запуска кода

Итоговый размер кода - 35 байт. 14 байт данных строк "елочки" плюс 21 байт программы, это 15 команд Z80. Спектрум рулит, просто нужно творчески подходить к делу.
Конечно, конкурс довольно специфический, и является неким писькомерством, но потренировать мозги было интересно.
Версия для ПК8000 от Ivagor, 42 байта: https://zx-pk.ru/threads/8378-pk8000...=1#post1140692

Christmas_Tree_by_reddie.zip

Ну и ну! Надо было спектрумистов тоже приглашать... Но это уже было бы какое-то вторжение.

[char]

достаточно RRA вместо SRA A

[reddie]

достаточно RRA вместо SRA A

Если после RST 16 флаг переноса всегда устанавливается - то да. Настолько глубоко в дебри ПЗУ не залазил
Думал еще поиграться с вариантов с циклами, но вряд ли он окажется короче. Потом как-нибудь попробую.
Кстати, организатор конкурса ответил мне на почту, обещал выложить и мой вариант. Пока 35 байт это рекорд, но...
Цитируя его: программа под ДОС (MS-DOS, видимо) на данный момент весит 36 байт, но ребята работают над этим =)

[char]

еще можно перед print убрать одну RST 16 и в таблице все значения уменьшить на 1

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

а можно и два rst 16 убрать, 32 байта

	defb	-3-2,-3-2,-23-2,-17-2,-11-2,-5-2,-15-2,-11-2,-7-2,-3-2,-7-2,-5-2,-3-2,-1-2

start
	dec	c
	jr	z,$	;stop when finished

	ld	a,23	;set coords via ROM procedure
	rst	16
	ld	a,(bc)	;line len in negative format
	ld	e,a
 rra
	sub	b	;centering
print
	rst	16
	ld	a,"*"
	inc	e
	jr	nz,print
	jr	start
end

[reddie]

еще можно перед print убрать одну RST 16

Да, команде TAB второй байт, в общем-то, пофиг, можно и звездочку вместо него скормить. И после RST 16 действительно флаг выставляется как надо.
Итого ужали еще на три байта. Что лишний раз подтверждает истинность фразы "любую программу можно сократить минимум еще на байт" =))
Но для этого нужно время и желание, а эти ресурсы не бесконечны. Хотя теперь код близок к идеалу. по-моему.

[Reobne]

На спектруме, вообще не нужна программа, чтобы рисовать такую ёлку. Просто надо написать одну строчку.

[reddie]

Вот только длина этой бейсик-программы в разы больше ассемблерной, а суть конкурса была именно в минимизации.

[Reobne]

Программы? Ноль байтов.
Это не программа, это команда. Составная.