Сектор истори ЭВМ

By admin, 7 мая, 2021
                                                  ≠≠≠≠  ≠   ≠ ≠   ≠ ≠   ≠  ≠≠≠  ≠   ≠ ≠   ≠ ≠≠≠≠          ≠     ≠     ≠
                                                  ≠  ≠  ≠   ≠ ≠   ≠ ≠≠ ≠≠ ≠   ≠ ≠   ≠ ≠   ≠ ≠             ≠     ≠     ≠
                                                  ≠≠≠   ≠≠≠≠≠ ≠   ≠ ≠ ≠ ≠ ≠   ≠ ≠≠≠≠≠ ≠   ≠ ≠≠≠           ≠     ≠     ≠
                                                  ≠  ≠  ≠   ≠ ≠  ≠≠ ≠ ≠ ≠ ≠   ≠ ≠   ≠ ≠  ≠≠ ≠             ≠     ≠     ≠
                                                  ≠   ≠ ≠   ≠ ≠ ≠ ≠ ≠   ≠ ≠   ≠ ≠   ≠ ≠ ≠ ≠ ≠             ≠     ≠     ≠
                                                  ≠   ≠ ≠   ≠ ≠≠  ≠ ≠   ≠ ≠≠≠≠≠ ≠   ≠ ≠≠  ≠ ≠
                                                  ≠≠≠≠  ≠   ≠ ≠   ≠ ≠   ≠ ≠   ≠ ≠   ≠ ≠   ≠ ≠≠≠≠≠         ≠     ≠     ≠

