БК быстрее всех

[Sandro]

Оказывается можно даже в 40 байт. Sandro придумал.
Два варианта:
1. Без HALT в конце, работает в ДОС (встречает неизвестный код инструкции в таблице данных, происходит прерывание и останов).
2. С HALT, работает в Мониторе (запускать надо не с начала, а с адреса 37746; в роли HALT выступает содержимое экрана, там нули).

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

.link 1036
	MOV #16,R2
1:	MOVB Tree-1(R2),R3
	MOVB @R7,R1 ; 177700
	MOVB R7, R0 ; 052, "*"
	SUB R3,R1
	ASR R1
	EMT 24

2:	EMT 16
	SOB R3,2

	SOB R2,1

	HALT
Tree:	.BYTE 1,3,5,7
	.BYTE 3,7,11.,15.
	.BYTE 5,11.,17.,23.
	.BYTE 3,3

[Advertiser]

[Hunta]

Не совсем уверен, что отработает, но если да, то формально - 37 байт

      1	000000					.ASECT
      2
      3		001036 				.=1036
      4
      5	001036	012702 	001103 			MOV	#Tree,R2
      6	001042	114203 			10$:	MOVB	-(R2),R3
      7	001044	100777 			20$:	BMI	20$
      8	001046	111701 			    	MOVB	@PC, R1 ; 177700
      9	001050	110700 				MOVB	PC, R0 ; 052, "*"
     10	001052	160301 				SUB	R3,R1
     11	001054	006201 				ASR	R1
     12	001056	104024 				EMT	24
     13
     14	001060	104016 			30$:	EMT	16
     15	001062	077302 				SOB	R3,30$
     16
     17	001064	   366 	   001 			.BYTE	366, 1
     18
     19	001066	   003 	   005 	   007 		.BYTE 3,5,7
     20	001071	   003 	   007 	   013 		.BYTE 3,7,11.,15.
	001074	   017
     21	001075	   005 	   013 	   021 		.BYTE 5,11.,17.,23.
	001100	   027
     22	001101	   003 	   003 			.BYTE 3,3
     23	001103				Tree:
     24
     25		000001 				.END

[Sandro]

Не совсем уверен, что отработает, но если да, то формально - 37 байт

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

Кстати, про нечётный адрес и BR в начале таблицы я тоже думал, но не удалось подогнать адреса.

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

Починил. Подвинул адрес загрузки и добавил один байт.

38 байт!

.link 2036

	MOV	#Tree,R2
10$:	MOVB	-(R2),R3
20$:	BMI	Tree - 1 ; 20$
    	MOVB	@PC, R1 ; 177700
	MOVB	PC, R0 ; 052, "*"
	SUB	R3,R1
	ASR	R1
	EMT	24

30$:	EMT	16
	SOB	R3,30$

	.BYTE	366, 1

	.BYTE 3,5,7
	.BYTE 3,7,11.,15.

	.BYTE 5,11.,17.,23.

	.BYTE 3,3
Tree:	.BYTE 10

	.END

Видимо, это предел.

[Manwe]

ёлка в 28 байт: tree28.zip

[litwr]

ёлка в 28 байт: tree28.zip

БК реально круче всех, только цветов маловато.
Цветастее всех Коммодор - https://demozoo.org/productions/303632/

[reddie]

ёлка в 28 байт

Не работает. Вернее, печатает бесконечную кашу из звездочек на весь экран.
Запускал в эмуляторе gid'а
Но даже если дело в эмуляторе - использовать имя файла в качестве массива все равно чит, как по мне =) файл могут и переименовать

[Sandro]

Не работает. Вернее, печатает бесконечную кашу из звездочек на весь экран.
Запускал в эмуляторе gid'а
Но даже если дело в эмуляторе - использовать имя файла в качестве массива все равно чит, как по мне =) файл могут и переименовать

Да, в эмуляторе gid'а. Он не совсем корректно эмулирует ленточный загрузчик. Где эмулируется -- там работает.

Чит, разумеется. Посмотрим, что скажут орги.

[ivagor]

Посмотрим, что скажут орги.

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

[Manwe]

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

Ну так сделай. Посмотрим сколько байт займёт.

Не работает. Вернее, печатает бесконечную кашу из звездочек на весь экран. Запускал в эмуляторе gid'а. Но даже если дело в эмуляторе - использовать имя файла в качестве массива все равно чит, как по мне =) файл могут и переименовать

У меня работает в эмуляторе gid'a. Как в режиме БК 0010 + Бейсик, так и в режиме БК 0010 или БК 0011М с СМК (в системе MKDOS).

[ivagor]

Ну так сделай.

Я же написал, почему не сделал. Если программу использующую данные в имени официально признают организаторы конкурса, тогда и я сделаю свой вариант, но все еще надеюсь на благоразумие организаторов.