besm6 | Заработала вторая часть теста

vak posting in

Запускаю вторую часть паскалевского теста посредством скрипта pas-run.py. Тест успешно компилируется и работает. Единственное - внутренняя кодировка на юниксе у нас КОИ8, а в Диспаке КОИ-7, поэтому получается смешно.


$ cd mesm6/toolchain/pascompl/test/accept
$ ../pas-run.py besm6pat2.pas 
Decompiling file besm6pat2.obj
                                                      10.05.19 М1

  М О Н И Т О Р-8 0  (3.7)   25.09.84*       (  МС " Д У Б Н А " ИАЭ  )             ШИФР    419999000000







                    ЖЖЖЖ  ЖЖЖЖ   ЖЖЖ  Ж   Ж  ЖЖЖ  ЖЖЖЖ   ЖЖЖ  ЖЖЖЖЖ  ЖЖЖ
                    Ж  Ж  Ж     Ж     ЖЖ ЖЖ Ж     Ж   Ж Ж   Ж   Ж   Ж   Ж
                    ЖЖЖ   ЖЖЖ    ЖЖЖ  Ж Ж Ж ЖЖЖЖ  Ж   Ж Ж   Ж   Ж       Ж
                    Ж  Ж  Ж         Ж Ж Ж Ж Ж   Ж Ж   Ж Ж   Ж   Ж      Ж
                    Ж   Ж Ж         Ж Ж   Ж Ж   Ж ЖЖЖЖ  Ж   Ж   Ж     Ж
                    Ж   Ж Ж     Ж   Ж Ж   Ж Ж   Ж Ж     ЖЖЖЖЖ   Ж    Ж
                    ЖЖЖЖ  ЖЖЖЖЖ  ЖЖЖ  Ж   Ж  ЖЖЖ  Ж     Ж   Ж   Ж   ЖЖЖЖЖ








*NАМЕ ВЕSМ6РАТ2
           *NО LISТ
           *АSSЕМ
           *РЕRSО:670440,СОNТ
 LIВRАRУ ОТ  26.02.82 М3
           *NО LОАD LISТ
           *МАIN ВЕSМ6РАТ2
           *ЕХЕСUТЕ

******************* ВООЛЕАНС *******************


ВООЛЕАН1:       ТRUЕ    FАLSЕ С/Б ТРУЕ ФАЛСЕ
ВООЛЕАН2:       ТRUЕ С/Б ТРУЕ
ВООЛЕАН3:      FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН4:   0 С/Б 0
ВООЛЕАН5:   1 С/Б 1
ВООЛЕАН6:       ТRUЕ С/Б ТРУЕ
ВООЛЕАН7:       ТRUЕ С/Б ТРУЕ
ВООЛЕАН8:      FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН9:       ТRUЕ С/Б ТРУЕ
ВООЛЕАН10:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН11:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН12:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН13:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН14:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН15:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН16:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН17:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН18:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН19:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН20:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН21:     FАLSЕ     ТRUЕ С/Б ФАЛСЕ ТРУЕ
ВООЛЕАН22:      ТRUЕ    FАLSЕ С/Б ТРУЕ ФАЛСЕ
ВООЛЕАН23:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН24:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН25:      ТRUЕ    FАLSЕ С/Б ТРУЕ ФАЛСЕ
ВООЛЕАН26:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН27:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН28:  0 С/Б 0
ВООЛЕАН29:  1 С/Б 1
ВООЛЕАН30:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН31:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН32:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН33:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН34:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН35:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН36:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН37:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН38:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН39:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН40:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН41:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН42:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН43:      ТRUЕ С/Б ТРУЕ
ВООЛЕАН44:     FАLSЕ С/Б ФАЛСЕ
ВООЛЕАН45:
     FАLSЕ
    FАLSЕ
   FАLSЕ
   FАLSЕ
   FАLSЕ
   FАLSЕ
   FАLSЕ
   FАLSЕ
   FАLSЕ
   FАLSЕ
ВООЛЕАН45: С/Б:
     ФАЛСЕ
    ФАЛСЕ
   ФАЛСЕ
  ФАЛСЕ
 ФАЛСЕ
ФАЛСЕ
ФАЛС
ФАЛ
ФА
Ф
ВООЛЕАН46:
      ТRUЕ
     ТRUЕ
    ТRUЕ
    ТRUЕ
    ТRUЕ
    ТRUЕ
    ТRUЕ
    ТRUЕ
    ТRUЕ
    ТRUЕ
