Паспорт Краба

35 views
Skip to first unread message

nvmz

unread,
Nov 13, 2009, 12:16:58 PM11/13/09
to БЭСМ-6
У меня был такой:
ШИФР 980299^
ТЕЛ^
ЛИС 0-14,24-37^
РОС 0^
ЛЕН 35(2086-ЗП)^
ИНК^
ВРЕ 1000^
ВХО 2001^
ЕВ1С1 <- Думаю надо С0 (Тип ОС)
В2000
К 00 070 2014
К 00 010 2015 00 050 0112
К 15 24 00000 <- ПарМД ЗП
К 00 010 2015 00 050 0105
К 00 050 0121
К 15 24 40000 <- ПарМД ЧТ
К 00 010 2015 00 050 0105
К 00 050 0121
К 00 010 2016 00 050 0131
К 15 24 40000 00 010 2016
К 00 050 0121
К 00 30 02000
С 0010010000350013
С 35 1600 <- Сдвиг (начало Краба)
С 3377 0000 0002 0123
Нужен еще паспорт Генератора


Сергей В.

unread,
Nov 14, 2009, 5:17:24 AM11/14/09
to БЭСМ-6
С каким шифром должен запускаться КРАБ?
___
Сергей

nvmz

unread,
Nov 14, 2009, 5:47:49 AM11/14/09
to БЭСМ-6
Я думаю, что с любым. Но лучше завести шифр с ФИО КРАБ.

Serge Vakulenko

unread,
Nov 14, 2009, 7:03:27 AM11/14/09
to be...@googlegroups.com
14 ноября 2009 г. 13:47 пользователь nvmz <nv...@panferova.net.ru> написал:

> On 14 ноя, 13:17, Сергей В. <serge.vakule...@gmail.com> wrote:
>> С каким шифром должен запускаться КРАБ?
>
> Я думаю, что с любым. Но лучше завести шифр  с ФИО КРАБ.

При вызове говорит:

BHИMAHИE: TEPM-01 ДPУГОЙ ШИФP BXОДA
PAБОTA CИCTEMЫ KPAБ HEBОЗMОЖHA
KОHEЦ CEAHCA
___
Сергей

Сергей В.

unread,
Nov 14, 2009, 8:15:27 AM11/14/09
to БЭСМ-6
Ура, получилось!

I---------------------------------------I
I C T A P T C И C T E M Ы K P A Б I
I BPEMЯ 16.02.03 I
I ДATA 14.11.09 I
I---------------------------------------I


Ф075-4 419998999997 0202
ОШИБKA B ЗОHE CTПACП
** K P A Б ** (BEP.19 ОT 27.11.92)
-


On 13 ноя, 20:16, nvmz <n...@panferova.net.ru> wrote:
> Нужен еще паспорт Генератора

Есть образец?
___
Сергей

nvmz

unread,
Nov 14, 2009, 8:31:50 AM11/14/09
to БЭСМ-6
On 14 ноя, 15:03, Serge Vakulenko <se...@vak.ru> wrote:
> 14 ноября 2009 г. 13:47 пользователь nvmz <n...@panferova.net.ru> написал:

