Угадайте язык

19 views
Skip to first unread message

Leo B.

unread,
Jul 13, 2026, 7:41:42 PM (6 days ago) Jul 13
to БЭСМ-6
Раз мы тут пару раз ПОПЛАН вспоминали, и навстречу 75-летию со дня рождения А. Б. Ходулёва, я решил начать и  https://github.com/leobru/re-poplan/

Тут же выяснилось, что код ПОПЛАНа - фактически дубненский оверлей (код начинается с 1000, перед ним - "PROGRAM" в кодировке ТЕХТ, поблизости код резидента монитора, и пр.) Строк, характерных для рантайма Паскаля, в нём не нашлось, и я решил посмотреть, на чем он был написан, раз дело было в ИПМ - на  голом БЕМШе (команды ПВ только правые) или на чем-то другом. 
Выяснилось, что команды ПБ вывали и левые, что характерно  в первую очередь для Мадлена, но глаз упал на следующую последовательность команд:

1221.1253:  ....            сч (7)
1221.1254:  и 607(3)        счм (12)
1221.1255:  и 607(3)        нтж (12)
1221.1256:  или (17)        зп (12)

Это всё значит: заменить биты слова по адресу в М12 на биты слова по адресу в М7 по маске в 607(М3). Всё бы хорошо, но человеком это пишется  как

сч (7) нтж (12) и 607(3) нтж (12) зп (12)

Угадайте язык, на котором это было написано, с одного раза. :)

Leo

Michael Yaroslavtsev

unread,
Jul 13, 2026, 8:40:44 PM (6 days ago) Jul 13
to be...@googlegroups.com


On Mon, Jul 13, 2026 at 4:40 PM Leo B. <leo...@gmail.com> wrote:
Раз мы тут пару раз ПОПЛАН вспоминали, и навстречу 57-летию со дня рождения А. Б. Ходулёва, я решил начать и  https://github.com/leobru/re-poplan/
Хмм... ASTRA? 

Leo

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


--
Thanks,
-- Michael

Leo B.

unread,
Jul 13, 2026, 8:44:21 PM (6 days ago) Jul 13
to БЭСМ-6
Конечно,  ASTRA, что же ещё?  РЕФАЛ на ней писали, вот и ПОПЛАН, выходит, тоже.

Там ещё много безумной работы со стеком.

Leo

On Monday, July 13, 2026 at 5:40:44 PM UTC-7 BOPOHOK wrote:
On Mon, Jul 13, 2026 at 4:40 PM Leo B. <leo...@gmail.com> wrote:
Раз мы тут пару раз ПОПЛАН вспоминали, и навстречу 75-летию со дня рождения А. Б. Ходулёва, я решил начать и  https://github.com/leobru/re-poplan/
Reply all
Reply to author
Forward
0 new messages