ВООЛЕАН46: С/Б:
      ТРУЕ
     ТРУЕ
    ТРУЕ
   ТРУЕ
  ТРУЕ
 ТРУЕ
ТРУЕ
ТРУ
ТР
Т

******************* SЦАЛАР *******************

  ЦАЛАР1:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР2:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР3:   0 С/Б 0
  ЦАЛАР4:   2 С/Б 2
  ЦАЛАР5:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР6:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР7:      FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР8:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР9:      FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР10:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР11:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР12:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР13:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР14:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР15:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР16:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР17:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР18:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР19:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР20:  0 1 2 3 4 5 6 С/Б 0 1 2 3 4 5 6
  ЦАЛАР21:  6 5 4 3 2 1 0 С/Б 6 5 4 3 2 1 0
  ЦАЛАР20:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР21:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР22:   2 С/Б 2
  ЦАЛАР23:   6 С/Б 6
  ЦАЛАР24:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР25:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР26:      FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР27:       ТRUЕ С/Б ТРУЕ
  ЦАЛАР28:      FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР29:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР30:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР31:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР32:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР33:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР34:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР35:     FАLSЕ С/Б ФАЛСЕ
  ЦАЛАР36:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР37:      ТRUЕ С/Б ТРУЕ
  ЦАЛАР38:     FАLSЕ С/Б ФАЛСЕ

******************* RЕАЛС ******************************

RЕАЛ1:        1.5540Е+00 С/Б  1.554000Е+00
RЕАЛ2:        3.3400Е-03 С/Б  3.340000Е-03
RЕАЛ3:        3.3400Е-16 С/Б  3.34000Е-16
RЕАЛ4:        4.0000Е-18 С/Б  4.000000Е-18
RЕАЛ5:       -5.5650Е+00 С/Б -5.565000Е+00
RЕАЛ6:       -9.4400Е-03 С/Б -9.440000Е-03
RЕАЛ7:       -6.3640Е+15 С/Б -6.364000Е+15
RЕАЛ8:       -2.0000Е-14 С/Б -2.000000Е-14
RЕАЛ9:
         11111111112222222222333333333344444444445
 2345678901234567890123456789012345678901234567890
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
 1.2346Е+00
  1.2346Е+00
   1.2346Е+00
    1.2346Е+00
     1.2346Е+00
      1.2346Е+00
       1.2346Е+00
        1.2346Е+00
         1.2346Е+00
          1.2346Е+00
С/Б (НОТЕ ПРЕЦИСИОН ДРОПОФФ АТ РИГХТ):
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.2Е+000
 1.23Е+000
 1.234Е+000
 1.2345Е+000
 1.23456Е+000
 1.234567Е+000
 1.2345678Е+000
 1.23456789Е+000
 1.234567890Е+000
 1.2345678901Е+000
 1.23456789012Е+000
 1.234567890123Е+000
RЕАЛ10:
         11111111112222222222333333333344444444445
 2345678901234567890123456789012345678901234567890
 1.2Е+00
 2.23Е+00
 3.235Е+00
 4.2346Е+00
 5.23457Е+00
 6.234568Е+00
 7.2345679Е+00
 8.23456789Е+00
 9.234567890Е+00
 1.0234567890Е+01
 1.1234567890Е+01
 1.2234567890Е+01
 1.3234567890Е+01
 1.4234567890Е+01
 1.5234567890Е+01
 1.6234567890Е+01
 1.7234567890Е+01
 1.8234567890Е+01
 1.9234567890Е+01
 2.0234567890Е+01
С/Б (НОТЕ ПРЕЦИСИОН ДРОПОФФ АТ РИГХТ):
 .2
2.23
3.234
  .2345
  .23456
  .234567
7.2345678
8.23456789
9.234567890
 0.2345678901
 1.23456789012
 2.234567890123
 3.2345678901234
 4.23456789012345
 5.234567890123456
 6.2345678901234567
 7.23456789012345678
 8.234567890123456789
 9.2345678901234567890