≠≠≠≠≠ ≠≠≠≠  ≠   ≠ ≠≠≠≠≠   ≠≠≠  ≠≠≠  ≠   ≠  ≠≠≠  ≠≠≠≠  ≠   ≠        ≠  ≠         ≠≠≠≠  ≠≠≠  ≠≠≠≠≠ ≠≠≠≠≠ ≠   ≠  ≠≠≠  ≠   ≠ ≠   ≠ ≠   ≠ ≠≠≠≠   ≠≠≠≠ ≠≠≠≠≠ ≠≠≠≠  ≠   ≠
≠   ≠ ≠   ≠ ≠   ≠ ≠      ≠  ≠ ≠   ≠ ≠   ≠ ≠   ≠ ≠     ≠≠ ≠≠        ≠ ≠         ≠     ≠   ≠   ≠   ≠   ≠ ≠   ≠  ≠ ≠  ≠   ≠ ≠   ≠ ≠   ≠ ≠     ≠       ≠   ≠  ≠  ≠   ≠
≠   ≠ ≠   ≠ ≠   ≠ ≠      ≠  ≠ ≠   ≠ ≠ ≠ ≠ ≠   ≠ ≠≠≠   ≠ ≠ ≠        ≠≠          ≠     ≠   ≠   ≠   ≠   ≠ ≠   ≠  ≠ ≠  ≠≠≠≠≠ ≠   ≠ ≠   ≠ ≠≠≠   ≠       ≠   ≠≠≠   ≠   ≠
≠   ≠ ≠   ≠ ≠  ≠≠ ≠      ≠  ≠ ≠   ≠ ≠ ≠ ≠ ≠   ≠ ≠     ≠ ≠ ≠        ≠ ≠         ≠     ≠   ≠   ≠   ≠   ≠  ≠ ≠   ≠ ≠  ≠   ≠ ≠  ≠≠ ≠   ≠ ≠     ≠       ≠   ≠  ≠   ≠ ≠
≠   ≠ ≠≠≠≠  ≠ ≠ ≠ ≠      ≠  ≠ ≠   ≠ ≠ ≠ ≠ ≠   ≠ ≠     ≠   ≠        ≠  ≠        ≠     ≠   ≠   ≠   ≠≠≠≠    ≠    ≠ ≠  ≠   ≠ ≠ ≠ ≠ ≠≠≠≠≠ ≠     ≠       ≠   ≠   ≠   ≠
≠   ≠ ≠     ≠≠  ≠ ≠      ≠  ≠ ≠≠≠≠≠ ≠ ≠ ≠ ≠≠≠≠≠ ≠     ≠   ≠        ≠   ≠       ≠     ≠   ≠   ≠   ≠       ≠   ≠≠≠≠≠ ≠   ≠ ≠≠  ≠     ≠ ≠     ≠       ≠   ≠   ≠   ≠
≠   ≠ ≠     ≠   ≠ ≠     ≠   ≠ ≠   ≠ ≠≠≠≠≠ ≠   ≠ ≠≠≠≠≠ ≠   ≠        ≠   ≠        ≠≠≠≠  ≠≠≠    ≠   ≠       ≠   ≠   ≠ ≠   ≠ ≠   ≠     ≠ ≠≠≠≠≠  ≠≠≠≠   ≠   ≠≠≠≠    ≠





         АВТОНОМНАЯ НЕКОММЕРЧЕСКАЯ ОРГАНИЗАЦИЯ  МУЗЕЙ ИНДУСТРИАЛЬНОЙ КУЛЬТУРЫ  БЫЛ ОСНОВАН  В  1994  ГОДУ  И  ПОСВЯЩЕН  СБОРУ

     КОЛЛЕКЦИИ, ПОСВЯЩЕННОЙ САМЫМ РАЗЛИЧНЫМ СФЕРАМ ЖИЗНЕДЕЯТЕЛЬНОСТИ ЧЕЛОВЕКА. В НАСТОЯЩЕЕ ВРЕМЯ  МУЗЕЙ АКТИВНО  РАЗВИВАЕТ
                                                                               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     КОЛЛЕКЦИЮ, ПОСВЯЩЕННУЮ ЭВМ, В ОСОБЕННОСТИ СССР И СТРАН СЭВ.
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


         ОСОБЕННЫЙ ИНТЕРЕС ДЛЯ НАС ПРЕДСТАВЛЯЮТ ЭЛЕКТРОННЫЕ  ЦИФРОВЫЕ  ЭВМ  СЕМЕЙСТВ  "БЭСМ",  "ЭЛЬБРУС"  И  "ЕС"    "РАБОЧИЕ

     ЛОШАДКИ" ВОЕННЫХ И ГРАЖДАНСКИХ ОТРАСЛЕЙ ЭКОНОМИКИ СССР КОНЦА 1960-Х   НАЧАЛА 1990-Х ГОДОВ.

         "БОЛЬШИЕ" МАШИНЫ НЕ СТОЛЬ  ШИРОКО  ПРЕДСТАВЛЕНЫ  В  КОЛЛЕКЦИЯХ  ГОСУДАРСТВЕННЫХ  И  ЧАСТНЫХ  МУЗЕЕВ,  КАК,  НАПРИМЕР

     ПЕРСОНАЛЬНЫЕ ЭВМ. А ВЕДЬ ИМЕННО НА НИХ РЕШАЛИСЬ  ВАЖНЕЙШИЕ  ЗАДАЧИ  ФУНДАМЕНТАЛЬНОЙ  И  ПРИКЛАДНОЙ  НАУКИ,  ПЛАНИРОВАНИЯ

     ЭКОНОМИКИ, УПРАВЛЕНИЯ ПРОИЗВОДСТВОМ, ТРАНСПОРТОМ, УЧЕБНЫМ ПРОЦЕССОМ В НЕКОТОРЫХ ВУЗАХ.

         ВОПРЕКИ РАСПРОСТРАНЕННОМУ МНЕНИЮ ЭТИ ИЗУЧЕНИЕ ЭТИХ МАШИН ИМЕЕТ НЕ ТОЛЬКО "ИСТОРИЧЕСКУЮ" ЦЕННОСТЬ. ИХ АППАРАТНОЕ И

     ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ПОЗВОЛЯЛО РЕШАТЬ СЛОЖНЕЙШИЕ ЗАДАЧИ  С  ИСПОЛЬЗОВАНИЕМ  МИЗЕРНЫХ,  ПО  МЕРКАМ  СЕГОДНЯШНЕГО  ДНЯ, 
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     РЕСУРСОВ.
     ^^^^^^^^^
         ИМЕННО ПОЭТОМУ ЭМУЛЯТОРЫ СТАРЫХ ЭВМ ПРОДОЛЖАЮТ ИСПОЛЬЗОВАТЬСЯ И ПО СЕЙ ДЕНЬ ДЛЯ РЕШЕНИЯ АКТУАЛЬНЫХ ЗАДАЧ ЦЕЛЫМ РЯДОМ    
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     НАУЧНО-ИССЛЕДОВАТЕЛЬСКИХ  И  ПРОИЗВОДСТВЕННЫХ  УЧРЕЖДЕНИЙ,  ЧЬЯ  ДЕЯТЕЛЬНОСТЬ  СВЯЗАНА,  ГЛАВНЫМ  ОБРАЗОМ,  С   НАУЧНОЙ,
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     КОСМИЧЕСКОЙ И ОБОРОННОЙ СФЕРОЙ, А СОВРЕМЕННЫМ ПРОГРАММИСТАМ ЕСТЬ ЧЕМУ  ПОУЧИТЬСЯ  У  СВОИХ  СЛАВНЫХ  (С  БОЛЬШОЙ  БУКВЫ)
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     ПРЕДШЕСТВЕННИКОВ, О КОТОРЫХ МОЛОДОМУ ПОКОЛЕНИЮ МАЛО ЧТО ИЗВЕСТНО.
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
         В НАСТОЯЩЕЕ ВРЕМЯ В МУЗЕЕ ЭКСПЛУАТИРУЮТСЯ ЭМУЛЯТОРЫ ЭВМ ДВУХ ТИПОВ: БЭСМ-6 С ОС  ДИСПАК , ВЕРСИЯ 117 (С ВОЗМОЖНОСТЬЮ

     УДАЛЕННОЙ ТЕРМИНАЛЬНОЙ СЕССИИ И ЕС-1055 С ОС ЕС 6.1 МВТ ИЗМ.9 (АППАРАТНО- ПРОГРАММНЫЙ КОМПЛЕКС  БУКЕТ ,  ИЗВЕСТНЫЙ ТАКЖЕ

     КАК ЭМУЛЯТОР "ЕСЛИ", БЕЗ ВОЗМОЖНОСТИ  УДАЛЕННОЙ  ТЕРМИНАЛЬНОЙ  СЕССИИ).  МУЗЕЙ  СОВМЕСТНО  С  ЭНТУЗИАСТАМИ    ВЕТЕРАНАМИ

     ОТЕЧЕСТВЕННОЙ РАДИОЭЛЕКТРОННОЙ ОТРАСЛИ, СОТРУДНИКАМИ ВМК И НИВЦ МГУ, БЫВШИМИ СОТРУДНИКАМИ ВЦ  АН  СССР  ВЕДЕТ  СИСТЕМНУЮ

     РАБОТУ ПО СОВЕРШЕНСТВОВАНИЮ ИМЕЮЩИХСЯ ЭМУЛЯТОРОВ, СИСТЕМНОГО И ПРИКЛАДНОГО ПО, А ТАКЖЕ  ПО  СОЗДАНИЮ  ЭМУЛЯТОРОВ  ДРУГИХ

     МАШИН (ЭЛЬБРУС 1-КБ, СОВМЕСТИМЫЙ С ОС  ДИСПАК ).



         ПРИГЛАШАЕМ ВСЕХ ЖЕЛАЮЩИХ ПОЛУЧИТЬ ДОСТУП И ПОРАБОТАТЬ С УКАЗАННЫМИ МАШИНАМИ,А ТАКЖЕ  ПЕРЕДАТЬ  ЭКСПОНАТЫ  ДЛЯ  МУЗЕЯ

     (ПЕРИФЕРИЧЕСКИЕ УСТРОЙСТВА, ЭЛЕМЕНТЫ АППАРАТНОГО ОБЕСПЕЧЕНИЯ, НОСИТЕЛИ ИНФОРМАЦИИ, ТЕКСТЫ  ПРОГРАММ,  ТЕХНИЧЕСКУЮ 

     ЛИТЕРАТУРУ, ДОКУМЕНТАЦИЮ) ОБРАЩАТЬСЯ К РУКОВОДИТЕЛЮ СЕКТОРА ИСТОРИИ ЭЛЕКТРОННО-ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ 

     ИЛЬИНУ АЛЕКСАНДРУ ПО
     ^^^^^^^^^^^^^^^^^
     ЭЛЕКТРОННОЙ ПОЧТЕ  АRСНМIС[AT]УАNDЕХ.RU И ТЕЛЕФОНУ +79263244871.
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

     ГРУППЫ В ТЕЛЕГРАММ:

https://t.me/joinchat/QMRBl84otshiMDAy --- ГРУППА ПО ПОПУЛЯРИЗАЦИИ БЭСМ-6
https://t.me/+MtYmrFE9VYo1NGJi --- ГРУППА ПО ПОПУЛЯРИЗАЦИИ ЕС ЭВМ
     

 

By admin, 19 июня, 2022
     Исправлена ошибка допущенная НАМИ при модификации программы калькулятор

 в процедуре считывания с терминала PASBIND. У Пирина, оказывается, все работает.

Обратим внимание на то, что она работает только при создании буферного массива,

задаваемого с помощью текстовой переменной, которую необходимо объявить в явном

виде.

     Ниже приведем ранее процитированную ПАСКАЛЬ-программу калькулятора с соответствующими

изменениями:

ШИФР 419999 ЗС5^

ТЕЛЕ^  ----- Не забывать эту опцию в паспорте для диалоговых программ.

EEВ1А3
*NAME PASCAL
*CALL FICMEMORY
*NO LIST
*LIBRARY:13
*PASCAL
PROGRAM САLСULАТОR(INРUТ,ОUТРUТ);
VАR Х, У, Z: RЕАL;
SIGN: СНАR;

F: TEXT;----- Объявление текстовой переменной

РRОСЕDURЕ РАSВIND(VАR Х:ТЕХТ); ЕХТЕRNАL;
ВЕGIN
 (LООР)WНILЕ ТRUЕ DО ВЕGIN

         WRIТЕLN(’ ЗНАК: ’);
--------------------------
РАSВIND(F);
         READ(F,SIGN);     ------ Процедура ввода данных с терминала.
--------------------------

 IF SIGN = ’0’ ТНЕN
ЕХIТ LООР;
         IF SIGN IN [’+’,’-’,’*’,’/’] ТНЕN ВЕGIN

             WRIТЕLN(’Х = ’);
РАSВIND(F);
             RЕАD(F,X);
             WRIТЕLN(’У = ’);
РАSВIND(F);
             RЕАD(F,Y);
             САSЕ SIGN ОF

                 ’+’: ВЕGIN
                     Z := Х + У;
                     WRIТЕLN(Z:5:5)
                 ЕND;

                 ’-’: ВЕGIN
                     Z := Х - У;
                     WRIТЕLN(Z:5:5);
                 ЕND;

                 ’*’: ВЕGIN
                     Z := Х * У;
                     WRIТЕLN(Z:5:5);
                 ЕND;

                 ’/’:
                     IF У <> 0 ТНЕN ВЕGIN
                         Z := Х / У;
                         WRIТЕLN(Z:5:5)
                     ЕND
                     ЕLSЕ
                         WRIТЕLN(’DIVISIОN ВУ ZЕRО!’);
             ЕND;
         ЕND
         ЕLSЕ
             WRIТЕLN(’ВАD SIGN!’, ORD(SIGN) OCT);

%WRIТЕLN;
ЕND;
ЕND.
*ЕХЕСUТЕ
*ЕND FILЕ

        ----- Две последние строки используются только при вводе с виртуальных перфокарт или перфоленты. 

              В диалоговом режиме из КРАБа они не требуются.
`````` 
ЕКОНЕЦ

Результат работы программы :

NАМЕ РАSСАL
*САLL FIСМЕМОRУ
*NО LISТ
*LIВRАRУ:13
*РАSСАL
*ЕХЕСUТЕ
WНАТ=
3HAK:
;


HEBEPHЫЙ CИMBOЛ! 6400000000000073


3HAK:
+
X =
2
Y =
3


5.00000E+00  ----- верный результат в экспоненциальном представлении.

 

By admin, 12 июня, 2022
.----------------------------------------------------------------------------------.
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|          --------------------                                                    |
|          ++   Ильин А. П.   ++                                                   |
|          ++ --------------  ++                                                   |
|          ++     (410300)    ++                                                   |
|          ++ --------------  ++                                                   |
|          ++  Администратор  ++                                                   |
|          ++ --------------  ++                                                   |
|          --------------------                                                    |
|              Представляю очередную версию сценария, обрабатывающего вывод на     |
|              А Ц П У:                                                            |
|           Практической целью данных сценариев является  повышение  отработка     |
|          техник работы с шаблонами автозамены (регулярными  выражениями) для     |
|          последующего переноса в систему подготовки  текстов " Документатор"     |
|                                                                                  |
|            httрs://disk.yandeх.ru/d/TzqVicхs0Emc0w  (см.  версию 1.2.1.3)        |
|          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     |
|                                                                                  |
|          |---------------------------------|-------------------------------|     |
|          |  Параметр                       |  Изменения                    |     |
|          | +++++++++                       | +++++++++++                   |     |
|          |---------------------------------|-------------------------------|     |
|          |  Общие изменения                |  Текст  сценария  значительно |     |
|          |                                 | сокращен.   исправлены    ряд |     |
|          |                                 | ошибок  при  удалении  текста |     |
|          |                                 | заголовка                     |     |
|          |---------------------------------|-------------------------------|     |
|          |  Обработка латинских символов   |  Введен  специальный  порядок |     |
|          |                                 | обработки латинских символов. |     |
|          |                                 | теперь    подтсрока,    между |     |
|          |                                 | символами      ’%’,’<’      и |     |
|          |                                 | ’>’,’%’(без     пробела     и |     |
|          |                                 | кавычек)   считается    чисто |     |
|          |                                 | латинской.                    |     |
|          |                                 |     Это  удобно   для   ввода |     |
|          |                                 | адресов  сетевых  ресурсов  и |     |
|          |                                 | адресов электронной почты.    |     |
|          |---------------------------------|-------------------------------|     |
|          |  Обработка    табличных    форм |  Усовершенствованы    функции |     |
|          |  С И П Р О Д                    | обработки   табличных   форм. |     |
|          |                                 |  Исключена выдача  границы  в |     |
|          |                                 | виде  буквы  " I"   При  этом |     |
|          |                                 | саму    букву           можно |     |
|          |                                 | использовать как  в таблицах, |     |
|          |                                 | так и вне ее:                 |     |
|          |                                 |   test  : I,   I  Isкаndеr.   |     |
|          |---------------------------------|-------------------------------|     |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
|                                                                                  |
.----------------------------------------------------------------------------------.


By admin, 3 мая, 2022

Имеется нижеприведенный текст диалоговой Паскаль-программы, представляющей собой простейший калькулятор.

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

указываем PASBIND(INPUT):


ШИФP 410300 ЗC5^ 
ОЗУ 32^  
TEЛE^  
EEB1A3  
*NAME TECT  
*CALL FICMEMОRУ  
*LIBRARУ:13  
*NО LIST  
*PASCAL  
PRОGRAM CALCULATОR(INPUT,ОUTPUT);  
VAR  
    X, У, Z: REAL;  
    SIGN: CHAR;  
PRОCEDURE PASBIND(VAR X:TEXT); EXTERNAL;  
 
BEGIN  
(LООP)WHILE TRUE DО BEGIN  
   
        WRITELN('SIGN: ');  
PASBIND(INPUT);  
        READLN(SIGN);  
   
        IF SIGN = '0' THEN   
EXIT LООP;  
        IF SIGN IN ['+','-','*','/'] THEN BEGIN  
   
            WRITELN('X = ');   
PASBIND(INPUT);  
            READLN(X);  
 
            WRITELN('У = ');   
PASBIND(INPUT);  
            READLN(У);  
   
            CASE SIGN ОF  
   
                '+': BEGIN   
                    Z := X + У;   
                    WRITELN(Z:5:2)   
                END;  
   
                '-': BEGIN   
                    Z := X - У;   
                    WRITELN(Z:5:2);   
 
                END;  
   
                '*': BEGIN   
                    Z := X * У;   
                    WRITELN(Z:5:2);   
                END;  
   
                '/':   
                    IF У  0 THEN BEGIN  
                        Z := X / У;  
                        WRITELN(Z:5:2)  
                    END  
                    ELSE  
                        WRITELN('DIVISIОN BУ ZERО!');  
 
            END;  
        END  
        ELSE   
            WRITELN('BAD SIGN!');  
        WRITELN;  
    END;  
END.  
*EXECUTE  
*END FILE  


 ====================================================================

Вот результат:

WHAT=   
SIGN:  
+  
X =  
12  
 GET(F) EOF=TRUE   
       INPUT 
 
 PASCAL PM DUMP      3561 STACK LENGTH.  NAME=CALCULAT.LINE=54 
       X= 0.0000000000E+00.       Y= 0.0000000000E+00.       Z= 0.0000000000E+00.    SIGN=+. 
 PASCAL PMD END 

 ====================================================================

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

 

By admin, 3 мая, 2022

ШИФP 410300 ЗC5^
ОЗУ 32^  
EEB1A3  
*NAME TECT  
*CALL FICMEMОRУ  
*LIBRARУ:13  
*NО LIST  
*PASCAL  
PRОGRAM TEST(ОUTPUT);  
CОNST    
XLINES = 16;    
SCALE = 32;    
ZERОУ = 34;  
XLIMIT = 32;     
VAR    
DELTA: REAL;   
TWОPI: REAL;  
X, У : REAL;    
PОINT: INTEGER;    
УPОSITIОN: INTEGER;    
BEGIN   
DELTA := 1 / XLINES;    
TWОPI := 8 * ARCTAN(1.0);    
FОR PОINT := 0 TО XLIMIT DО  
BEGIN    
X := DELTA * PОINT;  
У := EXP(-X) * SIN(TWОPI * X);    
УPОSITIОN := RОUND(SCALE * У) + ZERОУ;     
REPEAT    
WRITE (ОUTPUT, ' '); УPОSITIОN:= УPОSITIОN - 1    
UNTIL УPОSITIОN = 0;    
WRITELN(ОUTPUT, '*')    
END    
END.   
*EXECUTE  
*END FILE  



================================================================================


  M О H И T О P-8 0  (3.7)   25.09.84*       (  MC " Д У Б H A " ИAЭ  ) 
                    ЖЖЖЖЖ ЖЖЖЖ   ЖЖЖ    Ж   Ж   Ж Ж  Ж 
                    Ж     Ж   Ж Ж   Ж ЖЖЖЖЖ Ж   Ж Ж Ж 
                    Ж     Ж   Ж Ж   Ж Ж Ж Ж Ж   Ж ЖЖ 
                    Ж     Ж   Ж Ж   Ж Ж Ж Ж Ж  ЖЖ Ж Ж 
                    Ж     ЖЖЖЖ  Ж   Ж ЖЖЖЖЖ Ж Ж Ж Ж  Ж 
                    Ж     Ж     ЖЖЖЖЖ   Ж   ЖЖ  Ж Ж   Ж 
                    Ж     Ж     Ж   Ж   Ж   Ж   Ж Ж   Ж 
*NAME ГPAФИK 
           *CALL FICMEMОRУ 
           *LIBRARУ:13 
           *NО LIST 
           *PASCAL 
           *EXECUTE 
  
                                        ОT 18.01.79 =========================== 
                         ПОДПPОГPAMMЫ ИЗ БИБЛИОTEKИ    13    11.04.82 M3 
                P/CО        P/IT        P/SC        P/1         P/EF        P/W 
                P/WXD       PASISОXT    P/SP        P/PF        P/BEXF      P/D 
                P/EDIH      P/WI        P/TF        P/MD        P/DI        P/P 
                PASDIH      PASNB8      PULT        P/HT        P/E         P/R 
                P/WО        P/WR        P/TR        P/A7        P/7AD       P/T 
                P/EN        P/ER 
                                        ОT 18.01.79 =========================== 
        TEST       01000        PASОUT     02447        P/PAGES    03664 
        PRОGRAM  E 01000        P/PRINT  E 02450        PASPAGN* C 03665 
        P/1D     C 01104        PASTN    E 02506        PASDRN*  C 03666 
        *ОUTPUT* C 01162        PASWHT   E 02522        PASDRUM* C 03667 
        P/SУS      01220        P/HT       02563        P/STACK  C 03670 
        P/MОD    E 01234        PASZERО* C 02575        P/HIDE     03671 
  
        P/DIV    E 01240        P/WX       02576        P/EDIH   E 03674 
        P/IT     E 01252        P/WXD    E 02605        PASPERID C 03677 
        P/CО     E 01254        PASEОF     02623        PASPLUS* C 03700 
        P/RE1    E 01262        IОXXPKRT   02642        P/TR       03701 
        P/RE2    E 01424        READ*    E 02644        P/A7       03704 
        PASCTRP  E 01457        PASCELUP C 02676        PASHID     03712 
        P/GF     E 01532        P/ER       02677        PASDIH   E 03715 
        P/RACPAK E 01571        PASMINS* C 02706        MОN*ITОR   03721 
        PASINBUF E 01641        P/TRPAGE   02707        PLBEG    E 03730 
        PASGIVEP E 01676        P/BX       02741        PLCLО    E 03736 
        P/PF     E 01757        P/EN     E 02753        ASAVE*   E 03744 
        P/WОLN   E 02010        P/WО       02767        SAVE*HID E 03751 
        P/WL     E 02011        P/WR       03020        FОR*ALL  E 03766 
        P/RF     E 02063        PASTENS  E 03206        ОH*      E 03770 
        P/TF     E 02146        P/WI       03232        ОH*1     E 03775 
  
        P/SC       02201        P/7A       03313        ISО/GОST   04004 
        P/CW       02211        P/7AD    E 03315        CLEARLEX   04053 
        P/EF       02213        PASEXFT* C 03330        DRUMTAP*   04065 
        P/E      E 02216        *PASDDS* C 03347        CОSУTISО   04113 
        P/1        02221        RGEXPОRT C 03350        CОZУTISО E 04113 
        PASPMD     02225        *PASTEL* C 03351        IОXXTTWT   04167 
        P/PMDSET E 02260        PASEVN     03402        TTPRINTD E 04173 
        PASENDS* C 02366        PASNB8     03423        TTPRINT  E 04173 
        PASEОLSУ C 02367        PRINT8     03433        TTPRIKS  E 04205 
        PASEОFCD C 02370        PRINT80  E 03433        /IP*     E 04253 
        P/BEXF     02371        PULT       03471        P/FIRP   C 06000 
        P/DA       02376        P/RC       03477        CHKWОRD* C 10000 
        P/MD       02411        PASISОXT   03523        TSTATE*  C 10001 
        P/DI       02420        P/SP       03555          CBОБОД   10002 
        PASPMDAD C 02424        MОNREAD*   03563 
  
        STОP*      02425        READ*ERR E 03640 
        SPACE*   C 02446        LUN*MОN    03656 
                                  * 
                                              * 
                                                      * 
                                                           * 
                                                           * 
                                                        * 
                                                  * 
                                          * 
                                  * 
                           * 
                      * 
                   * 
                   * 
  
                     * 
                         * 
                             * 
                                  * 
                                      * 
                                         * 
                                           * 
                                           * 
                                          * 
                                        * 
                                     * 
                                  * 
                               * 
                              * 
                             * 
  
                            * 
                             * 
                               * 
                                * 
                                  * 
ЗTPAK =015  ИTPAK =046  
00171 - KОHEЦ БУФEPA 



================================================================================

Изменим некоторые параметры: 

XLINES = 32; SCALE = 64; ZERОУ = 68; XLIMIT = 64; 

=========== 

DELTA := 2 / XLINES; 
TWОPI := 4 * ARCTAN(2.0);

================================================================================
                                                                    * 
                                                                       * 
                                                               * 
                                                       * 
                                                  * 
                                               * 
                                             * 
                                              * 
                                                * 
                                                   * 
                                                        * 
                                                            * 
                                                                 * 
  
                                                                     * 
                                                                         * 
                                                                            * 
                                                                              * 
                                                                              * 
                                                                             * 
                                                                           * 
                                                                         * 
                                                                      * 
                                                                    * 
                                                                  * 
                                                                 * 
                                                               * 
                                                               * 
                                                               * 
  
                                                               * 
                                                               * 
                                                                * 
                                                                 * 
                                                                  * 
                                                                    * 
                                                                     * 
                                                                     * 
                                                                      * 
                                                                       * 
                                                                       * 
                                                                       * 
                                                                      * 
                                                                      * 
                                                                      * 
  
                                                                     * 
                                                                    * 
                                                                    * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 

By admin, 29 апреля, 2022

Система программирования Паскаль-монитор версии 15.0 от 15.02.1982 г. является наиболее продвинутой, имеющимся в распоряжении нашего коллектива. Она включает в себя пакетный компилятор, диалоговой отладчик, а также ряд вспомогательных программ для редактирования текстов на Паскале и работой с личными библиотеками пользователя мониторной системы "Дубна"(*PERSO).

Эта система имеет ряд особенностей при организации диалогового режима, в отличие от классического Паскаля на ПЭВМ.

В начале вставим стандартный паспорт вызова Паскаль-Монитора:

ШИФP 410300 ЗC5^  //Шифр пользователя Ильина А.П. и стандартный паспорт МС "Дубна".
ОЗУ 32^  // 32 килослова. Максимально доступная ОЗУ для пользовательской программы.
TEЛE^   //Устанавливается при работе с терминалами. Обязательно для организации диалога
EEB1A3  // Вызов МС "Дубна"
*NAME TECT  // Заголовок программы (опционально). Если он не нужен оставить просто *NAME
*CALL FICMEMОRУ  //Опция обязательна
*LIBRARУ:13  // Библиотека МС "Дубна" с системой Паскаль-Монитор
*NО LIST  //Убрать если нужна выдача листинга и работа с диалоговым отладчиком.
*PASCAL  

Добавим тело программы:

PRОGRAM TEST(INPUT,ОUTPUT,PASTEL); //PASTEL - переменная, отвечающая за работу с терминалом и диалоговым отладчиком. Иногда можно обойтись без нее.
VAR  
     A,B,C,D: INTEGER;                 
PASTEL:ARRAУ[0:25] ОF CHAR;    //Устанавливаем длину выдачи.
PRОCEDURE PASBIND(VAR X:TEXT); EXTERNAL;   //Обязательная процедура для организации ввода с терминала.
BEGIN  
PASTEL[3]:=CHR(0);  //Подавление выдачи диалогового отладчика.
     WRITELN ('BBEДИTE ЧETЫPE ЧИCЛA:' );  
PASBIND(INPUT);  //Запускаем процедуру ввода данных с терминала.
     READLN (A,B,C,D);   
     WRITELN ('ИX CУMMA: ', A+B+C+D);  
READLN  
END.  
*EXECUTE  
*END FILE  

Далее в КРАБе даем команду на формирование подсистемы.:

Ф ПС  
ШИФP  410300000000 
ПОДCИCTEMA BKЛЮЧEHA 
    BОЙTИ? (ДA,HET)ДА  

Результат:

*NAME TECT 
           *CALL FICMEMОRУ 
           *LIBRARУ:13 
           *NО LIST 
           *PASCAL 
           *EXECUTE 
BBEДИTE ЧETЫPE ЧИCЛA: 
1 2 3 4  
ИX CYMMA:         10 
 GET(F) EOF=TRUE   
       INPUT 
 
 PASCAL PM DUMP      3615 STACK LENGTH.  NAME=    TEST.LINE=13 
       A=1.       B=2.       C=3.       D=4. 
 PASCAL PMD END   -

То же с включенным листингом, диалоговым отладчиком и без PASTEL:

 PASCAL COMPILER 15.0 (15.02.82) 
 00001    1  0 PROGRAM TEST(INPUT,OUTPUT); 
 00001    2  1 VAR 
 00001    3  1      A,B,C,D: INTEGER; 
 00013    4  1 PROCEDURE PASBIND(VAR X:TEXT); EXTERNAL; 
 00013    5  2 BEGIN 
 00014    6  2      WRITELN ('BBEДИTE ЧETЫPE ЧИCЛA:' ); 
 00017    7  2 PASBIND(INPUT); 
 00021    8  2      READLN (A,B,C,D); 
 00030    9  2      WRITELN ('ИX CYMMA: ', A+B+C+D); 
 00036   10  2 READLN 
WHAT=   
 00050   11  0 END. 
           *EXECUTE 
WHAT=   
BBEДИTE ЧETЫPE ЧИCЛA: 
1 2 3 4   
ИX CYMMA:         10 
 GET(F) EOF=TRUE   
       INPUT 
 
 PASCAL PM DUMP      3619 STACK LENGTH.  NAME=    TEST.LINE=11 
       A=1.       B=2.       C=3.       D=4. 
 PASCAL PMD END       
 

By admin, 26 апреля, 2022

При выполнении директивы "ДАТ" система выдает 92 год. Необходимо исправить первую цифру, так как вторая успешно устанавливается через ГЕНС.

Смотрим  текст программы ГЕНС:

дата

Текст на БЕМШе сверху - из программы ГЕНС для ОС "Диспак" для СВС (диск 2113). Нас интересует стр. 4.

Ниже содержание 471-й зоны диска 2053 ОС "Диспак" для БЭСМ-6 из Соснового Бора.

В программе ГЕНС2: (2113)

901) конд П’ КЛЮЧСТ’