>
> > On 14 ноя, 13:17, Сергей В. <serge.vakule...@gmail.com> wrote:
> >> С каким шифром должен запускаться КРАБ?
>
> > Я думаю, что с любым. Но лучше завести шифр  с ФИО КРАБ.
>
> При вызове говорит:
>
>  BHИMAHИE: TEPM-01 ДPУГОЙ ШИФP BXОДA
>   PAБОTA CИCTEMЫ KPAБ HEBОЗMОЖHA
>  KОHEЦ CEAHCA
> ___
> Сергей
Есть такое дело.
Если ШИФВХ = 0, то он запоминается. И далее проверяется. При
трансляции и загрузке он равен нулю.
Модуль Ф1 (файл F11):
ПАРОС КОНД В'0' ПАРОЛИ МД ЗАГРУЗКИ ОС ДИСПАК^
ВХОДН ПАРОС^
* Е1 - Е12 - ЧТЕНИЕ^
* Е13 - Е24 - ЗАПИСЬ^
ДАТАДД КОНД В'0' ДАТА ПОСЛЕДНЕГО ОБРАЩЕНИЯ К МОНИТОРУ^
ВХОДН ДАТАДД^
ШИФВХ КОНД В'0'^
ВХОДН ШИФВХ^
Проверка и запоминание проходит в модуле ФСТАРТ:
*^
* ПРОВЕРКА ШИФРА ВХОДА^
*----------------------^
*^
СЧ ТЛФ(М2)^
ПО ВХОД0 РАБОТА С П/К^
Э50 '100'^
ЗП РЯ2^
ЗП ИНФПЗ^
СЧ ШИФВХ^
ПО ШВХ1 ВХОД В ПЕРВЫЙ РАЗ НА НОВОЙ ВЕРСИИ^
НТЖ РЯ2^
ПО ВХОД0 ВХОД НОРМАЛЬНЫЙ^
СЧ СЛШ^
СБР ВСЕПР^
НТЖ РЯ2^
ПО ВХОД0 ВОШЕЛ ХОЗЯИН^
ПБ ДРШИФ^
*^
ШВХ1 НОП УСТАНОВКА ШИФРА ВХОДА^
Э70 ЧТГП5^
СЧ РЯ2^
ЗП ПОЛНОМ-Ф1+ШИФВХ^
Э70 ЗПГП5^
Думаю, что ШИФВХ <> 0 потому, что Миша запускал Краб после сборки.
Адреса ШИФВХ я не знаю, но думаю, его можно найти из контекста модуля
ФСТАРТ (есть характерные ЭК).
* 13 - 21 - РЕЗИДЕНТ МОНИТОРА АБОНЕНТОВ^
* (Ф1,Ф2,ФПЗ,КОМП)^
* 22 - 34 - НЕРЕЗИДЕНТЫ "МОНИТОРА АБОНЕНТОВ"^
* 22 - ФПЕЧ, ФФОР^
* 23 - ФОРПЗ, ФОРПС^
* 24 - ФПОЧТ, ФБУХ^
* 25 - ЛИСТ^
* 26 - ФАДМ,ФНС2^
* 27 - ФОТЛ^
* 30 - ШКОЛА,ШКОЛА2^
* 31 - ФНАРХ, ФАВПЗ^
* 32 - ФНС1,ФС^
* 33 - ФНЕРЕ, ФДПЗ^
* 34 - ФСТАРТ,ФНРЕД^
Найдя его адрес в ФСТАРТ, занулить его в Ф1.
Можно и другой вариант - установить шифр запуска равным ШИФВХ.

Сергей В.

unread,
Nov 14, 2009, 8:40:03 AM11/14/09
to БЭСМ-6
On 14 ноя, 16:31, nvmz <n...@panferova.net.ru> wrote:
> On 14 ноя, 15:03, Serge Vakulenko <se...@vak.ru> wrote:> 14 ноября 2009 г. 13:47 > Есть такое дело.

> Если ШИФВХ = 0, то он запоминается. И далее проверяется. При
> трансляции и загрузке он равен нулю.
> Думаю, что ШИФВХ <> 0 потому, что Миша запускал Краб после сборки.

Первые пару раз КРАБ запускается при генерации из скриптов:
http://besm6.svn.sourceforge.net/viewvc/besm6/krab/generate?view=markup
http://besm6.svn.sourceforge.net/viewvc/besm6/krab/populate?view=markup

Наверное, там он и запоминает ШИФВХ.

> Можно и другой вариант - установить шифр запуска равным ШИФВХ.

Я так и сделал. На vak.ru уже работает.
___
Сергей

nvmz