20.23456789012345678901
RЕАЛ11:       1.4189Е+03 С/Б  1.418900Е+03
RЕА112:       5.4844Е+02 С/Б  5.484399Е+02
RЕАЛ13:       4.2812Е+05 С/Б  4.281227Е+05
RЕАЛ14:       2.2601Е+00 С/Б  2.260115Е+00
RЕАЛ15:      ТRUЕ С/Б ТРУЕ
RЕАЛ16:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ17:      ТRUЕ С/Б ТРУЕ
RЕАЛ18:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ19:      ТRUЕ С/Б ТРУЕ
RЕАЛ20:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ21:      ТRUЕ С/Б ТРУЕ
RЕАЛ22:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ23:      ТRUЕ С/Б ТРУЕ
RЕАЛ24:      ТRUЕ С/Б ТРУЕ
RЕАЛ25:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ26:      ТRUЕ С/Б ТРУЕ
RЕАЛ27:      ТRUЕ С/Б ТРУЕ
RЕАЛ28:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ29:       4.3523Е+02 С/Б  4.35230Е+02
RЕАЛ30:       1.8943Е+05 С/Б  1.89425Е+05
RЕАЛ31:       3.1364Е+01 С/Б  3.13635Е+01
RЕАЛ32:      -3.4431Е-01 С/Б -3.44290Е-01
RЕАЛ33:       1.5685Е+00 С/Б  1.56850Е+00
RЕАЛ34:       1.4110Е+00 С/Б  1.41100Е+00
RЕАЛ35:       6.0759Е+00 С/Б  6.07587Е+00
RЕАЛ36:  435 С/Б 435
RЕАЛ37:  984 С/Б 984
RЕАЛ38:  435 С/Б 435
RЕАЛ39:       1.2781Е+03 С/Б  1.278052Е+03
RЕАЛ40:       2.3895Е+02 С/Б  2.389460Е+02
RЕАЛ41:       1.0472Е+05 С/Б  1.047202Е+05
RЕАЛ42:       7.2596Е-03 С/Б  7.259598Е-03
RЕАЛ43:      ТRUЕ С/Б ТРУЕ
RЕАЛ44:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ45:      ТRUЕ С/Б ТРУЕ
RЕАЛ46:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ47:      ТRUЕ С/Б ТРУЕ
RЕАЛ48:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ49:      ТRUЕ С/Б ТРУЕ
RЕАЛ50:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ51:      ТRUЕ С/Б ТРУЕ
RЕАЛ52:      ТRUЕ С/Б ТРУЕ
RЕАЛ53:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ54:      ТRUЕ С/Б ТРУЕ
RЕАЛ55:      ТRUЕ С/Б ТРУЕ
RЕАЛ56:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ57:       3.4930Е+01 С/Б  3.493000Е+01
RЕАЛ58:       5.4756Е+00 С/Б  5.475600Е+00
RЕАЛ59:       9.7233Е+01 С/Б  9.723333Е+01
RЕАЛ60:       3.3115Е-01 С/Б  3.311461Е-01
RЕАЛ61:       1.5679Е+00 С/Б  1.567883Е+00
RЕАЛ62:       1.3938Е+00 С/Б  1.393753Е+00
RЕАЛ63:       4.4215Е+00 С/Б  4.421488Е+00
RЕАЛ64:  24 С/Б 24
RЕАЛ65:  75 С/Б 75
RЕАЛ66:  83 С/Б 83
RЕАЛ67:       4.3330Е+01 С/Б  4.333000Е+01
RЕАЛ68:       3.0034Е+02 С/Б  3.003400Е+02
RЕАЛ69:       3.0034Е+02 С/Б  3.003400Е+02
RЕАЛ70:      -6.6000Е+03 С/Б -6.599980Е+03
RЕАЛ71:      -8.3687Е+03 С/Б -8.368720Е+03
RЕАЛ72:       1.7687Е+03 С/Б  1.768740Е+03
RЕАЛ73:      -8.6691Е+03 С/Б -8.669061Е+03
RЕАЛ74:      -6.9003Е+03 С/Б -6.900320Е+03
RЕАЛ75:      -7.5956Е+05 С/Б -7.595593Е+05
RЕАЛ76:      -7.5956Е+05 С/Б -7.595593Е+05
RЕАЛ77:       5.6053Е+06 С/Б  5.605265Е+06
RЕАЛ78:      -1.4091Е+00 С/Б -1.409071Е+00
RЕАЛ79:      -7.3796Е+00 С/Б -7.379627Е+00
RЕАЛ80:       1.0398Е+01 С/Б  1.039842Е+01
RЕАЛ81:      ТRUЕ С/Б ТРУЕ
RЕАЛ82:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ83:      ТRUЕ С/Б ТРУЕ
RЕАЛ84:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ85:      ТRUЕ С/Б ТРУЕ
RЕАЛ86:      ТRUЕ С/Б ТРУЕ
RЕАЛ87:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ88:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ89:      ТRUЕ С/Б ТРУЕ
RЕАЛ90:      ТRUЕ С/Б ТРУЕ
RЕАЛ91:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ92:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ93:      ТRUЕ С/Б ТРУЕ
RЕАЛ94:      ТRUЕ С/Б ТРУЕ
RЕАЛ95:      ТRUЕ С/Б ТРУЕ
RЕАЛ96:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ97:     FАLSЕ С/Б ФАЛСЕ
RЕАЛ98:      ТRUЕ С/Б ТРУЕ
RЕАЛ99:      ТRUЕ С/Б ТРУЕ
RЕАЛ100:     ТRUЕ С/Б ТРУЕ
RЕАЛ101:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ102:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ103:      7.3420Е+02 С/Б  7.34200Е+02
RЕАЛ104:      5.3905Е+05 С/Б  5.39050Е+05
RЕАЛ105:     -4.3483Е-01 С/Б -4.34850Е-01
RЕАЛ106:     -1.5694Е+00 С/Б -1.56943Е+00
RЕАЛ107:      6.8057Е-01 С/Б  6.80566Е-01
RЕАЛ108:            -734 С/Б -734
RЕАЛ109:           -7635 С/Б -7635
RЕАЛ110:            -734 С/Б -734
RЕАЛ111:      1.5100Е+01 С/Б  1.510000Е+01
RЕАЛ112:      4.5133Е+01 С/Б  4.513300Е+01
RЕАЛ113:     -3.8640Е+01 С/Б -3.864000Е+01
RЕАЛ114:     -3.6581Е+01 С/Б -3.658100Е+01
RЕАЛ115:      3.5548Е+01 С/Б  3.554800Е+01
RЕАЛ116:     -4.9398Е+01 С/Б -4.939840Е+01
RЕАЛ117:     -4.4001Е+01 С/Б -4.400100Е+01
RЕАЛ118:     -2.6412Е+01 С/Б -2.641223Е+01
RЕАЛ119:     -1.4890Е+02 С/Б -1.489041Е+02
RЕАЛ120:      5.5856Е+02 С/Б  5.585632Е+02
RЕАЛ121:     -5.2202Е+00 С/Б -5.220157Е+00
RЕАЛ122:     -1.7722Е+01 С/Б -1.772163Е+01
RЕАЛ123:      4.2746Е+00 С/Б  4.274582Е+00
RЕАЛ124:     ТRUЕ С/Б ТРУЕ
RЕАЛ125:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ126:     ТRUЕ С/Б ТРУЕ
RЕАЛ127:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ128:     ТRUЕ С/Б ТРУЕ
RЕАЛ129:     ТRUЕ С/Б ТРУЕ
RЕАЛ130:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ131:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ132:     ТRUЕ С/Б ТРУЕ
RЕАЛ133:     ТRUЕ С/Б ТРУЕ
RЕАЛ134:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ135:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ136:     ТRUЕ С/Б ТРУЕ
RЕАЛ137:     ТRUЕ С/Б ТРУЕ
RЕАЛ138:     ТRUЕ С/Б ТРУЕ
RЕАЛ139:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ140:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ141:     ТRUЕ С/Б ТРУЕ
RЕАЛ142:     ТRUЕ С/Б ТРУЕ
RЕАЛ143:     ТRUЕ С/Б ТРУЕ
RЕАЛ144:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ145:    FАLSЕ С/Б ФАЛСЕ
RЕАЛ146:      6.8230Е+00 С/Б  6.823000Е+00
RЕАЛ147       1.2126Е+05 С/Б  1.212572Е+05
RЕАЛ148:      9.4212Е-01 С/Б  9.421146Е-01
RЕАЛ149:     -1.5707Е+00 С/Б -1.570677Е+00
RЕАЛ150:      4.1715Е-01 С/Б  4.171539Е-01
RЕАЛ151: -33 С/Б -33
RЕАЛ152: -843 С/Б -843
RЕАЛ153: -6244 С/Б -6244
RЕАЛ154:     -8.4220Е+01 С/Б -8.422000Е+01
RЕАЛ155:      8.4220Е+01 С/Б  8.422000Е+01
RЕАЛ156:      -4.3330Е+01 С/Б -4.333000Е+01
RЕАЛ157:      8.4220Е+01 С/Б  8.422000Е+01