904) конд П’.80 ‘


На 2053:

В зонах ГП для ГЕНС2 0471.0011 П’СТКЛЮЧ’ (Зона 471 2053)

В зонах статистики 30-67 2053 в 15-й ячейке тоже П’СТКЛЮЧ’

 

  1. Не совпадают ключи в автокодной программе Генс2 и в готовой программе на 2053.

  2. Не совпадает ячейка с 2-й цифрой года:

В автокодной программе Генс2 П’.80 ‘

В зоне ГП Генс2 на 2053 в 0471.0614 П’.90 ‘

При изменении параметров следует учесть, что десятичные цифры преобхразуются сначала в двоично-десятичную, а затем в восьмеричную систему счисления и обратно.
 

Надо заменить на 2053 в зоне 0471 ячейку 0614 на

С 0340 1000 0360 7417

By admin, 26 апреля, 2022

Исправления в будильнике для опроса дисков

 

Нужно изменить программу ДИСП (622 зона на 2053)- заменить 2 слова 1620-1621). В оперативной памяти это ячейки 3620 и 3621.

Будельник НМД

В ячейке 331 находится счетчик в 48-42 рр(в автокодной программе название РМЛ).

В 1617 яч. к счетчику добавляется Е42 (яч.111).

Переход по нулю в адрес 65764 не работает, т.к. на сумматоре всегда не 0.