unread,
Nov 14, 2009, 8:58:26 AM11/14/09
to БЭСМ-6
On 14 ноя, 16:15, Сергей В. <serge.vakule...@gmail.com> wrote:
> Ура, получилось!
>
>   I---------------------------------------I
>   I  C T A P T   C И C T E M Ы   K P A Б  I
>   I  BPEMЯ  16.02.03                      I
>   I  ДATA   14.11.09                      I
>   I---------------------------------------I
>
>  Ф075-4 419998999997  0202
>   ОШИБKA B ЗОHE CTПACП
Это плохо. То ли не зацепился 2053, то ли зона стандартных паспортов
находится в другой зоне. Что-то не будет работать. Типа вызова
стандартных подсистем. Директива ВПС <ИМЯ>. Разберемся потом.

>  ** K  P  A  Б **  (BEP.19 ОT 27.11.92)
> -
>
> On 13 ноя, 20:16, nvmz <n...@panferova.net.ru> wrote:
>
> > Нужен еще паспорт Генератора
>
> Есть образец?
> ___
> Сергей
У меня такой:
ШИФР 982198^
ИМЯ ОТЛГЕН^ (наверное, убрать)
ЛИСТ 0-4,36,37^
ЛЕНТ 35(2196-ЗП)^ (похоже на диск ГП)
ЛЕНТ 37(2086)^ (не знаю, зачем)
ИНК^
ВХОД 1^
ТЕЛЕ 1000Т^ (думаю, просто ТЕЛЕ^)
ВРЕ 50^
РОСП 0^
ЕВ1
К 00 23 00200 15 24 40000
К 00 010 0102 00 050 0121
К 00 010 0100 00 050 0112
К 00 010 0103 00 050 0131
К 15 24 40000
К 00 010 0103 00 050 0121
К 15 24 00000
К 00 010 0103 00 050 0121
К 00 070 0101 К 00 30 02002
В100
С 35 0000 (сдвиг)
С 0010 0100 0035 0035
С 20130
С 3377 0000 0002 0231
В200
С 0124 (пароли чтения,
С 1662 (записи на диск ГП)
С 1 (тип ОС, надо =0)
В400
БСЕРЕЖА (пароль?)

nvmz

unread,
Nov 14, 2009, 9:59:08 AM11/14/09
to БЭСМ-6
Сергей!
У меня просьба - перепиши твою БЭСМ-6 на мою.
И еще сообщи, как можно зажимать на ТР разряды?
Подчиненные задачи и в Крабе не идут. Хочу разобраться почему.
И с зоной стандартных паспортов тоже.

Basil Dolmatov

unread,
Nov 14, 2009, 10:06:51 AM11/14/09
to be...@googlegroups.com
nvmz пишет:
> С
Коля, забыл нафиг, как там ключ ставить на вход? :)

Basil Dolmatov

unread,
Nov 14, 2009, 10:11:53 AM11/14/09
to be...@googlegroups.com
Basil Dolmatov пишет:

> nvmz пишет:
>> С
> Коля, забыл нафиг, как там ключ ставить на вход? :)
>
тьфу... вспомнил... вот склероз :)

nvmz

unread,
Nov 14, 2009, 10:13:17 AM11/14/09
to БЭСМ-6
ИКЛ

Basil Dolmatov

unread,
Nov 14, 2009, 10:14:38 AM11/14/09
to be...@googlegroups.com
nvmz пишет:
Ну да... :) Где-то лежало все-таки в нежрах склероза :)

А вот как надчерк через телнет вводить - пока не понял. :(
система - ubuntu


  

Сергей В.

unread,
Nov 14, 2009, 10:15:49 AM11/14/09
to БЭСМ-6
Вижу на операторском терминале:
ПОЧTA:T-02 980200 MAKAPОB H.B.
PAБОTAET!

On 14 ноя, 16:58, nvmz <n...@panferova.net.ru> wrote:
> > ОШИБKA B ЗОHE CTПACП
>
> Это плохо. То ли не зацепился 2053, то ли зона стандартных паспортов
> находится в другой зоне.

Возможно, тип ОС в паспорте задан неверно (1). Попробую поменять на 0.

> > > Нужен еще паспорт Генератора

А точно нужен? Сейчас он вызывается из скрипта "generate" (ссылка есть
выше).

On 14 ноя, 17:59, nvmz <n...@panferova.net.ru> wrote:
> Сергей!
> У меня просьба - перепиши твою БЭСМ-6 на мою.

Делаю.

> И еще сообщи, как можно зажимать на ТР разряды?

1) Остановить эмулятор, нажав ^E (только на консольном терминале).
Появится приглашение "sim>"
2) Дать команду типа "d 4 123" - запись 0123 в ТР4. Смотреть память
можно командой типа "e 1-7" - в восьмеричном виде, или "e -m 10-30" -
в мнемонике БЕМШ.
3) Команда "c" продолжает выполнение.