******************* СЕТС ******************************

  ЕТ1:  10101010101010101010 С/Б 10101010101010101010
  ЕТ2:  1101110001 С/Б 1101110001
  ЕТ3:  0100010000 С/Б 0100010000
  ЕТ4:  0100001000 С/Б 0100001000
  ЕТ5:     FАLSЕ С/Б ФАЛСЕ
  ЕТ6:      ТRUЕ С/Б ТРУЕ
  ЕТ7:      ТRUЕ С/Б ТРУЕ
  ЕТ8:     FАLSЕ С/Б ФАЛСЕ
  ЕТ9:      ТRUЕ С/Б ТРУЕ
  ЕТ10:     ТRUЕ С/Б ТРУЕ
  ЕТ11:    FАLSЕ С/Б ФАЛСЕ
  ЕТ12:     ТRUЕ С/Б ТРУЕ
  ЕТ13:     ТRUЕ С/Б ТРУЕ
  ЕТ14:    FАLSЕ С/Б ФАЛСЕ
  ЕТ15: 0101010000 С/Б 0101010000
  ЕТ16:  С/Б ТРУЕ
  ЕТ32: 0101010101 С/Б 0101010101
  ЕТ33: 1101110001 С/Б 1101110001
  ЕТ34: 0100010000 С/Б 0100010000
  ЕТ35: 0100001000 С/Б 0100001000
  ЕТ36:    FАLSЕ С/Б ФАЛСЕ
  ЕТ37:     ТRUЕ С/Б ТРУЕ
  ЕТ38:     ТRUЕ С/Б ТРУЕ
  ЕТ39:    FАLSЕ С/Б ФАЛСЕ
  ЕТ40:     ТRUЕ С/Б ТРУЕ
  ЕТ41:     ТRUЕ С/Б ТРУЕ
  ЕТ42:    FАLSЕ С/Б ФАЛСЕ
  ЕТ43:     ТRUЕ С/Б ТРУЕ
  ЕТ44:     ТRUЕ С/Б ТРУЕ
  ЕТ45:    FАLSЕ С/Б ФАЛСЕ
  ЕТ46: 0110000000 С/Б 0110000000
  ЕТ47: 01 С/Б 01
  ЕТ48: 11 С/Б 11
  ЕТ49: 10 С/Б 10
  ЕТ50: 10 С/Б 10
  ЕТ51:    FАLSЕ С/Б ФАЛСЕ
  ЕТ52:     ТRUЕ С/Б ТРУЕ
  ЕТ53:     ТRUЕ С/Б ТРУЕ
  ЕТ54:    FАLSЕ С/Б ФАЛСЕ
  ЕТ55:     ТRUЕ С/Б ТРУЕ
  ЕТ56:     ТRUЕ С/Б ТРУЕ
  ЕТ57:    FАLSЕ С/Б ФАЛСЕ
  ЕТ58:     ТRUЕ С/Б ТРУЕ
  ЕТ59:     ТRUЕ С/Б ТРУЕ
  ЕТ60:    FАLSЕ С/Б ФАЛСЕ
  ЕТ61: 11 С/Б 11
