Система Пульт

[vak]

Со студенческих времён у меня сохранилась тетрадка, в которой я записывал всякие компьютерные премудрости. В частности, там есть конспект лекции про систему Пульт, которую прочитали для младшекурсников Кирилл Кобелев и Сергей Рыжков. В то время они были уже на шестом курсе: зима 1985 года получается.

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

ДАЙ НОВАРХ,<кф>,<нз>,<имя>

Определение архива. Здесь <кф> - код файл (то есть направления), <нз> - номер зоны,<имя> - имя создаваемого архива.

АРХ <имя>

Считывание архива (стандартного).

АРХ <имя>,<кф>,<нз>,<дл>

Считывание архива (личного). Здесь <дл> - ограничитель длины в зонах.

КТЛ

Выдача каталога архива.

ПП

Включение печати протокола работы.

ППН

Выключение печати протокола.

ИСКЛ <имя> 

Исключение файла из архива (удаление). Здесь <имя> - имя удаляемого файла.

КТЛ МБМЛ

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

С <имя>

Считывание файла.

З <имя>

Запись файла.

ПАС-ПА ЗОНРУК <имя> РУКОВ 

Печать руководства. Вероятно, срабатывало только в ИТМиВТ.

ДАЙ НАПНАП <кф1> <нз1> <кф2> <нз2> <шт> 

Перепись <шт> зон из <кф1> <нз1> на <кф2> <нз2>. По сути копирование участка диска или ленты.

ПАС <имя>

Запуск трансляции Паскаль-программы из указанного файла.

ПАС-ВЫП <имя>

Выполнение оттранслированной программы.

ПАС <имя1>-ЗОНГП <имя2>

Трансляция файла <имя1> и запись готовой программы (бинарного кода) в файл <имя2>.

Это не всё, есть ещё текстовый редактор. От него сохранилось описание: http://www.besm6.org/wiki/Pult-editor

Comments

[azizz8618]

а код файл - это что конкретно. Это ведь не номер диска?. Как указывать это направление?

[spamsink]

"код файл" - это номер направления/устройства; восьмеричное число от 30 до 67.

Я разобрался, как это делается. Например,

  СИСТЕМА ПУЛЬТ   29.08.80    
сервис
ПАСКАЛЬ-СЕРВИС 
боб
ВАШИ БОБИНЫ - 
40 - 2248   57 - 2248    
боб 2148 67
БОБИНА 2148 ПРИНЯТА 
<пустая посылка>
ВЫХОД В ПУЛЬТ 
арх сисбиб,67,1000
ЕСТЬ
ктл
 ИМЯ  НАЧАЛО ДЛИНА 
РРR      001   001 
ПУЛЬТ    002   001 
АЦПУК    003   001 
ПУЛЬТФ   004   001 
ДАЙ      005   001 
...

[azizz8618]

Спасибо огромное все действительно работает. Но как во вновь созданном архиве создать новый массив данных (файл)?
К сожалению, программа после выхода выкидывает добавленный диск. Можно как-то это исправить?

[spamsink]

Новый файл можно создать, например, командой

З ИМЯ=ТТ
...текст...
...текст...
//

(два слеша - признак конца ввода; "З ИМЯ=ТТ" это примерно как "cp /dev/tty ИМЯ")

Можно создать собственную запускалку пульта, приписав строку
ДИС 67(номер-ЗП)^
в паспорт задачи.

[azizz8618]

З ИМЯ работает. Дальше я вхожу в режим редактированя, командой РЕД ИМЯ. Там одни ноли. Пытаюсь заменить содержание первой строчкой командой неявной замены 0001 ТЕСТ, а он мне отвечает, что текст вышел за границу 20 зон. Хотя в конце строки я пытался ставить "" или произвольный символ * В режиме РЕД ПАМ такой способ работал. Не понимаю, в чём причина ошибки?

[spamsink]

Да, воспроизводится. Поди знай, в чём там ошибка. Видимо, расчет был на то, что сначала исключат все строки командой И.

[azizz8618]

Так тоже пробовал. Не выходит

[azizz8618]

Вопрос решен. Нужно ввести РА. РАЗДЕЛ=А, дальше спокойно заменять содержимое строки при помощи неявного приказа С.
Теперь другой вопрос, а можно как нибудь вставить текст в эмулятор из линукса более или менее нормально?

[vak]

Скрипты типа Expect подойдут?

https://github.com/besm6/besm6.github.io/blob/master/wiki/examples/pascal-autocode.expect

[azizz8618]

Если прогонять эти ссылки в эмуляторе, нужно создавать второй монитор?. А есть возможность использовать перфокарт или перфоленты? Если возможность печатать перфокарты или перфоленты?

[vak]

Чтобы переписать файлы с Линукса в архив Пульта, используя такие скрипты (и вызывая из них симулятор dispak), второй монитор не нужен.

Ввод с перфокарт и вывод на перфокарты Лёня сделал. Вот ввод:
https://github.com/besm6/dispak/blob/master/tests/punchtest/punchtest.b6

Вывод на перфокарты включается флагом "dispak --punch=filename", но примера под рукой нету.

[azizz8618]

Я говорил о том, чтобы запустить на эмуляторе БЭСМ-6, на уже запущенной машине в режиме реального времени. Я, может быть по-дилетантски, но вижу это через загрузку текста преобразованного в перфокарту или перфоленту, а может просто типа "набранную" с виртуального терминала. Вероятно, я ошибаюсь.

[vak]

Ввод с перфоленты в симуляторе simh/besm6 имеется. Тут надо Лёню спросить.

https://groups.google.com/forum/#!topic/besm6/BRCAxOtDlLo

Задача "набрать" программу с виртуального терминала как раз и решается скриптами типа Expect, наподобие этого:

https://github.com/besm6/besm6.github.io/blob/master/wiki/examples/besm6-krab.expect

Тут для Краба, но нетрудно переделать для Пульта или другого редактора.