Командой "dump filename.b6" можно сбросить всю память в файл, и потом
разбираться.

Регистры можно смотреть командой "e state", подключенные диски - "show
disk", терминалы - "show tty conn".
___
Сергей

Сергей В.

unread,
Nov 14, 2009, 10:48:29 AM11/14/09
to БЭСМ-6
> On 14 ноя, 16:58, nvmz <n...@panferova.net.ru> wrote:
>
> > >   ОШИБKA B ЗОHE CTПACП
>
> > Это плохо. То ли не зацепился 2053, то ли зона стандартных паспортов
> > находится в другой зоне.
>
> Возможно, тип ОС в паспорте задан неверно (1). Попробую поменять на 0.

Не помогло.

> > > > Нужен еще паспорт Генератора
>
> А точно нужен? Сейчас он вызывается из скрипта "generate" (ссылка есть
> выше).

Сделал ключ КРАГЕН.

> On 14 ноя, 17:59, nvmz <n...@panferova.net.ru> wrote:
>
> > У меня просьба - перепиши твою БЭСМ-6 на мою.

Переписал, работает. Но запусти ты лучше от себя, чтобы консоль иметь.
___
Сергей

Basil Dolmatov

unread,
Nov 14, 2009, 12:19:49 PM11/14/09
to be...@googlegroups.com
Сергей В. пишет:
On 14 ноя, 16:58, nvmz <n...@panferova.net.ru> wrote:

    
  ОШИБKA B ЗОHE CTПACП
        
Это плохо. То ли не зацепился 2053, то ли зона стандартных паспортов
находится в другой зоне.
      
Возможно, тип ОС в паспорте задан неверно (1). Попробую поменять на 0.
    
Не помогло.

  
Угу... Без стандартных паспортов формирует и выполняет задачи нормально...
Но ведь это же сильно лениво в кодах писать :)


nvmz

unread,
Nov 14, 2009, 12:29:05 PM11/14/09
to БЭСМ-6
On 14 ноя, 20:19, Basil Dolmatov <vdolma...@gmail.com> wrote:
> Сергей В. пишет:On 14 ноя, 16:58, nvmz<n...@panferova.net.ru>wrote:  ОШИБKA B ЗОHE CTПACПЭто плохо. То ли не зацепился 2053, то ли зона стандартных паспортов находится в другой зоне.Возможно, тип ОС в паспорте задан неверно (1). Попробую поменять на 0.Не помогло.Угу... Без стандартных паспортов формирует и выполняет задачи нормально...

> Но ведь это же сильно лениво в кодах писать :)
Василий! Разбираюсь. N-минут.

nvmz

unread,
Nov 14, 2009, 2:47:44 PM11/14/09
to БЭСМ-6
Сергей! А какой паспорт у МС Дубна?
У меня задачи пошли.

Leo Broukhis

unread,
Nov 14, 2009, 3:08:44 PM11/14/09
to be...@googlegroups.com
2009/11/14 nvmz <nv...@panferova.net.ru>:

> Сергей! А какой паспорт у МС Дубна?
> У меня задачи пошли.

ЗС5 или ЗСХ - это Монитор-80. Собственно Дубна на 2148 (бывший ЗС2)
почему-то работает только под эмулятором диспака в режиме
"игнорировать контроль команды", несмотря на то, что СПЕЦ у нее стоит.

Leo

nvmz

unread,
Nov 14, 2009, 3:11:00 PM11/14/09
to БЭСМ-6