СЕТ62:     ТRUЕ С/Б ТРУЕ
СЕТ63: 1000000001 С/Б 1000000001
 КОНЕЦ ЗАДАЧИ
 00411: 00 074 0000	*74

Threaded | Top-Level Comments Only

From:

vak

Первая часть теста не компилируется:

$ ../pas-run.py besm6pat1.pas 
Decompiling file besm6pat1.obj
                                                      10.05.19 М1

  М О Н И Т О Р-8 0  (3.7)   25.09.84*       (  МС " Д У Б Н А " ИАЭ  )             ШИФР    419999000000







                    ЖЖЖЖ  ЖЖЖЖ   ЖЖЖ  Ж   Ж  ЖЖЖ  ЖЖЖЖ   ЖЖЖ  ЖЖЖЖЖ    Ж
                    Ж  Ж  Ж     Ж     ЖЖ ЖЖ Ж     Ж   Ж Ж   Ж   Ж     ЖЖ
                    ЖЖЖ   ЖЖЖ    ЖЖЖ  Ж Ж Ж ЖЖЖЖ  Ж   Ж Ж   Ж   Ж    Ж Ж
                    Ж  Ж  Ж         Ж Ж Ж Ж Ж   Ж Ж   Ж Ж   Ж   Ж      Ж
                    Ж   Ж Ж         Ж Ж   Ж Ж   Ж ЖЖЖЖ  Ж   Ж   Ж      Ж
                    Ж   Ж Ж     Ж   Ж Ж   Ж Ж   Ж Ж     ЖЖЖЖЖ   Ж      Ж
                    ЖЖЖЖ  ЖЖЖЖЖ  ЖЖЖ  Ж   Ж  ЖЖЖ  Ж     Ж   Ж   Ж     ЖЖЖ








