Паспорт для Посадки на Луну

[azizz8618]

Уважаемые господа! Во-первых, передаю всем пламенный привет от С.А. Зельдиновой из ИПМ. Во-вторых, напоминаю о нерешенной проблеме подготовки паспорта для "Посадки на Луну", располагающуюся в архиве ПУЛЬТа ИГРА на диске 2061 (41) на 1000 зоне. Вот, какие вопросы возникли у С.А. Зельдиновой (далее привожу текст её письма):

Здравствуйте, Александр Петрович!

Сравнила паспорта П2 (для игры КАЛАХ) и П3 (для игры Бега).
Программы на мд 2148 занимают 5-6 зон. В обеих программах:
- сами программы читаются с мд 40, начиная с 0-го листа ОП;
- на 36-й лист (с адреса 74000) читают зону 1006 с мд 40 (адреса восьмеричные);
- на 37-й лист читают зону 64 с мд 40;
- по адресу 76233 (37лист) записывают слово ТАМБОВ;
- лист 35-й расписывают определенной const и затем этот лист записывают на МБ27;
- в яч 76106 (37лист) заносят определенную команду;
- передача управления в яч 00007.

У Вас с 1000-й зоны мд2061 только 2 зоны (в зоне 1001 только 1 слово).
Видимо, это только тест. Передать управление в 7 яч нельзя.
Может, Авхода=13?
Создала ключ ИГРА2 (для теста). Завела паспорт П5. Вход в программу 13.

Но программа не работает. Зависает примерно на 1 мин, потом снимается по концу задачи.
Может, есть еще какие-то требования для работы с общими модулями.
Я в паспорте указала дис 66(2061-зп), т.к. общие модули сидят на 40(2148).
Но зачем-то в стандартном паспорте устанавливают дельту=1000 на дис 40.
У Вас программа на 66, может, надо дельту и на 66.
Паспорт приведен ниже с комментариями.

00000 П5
00001 ОЗУ 32^
00002 BPE 110^
00003 TEЛ^
00004 PОC 0^
00005 TPA 20^
00006 ДИC 40(2148)^
00007 ДИC 66(2061-ЗП)^
00008 BXО 70000^
00009 E
00010 B 70000
00011 K 15 24 77774
00012 K 00 170 0100
00013 K 00 110 0100 00 113 0101
00014 K 00 100 0100 15 37 70001
00015 K 00 170 0102
00016 K 00 170 0103
00017 K 00 110 0104 00 100 6233
00018 К 00 110 0105 00 050 0112
00019 К 16 24 76001 00 110 0106
00020 К 16 100 3777 16 37 70011
00021 K 00 170 0107
00022 K 00 110 0110 00 175 6106
00023 K 00 30 00013
00024 В 70100
00025 С 0010 0000 0066 1000
00026 С 0000 0100 0000 0001
00027 С 0010 3600 0040 1006
00028 С 0010 3700 0040 0064
00029 БТАМБОВ
00030 С 0000 0000 0040 1000
00031 C 1602 0070 7760 0000
00032 C 0000 3500 0027 0000
00033 C 0036 0064 0115 6117
00034
- - - - - - - - - - - - - -СА
00011 K 15 24 77774
Для переписи 5 зон
00012 K 00 170 0100
Чтение с мд2061 1000-й зоны
00013 K 00 110 0100 00 113 0101
К информац.слову:+1лист,+1зона
00014 K 00 100 0100 15 37 70001
Чтение с мд2061 зон 1001-1004
00015 K 00 170 0102
Чт на 36лист 1006 зоны с мд 40
00016 K 00 170 0103
Чт на 37лист 64 зоны с мд 40
00017 K 00 110 0104 00 100 6233
Зп слова ТАМБОВ в яч 76233
00018 К 00 110 0105 00 050 0112
Уст дельта=1000 на диск 40
00019 К 16 24 76001 00 110 0106
Роспись листа 35 const из 70106
00020 К 16 100 3777 16 37 70011

00021 K 00 170 0107
Запись 35листа на МБ 27
00022 K 00 110 0110 00 175 6106
Зп команды по адресу 76106(37лист)
00023 K 00 30 00013
Переход по адресу 00013
00024 В 70100

00025 С 0010 0000 0066 1000
инф. слово для чтения с мд66 1000з на 0лист
00026 С 0000 0100 0000 0001

00027 С 0010 3600 0040 1006

00028 С 0010 3700 0040 0064

00029 БТАМБОВ

00030 С 0000 0000 0040 1000

00031 C 1602 0070 7760 0000

00032 C 0000 3500 0027 0000

00033 C 0036 0064 0115 6117

00034

Comments

[vak]

Ух ты, Светлана Зельдинова отозвалась, классно!
Передавайте привет, зовите её в группу https://groups.google.com/g/besm6
Пошёл, нагуглил её фотки.

Группа разработчиков ОС ДИСПАК. Слева направо: Юрий Озорнин, Николай Шулепов, Светлана Зельдинова, Владимир Карякин, Владимир Тюрин, Виталий Зуев, Людмила Кошкина (Челябинск-70, 1969 год):



Светлана Зельдинова:

[azizz8618]

Адрес группы я ей направил в первую очередь

[spamsink]

Сейчас удаленный вход в эмулятор не работает, но изменения в стандартном паспорте по сравнению с калахом нужны минимальные:

