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

Цитата:

---

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

Оказывается можно даже в 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

---

Не совсем уверен, что отработает, но если да, то формально - 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

---

Цитата:

---

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

Не совсем уверен, что отработает, но если да, то формально - 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

---

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

ёлка в 28 байт: Вложение 76815

Цитата:

---

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

ёлка в 28 байт: Вложение 76815

---

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

Цитата:

---

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

ёлка в 28 байт

---

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

Цитата:

---

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

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

---

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

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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