*NАМЕ ВЕSМ6РАТ1
           *NО LISТ
           *АSSЕМ
                                                      10.05.19 М1
 АВТОКОД  МАDLЕN
   (1.10.72)
 ПОДПРОГРАММА  ВЕSМ6РАТ
 ******ОШИБКА В АДРЕСЕ
 1565               ,ISО, 6НЕР ’Е’ . 145 162 040 047 145 047
 ******ОШИБКА В АДРЕСЕ
 1566               ,ISО, 6Н ОР ’Е . 040 157 162 040 047 105
 ******ОШИБКА В АДРЕСЕ
 1567               ,ISО, 6Н’ ИС И . 047 040 151 163 040 151
 ******ОШИБКА В АДРЕСЕ
 1642               ,ISО, 6Н’ТРУЕ’ . 047 164 162 165 145 047
 ******ОШИБКА В АДРЕСЕ
 1642               ,ISО, 6Н АНД ’ . 040 141 156 144 040 047
 ******ОШИБКА В АДРЕСЕ
 1643               ,ISО, 6НФАЛСЕ’ . 146 141 154 163 145 047
           *РЕRSО:670440,СОNТ
 LIВRАRУ ОТ  26.02.82 М3
           *NО LОАD LISТ
           *МАIN ВЕSМ6РАТ1
           *ЕХЕСUТЕ
 БЫЛИ ОШИБКИ ПРИ ТРАНСЛЯЦИИ ИЛИ В НАБИВКЕ
 КОНЕЦ ЗАДАЧИ
 00411: 00 074 0000	*74

Edited Date: 2019-05-11 04:51 am (UTC)

From:

vak

В третьей части теста возникают странные ошибки типа дважды описанного идентификатора:

$ ../pas-run.py besm6pat3.pas 
Decompiling file besm6pat3.obj
                                                      10.05.19 М1

  М О Н И Т О Р-8 0  (3.7)   25.09.84*       (  МС " Д У Б Н А " ИАЭ  )             ШИФР    419999000000







                    ЖЖЖЖ  ЖЖЖЖ   ЖЖЖ  Ж   Ж  ЖЖЖ  ЖЖЖЖ   ЖЖЖ  ЖЖЖЖЖ ЖЖЖЖЖ
                    Ж  Ж  Ж     Ж     ЖЖ ЖЖ Ж     Ж   Ж Ж   Ж   Ж      Ж
                    ЖЖЖ   ЖЖЖ    ЖЖЖ  Ж Ж Ж ЖЖЖЖ  Ж   Ж Ж   Ж   Ж     Ж
                    Ж  Ж  Ж         Ж Ж Ж Ж Ж   Ж Ж   Ж Ж   Ж   Ж      Ж
                    Ж   Ж Ж         Ж Ж   Ж Ж   Ж ЖЖЖЖ  Ж   Ж   Ж       Ж
                    Ж   Ж Ж     Ж   Ж Ж   Ж Ж   Ж Ж     ЖЖЖЖЖ   Ж   Ж   Ж
                    ЖЖЖЖ  ЖЖЖЖЖ  ЖЖЖ  Ж   Ж  ЖЖЖ  Ж     Ж   Ж   Ж    ЖЖЖ