On 14 ноя, 23:08, Leo Broukhis <l...@mailcom.com> wrote:
> 2009/11/14 nvmz <n...@panferova.net.ru>:

nvmz

unread,
Nov 14, 2009, 3:11:32 PM11/14/09
to БЭСМ-6
On 14 ноя, 23:08, Leo Broukhis <l...@mailcom.com> wrote:
> 2009/11/14 nvmz <n...@panferova.net.ru>:
>
> > Сергей! А какой паспорт у МС Дубна?
> > У меня задачи пошли.
>
> ЗС5 или ЗСХ - это Монитор-80. Собственно Дубна на 2148 (бывший ЗС2)
> почему-то работает только под эмулятором диспака в режиме
> "игнорировать контроль команды", несмотря на то, что СПЕЦ у нее стоит.
>
> Leo

КЛАССНО! РАБОТАЕТ!

Leo Broukhis

unread,
Nov 14, 2009, 3:12:05 PM11/14/09
to be...@googlegroups.com
2009/11/14 nvmz <nv...@panferova.net.ru>:

>> ЗС5 или ЗСХ - это Монитор-80. Собственно Дубна на 2148 (бывший ЗС2)
>> почему-то работает только под эмулятором диспака в режиме
>> "игнорировать контроль команды", несмотря на то, что СПЕЦ у нее стоит.
>>
> КЛАССНО! РАБОТАЕТ!
>

А выдачи перехватывает?!

Leo

nvmz

unread,
Nov 14, 2009, 3:15:44 PM11/14/09
to БЭСМ-6
On 14 ноя, 23:12, Leo Broukhis <l...@mailcom.com> wrote:
> 2009/11/14 nvmz <n...@panferova.net.ru>:
>
> >> ЗС5 или ЗСХ - это Монитор-80. Собственно Дубна на 2148 (бывший ЗС2)
> >> почему-то работает только под эмулятором диспака в режиме
> >> "игнорировать контроль команды", несмотря на то, что СПЕЦ у нее стоит.
>
> > КЛАССНО! РАБОТАЕТ!
>
> А выдачи перехватывает?!
>
> Leo
Конечно, и терминальные задачи идут. Входил в ДИМИП из Краба!
Сейчас проверю на сервере VAK.

nvmz

unread,
Nov 14, 2009, 3:26:48 PM11/14/09
to БЭСМ-6
Для Сергея и Леонида!
Нужно при генерации Краба включить контроллер:
1. Установить на ТР-4 номер терминала (=1).
2. Вызвать КРАГЕН
3. PEЖИM PAБОTЫ (ГEH,ИЗM) - ИЗМ (изменять параметры)
4. ЧИTATЬ ПAPAMETPЫ (ДA,HET) - ДА (читать параметры из зоны их
хранения)
5. КТР - ДА (включить контроллер)
6. ВЫД КТР (выдать значение, можно не писать)
7. ЗАП - ДА (записать параметры)
8. КОН (выход)
При этом надо перезапустить задачу Краб, если она была в решении.

Сергей В.

unread,
Nov 14, 2009, 4:09:09 PM11/14/09
to БЭСМ-6
On 14 ноя, 23:26, nvmz <n...@panferova.net.ru> wrote:
> Для Сергея и Леонида!
> Нужно при генерации Краба включить контроллер:

Сейчас сделаю. Но не в диалоге, а через скрипт генерации:
http://besm6.svn.sourceforge.net/viewvc/besm6/krab/generate?view=markup

Поменял, возьми новые диски через svn.
Теперь при старте краб пишет:
KОHTPОЛЛEP BЫKЛЮЧEH
___
Сергей

nvmz

unread,
Nov 14, 2009, 4:13:54 PM11/14/09
to БЭСМ-6
Все правильно! В Крабе какие-то ошибки. Всегда правильно читались зоны
паспортов. Сейчас что-то испортилось. Потом разберемся. Главное -
работает.
У меня другая проблема - второй терминал не подключается к Диспаку -
putty циклится. Раньше работало нормально.

nvmz