Переходы в адреса 622.1617, 622.1620, 622.1621 для загружаемых программ проверила.

Нужна замена в формате команд:

1620) К 00 000 0331 00 011 0541 (ЗП РМЛ И Е48Е47)

1621) К 00 27 03714 16 24 77777 (ПЕ БУДИЛ УИА -1(16))

Переход в 3714 для вызова программы опроса МД.

541)Е48Е47 – есть в ДИСПе. В этом случае будильник ≈ 2сек.

Можно вместо адреса 541 взять

220)Е46П48(≈120мсек) или

103)Е48(≈5сек).

By admin, 4 января, 2022
.----------------------------------------------------------------------------------.
I                                                                                  I
I                                                                                  I
I                                                                                  I
I                                                                                  I
I                                                                                  I
I          *********************                                                   I
I          **   Ильин А. П.   **                                                   I
I          ** --------------- **                                                   I
I          **     (410300)    **                                                   I
I          ** --------------- **                                                   I
I          **  Администратор  **                                                   I
I          ** --------------- **                                                   I
I          *********************                                                   I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I              По текущей деятельности сообщаю следующее:                          I
I                                                                                  I
I           ---  М К Б - 8601 У                                                    I
I                                                                                  I
I              В связи с неопределенностью сроков завершения работ по созданию     I
I                                                                                  I
I          открытой для модификации версиии операционной  системы  " Диспак  "     I
I                                                                                  I
I          сроки подачи заявки на грант были сдвинуты.                             I
I                                                                                  I
I              В  настоящее  время  ведется   подготовка   краткого   варианта     I
I                                                                                  I
I           Технического задания.  Планируемый срок подготовки - 17.01.22          I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I           ---  Создание библиотеки  П О  Э В М:                                  I
I                                                                                  I
I             ===   М Л - 26 (все  П О  Э В М  Е С)                                I
I                                                                                  I
I           ---  А О  М Ц С Т --  Обнаружен архив магнитных лент   Для   Э В М     I
I                                                                                  I
I           Эльбрус -  2. Определяется  состав  и  уточняется  вопрос  наличия     I
I                                                                                  I
I          грифов. Срок - до 17.01.22(предположительно).                           I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I           ---   В Н И И Э Ф  --   Заместителю   директора    Р. М. Шагалиеву     I
I                                                                                  I
I          передана просьба о снятии грифа " Секретно" с  подборки документнов     I
I                                                                                  I
I          подготовленной по запросу  Рабочей группы.                              I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I           ---  П О Л И Т Е Х --  Ждем ответа администрации музея  на  письмо     I
I                                                                                  I
I           Рабочей    группы.                                                     I
I                                                                                  I
I                                                                                  I
I                                                                                  I
I                                                                                  I
.----------------------------------------------------------------------------------.