*NАМЕ ВЕSМ6РАТ3
           *NО LISТ
           *АSSЕМ
                                                      10.05.19 М1
 АВТОКОД  МАDLЕN                                                  ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00
   (1.10.72)                                                                         Р/00    :,SUВР,
 ПОДПРОГРАММА  ВЕSМ6РАТ                                           ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00                                      Р/00    :,SUВР,
                    Р/00    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00                                      14,М+J,3
                    Р/00    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/06                                      14,М+J,3
                    Р/06    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/06                                      14,М+J,3
                    Р/06    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/01                                      14,М+J,3
                    Р/01    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/01                                      14,М+J,3
                    Р/01    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/08                                      14,М+J,3
                    Р/08    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/08                                      14,М+J,3
                    Р/08    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/08                                      14,М+J,3
                    Р/08    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/08                                      14,М+J,3
                    Р/08    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/03                                      14,М+J,3
                    Р/03    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/03                                      14,М+J,3
                    Р/03    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00                                      14,М+J,3
                    Р/00    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00                                      14,М+J,3
                    Р/00    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/00                                      14,М+J,3
                    Р/00    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В КОП
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                                      14,М+J,3
                    Р/0Р    :,SUВР,                               ******ОШИБКА В АДРЕСЕ
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                   4062               ,ISО, 6Н С/Б ’ . 040 163 057 142 040 047
                    Р/0Р    :,SUВР,                               ******ОШИБКА В АДРЕСЕ
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                   4070               ,ISО, 6Н’      . 047 040 040 040 040 040
                    Р/0Р    :,SUВР,                               ******ОШИБКА В АДРЕСЕ
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                   4076               ,ISО, 6Н С/Б ’ . 040 163 057 142 040 047
                    Р/0Р    :,SUВР,                               ******ОШИБКА В АДРЕСЕ
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р                   4104               ,ISО, 6Н’      . 047 040 040 040 040 040
                    Р/0Р    :,SUВР,
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р
                    Р/0Р    :,SUВР,
 ******ДВАЖДЫ ОПИСАННЫЙ ИДЕНТИФИКАТОР      Р/0Р
                    Р/0Р    :,SUВР,
           *РЕRSО:670440,СОNТ
 LIВRАRУ ОТ  26.02.82 М3
           *NО LОАD LISТ
           *МАIN ВЕSМ6РАТ3
           *ЕХЕСUТЕ
 БЫЛИ ОШИБКИ ПРИ ТРАНСЛЯЦИИ ИЛИ В НАБИВКЕ
 КОНЕЦ ЗАДАЧИ
 00411: 00 074 0000	*74

Edited Date: 2019-05-11 04:51 am (UTC)

From:

vak

Мадлен специальным образом обрабатывает кавычки в текстовых константах: как восьмеричные коды символов. Поэтому вместо:

      ,ISО, 6Н’ВАСЯ’

надо писать:

      ,ISО, 6Н’47'ВАСЯ’47'

Исправил dtran, чтобы он заменял кавычки на '47'.

Edited Date: 2019-05-12 01:05 am (UTC)

From:

vak

В Паскале таблица symTabArray[] имела размер всего 80 символов. Причём при переполнении не выдавалась никакая диагностика. Увеличил таблицу - дважды описанные идентификаторы исчезли.

M+J - ошибка в dtran, должно быть J+M.

From:

spamsink

ЕТ16: С/Б ТРУЕ

Не работает, или и не должен был?

From:

vak

Не работает.
Сделал отдельный тест:

program hello(output);
var
    x: boolean;
begin
    x := true;
    writeln(' TRUE         = ', x);
    x := false;
    writeln(' FALSE        = ', x);
    x := 5 in [1..10];
    writeln(' 5 IN [1..10] = ', x);
end.

Результат:

 ТRUЕ         =     ТRUЕ
 FАLSЕ        =    FАLSЕ
 5 IN [1..10] = *NОТSСА*

Edited Date: 2019-05-13 06:33 am (UTC)

From:

spamsink

Сегодня разберусь.

From:

spamsink

После очередного security update, редактирование файлов на гитхабе из офиса перестало работать.

Правка такова: в структуре Word нужно заменить "bool b;" на "int64_t b;"

From:

vak

Сурово там у вас.
Заводи отдельный ноутбук для работ по МЭСМ-6.

Стало чуть лучше. Присваивание работает правильно, но если выражение стоит в списке параметров writeln(), то нет.

program hello(output);
var
    ten: integer;
    x: boolean;
begin
    ten := 10;
    x := 5 in [1..ten];
    writeln(' 5 IN [1..TEN] = ', x);
    writeln(' 5 IN [1..TEN] = ', 5 in [1..ten], ' EXPECT TRUE');
end.

Результат:

 5 IN [1..ТЕN] =     ТRUЕ
 5 IN [1..ТЕN] =  ЕХРЕСТ ТRUЕ

Edited Date: 2019-05-13 06:52 pm (UTC)