unread,
Nov 15, 2009, 3:33:50 PM11/15/09
to БЭСМ-6
Михаил, Сергей, Леонид!
Я, наверное, задаю глупые вопросы. Однако
1.Могу ли я при вызове:
(lkb) simh $ ./besm6 dispak.ini
каким-либо образом подсунуть файл (задачу для ОС).
2.Что "чинить" сначала? ШКОЛу или метки?
ШКОЛу без меток починить можно, но трудно - не я писал код.

С уважением, НВМЗ.

Leo Broukhis

unread,
Nov 15, 2009, 7:54:06 PM11/15/09
to be...@googlegroups.com
2009/11/15 nvmz <nv...@panferova.net.ru>:

> Михаил, Сергей, Леонид!
> Я, наверное, задаю глупые вопросы. Однако
> 1.Могу ли я при вызове:
> (lkb) simh $ ./besm6 dispak.ini
> каким-либо образом подсунуть файл (задачу для ОС).

Сейчас простого способа это сделать нет. Не будь у нас паузы на ждущем режиме,
можно было бы после старта сказать step N, где N = количество команд,
заведомо достаточное для загрузки и установки смены-времени, потом
сделать attach fs file, deposit 6 1, deposit grp 20000000000, т.е.
поставить перфоленту на ввод, набрать на ТР6 команду ВВД и нажать
"запрос". Но с паузой трюк с пропуском команд не работает.

> 2.Что "чинить" сначала? ШКОЛу или метки?
> ШКОЛу без меток починить можно, но трудно - не я писал код.

Вам виднее. Без школы очень печально - я ничего не помню.

Leo

Сергей В.

unread,
Nov 16, 2009, 1:58:08 PM11/16/09
to БЭСМ-6
On 15 ноя, 23:33, nvmz <n...@panferova.net.ru> wrote:
> 1.Могу ли я при вызове:
> (lkb) simh $ ./besm6 dispak.ini
> каким-либо образом подсунуть файл (задачу для ОС).

Есть такая утилита: expect. С её помощью можно автоматизировать работу
с диалоговыми программами. В каталоге simh есть скрипт dispak.expect
(http://besm6.svn.sourceforge.net/viewvc/besm6/simh/dispak.expect?
view=markup), который вызывает эмулятор с ДИСПАКом и запускает на нём
задачу, пакет которой находится в файле input.txt (http://
besm6.svn.sourceforge.net/viewvc/besm6/simh/input.txt?view=markup).
Выдача АЦПУ кладётся в файл output.txt.

Я сделал еще два полезных скрипта: examples/besm6-krab.expect (http://
besm6.svn.sourceforge.net/viewvc/besm6/examples/besm6-krab.expect?
view=markup) и examples/besm6-run.expect (http://
besm6.svn.sourceforge.net/viewvc/besm6/examples/besm6-run.expect?
view=markup). Первый позволяет через telnet положить заданный
текстовый файл в архив КРАБа. Второй запускает заданный файл на
выполнение и записывает полученный листинг в файл output.txt.

Вызов:
besm6-krab.expect хост порт кто ключ имяфай пароль filename.local
Параметры:
хост - имя хоста, например vak.ru
порт - номер порта TCP, на котором работает эмулятор БЭСМ-6
кто - шифр пользователя системы КРАБ
ключ - ключ пользователя системы КРАБ
имяфай - имя создаваемого файла системы КРАБ
пароль - пароль файла системы КРАБ
filename.local - имя текстового файла для передачи

Вызов:
besm6-run.expect хост порт кто ключ filename.local
Параметры:
хост - имя хоста, например vak.ru
порт - номер порта TCP, на котором работает эмулятор БЭСМ-6
кто - шифр пользователя системы КРАБ
ключ - ключ пользователя системы КРАБ
filename.local - имя текстового файла для выполнения

> 2.Что "чинить" сначала? ШКОЛу или метки?
> ШКОЛу без меток починить можно, но трудно - не я писал код.

Школу бы хорошо...
___
Сергей

Reply all
Reply to author
Forward
0 new messages