[personal profile] mrupor
Как бы удалось преодолеть подъём системы с текстов, используя только симулятор Диспака, и теперь система как то работает в SIMH

В ОС Дубна функционирует терминальный сервис МУЛЬТИТАЙП и полностью пакетная обработка. Однако, всё сделано на живую нитку (a.k.a. hack) и до done-done еще пахать и пахать...

Вот только вопрос: и к чему это всё? к пятидесятилетию БЭСМ-6, что-ли? одним словом - провидение...

МП


РЕЗ 2
                                              00
                 00.17
 ОИЯИ.       БЭСМ-6/0     ШИФР-01
 МОНИТОРНАЯ СИСТЕМА  'Д У Б Н А'  -  20/10/88
             ЖЖЖ  Ж   Ж ЖЖЖЖЖ ЖЖЖЖ   ЖЖЖ  ЖЖЖЖ
              Ж   ЖЖ  Ж   Ж   Ж   Ж Ж     Ж   Ж
              Ж   Ж Ж Ж   Ж   Ж   Ж  ЖЖЖ  Ж   Ж
              Ж   Ж  ЖЖ   Ж   ЖЖЖЖ      Ж Ж   Ж
              Ж   Ж   Ж   Ж   Ж Ж       Ж ЖЖЖЖ
              Ж   Ж   Ж   Ж   Ж  Ж  Ж   Ж Ж
             ЖЖЖ  Ж   Ж   Ж   Ж   Ж  ЖЖЖ  Ж
*NАМЕ INТRSР                                                                     1
*РАSS:******                                                                     2
*ТIМЕ:24.00                                                                      3
<ЭКСПРЕСС-ЗАДАЧА>                                                                4
*         NО LОАD                                                                5
                                              00.00.17
 Ф О Р Т Р А Н
   /16.07.73/
                РRОGRАММА =                                                                    6
                DIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9) =                                     7
                DАТА М1/54НРRОGRАММА =   /                                                    8
                DАТА М2/54НDIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9) =   /                     9
                DАТА М3/54НРRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4, 5,М5,М3,М5 =   /              10
                DАТА М4/54Н(2(6Х,9А6/)5(6Х,6НDАТА М,I1,4Н/54Н,9А6,1Н//)(6Х,9А6)) =   /      11
                DАТА М5/54НЕND =   /                                                         12
                РRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4, 5,М5,М3,М5 =                             13
                ЕND =                                                                         14
                                       ТАБЛИЦА  ОТНОСИТЕЛЬНЫХ АДРЕСОВ
         1     2     3     4     5     6     7     8     9    10    11    12 =  13    14    15    16    17    18    19    20
 000  :00001
*ЕХЕСUТЕ                                                                        15
#
         МА         01000                IОСОNТ*    02031                FТ*723 =     Е 02103                ISОТСОS1 Е 04234
         РRОGRАМ  Е 01000                IОАС*    Е 02062                FТ*003 =     Е 02103                FМRТАРЕ    04254
         ВСDWRIТ*   01226                FТ*722   Е 02075                SТОР* =        03071                ОСТТDЕС    05203
         FТ*621   Е 01226                FТ*642   Е 02075                ЕХIТ =       Е 03072                LUNМUN   С 05236
         ВСDЕNС*  Е 01232                FТ*002   Е 02075                ВСDВЕG* =      03120                JЕRRIО*  С 05237
         FТ*611   Е 01232                FD*642   Е 02076                FТ2* =       Е 03425                САRD2    С 05240
         FТ*571   Е 01234                FD*722   Е 02076                КОNV1* =     Е 03440                ISОIСТТR   05265
         FТ*561   Е 01237                FС*722   Е 02076                РRINТ8 =       03534                RЕVСАRD    05322
         NЕХТLЕТ* Е 01244                FС*642   Е 02076                ТТРRINТ =      03715                *IСНЕСК* С 05347
         RК*      Е 01306                FС*002   Е 02076                ВСDРUN =       03754                *ПЕРФОРА   05355
         WSУ*     Е 01544                IОЕND*   Е 02103                ЕВСDРUN =    Е 04000                КОД*СDС  Е 05356
         I/О*ЕRR  Е 02004                FТ*643   Е 02103                ISОТСОS =  У   04163                СВОБОДНО   05416

      РRОGRАММА
      DIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9)
      DАТА М1/54НРRОGRАММА                                              /
      DАТА М2/54НDIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9)                /
      DАТА М3/54НРRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4, 5,М5,М3,М5         /
      DАТА М4/54Н(2(6Х,9А6/)5(6Х,6НDАТА М,I1,4Н/54Н,9А6,1Н//)(6Х,9А6)) /
      DАТА М5/54НЕND                                                    /
      РRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4, 5,М5,М3,М5
      ЕND
@                                                               @
   АДРЕС РАУ *И15* *И14* *И13* *И12* *И11* *И10* *И9** *И8**
   00430 006 53401 00000 00427 03071 02441 01001 00000 02746
                   *И7** *И6** *И5** *И4** *И3** *И2** *И1**
                   01142 37015 20324 20232 00000 20220 00011
    СВ=00.00.00 КВ=00.00.17 АВ=00.17.30
                                         ДАТА=00/00/00  ЭВМ-0
 КОНЕЦ ЗАДАЧИ  ТЕРМ. Ш-01  ВЫ/ВВ=0000  ОТДЕЛ=041 - ПОПОВ М.Ю.
 *****************ОС ДУБНА 1.04  ОТ 22,03,17 ,1ЩЩЩЩЩЩЩЩЩЩЩЩЩЩЩЩ
 ***************************** ****************************** ***
.

Date: 2017-03-31 08:02 pm (UTC)
vak: (Default)
From: [personal profile] vak
Программист есть слепое орудие в руках высших математических сил. Не вычисляй, да невычислим будешь! :)

Profile

mrupor

March 2017

S M T W T F S
   1234
567891011
12131415161718
19202122 232425
262728293031 

Page Summary

Style Credit

Expand Cut Tags

No cut tags
Page generated Feb. 17th, 2019 01:24 pm
Powered by Dreamwidth Studios