Было	Изменения	Комментарий
00001 ОЗУ 32^ 00002 BPE 220^ 00003 TEЛ^ 00004 PОC 0^ 00005 TPA 2^ 00006 ДИC 40(2148)^ 00007 ДИC 66(2148-ЗП)^ 00008 BXО 70000^ 00009 E 00010 B 70000 00011 K 16 24 76001 00 110 0205 00012 K 16 100 3777 16 37 70001 00013 K 00 110 0206 00 050 0112	Добавляем ДИС 41(2061)^ рядом с другими строками ДИС.	Для удобства сохраняем существующие заказы дисков и установки сдвигов
00014 K 00 170 0100 00 22 00000 00015 K 00 170 0101 00 22 00000 00016 K 00 170 0102 00 22 00000 00017 K 00 170 0103 00 22 00000 00018 K 00 170 0104 00 22 00000 00019 K 00 170 0105 00 22 00000	Оставляем только две первые строки из этого фрагмента	Это команды чтения собственно программы. Так как длина выполняемой программы ПОСАДТ - 2 зоны (HA БОБ 2061 ЗAПИCЬ 0002 ЗОH ... при компиляции), то больше двух зон читать не нужно.
00020 K 00 170 0200 00 22 00000 00021 K 00 170 0201 00 22 00000 00022 K 00 170 0202 00 22 00000 00023 K 00 110 0203 00 100 6233 00024 K 00 110 0207 00 175 6106 00025 K 00 30 00007 00 22 00000 00026 B 70100	Пока оставляем нетронутым	Это команды чтения и коррекции рантайм-библиотеки (и формирования содержимого барабана для Джина, что уже должно быть не нужно, но пока оставляем для минимизации изменений)
00027 C 0010 0000 0040 0230 00028 C 0010 0100 0040 0231 00029 C 0010 0200 0040 0232 00030 C 0010 0300 0040 0233 00031 C 0010 0400 0040 0234 00032 C 0010 0500 0040 0235	Заменить на две строки C 0010 0000 0041 1042 C 0010 0100 0041 1043	Согласно HA БОБ 2061 ЗAПИCЬ 0002 ЗОH C 415042 ЗОHЫ(ПОCAДT ), а номера зон на диске берутся по модулю 02000 (можно написать и ... 5042, ... 5043, наверное, но смысла не имеет).
00033 B 70200 00034 C 0010 3600 0040 0006 00035 C 0010 3700 0066 0064 00036 C 0000 3500 0027 0000 00037 БTAMБОB 00038 C 0037 0000 0000 0000 00039 C 1602 0070 7760 0000 00040 C 0000 0000 0040 1000 00041 C 0036 0064 0115 6117	Остается неизменным	Прочие константы; когда заработает, можно будет удалять лишнее.

[spamsink]

После чего?

С дисками, взятыми из https://github.com/besm6/besm6.github.io/tree/master/download/disks у меня вчера работало.

[azizz8618]

Светлана Алексеевна пишет , что не получается. На АЦПУ






НЕКОР.ОБРАЩЕНИЕ +285873666146e-19 0010340000270000
АП Э РК И1 И2 И3 И4 И5 И6 И7 И10 И11 И12 И13 И14 И15 И16 И17 КРА ЗПСЧ
76560 76560 00007 70000 70777 00000 00000 00000 00000 00000 00000 75710 76574 70000 00000 77000 77024 76725 00000 00000
ДАТА РЕШ. ВЕРСИЯ 117 СМЕ НАЧ.ВВОДА НАЧ. РЕШ. КОН. РЕШ. КОМ.ВРЕМ. Э.РЕШ. Э.ВВ. ОСТ.ЭКС. ОСТ.ЛИМ. ОСТ.ДЕЖ. ОСТ.Б
16.12.09 06.12.88 1 19.05.10 19.05.10 19.05.24 00.00.00 03 3-0
ОС ДИСПАК ОЗУ ТРАКТЫ ВРЕМ.РЕШ. КАТЕГ. АЦПУ ВУ ТРВ ПИ ПЛ ТЕРМ МБ МД МЛ ПРМЗОН
ЗАКАЗАНО: 0032 002 00.02.20 007.00
ЭМУЛЯТОР ИСПОЛЬ-НО: 0006 001 00.00.00 000.30 0000 00000 0000 0000 0003 000002 00004 00000 00000
БОБ:2148 :40(01)-1000,2061 :41(43) 2148*:66(01)
419900000000 ЗП5
0 *ОС ДИСПАК * S= 0000 029.41.26 0855
ИТМ И ВТ ИМ.С.А.ЛЕБЕДЕВА АН СССР И ВЦ АН СССР
*АЦПУ-0 ЭВМ-3 19.05.24*
********************************************************************************************************************************
5555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555

[spamsink]

Видимо, я не перенес из bega.pas какие-то установочные действия, необходимые для автономной работы. Можно попробовать скомпилировать bega.pas и сделать запускалку по аналогичному рецепту, с коррекцией количества зон и номера начальной зоны.

[azizz8618]

Понятно, тогда попбробуйте сделать по вашему варианту

[spamsink]

Исправлено, попробуйте ИГРА2 <шифр>

[azizz8618]

Да. Все работает. Так чего же там не хватало?

[spamsink]

Там не хватало вызова процедурки, которая настраивает рантайм на подключенный терминал. В программе bega.pas (по ключу ИГРА) вызывается что-то более масштабное, но с помощью трассировки в эмуляторе Диспака я нашел то место, которое только опрашивает и запоминает номер терминала, и больше ничего не портит.

Короче, изменение в стандартном паспорте состояло из одной строки K 14 31 76104 непосредственно перед переходом на начало паскаль-программы.