From:

spamsink

Так в оригинале:

 PASCAL COMPILER 15.0 (15.02.82)
 00001    1  0 PROGRAM HELLO(OUTPUT);
 00001    2  1 VAR
 00001    3  1     TEN: INTEGER;
 00001    4  1     X: BOOLEAN;
 00007    5  2 BEGIN
 00010    6  2     TEN := 10;
 00011    7  2     X := 5 IN [1..TEN];
 00017    8  2     WRITELN(’ 5 IN [1..TEN] = ’, X);
 00025    9  2     WRITELN(’ 5 IN [1..TEN] = ’, 5 IN [1..TEN], ’ EXPECT TRUE’);
 00053   10  0 END.

 5 IN [1..TEN] =     TRUE
 5 IN [1..TEN] =  EXPECT TRUE

Если написать OCT после выражения, то всё равно ничего не печатается. А если печатать только выражение, без строк, то будет и TRUE, и 0000000000000001.

Как говорится, "вот так они и жили".

From:

vak

А если убрать строку ' EXPECT TRUE’, то крэшится:

 5 IN [1..ТЕN] =     ТRUЕ
 КОНТРОЛЬ КОМАНДЫ
 02026  00 000 0000	atx
  acc = 0000000000002027 Y = 0000000000002027 R = 000111        
       01076 02027 06612 73254 03271 22731 01076 01050
       10114 00070 00011 00001 02250 02745 10116
 КОНТРОЛЬ КОМАНДЫ
 00020  00 000 0000	atx
  acc = 0000000000002027 Y = 0000000000002027 R = 000111        
       01076 02027 06612 73254 03271 22731 01076 01050
       10114 00070 00011 00001 02250 02745 10116

From:

spamsink

Это очень странно. В онлайн-эмуляторе не крэшится.

From:

spamsink

С одной стороны, казалось, что между двумя вариантами рантайма паскаля (СБОР/СВС) есть какая-то разница, и в этом всё и дело. Но нет. Для чистоты эксперимента, в онлайн-эмуляторе

*name WTF
*call fullmemory
*personal library:670440
*pascal
program hello(output);(*=p-,t-,s8*)
var ten: integer;
begin ten := 10;
    writeln(' 5 IN [1..TEN] = ',5 in [1..ten]);
end.
*     perso:671614,cont
*     call dtran(hello)
*     super
*     edit
*     r:1
*     ll
*     ee
*execute
*end file

Завершается успешно (хотя и без TRUE), а если раскомментировать детрансляцию, то падает с контролем команды.

!!! А если раскомментировать только *perso:671614,cont, то искажается печатаемая строка!

На СБОРовском диске, видимо, что-то в мониторке как-то отличается, поэтому падает безусловно.
Я фигею.

From:

spamsink

Не прошло и 6 лет, как я разобрался. 12 регистр - указатель на текущий файл - нельзя использовать при вычислении выражений: на случай, если выражение записано в операторе write с несколькими аргументами, в котором случае между аргументами он ради экономии не переустанавливается.
В процедуре, конструирующей множества с переменными границами, видим:

 p/pi    :      , name,         . dtran  /01.06.84/
                , ntr , 3
            15  , a-x , -1
                , u1a , *0005b
                , sti , 14
                , ati , 12 . s/b ,ati, 10
             1  , xta , 24b
            14  , asn , 64-47
            12  , asn , 64 . s/b 10, asn, 64
            13  , uj  ,

 *0005b  :  15  , utm , -1
                , xta ,
            13  , uj  ,
                , end ,

В качестве временного можно использовать регистр 10 (как в p/ldar, например). Просто кто-то попутал в голове восьмеричную и десятичную системы, или, грубо говоря, БЕМШ и МАДЛЕН. Если заменить, всё работает.

From:

vak

Похоже действительно, автор спутал 10 и 12в. И никто не заметил: бага редко проявляется.

Threaded | Top-Level Comments Only

Profile

Сообщество любителей БЭСМ-6

December 2025

S	M	T	W	T	F	S
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

Page Summary

Style Credit

Style: Neutral Good for Practicality by timeasmymeasure

Expand Cut Tags

No cut tags

Page generated Jan. 16th, 2026 07:21 pm

Сообщество любителей БЭСМ-6

Заработала вторая часть теста

Заработала вторая часть теста

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

Profile

December 2025

Most Popular Tags

Page Summary

Style Credit

Expand Cut Tags