Внезапная мысль

[spamsink]

Подумалось - и удивительно, что раньше никогда не приходило в голову достаточно ясно, чтобы быть сформулированным: а ведь с МС "Дубна" БЕМШ состыковали, а автокод ИТМ - вовсе нет, хотя были люди, кроме М. Г. Чайковского, которые на нём программировали.

То ли тут личные качества Чайковского сыграли роль, то ли слишком узок был круг тех людей, и не очень-то и хотелось, сейчас уже и не узнаешь.

Comments

[vak]

Я пытался недавно написать хоть какую-нибудь коротенькую программу на автокоде Чайковского, но так и не смог побороть синтаксис. Наверное в этом дело. Не юзер френдли. Документация имеется, но не помогает.

[spamsink]

Синтаксис, конечно, идиосинкратический, с этой его манерой явно указывать половины слов, но зато в АвЧае есть операторные скобки, и оттого удобство локальных меток, чего нет ни в БЕМШе (разве только фальшивые, в макросах с помощью &SNDX), ни в Мадлене.

На самом деле дело привычки: при декомпиляции Паскаля-монитора после первоначального отвращения я вполне привык к тому синтаксису. Важно, что раз Паскаль-монитор умел делать оверлеи, по крайней мере понятие экспортируемых имён в АвЧае было, так что при желании какое-то подобие модуля со входами из результата ассеблирования можно было породить.

[vak]

Дело не в синтаксисе машинных команд, с ними понятно. Не удаётся составить простейшую 'hello world'. Как начать и закончить ассемблерную программу? Из каких частей она состоит?

[spamsink]

https://www.mailcom.com/besm6/docs/b6acode.tif

[vak]

Пример на странице 10 я не смог заставить работать. Синтаксические ошибки.

[spamsink]

Там опечатки. У нас же есть работающий пример; на его основе я за 10 минут сделал

ШИФР 419900000012^ 
ЛИСТ 0-24^ 
ВХОД 4237^ 
ФИЗО МБ21^ 
РОСП 0^ 
ЛЕНТ 40(2148)^ 
ВРЕМ 240^ 
СПЕЦ^ 
Е 
В 4237 
K 00 070 4245 
К 00 010 4243 00 050 0112 
К 00 070 4244 
К 00 010 0003 00 30 06770 
С 0000 0000 0040 0010 
С 4014 0301 0021 0111 
C 0000 1000 0023 0000 
В 20000 
А0 
ПB;К;Э064ИС=,Э074=,ИС:ЗЧТ1=ЗЧТ1(1),4Э001=10ЗЧ,A;Т1:HELLO ,WORLD ,E; 
!_$ 
ЕКОНЕЦ

Единственное, в чем надо разобраться - это как переключать кодировки.

[vak]

Не опечатки: автокод на дух не переносит пробелы.

[spamsink]

Вот теперь хорошо. Вводную часть можно делить на разумные куски переводами строк, в А0 и А1 они игнорируются.

А0
ПB;К;
Э064ИС=,
Э074=,
ИС:ЗЧТ1=ЗЧТ1(1),
Э050=10ЗЧ,
У;A2,A;
Т1:HELLO ,WORLD ,E;
!_$

[vak]

Подозреваю, что никто ни разу не смог написать программу по инструкции. 😀

[spamsink]

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

[vak]

А потом проинструктированная перфораторщица неожиданно ушла в декрет, и тайна автокода Чайковского сгинула вместе с ней. 😀

[spamsink]

В инструкциях обычно не принято писать то, что считается "общим знанием" на момент опубликования инструкции, во избежания упреков в ненужном разжевывании, снисходительном тоне, неуважении к читателям, и пр.

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

[spamsink]

Ура, заработало!

В; Н;           100,
   Ч;     ДВА:  -2,                                                                              00100  10 060 0000 00 000 0000
       ЧЕТЫРЕ:  4,                                                                               00101  10 150 0000 00 000 0000
   К;  НАЧАЛО:  17 ПА   НАЧМ=           ,                                                        00102  17 24 00126 00 000 0000
                   СЧ   В=                 АУ   В,                                               00103  00 010 0121 00 017 0121
                   СМ   А=                 АУ   С,                                               00104  00 003 0120 00 017 0122
                   АУ   ЧЕТЫРЕ=         17 ОВ   ,                                                00105  00 017 0101 17 006 0000
                   У1   КОМКОР=            Э050 ,                                                00106  00 27 00115 00 050 0000
                   ЗЧ   РЯ=                АС   В,                                               00107  00 000 0123 00 004 0121
                   АД   А=                 АД   ДВА,                                             00110  00 016 0120 00 016 0100
                   ЗЧ   Х2=                СЧ   В,                                               00111  00 000 0117 00 010 0121
                   АВ   РЯ=                АД   А,                                               00112  00 005 0123 00 016 0120
                   АД   ДВА=               ЗЧ   Х1,                                              00113  00 016 0100 00 000 0116
                   Э064 ИС=             ,                                                        00114  00 064 0124 00 000 0000
       КОМКОР:     Э074 =               ,                                                        00115  00 074 0000 00 000 0000
   Ч;      Х1:  ,                                                                                00116  00 000 0000 00 000 0000
           Х2:  ,                                                                                00117  00 000 0000 00 000 0000
            А:  1,                                                                               00120  10 050 0000 00 000 0000
            В:  8,                                                                               00121  10 21 00000 00 000 0000
            С:  -65,                                                                             00122  10 36 77000 00 000 0000
           РЯ:  ,                                                                                00123  00 000 0000 00 000 0000
   К;      ИС:     ЗЧ   Х1=                ЗЧ   Х2,                                              00124  00 000 0116 00 000 0117
                 3 СМ   10=             15 ИЗ   11,                                              00125  03 003 0010 15 014 0011
   Н;    НАЧМ:  НАЧАЛО,
Е;
________________________________________________________________________________________________________________________________
                АВТОКОД  00.00.70. БЛОК           N 000001 ЛИСТ 000000






    +5000e+01   -1300e+02

[vak]

Отлично!
Добавил в примеры: https://github.com/besm6/besm6.github.io/blob/master/wiki/examples/quadroot.b6