БЭСМ6 код-гольф сделать всеед без литералов

[Leo B.]

Задача: за минимальное количество команд получить на сумматоре всеед, не используя никаких литеральных констант.

За 11 команд это делается тривиально:

 14,vtm,7777b . УИА '7777'(М16)
 ,ita,14      . СЧИ М16
 ,asn,64-12   . СДА 64-12
 ,its,14      . СЧИМ М16
 15,aex,      . НТЖ (М17)
 ,asn,64-12   . СДА 64-12
 ,its,14      . СЧИМ М16
 15,aex,      . НТЖ (М17)
 ,asn,64-12   . СДА 64-12
 ,its,14      . СЧИМ М16
 15,aex,      . НТЖ (М17)

Кто меньше? Если для решения важен конкретный режим АУ, можно считать, что он уже установлен.

По идее это должно быть можно сократить как минимум на пару-тройку команд.

Leo

[Michael Yaroslavtsev]

On Sat, Aug 9, 2025 at 9:23 AM Leo B. <leo...@gmail.com> wrote:

Задача: за минимальное количество команд получить на сумматоре всеед, не используя никаких литеральных констант.

Как насчёт

 УИА 1(1)

 СЧИ 1

 ВЧОБ 0

 ЗП (15)

 СДА 64-7

 ИЛИ (15)

?

 

За 11 команд это делается тривиально:

 14,vtm,7777b . УИА '7777'(М16)
 ,ita,14      . СЧИ М16
 ,asn,64-12   . СДА 64-12
 ,its,14      . СЧИМ М16
 15,aex,      . НТЖ (М17)
 ,asn,64-12   . СДА 64-12
 ,its,14      . СЧИМ М16
 15,aex,      . НТЖ (М17)
 ,asn,64-12   . СДА 64-12
 ,its,14      . СЧИМ М16
 15,aex,      . НТЖ (М17)

Кто меньше? Если для решения важен конкретный режим АУ, можно считать, что он уже установлен.

По идее это должно быть можно сократить как минимум на пару-тройку команд.

Leo

--
Данное сообщение отправлено Вам, как участнику группы "БЭСМ-6":
http://groups.google.com/group/besm6/topics
---
Вы получили это сообщение, поскольку подписаны на группу "БЭСМ-6".
Чтобы отменить подписку на эту группу и больше не получать от нее сообщения, отправьте письмо на электронный адрес besm6+un...@googlegroups.com.
Чтобы посмотреть обсуждение, перейдите по ссылке https://groups.google.com/d/msgid/besm6/d1fed731-c760-4b39-941e-862322016331n%40googlegroups.com.

--

Thanks,
-- Michael

[Mikhail Popov]

По другому, могу только за 7 комманд, а 47 бит за 4 команды через E-N , так что это, наверное, самая быстрая комбинация.

Чтобы посмотреть обсуждение, перейдите по ссылке https://groups.google.com/d/msgid/besm6/CADLwzuc9KDh2r0D2WAXLJdmHWnsaAn3GNXm4CtsPobv%3DbcD7wQ%40mail.gmail.com.

[Mikhail Popov]

 PROGRAM           MADLEN-3.5   10/08/25   16.42.51    CTP    1
 001L                     PROGRAM :  , NAME,
 0000 00037 0003                     , NTR ,3       .1
  -   0124 00001                    1, VTM ,1       .2
 0001 00042 0001                     , ITA ,1       .3
  -   00006 0000                     , X-A ,        .4
 0002 00035 0001                     , E-N ,1B      .5    47 bit
  -   17000 0000                   15, ATX ,        .6
 0003 17013 0001                   15, ARX ,+1      .7
  -   17015 0000                   15, AOX ,        .8
 0004 1531 74001                     , CALL,OKHO
 0005 00074 0000                     , SJ  ,
 0006  6437 7777          ONE     :  , INT ,-128
  -    7777 7600
               7                     , END ,
 TAБЛИЦA  OПИCAHИЙ:

*EXECUTE
≠
         PROGRAM    01000                BOKHO      01007                OKHO     E 01044                CBOБOДHO   01122
≠
7777777777777777          007   00001 01470 01466 77735 77770 06012 32005 25672 00000 07405 07447 00000 01005 00770 53403
------------------------------------------------------------
   Elapsed time: 0.063 seconds
      Simulated: 4815371 instructions
Simulation rate: 76188963 instructions/sec

Чтобы посмотреть обсуждение, перейдите по ссылке https://groups.google.com/d/msgid/besm6/CADLwzuc9KDh2r0D2WAXLJdmHWnsaAn3GNXm4CtsPobv%3DbcD7wQ%40mail.gmail.com.

[Leo B.]

Похоже, это оптимум. Я про ВЧОБ забыл.