       v3m0.s                                                                                                        v3m4.s
       ======                                                                                                        ======
    1:  101 273       job  1401 Fortran system   version three                    50003                           1:   101 273       job  1401 Fortran system   version three                    50003
    2:  102           ctl  645 11                                                                                 2:   102           ctl  645 11
    3:  103           org  111                                                                                    3:   103           org  111
    4:  104 xdoad1    dcw  #1                                                                                     4:   104 xdoad1    dcw  #1
    5:  105 xdoad2    dcw  #1                                                                                     5:   105 xdoad2    dcw  #1
    6:  106 xdoad3    dcw  #1                                                                                     6:   106 xdoad3    dcw  #1
    7:  107 xdoini    dcw  #1                                                                                     7:   107 xdoini    dcw  #1
    8:  108 xoblst    dcw  #1                                                                                     8:   108 xoblst    dcw  #1
    9:  109 xdosbs    dcw  #1                                                                                     9:   109 xdosbs    dcw  #1
   10:  110 xcomf1    dcw  #1                                                                                    10:   110 xcomf1    dcw  #1
   11:  111 xsinfu    dcw  #1                                                                                    11:   111 xsinfu    dcw  #1
   12:  112 xlogfn    dcw  #1                                                                                    12:   112 xlogfn    dcw  #1
   13:  113 xxpntl    dcw  #1                                                                                    13:   113 xxpntl    dcw  #1
   14:  114 xatanf    dcw  #1                                                                                    14:   114 xatanf    dcw  #1
   15:  115 xabsva    dcw  #1                                                                                    15:   115 xabsva    dcw  #1
   16:  116 xnegtf    dcw  #1                                                                                    16:   116 xnegtf    dcw  #1
   17:  117 xfixfu    dcw  #1                                                                                    17:   117 xfixfu    dcw  #1
   18:  118 xfltfu    dcw  #1                                                                                    18:   118 xfltfu    dcw  #1
   19:  119 xsqrtf    dcw  #1                                                                                    19:   119 xsqrtf    dcw  #1
   20:  120 xuser1    dcw  #1                                                                                    20:   120 xuser1    dcw  #1
   21:  121 xuser2    dcw  #1                                                                                    21:   121 xuser2    dcw  #1
   22:  122 xuser3    dcw  #1                                                                                    22:   122 xuser3    dcw  #1
   23:  123 xuser4    dcw  #1                                                                                    23:   123 xuser4    dcw  #1
   24:  124 xuser5    dcw  #1                                                                                    24:   124 xuser5    dcw  #1
   25:  125 xuser6    dcw  #1                                                                                    25:   125 xuser6    dcw  #1
   26:  126 xuser7    dcw  #1                                                                                    26:   126 xuser7    dcw  #1
   27:  127 xuser8    dcw  #1                                                                                    27:   127 xuser8    dcw  #1
   28:  128 xuser9    dcw  #1                                                                                    28:   128 xuser9    dcw  #1
   29:  129 xusr10    dcw  #1                                                                                    29:   129 xusr10    dcw  #1
   30:  130 xusr11    dcw  #1                                                                                    30:   130 xusr11    dcw  #1
   31:  131 xusr12    dcw  #1                                                                                    31:   131 xusr12    dcw  #1
   32:  132 xlinkf    dcw  #1                                                                                    32:   132 xlinkf    dcw  #1
   33:  133 ndtabl    equ  *&1                                                                                   33:   133 ndtabl    equ  *&1
   34:  134 oneadr    dcw  #3                  Address of constant one                                           34:   134 oneadr    dcw  #3                  Address of constant one
   35:  135 adtbll    dcw  #3                  NXBTM for STNUM TWO & RESORT 4                                    35:   135 adtbll    dcw  #3                  NXBTM for STNUM TWO & RESORT 4
   36:  136 bsauce    dcw  #3                  Bottom of object for RESORT                                       36:   136 bsauce    dcw  #3                  Bottom of object for RESORT
   37:  137 gnstmz    dcw  #3                  Total No of DO-generated stmts                                    37:   137 gnstmz    dcw  #3                  Total No of DO-generated stmts
   38:  138 period    dcw  #3                  Address of period (no list)                                       38:   138 period    dcw  #3                  Address of period (no list)
   39:  139 xexpon    dcw  #3                 Address of constant .1                                             39:   139 xexpon    dcw  #3                 Address of constant .1
   40:  140 plusdf    dcw  #3         (PARAMA&2)-CONLST#16000s comp. of MACFLS                                   40:   140 plusdf    dcw  #3         (PARAMA&2)-CONLST#16000s comp. of MACFLS
   41:  141 macfls    dcw  #3         Compile time adr.&MACFLS#OBJ. time adr.                                    41:   141 macfls    dcw  #3         Compile time adr.&MACFLS#OBJ. time adr.
   42:  142           org  181                                                                                   42:   142           org  181
   43:  143 intstz    dcw  #3                 Total number of input statements                                   43:   143 intstz    dcw  #3                 Total number of input statements
   44:  144 gogogo    equ  *                  Address of first executable stmt                                   44:   144 gogogo    equ  *                  Address of first executable stmt
   45:  145 failsw    dc   #1                 Cripple GO condition switch                                        45:   145 failsw    dc   #1                 Cripple GO condition switch
   46:  146 xlinkw    dcw  #1                 Load XLINK switch                                                  46:   146 xlinkw    dcw  #1                 Load XLINK switch
   47:  147 gotofn    dcw  #3                 Addr of func select routine                                        47:   147 gotofn    dcw  #3                 Addr of func select routine
   48:  148 subscr    dcw  #3                 Objt time addr of DOSBS func                                       48:   148 subscr    dcw  #3                 Objt time addr of DOSBS func
   49:  149 conlst    dcw  #3                  Adr. of pos. imm. before arrays                                   49:   149 conlst    dcw  #3                  Adr. of pos. imm. before arrays
   50:  150 funcsw    dc   #1                                                                                    50:   150 funcsw    dc   #1
   51:  151           org  196                                                                                   51:   151           org  196
   52:  152           dcw  @V3M0@                                                                            |   52:   152           dcw  @V3M4@
   53:  153           job  1401 Fortran  Snapshot routine                         50003                          53:   153           job  1401 Fortran  Snapshot routine                         50003
   54:  154           sfx  7                                                                                     54:   154           sfx  7
   55:  155 xxx       equ  0                                                                                     55:   155 xxx       equ  0
   56:  156 xl1       equ  089                                                                                   56:   156 xl1       equ  089
   57:  157 089       dcw  000                                                                                   57:   157 089       dcw  000
   58:  158 xl3       equ  099                                                                                   58:   158 xl3       equ  099
   59:  159 099       dcw  000                                                                                   59:   159 099       dcw  000
   60:  160           org  333                                                                                   60:   160           org  333
   61:  161           sbr  prtxt&3                                                                               61:   161           sbr  prtxt&3
   62:  162           sbr  hldxt&6                                                                               62:   162           sbr  hldxt&6
   63:  163           mcw  @000@,linct-2                                                                         63:   163           mcw  @000@,linct-2
   64:  164           mcw  xl3, hld32&6                                                                          64:   164           mcw  xl3, hld32&6
   65:  165           mcw  xl1, hld31&6                                                                          65:   165           mcw  xl1, hld31&6
   66:  166           sbr  xl1, 1                                                                                66:   166           sbr  xl1, 1
   67:  167           sbr  xl3, 202                                                                              67:   167           sbr  xl3, 202
   68:  168           cs   332                                                                                   68:   168           cs   332
   69:  169           cs                                                                                         69:   169           cs
   70:  170           mcw  110,210                                                                               70:   170           mcw  110,210
   71:  171           bss  only,f                                                                                71:   171           bss  only,f
   72:  172           cc   1                                                                                     72:   172           cc   1
   73:  173           mcw  094,250                                                                               73:   173           mcw  094,250
   74:  174 hldxt     sbr  216,xxx                                                                               74:   174 hldxt     sbr  216,xxx
   75:  175 hld32     sbr  256,xxx                                                                               75:   175 hld32     sbr  256,xxx
   76:  176 hld31     sbr  244,xxx                                                                               76:   176 hld31     sbr  244,xxx
   77:  177           w                                                                                          77:   177           w
   78:  178           cc   k                                                                                     78:   178           cc   k
   79:  179           za   &2,pgctr#2                                                                            79:   179           za   &2,pgctr#2
   80:  180 nuline    cs   332                                                                                   80:   180 nuline    cs   332
   81:  181           cs                                                                                         81:   181           cs
   82:  182           cc   j                                                                                     82:   182           cc   j
   83:  183           mcw  linct,306                                                                             83:   183           mcw  linct,306
   84:  184           mcw                                                                                        84:   184           mcw
   85:  185           sbr  mvhed&6                                                                               85:   185           sbr  mvhed&6
   86:  186           mcw  @9@, ctr-1                                                                            86:   186           mcw  @9@, ctr-1
   87:  187 mvhed     mcw  ctr-1,xxx                                                                             87:   187 mvhed     mcw  ctr-1,xxx
   88:  188           mcw  head                                                                                  88:   188           mcw  head
   89:  189           sbr  mvhed&6                                                                               89:   189           sbr  mvhed&6
   90:  190           a    @i0@, ctr#2                                                                           90:   190           a    @i0@, ctr#2
   91:  191           bwz  mvhed, ctr-1, 2                                                                       91:   191           bwz  mvhed, ctr-1, 2
   92:  192           a    &1,linct-2                                                                            92:   192           a    &1,linct-2
   93:  193           w                                                                                          93:   193           w
   94:  194 loop      sw   0&x3                                                                                  94:   194 loop      sw   0&x3
   95:  195           mcw  0&x1,0&x3                                                                             95:   195           mcw  0&x1,0&x3
   96:  196           bw   cmpab,0&x1                                                                            96:   196           bw   cmpab,0&x1
   97:  197           cw   0&x3                                                                                  97:   197           cw   0&x3
   98:  198 cmpab     c    xl1,parama&2                                                                          98:   198 cmpab     c    xl1,parama&2
   99:  199           bu   cpl                                                                                   99:   199           bu   cpl
  100:  200           w                                                                                         100:   200           w
  101:  201           wm                                                                                        101:   201           wm
  102:  202 rstrx     mcw  hld31&6,xl1                                                                          102:   202 rstrx     mcw  hld31&6,xl1
  103:  203           mcw  hld32&6,xl3                                                                          103:   203           mcw  hld32&6,xl3
  104:  204           cs   332                                                                                  104:   204           cs   332
  105:  205           cs                                                                                        105:   205           cs
  106:  206           bss  *&5,g                                                                                106:   206           bss  *&5,g
  107:  207           b    prtxt                                                                                107:   207           b    prtxt
  108:  208           h                                                                                         108:   208           h
  109:  209 prtxt     b    0                                                                                    109:   209 prtxt     b    0
  110:  210 cpl       sbr  xl1, 1&x1                                                                            110:   210 cpl       sbr  xl1, 1&x1
  111:  211           bce  inc, xl3-2, 2                                                                        111:   211           bce  inc, xl3-2, 2
  112:  212           sbr  xl3, 201                                                                             112:   212           sbr  xl3, 201
  113:  213           w                                                                                         113:   213           w
  114:  214           wm                                                                                        114:   214           wm
  115:  215           a    &1,pgctr                                                                             115:   215           a    &1,pgctr
  116:  216           c    pgctr,&15                                                                            116:   216           c    pgctr,&15
  117:  217           bu   nuline                                                                               117:   217           bu   nuline
  118:  218           s    pgctr                                                                                118:   218           s    pgctr
  119:  219           ccb  nuline,1                                                                             119:   219           ccb  nuline,1
  120:  220 only      mcw  @executed@,220                                                                       120:   220 only      mcw  @executed@,220
  121:  221           w    rstrx                                                                                121:   221           w    rstrx
  122:  222 inc       a    &1,xl3                                                                               122:   222 inc       a    &1,xl3
  123:  223           b    loop                                                                                 123:   223           b    loop
  124:  224 head      dcw  @9........@                                                                          124:   224 head      dcw  @9........@
  125:  225           dcw  @9-@                                                                                 125:   225           dcw  @9-@
  126:  226 linct     dcw  00000                                                                                126:   226 linct     dcw  00000
  127:  227           ltorg*                                                                                    127:   227           ltorg*
  128:  228           job  1401 Fortran  System monitor and parameter card        50013                         128:   228           job  1401 Fortran  System monitor and parameter card        50013
  129:  229           sfx  a                                                                                    129:   229           sfx  a
  130:  230 prmcd     da   1x19                                                                                 130:   230 prmcd     da   1x19
  131:  231 param          6                                                                                    131:   231 param          6
  132:  232 monter    mcw  bclear-2,cclear-2                                                                    132:   232 monter    mcw  bclear-2,cclear-2
  133:  233 aclear    cs   0                                                                                    133:   233 aclear    cs   0
  134:  234           sbr  tclear                                                                               134:   234           sbr  tclear
  135:  235           c    tclear,cclear                                                                        135:   235           c    tclear,cclear
  136:  236           bu   aclear                                                                               136:   236           bu   aclear
  137:  237           sw   lod&4                                                                                137:   237           sw   lod&4
  138:  238           mcw  tclear,lod&6                                                                         138:   238           mcw  tclear,lod&6
  139:  239           cw   lod&4                                                                                139:   239           cw   lod&4
  140:  240 ck        c    lod&6,bclear#3                                                                       140:   240 ck        c    lod&6,bclear#3
  141:  241           be   montor                                                                               141:   241           be   montor
  142:  242 lod       lca  @ @,0                         blank                                                  142:   242 lod       lca  @ @,0                         blank
  143:  243           sbr  lod&6                                                                                143:   243           sbr  lod&6
  144:  244           b    ck                                                                                   144:   244           b    ck
  145:  245 tclear    equ  aclear&3                                                                             145:   245 tclear    equ  aclear&3
  146:  246 *Restrictions on clear routine                                                                      146:   246 *Restrictions on clear routine
  147:  247 *              1. Must clear at least one century                                                   147:   247 *              1. Must clear at least one century
  148:  248 *              2. Cannot clear above 4k                                                             148:   248 *              2. Cannot clear above 4k
  149:  249 montor    r    040                                                                                  149:   249 montor    r    040
  150:  250 nine      mcw  &9,rdcnt                                                                             150:   250 nine      mcw  &9,rdcnt
  151:  251 initap    rtw  1,xbegin                                                                             151:   251 initap    rtw  1,xbegin
  152:  252           ber  errtp                                                                                152:   252           ber  errtp
  153:  253 initxt    b    xbegin                                                                               153:   253 initxt    b    xbegin
  154:  254 errtp     bsp  1                                                                                    154:   254 errtp     bsp  1
  155:  255           s    &1,rdcnt#1                                                                           155:   255           s    &1,rdcnt#1
  156:  256           bwz  initap,rdcnt,B                                                                       156:   256           bwz  initap,rdcnt,B
  157:  257           h    3333,3333                                                                            157:   257           h    3333,3333
  158:  258           b    nine                                                                                 158:   258           b    nine
  159:  259 cclear    dcw  999                                                                                  159:   259 cclear    dcw  999
  160:  260           ltorg*                                                                                    160:   260           ltorg*
  161:  261 xbegin    equ  *&1                                                                                  161:   261 xbegin    equ  *&1
  162:  262           job  1401 Fortran  Loader phase                             50023                         162:   262           job  1401 Fortran  Loader phase                             50023
  163:  263           fbegnloader,xl1,r,xl2,r,xl3,r,a                                                           163:   263           fbegnloader,xl1,r,xl2,r,xl3,r,a
  164:  264 start     bce  *&8,1,                        blank                                                  164:   264 start     bce  *&8,1,                        blank
  165:  265           mcw  @n@,montor                                                                           165:   265           mcw  @n@,montor
  166:  266           cs   080                                                                                  166:   266           cs   080
  167:  267           sw   1,gm                                                                                 167:   267           sw   1,gm
  168:  268           sw   81,84                                                                                168:   268           sw   81,84
  169:  269           cs   332                                                                                  169:   269           cs   332
  170:  270           cs                                                                                        170:   270           cs
  171:  271           r                                                                                         171:   271           r
  172:  272           lca  19,prmcd&18                                                                          172:   272           lca  19,prmcd&18
  173:  273           c    prmcd&4,@param@                                                                      173:   273           c    prmcd&4,@param@
  174:  274           bu   noprm                                                                                174:   274           bu   noprm
  175:  275           sw   073                                                                                  175:   275           sw   073
  176:  276           sw   006,007                                                                              176:   276           sw   006,007
  177:  277           sw   param                                                                                177:   277           sw   param
  178:  278           mcw  80,param-1                                                                           178:   278           mcw  80,param-1
  179:  279           cs   0                              determine top of                                      179:   279           cs   0                              determine top of
  180:  280           sbr  larry#3                         machine                                              180:   280           sbr  larry#3                         machine
  181:  281           mcw  param&2,dum3#3                                                                       181:   281           mcw  param&2,dum3#3
  182:  282           b    unpak                                                                                182:   282           b    unpak
  183:  283           mcw  dum5#5,wk5                                                                           183:   283           mcw  dum5#5,wk5
  184:  284           mcw  larry,dum3                                                                           184:   284           mcw  larry,dum3
  185:  285           b    unpak                                                                                185:   285           b    unpak
  186:  286           mcw  dum5,wk51                                                                            186:   286           mcw  dum5,wk51
  187:  287           a    &1,wk5                                                                               187:   287           a    &1,wk5
  188:  288           a    &1,wk51                                                                              188:   288           a    &1,wk51
  189:  289           cs   332                                                                                  189:   289           cs   332
  190:  290           cs                                                                                        190:   290           cs
  191:  291           messg@start of Fortran compilation@,28,1,j                                                191:   291           messg@start of Fortran compilation@,28,1,j
  192:  292           mcw  wk5,231                                                                              192:   292           mcw  wk5,231
  193:  293           mcw  @machine size specified is @                                                         193:   293           mcw  @machine size specified is @
  194:  294           w                                                                                         194:   294           w
  195:  295           cs   235                                                                                  195:   295           cs   235
  196:  296           mcw  wk51,228                                                                             196:   296           mcw  wk51,228
  197:  297           mcw  @actual machine size is @                                                            197:   297           mcw  @actual machine size is @
  198:  298           bce  exit,param&9,t                                                                       198:   298           bce  exit,param&9,t
  199:  299           w                                                                                         199:   299           w
  200:  300           c    wk51#5,wk5#5                                                                         200:   300           c    wk51#5,wk5#5
  201:  301           bh   mserr                                                                                201:   301           bh   mserr
  202:  302           c    wk5,@03900@                                                                          202:   302           c    wk5,@03900@
  203:  303           bl   exit                                                                                 203:   303           bl   exit
  204:  304           messg@machine size error@,18,j                                                            204:   304           messg@machine size error@,18,j
  205:  305           b    l2prm                                                                                205:   305           b    l2prm
  206:  306 mserr     mcw  @specified is greater than actual machine size.@,267                                 206:   306 mserr     mcw  @specified is greater than actual machine size.@,267
  207:  307           mcw  @error - machine size @                                                              207:   307           mcw  @error - machine size @
  208:  308           w                                                                                         208:   308           w
  209:  309 l2prm     mcw  larry,param&2                                                                        209:   309 l2prm     mcw  larry,param&2
  210:  310 exit      mcw  param&2,clr&3                                                                        210:   310 exit      mcw  param&2,clr&3
  211:  311 clr       cs   0                                                                                    211:   311 clr       cs   0
  212:  312           sbr  clr&3                                                                                212:   312           sbr  clr&3
  213:  313           c    clr&3,&sysgm                                                                         213:   313           c    clr&3,&sysgm
  214:  314           bu   clr                                                                                  214:   314           bu   clr
  215:  315           r                                                                                         215:   315           r
  216:  316           mz   *-006,work&76                                                                        216:   316           mz   *-006,work&76
  217:  317           mz   *-006,abit&007                                                                       217:   317           mz   *-006,abit&007
  218:  318           mz   *-6,abit2&7                                                                          218:   318           mz   *-6,abit2&7
  219:  319           mz   *-6,char-1                                                                           219:   319           mz   *-6,char-1
  220:  320           mcw  number,work&003                                                                      220:   320           mcw  number,work&003
  221:  321           mcw  param&002,dummy&003                                                                  221:   321           mcw  param&002,dummy&003
  222:  322 dummy     cw   0000                                                                                 222:   322 dummy     cw   0000
  223:  323           sbr  store&006                                                                            223:   323           sbr  store&006
  224:  324 move      bw   mvipt,endsw                                                                          224:   324 move      bw   mvipt,endsw
  225:  325           bce  scanr,001,:                   5-8                                                    225:   325           bce  scanr,001,:                   5-8
  226:  326 prmsg     messg@message 1-system does not follow end card@,70,1,1                                   226:   326 prmsg     messg@message 1-system does not follow end card@,70,1,1
  227:  327           h    *-3                                                                                  227:   327           h    *-3
  228:  328 mvipt     mcw  0072,work&075                                                                        228:   328 mvipt     mcw  0072,work&075
  229:  329           mcw                                                                                       229:   329           mcw
  230:  330           mcw                                                                                       230:   330           mcw
  231:  331           bce  scanr,work&004,:               5-8                                                   231:   331           bce  scanr,work&004,:               5-8
  232:  332 tovl      bin  prthd,    carriage overflow test - initialized                                       232:   332 tovl      bin  prthd,    carriage overflow test - initialized
  233:  333 m2prt     cs   300                                                                                  233:   333 m2prt     cs   300
  234:  334           cs                                                                                        234:   334           cs
  235:  335           mcw  0072,0283                                                                            235:   335           mcw  0072,0283
  236:  336           mcw  006,215                                                                              236:   336           mcw  006,215
  237:  337           bce  cmnt,work&4,c                                                                        237:   337           bce  cmnt,work&4,c
  238:  338 fstnu     b    new                                                                                  238:   338 fstnu     b    new
  239:  339           bce  new,work&009,0                                                                       239:   339           bce  new,work&009,0
  240:  340           bce  new,work&009,                                                                        240:   340           bce  new,work&009,
  241:  341           a    &1,ctucd                                                                             241:   341           a    &1,ctucd
  242:  342           bce  *&8,ctucd-1,0                                                                        242:   342           bce  *&8,ctucd-1,0
  243:  343           mcw  @continue cd err@,300                                                                243:   343           mcw  @continue cd err@,300
  244:  344           w                                                                                         244:   344           w
  245:  345           mcw  inilz1,sel&003                                                                       245:   345           mcw  inilz1,sel&003
  246:  346 sel       mcw  0000,fixed                                                                           246:   346 sel       mcw  0000,fixed
  247:  347           sw   sel&001                                                                              247:   347           sw   sel&001
  248:  348           a    one,sel&003                                                                          248:   348           a    one,sel&003
  249:  349           cw   sel&001                                                                              249:   349           cw   sel&001
  250:  350 sw1       nop  cklhc                                                                                250:   350 sw1       nop  cklhc
  251:  351           bce  sel,fixed,                    blank                                                  251:   351           bce  sel,fixed,                    blank
  252:  352           mcw  fixed,*&8                                                                            252:   352           mcw  fixed,*&8
  253:  353           bce  abit,char,0                                                                          253:   353           bce  abit,char,0
  254:  354           chain5                                                                                    254:   354           chain5
  255:  355 store     mcw  fixed,0000                                                                           255:   355 store     mcw  fixed,0000
  256:  356           sbr  store&006                                                                            256:   356           sbr  store&006
  257:  357 incto     a    &1,total#5                                                                           257:   357 incto     a    &1,total#5
  258:  358           c    store&6,&ldrnd                                                                       258:   358           c    store&6,&ldrnd
  259:  359           be   quit                                                                                 259:   359           be   quit
  260:  360 hsw       bce  hollr,fixed,h                                                                        260:   360 hsw       bce  hollr,fixed,h
  261:  361 hsw2      nop  @b@,hsw                                                                              261:   361 hsw2      nop  @b@,hsw
  262:  362 cmpar     c    sel&003,inilz1                                                                       262:   362 cmpar     c    sel&003,inilz1
  263:  363 swtch2    bin  sel,/                                                                                263:   363 swtch2    bin  sel,/
  264:  364           sw   store&004                                                                            264:   364           sw   store&004
  265:  365 jump      mcw  store&006,xl2                                                                        265:   365 jump      mcw  store&006,xl2
  266:  366           cw   store&004                                                                            266:   366           cw   store&004
  267:  367           mcw  n,jump                                                                               267:   367           mcw  n,jump
  268:  368           mcw  n,swtch2                                                                             268:   368           mcw  n,swtch2
  269:  369           a    ten,count                                                                            269:   369           a    ten,count
  270:  370           bce  tstnd,count-1,5                                                                      270:   370           bce  tstnd,count-1,5
  271:  371           sw   endsw                                                                                271:   371           sw   endsw
  272:  372           bwz  sel,count-001,2                                                                      272:   372           bwz  sel,count-001,2
  273:  373           mcw  b,swtch2                                                                             273:   373           mcw  b,swtch2
  274:  374 remove    mcw  0&x2,out                                                                             274:   374 remove    mcw  0&x2,out
  275:  375           c    format,out                                                                           275:   375           c    format,out
  276:  376           bu   sel                                                                                  276:   376           bu   sel
  277:  377           mcw  @b@,hsw                                                                              277:   377           mcw  @b@,hsw
  278:  378           mcw  0&x3,work6#6                                                                         278:   378           mcw  0&x3,work6#6
  279:  379           mcw  @f@,work6-3                                                                          279:   379           mcw  @f@,work6-3
  280:  380           mcw  work6,0&x3                                                                           280:   380           mcw  work6,0&x3
  281:  381           b    sel                                                                                  281:   381           b    sel
  282:  382 slash     mcw  @@@,fixed                                                                            282:   382 slash     mcw  @@@,fixed
  283:  383           b    store                                                                                283:   383           b    store
  284:  384 new       mcw  @n@,fstnu                                                                            284:   384 new       mcw  @n@,fstnu
  285:  385           a    &1,stmno#3                                                                           285:   385           a    &1,stmno#3
  286:  386           mcw  @n@,hsw                                                                              286:   386           mcw  @n@,hsw
  287:  387           mcw  @n@,hsw2                                                                             287:   387           mcw  @n@,hsw2
  288:  388           mcw  5,211                                                                                288:   388           mcw  5,211
  289:  389           s    ctucd#2                                                                              289:   389           s    ctucd#2
  290:  309           mcw  @n@,sw1                                                                              290:   309           mcw  @n@,sw1
  291:  391           mcs  stmno,203                                                                            291:   391           mcs  stmno,203
  292:  392           w                                                                                         292:   392           w
  293:  393           sw   store&004                                                                            293:   393           sw   store&004
  294:  394           mcw  store&006,loadgm&006                                                                 294:   394           mcw  store&006,loadgm&006
  295:  395           cw   store&4                                                                              295:   395           cw   store&4
  296:  396           mcw  m,jump                                                                               296:   396           mcw  m,jump
  297:  397 loadgm    lca  gm,0000                                                                              297:   397 loadgm    lca  gm,0000
  298:  398           sbr  xl3                                                                                  298:   398           sbr  xl3
  299:  399           sbr  store&006                                                                            299:   399           sbr  store&006
  300:  400           mcw  mark,work&009                                                                        300:   400           mcw  mark,work&009
  301:  401           mcw  b,swtch2                                                                             301:   401           mcw  b,swtch2
  302:  402           mcw  two,count                                                                            302:   402           mcw  two,count
  303:  403           mcw  inilz2,sel&003                                                                       303:   403           mcw  inilz2,sel&003
  304:  404           b    sel                                                                                  304:   404           b    sel
  305:  405 tstnd     c    0&x2,@dne@                                                                           305:   405 tstnd     c    0&x2,@dne@
  306:  406           bu   sel                                                                                  306:   406           bu   sel
  307:  407           cw   endsw#1                                                                              307:   407           cw   endsw#1
  308:  408           b    sel                                                                                  308:   408           b    sel
  309:  409 atsgn     mcw  @-@,fixed                                                                            309:   409 atsgn     mcw  @-@,fixed
  310:  410           b    store                                                                                310:   410           b    store
  311:  411 abit      bce  input,fixed,                  abit                                                   311:   411 abit      bce  input,fixed,                  abit
  312:  412           bce  input,fixed,|                                                                        312:   412           bce  input,fixed,|
  313:  413           bce  slash,fixed,/                                                                        313:   413           bce  slash,fixed,/
  314:  414           bce  atsgn,fixed,@                                                                        314:   414           bce  atsgn,fixed,@
  315:  415           mcw  @*@,300                                                                              315:   415           mcw  @*@,300
  316:  416           mcw  kproc                                                                                316:   416           mcw  kproc
  317:  417           mcw  fixed#1                                                                              317:   417           mcw  fixed#1
  318:  418           b    store                                                                                318:   418           b    store
  319:  419 hollr     mcw  store&6,xl1                                                                          319:   419 hollr     mcw  store&6,xl1
  320:  420           mcw  @n@,hsw                                                                              320:   420           mcw  @n@,hsw
  321:  421           mcw  @n@,hsw2                                                                             321:   421           mcw  @n@,hsw2
  322:  422           mcw  @b@,sw1                                                                              322:   422           mcw  @b@,sw1
  323:  423           mcw  4&x1,work3#3                                                                         323:   423           mcw  4&x1,work3#3
  324:  424           bce  *&9,work3-1,@                                                                        324:   424           bce  *&9,work3-1,@
  325:  425           bwz  myb2,work3-1,2                                                                       325:   425           bwz  myb2,work3-1,2
  326:  426           mcw  work3-2,work3                                                                        326:   426           mcw  work3-2,work3
  327:  427           mcw  @00@                                                                                 327:   427           mcw  @00@
  328:  428           b    cmpar                                                                                328:   428           b    cmpar
  329:  429 myb2      bce  *&9,work3,@                                                                          329:   429 myb2      bce  *&9,work3,@
  330:  430           bwz  istri,work3,2                                                                        330:   430           bwz  istri,work3,2
  331:  431           mcw  work3-2,work3                                                                        331:   431           mcw  work3-2,work3
  332:  432           mcw  @0@,work3-2                                                                          332:   432           mcw  @0@,work3-2
  333:  433           b    cmpar                                                                                333:   433           b    cmpar
  334:  434 istri     mcw  work3,sav1#1                                                                         334:   434 istri     mcw  work3,sav1#1
  335:  435           mcw  work3-2,work3                                                                        335:   435           mcw  work3-2,work3
  336:  436           mcw  sav1,work3-2                                                                         336:   436           mcw  sav1,work3-2
  337:  437           b    cmpar                                                                                337:   437           b    cmpar
  338:  438 unpak     sbr  pkxt&3                                                                               338:   438 unpak     sbr  pkxt&3
  339:  439           unpakdum3,dum5                                                                            339:   439           unpakdum3,dum5
  340:  440 pkxt      b    000                                                                                  340:   440 pkxt      b    000
  341:  441 abit2     equ  *&1                                                                                  341:   441 abit2     equ  *&1
  342:  442 cklhc     bce  input,fixed,                                                                         342:   442 cklhc     bce  input,fixed,
  343:  443           s    &1,work3                                                                             343:   443           s    &1,work3
  344:  444           c    work3,&000                                                                           344:   444           c    work3,&000
  345:  445           bu   store                                                                                345:   445           bu   store
  346:  446           mcw  @m@,hsw2                                                                             346:   446           mcw  @m@,hsw2
  347:  447           mcw  n,sw1                                                                                347:   447           mcw  n,sw1
  348:  448           mcw  sel&3,xl1                                                                            348:   448           mcw  sel&3,xl1
  349:  449           c    0&x1,@,@                                                                             349:   449           c    0&x1,@,@
  350:  450           be   store                                                                                350:   450           be   store
  351:  451           mcw  store&6,*&7                                                                          351:   451           mcw  store&6,*&7
  352:  452           mcw  0,0                                                                                  352:   452           mcw  0,0
  353:  453           mcw  @,@                                                                                  353:   453           mcw  @,@
  354:  454           sbr  store&6                                                                              354:   454           sbr  store&6
  355:  455           a    &1,total                                                                             355:   455           a    &1,total
  356:  446           b    incto                                                                                356:   446           b    incto
  357:  457           b    store                                                                                357:   457           b    store
  358:  458 scanr     mcw  store&6,xl1                                                                          358:   458 scanr     mcw  store&6,xl1
  359:  459           lca  gm,0&x1                                                                              359:   459           lca  gm,0&x1
  360:  460           sbr  xl1                                                                                  360:   460           sbr  xl1
  361:  461           cc   1                                                                                    361:   461           cc   1
  362:  462           cs   332                                                                                  362:   462           cs   332
  363:  463           cs                                                                                        363:   463           cs
  364:  464           mcs  total,205                                                                            364:   464           mcs  total,205
  365:  465           mcw  @input characters@,222                                                               365:   465           mcw  @input characters@,222
  366:  466           w                                                                                         366:   466           w
  367:  467           cc   j                                                                                    367:   467           cc   j
  368:  468           mcw  stmno,intstz                                                                         368:   468           mcw  stmno,intstz
  369:  469           lca  @ }POTS:R000@,0&x1            g-m,5-8                                                369:   469           lca  @ }POTS:R000@,0&x1            g-m,5-8
  370:  470           sbr  xl1                                                                                  370:   470           sbr  xl1
  371:  471           sw   2&x1                                                                                 371:   471           sw   2&x1
  372:  472           a    &1,intstz                                                                            372:   472           a    &1,intstz
  373:  473           bce  *&5,ldrnd,                    blank                                                  373:   473           bce  *&5,ldrnd,                    blank
  374:  474           b    quit                                                                                 374:   474           b    quit
  375:  475           sbr  tclear,sysgm                                                                         375:   475           sbr  tclear,sysgm
  376:  476           sbr  bclear,xbegin                                                                        376:   476           sbr  bclear,xbegin
  377:  477           bss  333,c                                                                                377:   477           bss  333,c
  378:  478           lca  @scanner@,110                                                                        378:   478           lca  @scanner@,110
  379:  479           cs   080                                                                                  379:   479           cs   080
  380:  480           sw   1,40                                                                                 380:   480           sw   1,40
  381:  481           sw   47,54                                                                                381:   481           sw   47,54
  382:  482           sw   61,68                                                                                382:   482           sw   61,68
  383:  483           sw   72                                                                                   383:   483           sw   72
  384:  484           bce  monter,montor,n         tape system                                                  384:   484           bce  monter,montor,n         tape system
  385:  485           r                                                                                         385:   485           r
  386:  486           c    7,@scanner@                                                                          386:   486           c    7,@scanner@
  387:  487           be   monter                                                                               387:   487           be   monter
  388:  488           b    prmsg                                                                                388:   488           b    prmsg
  389:  489 quit      fquit                                                                                     389:   489 quit      fquit
  390:  490 prthd     cc   1                                                                                    390:   490 prthd     cc   1
  391:  491           mcw  @@@,tovl&4                                                                           391:   491           mcw  @@@,tovl&4
  392:  492           cs   299                                                                                  392:   492           cs   299
  393:  493           a    one,pgno#003                                                                         393:   493           a    one,pgno#003
  394:  494           mcs  pgno,299                                                                             394:   494           mcs  pgno,299
  395:  495           mcw  @   page @,295                                                                       395:   495           mcw  @   page @,295
  396:  496           mcw  080                                                                                  396:   496           mcw  080
  397:  497           w                                                                                         397:   497           w
  398:  498           cs   299                                                                                  398:   498           cs   299
  399:  499           mcw  kfsm,234                                                                             399:   499           mcw  kfsm,234
  400:  500           w                                                                                         400:   500           w
  401:  501           cc   j                                                                                    401:   501           cc   j
  402:  502           b    m2prt                                                                                402:   502           b    m2prt
  403:  503 noprm     messg@message 3 - no parameter card@,70,1,1                                               403:   503 noprm     messg@message 3 - no parameter card@,70,1,1
  404:  504           bce  *&6,montor,1                                                                         404:   504           bce  *&6,montor,1
  405:  505           rwd  1                                                                                    405:   505           rwd  1
  406:  506           h    *-3                                                                                  406:   506           h    *-3
  407:  507 cmnt      mcw  blnk3#3,203                                                                          407:   507 cmnt      mcw  blnk3#3,203
  408:  508           mcw  005,211                                                                              408:   508           mcw  005,211
  409:  509           w                                                                                         409:   509           w
  410:  510 input     blc  scanr                                                                                410:   510 input     blc  scanr
  411:  511           r                                                                                         411:   511           r
  412:  512           b    move                                                                                 412:   512           b    move
  413:  513 char      dcw  @$@/|  @                      last two a-bit,blank                                   413:   513 char      dcw  @$@/|  @                      last two a-bit,blank
  414:  514 kfsm      dcw  @ seq   stmnt      FORTRAN STATEMENT@                                                414:   514 kfsm      dcw  @ seq   stmnt      FORTRAN STATEMENT@
  415:  515           dcw  @ @                                                                                  415:   515           dcw  @ @
  416:  516 work      ds   01                                                                                   416:   516 work      ds   01
  417:  517           ds   76                                                                                   417:   517           ds   76
  418:  518 count     dcw  #2                                                                                   418:   518 count     dcw  #2
  419:  519 inilz1    dsa  &work&010                                                                            419:   519 inilz1    dsa  &work&010
  420:  520 inilz2    dsa  &work                                                                                420:   520 inilz2    dsa  &work
  421:  521 one       dcw  @1@                                                                                  421:   521 one       dcw  @1@
  422:  522 b         dc   @b@                                                                                  422:   522 b         dc   @b@
  423:  523 two       dc   @20@                                                                                 423:   523 two       dc   @20@
  424:  524 out       dcw  @       @                                                                            424:   524 out       dcw  @       @
  425:  525 format    dcw  @%tamrof@                                                                            425:   525 format    dcw  @%tamrof@
  426:  526 n         dc   @n@                                                                                  426:   526 n         dc   @n@
  427:  527 gm        dc   @}@                           group mark                                             427:   527 gm        dc   @}@                           group mark
  428:  528 number    dcw  @000r@                                                                               428:   528 number    dcw  @000r@
  429:  529 mark      dcw  @:@                           5-8                                                    429:   529 mark      dcw  @:@                           5-8
  430:  530 ten       dcw  @10@                                                                                 430:   530 ten       dcw  @10@
  431:  531 m         dc   @m@                                                                                  431:   531 m         dc   @m@
  432:  532 kproc     dcw  @ processed @                                                                        432:   532 kproc     dcw  @ processed @
  433:  533           ltorg*                                                                                    433:   533           ltorg*
  434:  534           org  *&x00                                                                                434:   534           org  *&x00
  435:  535           org  *-1                                                                                  435:   535           org  *-1
  436:  536 sysgm     dcw  @}@            work and system group mark                                            436:   536 sysgm     dcw  @}@            work and system group mark
  437:  537 ldrnd     equ  *&1                                                                                  437:   537 ldrnd     equ  *&1
  438:  538           xfr  start                                                                                438:   538           xfr  start
  439:  539           job  1401 Fortran  Scanner phase                            50033                         439:   539           job  1401 Fortran  Scanner phase                            50033
  440:  540 110       dcw  @:@                           5-8 first card                                         440:   540 110       dcw  @:@                           5-8 first card
  441:  541           fbegnscanner,x1,r,,,,,b                                                                   441:   541           fbegnscanner,x1,r,,,,,b
  442:  542           org  xbegin                                                                               442:   542           org  xbegin
  443:  543 start     mcw  parama&2,dummy&6                                                                     443:   543 start     mcw  parama&2,dummy&6
  444:  544           sw   parama&3,parama&5                                                                    444:   544           sw   parama&3,parama&5
  445:  545           bce  *&5,parama&4,                 blank                                                  445:   545           bce  *&5,parama&4,                 blank
  446:  546           b    *&8                                                                                  446:   546           b    *&8
  447:  547           mcw  @05@,parama&4                                                                        447:   547           mcw  @05@,parama&4
  448:  548           bce  *&5,parama&6,                 blank                                                  448:   548           bce  *&5,parama&6,                 blank
  449:  549           b    *&8                                                                                  449:   549           b    *&8
  450:  550           mcw  @08@,parama&6                                                                        450:   550           mcw  @08@,parama&6
  451:  551           c    parama&4,@01@                                                                        451:   551           c    parama&4,@01@
  452:  552           bh   rdxer                                                                                452:   552           bh   rdxer
  453:  553           c    parama&4,@20@                                                                        453:   553           c    parama&4,@20@
  454:  554           bl   rdxer                                                                                454:   554           bl   rdxer
  455:  555 ckcmt     c    parama&6,@20@                                                                        455:   555 ckcmt     c    parama&6,@20@
  456:  556           bl   mnter                                                                                456:   556           bl   mnter
  457:  557           c    parama&6,@02@                                                                        457:   557           c    parama&6,@02@
  458:  558           bh   mnter                                                                                458:   558           bh   mnter
  459:  559 prdx      cs   332                                                                                  459:   559 prdx      cs   332
  460:  560           cs                                                                                        460:   560           cs
  461:  561           mcw  @modulus is@,210                                                                     461:   561           mcw  @modulus is@,210
  462:  562           mcs  parama&4,213                                                                         462:   562           mcs  parama&4,213
  463:  563           w                                                                                         463:   563           w
  464:  564           cs   299                                                                                  464:   564           cs   299
  465:  565           mcw  @mantissa is@,211                                                                    465:   565           mcw  @mantissa is@,211
  466:  566           mcs  parama&6,214                                                                         466:   566           mcs  parama&6,214
  467:  567           w                                                                                         467:   567           w
  468:  568           cc   j                                                                                    468:   568           cc   j
  469:  569 dummy     bce  dummy,0000,0                                                                         469:   569 dummy     bce  dummy,0000,0
  470:  570           bce                                                                                       470:   570           bce
  471:  571           sbr  marty&6                                                                              471:   571           sbr  marty&6
  472:  572           sbr  remv&003                                                                             472:   572           sbr  remv&003
  473:  573 remv      lca  0000,work                                                                            473:   573 remv      lca  0000,work
  474:  574           sar  remv&003                                                                             474:   574           sar  remv&003
  475:  575           mcw  nmbr,work                                                                            475:   575           mcw  nmbr,work
  476:  576           a    one,nmbr                                                                             476:   576           a    one,nmbr
  477:  577           bce  replce,work-3,f                                                                      477:   577           bce  replce,work-3,f
  478:  578           sbr  twlv58&6,work-4                                                                      478:   578           sbr  twlv58&6,work-4
  479:  579           sbr  first,work-5                                                                         479:   579           sbr  first,work-5
  480:  580 twlv58    bce  arith1,work-4,:               5-8   undefined char..                                 480:   580 twlv58    bce  arith1,work-4,:               5-8   undefined char..
  481:  581           sbr  twlv58&006                                                                           481:   581           sbr  twlv58&006
  482:  582           sbr  lenny&006                                                                            482:   582           sbr  lenny&006
  483:  583 lenny     bce  lenny,0000,                                                                          483:   583 lenny     bce  lenny,0000,
  484:  584           sbr  first                                                                                484:   584           sbr  first
  485:  585           b    twlv58                                                                               485:   585           b    twlv58
  486:  586 arith1    mcw  first,test1&006                                                                      486:   586 arith1    mcw  first,test1&006
  487:  587           mcw  first,test2&006                                                                      487:   587           mcw  first,test2&006
  488:  588 test1     bce  encode,0000,}                 group mark                                             488:   588 test1     bce  encode,0000,}                 group mark
  489:  589           bce                                                                                       489:   589           bce
  490:  590           sbr  test1&6                                                                              490:   590           sbr  test1&6
  491:  591 test2     bce  arith2,0000,#                                                                        491:   591 test2     bce  arith2,0000,#
  492:  592           bce                                                                                       492:   592           bce
  493:  593           sbr  test2&6                                                                              493:   593           sbr  test2&6
  494:  594           b    test1                                                                                494:   594           b    test1
  495:  595 arith2    sw   test1&004                                                                            495:   595 arith2    sw   test1&004
  496:  596           mcw  test1&006,sel&003                                                                    496:   596           mcw  test1&006,sel&003
  497:  597           cw   test1&004                                                                            497:   597           cw   test1&004
  498:  598 sel       mcw  0000,fixed                                                                           498:   598 sel       mcw  0000,fixed
  499:  599           sar  sel&003                                                                              499:   599           sar  sel&003
  500:  600           bce  ckfun, fixed,%                                                                       500:   600           bce  ckfun, fixed,%
  501:  601           bce  ckfun, fixed,}                group mark                                             501:   601           bce  ckfun, fixed,}                group mark
  502:  602           bce  encode,fixed,,                                                                       502:   602           bce  encode,fixed,,
  503:  603           b    sel                                                                                  503:   603           b    sel
  504:  604 encode    mcw  first,grab10&003                                                                     504:   604 encode    mcw  first,grab10&003
  505:  605 grab10    mcw  0000,front                                                                           505:   605 grab10    mcw  0000,front
  506:  606           sw   front                                                                                506:   606           sw   front
  507:  607           sw                                                                                        507:   607           sw
  508:  608           mcw  front,scfb&007                                                                       508:   608           mcw  front,scfb&007
  509:  609 scfb      bce  store1,code,                  column 39 modified                                     509:   609 scfb      bce  store1,code,                  column 39 modified
  510:  610           chain3                                                                                    510:   610           chain3
  511:  611           mcw  front-001,auniq&007                                                                  511:   611           mcw  front-001,auniq&007
  512:  612 auniq     bce  store2,code-004,              column 39 modified                                     512:   612 auniq     bce  store2,code-004,              column 39 modified
  513:  613           chain4                                                                                    513:   613           chain4
  514:  614           sw   work-003                                                                             514:   614           sw   work-003
  515:  615           b    easy                                                                                 515:   615           b    easy
  516:  616 store1    c    front-2,@esn@            sense light                                                 516:   616 store1    c    front-2,@esn@            sense light
  517:  617           be   sense                                                                                517:   617           be   sense
  518:  618           mcw  front,work-003                                                                       518:   618           mcw  front,work-003
  519:  619           b    clear                                                                                519:   619           b    clear
  520:  620 sense     mcw  @j@,work-3                                                                           520:   620 sense     mcw  @j@,work-3
  521:  621           b    clear                                                                                521:   621           b    clear
  522:  622 store2    mcw  front-001,work-003                                                                   522:   622 store2    mcw  front-001,work-003
  523:  623           bce  *&5,auniq&7,n                                                                        523:   623           bce  *&5,auniq&7,n
  524:  624           b    clear                                                                                524:   624           b    clear
  525:  625           c    front-2,@elifd@                                                                      525:   625           c    front-2,@elifd@
  526:  626           be   clear                                                                                526:   626           be   clear
  527:  627           mcw  @/@,work-3                                                                           527:   627           mcw  @/@,work-3
  528:  628 clear     cw   front                                                                                528:   628 clear     cw   front
  529:  629           cw                                                                                        529:   629           cw
  530:  630 replce    cw   work-003                                                                             530:   630 replce    cw   work-003
  531:  631 marty     lca  work,0000                                                                            531:   631 marty     lca  work,0000
  532:  632           sbr  marty&006                                                                            532:   632           sbr  marty&006
  533:  633           sbr  end&006                                                                              533:   633           sbr  end&006
  534:  634           sbr  083                                                                                  534:   634           sbr  083
  535:  635 end       bce  relokt,0000,                                                                         535:   635 end       bce  relokt,0000,
  536:  636           b    remv                                                                                 536:   636           b    remv
  537:  637 ckfun     mcw  test2&6,x1                                                                           537:   637 ckfun     mcw  test2&6,x1
  538:  638           bce  mayfn,1&x1,)                                                                         538:   638           bce  mayfn,1&x1,)
  539:  639           bce                                                                                       539:   639           bce
  540:  640           b    replce                                                                               540:   640           b    replce
  541:  641 mayfn     bce  ndfnd,2&x1,%                                                                         541:   641 mayfn     bce  ndfnd,2&x1,%
  542:  642           sbr  x1                                                                                   542:   642           sbr  x1
  543:  643           b    mayfn                                                                                543:   643           b    mayfn
  544:  644 ndfnd     bce  probf,3&x1,f                                                                         544:   644 ndfnd     bce  probf,3&x1,f
  545:  645           b    replce                                                                               545:   645           b    replce
  546:  646 probf     bce  replce,6&x1,:                 5-8                                                    546:   646 probf     bce  replce,6&x1,:                 5-8
  547:  647           bce                                                                                       547:   647           bce
  548:  648           bce                                                                                       548:   648           bce
  549:  649           mcw  @R@,work-3                                                                           549:   649           mcw  @R@,work-3
  550:  650           sw   funcsw                                                                               550:   650           sw   funcsw
  551:  651           b    replce                                                                               551:   651           b    replce
  552:  652 easy      cw   front                                                                                552:   652 easy      cw   front
  553:  653           cw                                                                                        553:   653           cw
  554:  654           c    front,snse                         if sense switch                                   554:   654           c    front,snse                         if sense switch
  555:  655           bin  do,/                                                                                 555:   655           bin  do,/
  556:  656           bce  light,front-8,L                                                                      556:   656           bce  light,front-8,L
  557:  657           mcw  const,work-003                                                                       557:   657           mcw  const,work-003
  558:  658           b    replce                                                                               558:   658           b    replce
  559:  659 light     mcw  @k@,work-3                                                                           559:   659 light     mcw  @k@,work-3
  560:  660           b    replce                                                                               560:   660           b    replce
  561:  661 rdxer     messg@error 42 - modulus@,18,,j                                                           561:   661 rdxer     messg@error 42 - modulus@,18,,j
  562:  662           mcw  @05@,parama&4                                                                        562:   662           mcw  @05@,parama&4
  563:  663           b    ckcmt                                                                                563:   663           b    ckcmt
  564:  664 mnter     messg@error 43 - mantissa@,19,,j                                                          564:   664 mnter     messg@error 43 - mantissa@,19,,j
  565:  665           mcw  @08@,parama&6                                                                        565:   665           mcw  @08@,parama&6
  566:  666           b    prdx                                                                                 566:   666           b    prdx
  567:  667 do        bce  put1,front,d                       d for do                                          567:   667 do        bce  put1,front,d                       d for do
  568:  668           bce  put2,front-002,%                   3rd paren if                                      568:   668           bce  put2,front-002,%                   3rd paren if
  569:  669           bce  put3,front-004,%                   5th paren go to                                   569:   669           bce  put3,front-004,%                   5th paren go to
  570:  670           bce  put4,front,g                       g for go to                                       570:   670           bce  put4,front,g                       g for go to
  571:  671           bce  put5,front,p                       p fo print                                        571:   671           bce  put5,front,p                       p fo print
  572:  672           bwz  put6,front-004,2                   5th numerl readn                                  572:   672           bwz  put6,front-004,2                   5th numerl readn
  573:  673           bce  put7,front-005,d                   6th d for rewind                                  573:   673           bce  put7,front-005,d                   6th d for rewind
  574:  674           mcw  one,work-003                                                                         574:   674           mcw  one,work-003
  575:  675           mn   front-005,work-003                                                                   575:   675           mn   front-005,work-003
                                                                                                             >  576:   6751          mn   front-5,tnmbr&7                                 v3m4
                                                                                                             >  577:   6752tnmbr     bce  replce,@6531@,0                                 v3m4
                                                                                                             >  578:   6573          chain3                                               v3m4
                                                                                                             >  579:   6754          mn   @9@,work-3                                      v3m4
  576:  676           b    replce                                                                               580:   676           b    replce
  577:  677 put1      mcw  const-001,work-003                                                                   581:   677 put1      mcw  const-001,work-003
  578:  678           b    replce                                                                               582:   678           b    replce
  579:  679 put2      mcw  const-002,work-003                                                                   583:   679 put2      mcw  const-002,work-003
  580:  680           b    replce                                                                               584:   680           b    replce
  581:  681 put3      mcw  const-003,work-003                                                                   585:   681 put3      mcw  const-003,work-003
  582:  682           b    replce                                                                               586:   682           b    replce
  583:  683 put4      mcw  const-004,work-003                                                                   587:   683 put4      mcw  const-004,work-003
  584:  684           b    replce                                                                               588:   684           b    replce
  585:  685 put5      mcw  const-005,work-003                                                                   589:   685 put5      mcw  const-005,work-003
  586:  686           b    replce                                                                               590:   686           b    replce
  587:  687 put6      mcw  const-006,work-003                                                                   591:   687 put6      mcw  const-006,work-003
  588:  688           b    replce                                                                               592:   688           b    replce
  589:  689 put7      mcw  const-007,work-003                                                                   593:   689 put7      mcw  const-007,work-003
  590:  690           b    replce                                                                               594:   690           b    replce
  591:  691 relokt    fendxc,,,,beginc,,clrfct,sorter one                                                       595:   691 relokt    fendxc,,,,beginc,,clrfct,sorter one
  592:  692           dcw  @ @                           blank                                                  596:   692           dcw  @ @                           blank
  593:  693           dcw  @ @                                                                                  597:   693           dcw  @ @
  594:  694           org  *&693                                                                                598:   694           org  *&693
  595:  695 work      ds   01                                                                                   599:   695 work      ds   01
  596:  696 nmbr      dcw  @001@                                                                                600:   696 nmbr      dcw  @001@
  597:  697 one       dcw  @1@                                                                                  601:   697 one       dcw  @1@
  598:  698 first     dcw  #3                                                                                   602:   698 first     dcw  #3
  599:  699 fixed     dcw  #1                                                                                   603:   699 fixed     dcw  #1
  600:  700 front     dcw  #10                                                                                  604:   700 front     dcw  #10
  601:  701 code      dc   @qinuabfcs@                                                                          605:   701 code      dc   @qinuabfcs@
  602:  702 snse      dcw  @esnes%fi@                                                                           606:   702 snse      dcw  @esnes%fi@
  603:  703 const     dc   @zlpgtedw@                                                                           607:   703 const     dc   @zlpgtedw@
  604:  704           ltorg*                                                                                    608:   704           ltorg*
  605:  705           org  *&x00                                                                                609:   705           org  *&x00
  606:  706 clrfct    equ  *                                                                                    610:   706 clrfct    equ  *
  607:  707           dcw  @}@                           system group mark                                      611:   707           dcw  @}@                           system group mark
  608:  708           xfr  start                                                                                612:   708           xfr  start
  609:  709           job  1401 Fortran  sorter phase one                         50043                         613:   709           job  1401 Fortran  sorter phase one                         50043
  610:  710           fbegnsorter one,xl1,r,xl2,r,xl3,r,c,xxxx                                                  614:   710           fbegnsorter one,xl1,r,xl2,r,xl3,r,c,xxxx
  611:  711           org  xbegin                                                                               615:   711           org  xbegin
  612:  712 table     da   40x3,c                                                                               616:   712 table     da   40x3,c
  613:  713           org  *&x00                                                                                617:   713           org  *&x00
  614:  714           ds   6                                                                                    618:   714           ds   6
  615:  715 zone      dcw  @2skb@                                                                               619:   715 zone      dcw  @2skb@
  616:  716 begin     cs   clrfct                                                                               620:   716 begin     cs   clrfct
  617:  717           chain8                                                                                    621:   717           chain8
  618:  718 start     mcw  083,xl3                                                                              622:   718 start     mcw  083,xl3
  619:  719           mcm  2&x3                          get last statement                                     623:   719           mcm  2&x3                          get last statement
  620:  720           mcw                                 number                                                624:   720           mcw                                 number
  621:  721           sbr  xl3                                                                                  625:   721           sbr  xl3
  622:  722           mcw  0&x3,work3#3                                                                         626:   722           mcw  0&x3,work3#3
  623:  723           za   work3,hold5#5                 multiply by three                                      627:   723           za   work3,hold5#5                 multiply by three
  624:  724           a    hold5                                                                                628:   724           a    hold5
  625:  725           a    work3,hold5                                                                          629:   725           a    work3,hold5
  626:  726           s    &2,hold5                                                                             630:   726           s    &2,hold5
  627:  727           mcw  hold5,hld5a#5                                                                        631:   727           mcw  hold5,hld5a#5
  628:  728           mcw  @16000@,hold5                                                                        632:   728           mcw  @16000@,hold5
  629:  729           s    hld5a,hold5                                                                          633:   729           s    hld5a,hold5
  630:  730           bav  *&1                                                                                  634:   730           bav  *&1
  631:  731 sub       a    &96,hold5-3                   compute new address                                    635:   731 sub       a    &96,hold5-3                   compute new address
  632:  732           bav  sub                                                                                  636:   732           bav  sub
  633:  733           mn   hold5-3,*&4                                                                          637:   733           mn   hold5-3,*&4
  634:  734           mz   zone,hold5-2                                                                         638:   734           mz   zone,hold5-2
  635:  735           mcw  083,xl1                                                                              639:   735           mcw  083,xl1
  636:  736           mcw  xl1,nop&3                                                                            640:   736           mcw  xl1,nop&3
  637:  737           mcw  hold5,xl2                                                                            641:   737           mcw  hold5,xl2
  638:  738           mz   @j@,nop&2                                                                            642:   738           mz   @j@,nop&2
  639:  739 nop       nop  xxxx                                                                                 643:   739 nop       nop  xxxx
  640:  740           sar  xl2                                                                                  644:   740           sar  xl2
  641:  741           unpakxl2,hold5                                                                            645:   741           unpakxl2,hold5
  642:  742           c    hold5,@02900@                                                                        646:   742           c    hold5,@02900@
  643:  743           bl   move                                                                                 647:   743           bl   move
  644:  744           fquit                                                                                     648:   744           fquit
  645:  745 move      mcw  xl2,083                                                                              649:   745 move      mcw  xl2,083
  646:  746           mcm  0&x1                                                                                 650:   746           mcm  0&x1
  647:  747           sar  xl1                                                                                  651:   747           sar  xl1
  648:  748           fendxc,,,start,nustm,start,sysmk,sort 2                                                   652:   748           fendxc,,,start,nustm,start,sysmk,sort 2
  649:  749           dcw  0                                                                                    653:   749           dcw  0
  650:  750           ltorg*                                                                                    654:   750           ltorg*
  651:  751 sysmk     dcw  @}@                           system group mark                                      655:   751 sysmk     dcw  @}@                           system group mark
  652:  752           xfr  begin                                                                                656:   752           xfr  begin
  653:  753           job  1401 Fortran  sorter phase two                         50053                         657:   753           job  1401 Fortran  sorter phase two                         50053
  654:  754 110       dcw  @sort 2@                                                                             658:   754 110       dcw  @sort 2@
  655:  755           org  start                                                                                659:   755           org  start
  656:  756 nustm     mcw  xl1,xl3                                                                              660:   756 nustm     mcw  xl1,xl3
  657:  757           sw   gm2                                                                                  661:   757           sw   gm2
  658:  758           mcm  0&x1                                                                                 662:   758           mcm  0&x1
  659:  759           mn                                                                                        663:   759           mn
  660:  760           mn                                                                                        664:   760           mn
  661:  761           sar  xl1                                                                                  665:   761           sar  xl1
  662:  762           lca  0&x1, hold-3                                                                         666:   762           lca  0&x1, hold-3
  663:  763           mcm  0&x1                                                                                 667:   763           mcm  0&x1
  664:  764           sar  xl1                                                                                  668:   764           sar  xl1
  665:  765           mcm  0&x3,0&x2                                                                            669:   765           mcm  0&x3,0&x2
  666:  766           sbr  xl2                                                                                  670:   766           sbr  xl2
  667:  767           lca  hold,1&x2                                                                            671:   767           lca  hold,1&x2
  668:  768           s    xl3&1                                                                                672:   768           s    xl3&1
  669:  769           mcw  0&x2,hold6#6                                                                         673:   769           mcw  0&x2,hold6#6
  670:  770           mn   hold6-5, xl3                                                                         674:   770           mn   hold6-5, xl3
  671:  771           mcw  xl3,save3                                                                            675:   771           mcw  xl3,save3
  672:  772           a    xl3                                                                                  676:   772           a    xl3
  673:  773           a    save3,xl3                                                                            677:   773           a    save3,xl3
  674:  774           bwz  cntu,hold6-5, 2                                                                      678:   774           bwz  cntu,hold6-5, 2
  675:  775           a    &30,xl3                                                                              679:   775           a    &30,xl3
  676:  776           bwz  cntu,hold6-5, s                                                                      680:   776           bwz  cntu,hold6-5, s
  677:  777           a    &30,xl3                                                                              681:   777           a    &30,xl3
  678:  778           bwz  cntu,hold6-5, k                                                                      682:   778           bwz  cntu,hold6-5, k
  679:  779           a    &30,xl3                                                                              683:   779           a    &30,xl3
  680:  780 cntu      mcw  table&2&x3,1&x2               insert table entry                                     684:   780 cntu      mcw  table&2&x3,1&x2               insert table entry
  681:  781           lca  gm2,2&x2                                                                             685:   781           lca  gm2,2&x2
  682:  782           sbr  table&2&x3                                                                           686:   782           sbr  table&2&x3
  683:  783           mcm  2&x2                                                                                 687:   783           mcm  2&x2
  684:  784           sar  xl2                                                                                  688:   784           sar  xl2
  685:  785           c    xl2,parama&2                                                                         689:   785           c    xl2,parama&2
  686:  786           bu   nustm                                                                                690:   786           bu   nustm
  687:  787           fendxc,gm2,,,,,end-1,sort 3                                                               691:   787           fendxc,gm2,,,,,end-1,sort 3
  688:  788           dcw  0                                                                                    692:   788           dcw  0
  689:  789 gm2       dc   @}@                           g-m                                                    693:   789 gm2       dc   @}@                           g-m
  690:  790           org  *&700                                                                                694:   790           org  *&700
  691:  791 hold      dc   #3                                                                                   695:   791 hold      dc   #3
  692:  792           org  *&x00                                                                                696:   792           org  *&x00
  693:  793 eotwo     equ  *&1                                                                                  697:   793 eotwo     equ  *&1
  694:  794           ltorg*                                                                                    698:   794           ltorg*
  695:  795           dcw  @}@                           system group mark                                      699:   795           dcw  @}@                           system group mark
  696:  796           xfr  nustm                                                                                700:   796           xfr  nustm
  697:  797           job  1401 Fortran  sorter phase 3                           50063                         701:   797           job  1401 Fortran  sorter phase 3                           50063
  698:  798 110       dcw  @sort 3@                                                                             702:   798 110       dcw  @sort 3@
  699:  799 x1        equ  089                                                                                  703:   799 x1        equ  089
  700:  800 x2        equ  094                                                                                  704:   800 x2        equ  094
  701:  801           org  start                                                                                705:   801           org  start
  702:  802 again     mcw  083,xl3                                                                              706:   802 again     mcw  083,xl3
  703:  803           sw   gm                                                                                   707:   803           sw   gm
  704:  804           sbr  xl1,end-1                                                                            708:   804           sbr  xl1,end-1
  705:  805           sw   end                                                                                  709:   805           sw   end
  706:  806           mn   0&x3                                                                                 710:   806           mn   0&x3
  707:  807           lca  gm                                                                                   711:   807           lca  gm
  708:  808           sbr  pick&6                                                                               712:   808           sbr  pick&6
  709:  809           sbr  tbegin#3,list                                                                        713:   809           sbr  tbegin#3,list
  710:  810 nutyp     mcw  tbegin,xl3                    get list entry                                         714:   810 nutyp     mcw  tbegin,xl3                    get list entry
  711:  811           mcw  0&x3,xl3                                                                             715:   811           mcw  0&x3,xl3
  712:  812           sar  tbegin                                                                               716:   812           sar  tbegin
  713:  813           bce  eoj,xl3,x                                                                            717:   813           bce  eoj,xl3,x
  714:  814           mcw  table&2&x3,xl3                get table entry                                        718:   814           mcw  table&2&x3,xl3                get table entry
  715:  815           bce  nutyp,xl3,                    any of this type                                       719:   815           bce  nutyp,xl3,                    any of this type
  716:  816 pick      mcw  0&x3,xxxx                     pickup statement                                       720:   816 pick      mcw  0&x3,xxxx                     pickup statement
  717:  817           sar  xl2                                                                                  721:   817           sar  xl2
  718:  818           bce  aok1,1&x2,}                   can it fit   g-m                                       722:   818           bce  aok1,1&x2,}                   can it fit   g-m
  719:  819           b    pack                                                                                 723:   819           b    pack
  720:  820 aok1      sbr  xl2,2&x2                                                                             724:   820 aok1      sbr  xl2,2&x2
  721:  821 back5     mcm  0&x2                                                                                 725:   821 back5     mcm  0&x2
  722:  822           sbr  sbr6&6                                                                               726:   822           sbr  sbr6&6
  723:  823           mcm  0&x2,1&x1                                                                            727:   823           mcm  0&x2,1&x1
  724:  824           sbr  x1                                                                                   728:   824           sbr  x1
  725:  825           mn   0&x1                                                                                 729:   825           mn   0&x1
  726:  826           sbr  x1                                                                                   730:   826           sbr  x1
  727:  827 sbr6      sbr  x2,0                                                                                 731:   827 sbr6      sbr  x2,0
  728:  828           bce  back5,0&x1,|                                                                         732:   828           bce  back5,0&x1,|
  729:  829           sbr  x1,1&x1                                                                              733:   829           sbr  x1,1&x1
  730:  830           cw   paksw                                                                                734:   830           cw   paksw
  731:  831           mn   0&x1                                                                                 735:   831           mn   0&x1
  732:  832           chain3                                                                                    736:   832           chain3
  733:  833           sar  xl1                                                                                  737:   833           sar  xl1
  734:  834           lca  gm,0&x1                                                                              738:   834           lca  gm,0&x1
  735:  835           sbr  083                                                                                  739:   835           sbr  083
  736:  836           sbr  xl1                                                                                  740:   836           sbr  xl1
  737:  837 pmov1     mcm  1&x1                                                                                 741:   837 pmov1     mcm  1&x1
  738:  838           mn                                                                                        742:   838           mn
  739:  839           sar  xl1                                                                                  743:   839           sar  xl1
  740:  840           bce  pmov1,0&x1,|                                                                         744:   840           bce  pmov1,0&x1,|
  741:  841           mn   0&x3                                                                                 745:   841           mn   0&x3
  742:  842           chain5                                                                                    746:   842           chain5
  743:  843           sar  xl3                                                                                  747:   843           sar  xl3
  744:  844           mn   0&x1                                                                                 748:   844           mn   0&x1
  745:  845           lca  3&x3                                                                                 749:   845           lca  3&x3
  746:  846           mcw  @#@,0&x3                                                                             750:   846           mcw  @#@,0&x3
  747:  847 pmov2     mcm  2&x3                                                                                 751:   847 pmov2     mcm  2&x3
  748:  848           mn                                                                                        752:   848           mn
  749:  849           mn                                                                                        753:   849           mn
  750:  850           sar  xl3                                                                                  754:   850           sar  xl3
  751:  851           bce  pmov2,1&x3,|                                                                         755:   851           bce  pmov2,1&x3,|
  752:  852           bce  nutyp,0&x3,                                                                          756:   852           bce  nutyp,0&x3,
  753:  853           mcw  0&x3,xl3                                                                             757:   853           mcw  0&x3,xl3
  754:  854           b    pick                                                                                 758:   854           b    pick
  755:  855 pack      bw   cerr,paksw                                                                           759:   855 pack      bw   cerr,paksw
  756:  856           sw   paksw                                                                                760:   856           sw   paksw
  757:  857           mcw  parama&2,xl2                                                                         761:   857           mcw  parama&2,xl2
  758:  858           mn   0&x2                                                                                 762:   858           mn   0&x2
  759:  859           sar  xl2                                                                                  763:   859           sar  xl2
  760:  860           mcw  xl2,xl3                                                                              764:   860           mcw  xl2,xl3
  761:  861 loop1     lca  0&x2,0&x3                                                                            765:   861 loop1     lca  0&x2,0&x3
  762:  862           sar  xl2                                                                                  766:   862           sar  xl2
  763:  863           mcw  0&x3,work9#9                                                                         767:   863           mcw  0&x3,work9#9
  764:  864           bce  done,work9-6,#                                                                       768:   864           bce  done,work9-6,#
  765:  865           lca  0&x3,0&x3                                                                            769:   865           lca  0&x3,0&x3
  766:  866           sar  xl3                                                                                  770:   866           sar  xl3
  767:  867 done      c    pick&6,xl2                                                                           771:   867 done      c    pick&6,xl2
  768:  868           bu   loop1                                                                                772:   868           bu   loop1
  769:  869           mcw  xl3,pick&6                                                                           773:   869           mcw  xl3,pick&6
  770:  870           mcw  xl3,xl2                                                                              774:   870           mcw  xl3,xl2
  771:  871           mz   xl3,all92                                                                            775:   871           mz   xl3,all92
  772:  872           mz                                                                                        776:   872           mz
                                                                                                             >  777:   8724*         mlzs acchi&x3,nsign  wasn't actually done            v3m4
  773:  873           mcw                                                                                       778:   873           mcw
  774:  874           mz   xl1,all9                                                                             779:   874           mz   xl1,all9
  775:  875           mz                                                                                        780:   875           mz
  776:  876           mcw                                                                                       781:   876           mcw
  777:  877           c    all9,all92                                                                           782:   877           c    all9,all92
  778:  878           be   zadd                                                                                 783:   878           be   zadd
  779:  879 cleer     cs   0&x3                                                                                 784:   879 cleer     cs   0&x3
  780:  880           sbr  xl3                                                                                  785:   880           sbr  xl3
  781:  881           c    xl3,all9                                                                             786:   881           c    xl3,all9
  782:  882           bu   cleer                                                                                787:   882           bu   cleer
  783:  883 zadd      za   &39,save3                                                                            788:   883 zadd      za   &39,save3
  784:  884           s    xl3&1                                                                                789:   884           s    xl3&1
  785:  885 muve      mcw  blnk3#3,table&2&x3                                                                   790:   885 muve      mcw  blnk3#3,table&2&x3
  786:  886           s    &1,save3                                                                             791:   886           s    &1,save3
  787:  887           bm   exit,save3                                                                           792:   887           bm   exit,save3
  788:  888           a    &3,xl3                                                                               793:   888           a    &3,xl3
  789:  889           b    muve                                                                                 794:   889           b    muve
  790:  890 exit      mcm  1&x2                                                                                 795:   890 exit      mcm  1&x2
  791:  891           mn                                                                                        796:   891           mn
  792:  892           sar  xl2                                                                                  797:   892           sar  xl2
  793:  893           bce  exit,0&x2,|                                                                          798:   893           bce  exit,0&x2,|
  794:  894           sbr  xl2,1&x2                                                                             799:   894           sbr  xl2,1&x2
  795:  895           s    xl3&1                                                                                800:   895           s    xl3&1
  796:  896           c    0&x2                                                                                 801:   896           c    0&x2
  797:  897           sar  *&4                                                                                  802:   897           sar  *&4
  798:  898           mcw  0,work9                                                                              803:   898           mcw  0,work9
  799:  899           mn   work9-6,xl3                                                                          804:   899           mn   work9-6,xl3
  800:  900           mcw  xl3,save3                                                                            805:   900           mcw  xl3,save3
  801:  901           a    xl3                                                                                  806:   901           a    xl3
  802:  902           a    save3,xl3                                                                            807:   902           a    save3,xl3
  803:  903           bwz  cnt,work9-6,2                                                                        808:   903           bwz  cnt,work9-6,2
  804:  904           a    &30,xl3                                                                              809:   904           a    &30,xl3
  805:  905           bwz  cnt,work9-6,s                                                                        810:   905           bwz  cnt,work9-6,s
  806:  906           a    &30,xl3                                                                              811:   906           a    &30,xl3
  807:  907           bwz  cnt,work9-6,k                                                                        812:   907           bwz  cnt,work9-6,k
  808:  908           a    &30,xl3                                                                              813:   908           a    &30,xl3
  809:  909 cnt       mn   0&x2                                                                                 814:   909 cnt       mn   0&x2
  810:  910           mn                                                                                        815:   910           mn
  811:  911           mcw  table&2&x3                                                                           816:   911           mcw  table&2&x3
  812:  912           c    0&x2                                                                                 817:   912           c    0&x2
  813:  913           sar  table&2&x3                                                                           818:   913           sar  table&2&x3
  814:  914           c    xl2,parama&2                                                                         819:   914           c    xl2,parama&2
  815:  915           bu   exit                                                                                 820:   915           bu   exit
  816:  916           mcw  tbegin,xl3                                                                           821:   916           mcw  tbegin,xl3
  817:  917           nop  3&x3                                                                                 822:   917           nop  3&x3
  818:  918           sar  tbegin                                                                               823:   918           sar  tbegin
  819:  919           b    nutyp                                                                                824:   919           b    nutyp
  820:  920 eoj       fendxc,gm,,xbegin,xbegin,xbegin,save3,group mark                                          825:   920 eoj       fendxc,gm,,xbegin,xbegin,xbegin,save3,group mark
  821:  921 cerr      fquit                                                                                     826:   921 cerr      fquit
  822:  922           dcw  @xxx@                                                                                827:   922           dcw  @xxx@
  823:  923           dcw  117                           I dimension                                            828:   923           dcw  117                           I dimension
  824:  924           dcw  084                           Q equivalence                                          829:   924           dcw  084                           Q equivalence
  825:  925           dcw  108                           F format                                               830:   925           dcw  108                           F format
  826:  926           dcw  009                           3 write tape                                           831:   926           dcw  009                           3 write tape
  827:  927           dcw  003                           1 read tape                                            832:   927           dcw  003                           1 read tape
  828:  928           dcw  018                           6 write output tape                                    833:   928           dcw  018                           6 write output tape
  829:  929           dcw  081                           p print                                                834:   929           dcw  081                           p print
  830:  930           dcw  042                           u pnch                                                 835:   930           dcw  042                           u pnch
  831:  931           dcw  015                           5 read input tape                                      836:   931           dcw  015                           5 read input tape
  832:  932           dcw  069                           l read                                                 837:   932           dcw  069                           l read
  833:  933           dcw  087                           r arith                                                838:   933           dcw  087                           r arith
  834:  934           dcw  105                           e if                                                   839:   934           dcw  105                           e if
  835:  935           dcw  027                           9 function stmts                                       840:   935           dcw  027                           9 function stmts
  836:  936           dcw  096                           b backspace                                            841:   936           dcw  096                           b backspace
  837:  937           dcw  057                           z rewind                                               842:   937           dcw  057                           z rewind
  838:  938           dcw  075                           n end of file                                          843:   938           dcw  075                           n end of file
  839:  939           dcw  039                           t computed go to                                       844:   939           dcw  039                           t computed go to
  840:  940           dcw  111                           g go to                                                845:   940           dcw  111                           g go to
  841:  941           dcw  036                           s stop                                                 846:   941           dcw  036                           s stop
  842:  942           dcw  093                           a pause                                                847:   942           dcw  093                           a pause
  843:  943           dcw  063                           j sense light                                          848:   943           dcw  063                           j sense light
  844:  944           dcw  066                           k if sense light                                       849:   944           dcw  066                           k if sense light
  845:  945           dcw  048                           w if sense switch                                      850:   945           dcw  048                           w if sense switch
  846:  946           dcw  099                           c continue                                             851:   946           dcw  099                           c continue
  847:  947 list      dcw  102                           d do                                                   852:   947 list      dcw  102                           d do
  848:  948 all9      dcw  999                                                                                  853:   948 all9      dcw  999
  849:  949 all92     dcw  999                                                                                  854:   949 all92     dcw  999
  850:  950 gm        dc   @}@                           group mark                                             855:   950 gm        dc   @}@                           group mark
  851:  951 paksw     dc   0                                                                                    856:   951 paksw     dc   0
  852:  952           ltorg*                                                                                    857:   952           ltorg*
  853:  953           org  eotwo&1                                                                              858:   953           org  eotwo&1
  854:  954 save3     dcw  #3                                                                                   859:   954 save3     dcw  #3
  855:  955           org  orgvbi&x00                    varbl one longest                                      860:   955           org  orgvbi&x00                    varbl one longest
  856:  956 end       equ  *&1                                                                                  861:   956 end       equ  *&1
  857:  957           dcw  @}@                           system group mark                                      862:   957           dcw  @}@                           system group mark
  858:  958           xfr  again                                                                                863:   958           xfr  again
  859:  959           job  1401 Fortran  insert group phase                       50073                         864:   959           job  1401 Fortran  insert group phase                       50073
  860:  960           fbegngroup mark,x1,r,x2,r,,,d                                                             865:   960           fbegngroup mark,x1,r,x2,r,,,d
  861:  961           org  xbegin                                                                               866:   961           org  xbegin
  862:  962 start     mcw  083,x1                                                                               867:   962 start     mcw  083,x1
  863:  963           sw   gm                                                                                   868:   963           sw   gm
  864:  964 loop1     bce  rplce,0&x1,:        5-8                                                              869:   964 loop1     bce  rplce,0&x1,:        5-8
  865:  965 btest     bce  eoj,0&x1,            blank                                                           870:   965 btest     bce  eoj,0&x1,            blank
  866:  966           bce  ckfmt,0&x1,}          group mark                                                     871:   966           bce  ckfmt,0&x1,}          group mark
  867:  967           sbr  x1                                                                                   872:   967           sbr  x1
  868:  968           b    loop1                                                                                873:   968           b    loop1
  869:  969 rplce     lca  gm, 0&x1          insert gm/wm                                                       874:   969 rplce     lca  gm, 0&x1          insert gm/wm
  870:  970           sbr  x1                                                                                   875:   970           sbr  x1
  871:  971           c    0&x1                                                                                 876:   971           c    0&x1
  872:  972           sar  x1                                                                                   877:   972           sar  x1
  873:  973           b    loop1                                                                                878:   973           b    loop1
  874:  974 ckfmt     mcw  0&x1,hold5#5                                                                         879:   974 ckfmt     mcw  0&x1,hold5#5
  875:  975           bce  isfmt,hold5-4,f                                                                      880:   975           bce  isfmt,hold5-4,f
  876:  976           mcw  @b@,btest                                                                            881:   976           mcw  @b@,btest
  877:  977 bump      mn   0&x1                                                                                 882:   977 bump      mn   0&x1
  878:  978           sbr  x1                                                                                   883:   978           sbr  x1
  879:  979           b    loop1                                                                                884:   979           b    loop1
  880:  980 isfmt     mcw  @n@,btest                                                                            885:   980 isfmt     mcw  @n@,btest
  881:  981           b    bump                                                                                 886:   981           b    bump
  882:  982 eoj       mcw  parama&2,x2                                                                          887:   982 eoj       mcw  parama&2,x2
  883:  983           mz   083,all9                                                                             888:   983           mz   083,all9
  884:  984           mz                                                                                        889:   984           mz
  885:  985           mcw                                                                                       890:   985           mcw
  886:  986 clear     cs   0&x2                                                                                 891:   986 clear     cs   0&x2
  887:  987           sbr  x2                                                                                   892:   987           sbr  x2
  888:  988           c    x2,all9                                                                              893:   988           c    x2,all9
  889:  989           bu   clear                                                                                894:   989           bu   clear
  890:  990 cmpar     c    083,x2                                                                               895:   990 cmpar     c    083,x2
  891:  991           be   fxprm                                                                                896:   991           be   fxprm
  892:  992           mcw  blank#1,0&x2                                                                         897:   992           mcw  blank#1,0&x2
  893:  993           cw   0&x2                                                                                 898:   993           cw   0&x2
  894:  994           sbr  x2                                                                                   899:   994           sbr  x2
  895:  995           b    cmpar                                                                                900:   995           b    cmpar
  896:  996 fxprm     sw   parama&3                                                                             901:   996 fxprm     sw   parama&3
  897:  997           a    blank,parama&6                                                                       902:   997           a    blank,parama&6
  898:  998           c    parama&4,@00@                                                                        903:   998           c    parama&4,@00@
  899:  999           bu   *&8                                                                                  904:   999           bu   *&8
  900: 1000           mcw  @05@,parama&4                                                                        905:  1000           mcw  @05@,parama&4
  901: 1001           c    parama&6,@00@                                                                        906:  1001           c    parama&6,@00@
  902: 1002           bu   eophs                                                                                907:  1002           bu   eophs
  903: 1003           mcw  @08@,parama&6                                                                        908:  1003           mcw  @08@,parama&6
  904: 1004 eophs     fendxc,gm,,,,,sys1,squoze                                                                 909:  1004 eophs     fendxc,gm,,,,,sys1,squoze
  905: 1005 all9      dcw  999                                                                                  910:  1005 all9      dcw  999
  906: 1006 gm        dc   @}@                           group mark                                             911:  1006 gm        dc   @}@                           group mark
  907: 1007           ltorg*                                                                                    912:  1007           ltorg*
  908: 1008 sys1      dcw  @}@                           system group mark                                      913:  1008 sys1      dcw  @}@                           system group mark
  909: 1009           xfr  start                                                                                914:  1009           xfr  start
  910: 1010           job  1401 Fortran  squoze phase                             50083                         915:  1010           job  1401 Fortran  squoze phase                             50083
  911: 1011           fbegnsquoze,xl1,r,xl2,r,xl3,r,e,xxxx                                                      916:  1011           fbegnsquoze,xl1,r,xl2,r,xl3,r,e,xxxx
  912: 1012 x1        equ  xl1                                                                                  917:  1012 x1        equ  xl1
  913: 1013 x2        equ  xl2                                                                                  918:  1013 x2        equ  xl2
  914: 1014 stloc     equ  083                                                                                  919:  1014 stloc     equ  083
  915: 1015           org  xbegin                                                                               920:  1015           org  xbegin
  916: 1016 begin     mcw  stloc,xl2                     initialize index locs                                  921:  1016 begin     mcw  stloc,xl2                     initialize index locs
  917: 1017           mcw  stloc,xl1                      with start address                                    922:  1017           mcw  stloc,xl1                      with start address
  918: 1018 nustm     mcw  0&x1,stmno#3                  save statement number                                  923:  1018 nustm     mcw  0&x1,stmno#3                  save statement number
  919: 1019           mcw  0&x1,hold4#4                                                                         924:  1019           mcw  0&x1,hold4#4
  920: 1020           bce  arith,hold4-3,r                                                                      925:  1020           bce  arith,hold4-3,r
  921: 1021           bce  endcd,hold4-3,/                                                                      926:  1021           bce  endcd,hold4-3,/
  922: 1022 byp       bce  lod,hold4-3,x                                                                        927:  1022 byp       bce  lod,hold4-3,x
  923: 1023           mz   hold4-3,byp&7                                                                        928:  1023           mz   hold4-3,byp&7
  924: 1024           mn   hold4-3,byp&7                                                                        929:  1024           mn   hold4-3,byp&7
  925: 1025           mn   hold4-3,hold1#1       generate table entry                                           930:  1025           mn   hold4-3,hold1#1       generate table entry
  926: 1026           za   hold1,hold3#3                  address                                               931:  1026           za   hold1,hold3#3                  address
  927: 1027           a    hold3                                                                                932:  1027           a    hold3
  928: 1028           a    hold1,hold3                                                                          933:  1028           a    hold1,hold3
  929: 1029           mz   blank#1,hold3                                                                        934:  1029           mz   blank#1,hold3
  930: 1030           lca  &table-3,rtrev&3                                                                     935:  1030           lca  &table-3,rtrev&3
  931: 1031           a    hold3,rtrev&3                                                                        936:  1031           a    hold3,rtrev&3
  932: 1032           mz   hold4-3,rtrev&2                                                                      937:  1032           mz   hold4-3,rtrev&2
  933: 1033           cw   rtrev&1                                                                              938:  1033           cw   rtrev&1
  934: 1034           mcw  xl2,holdx#8                   save index locs 1 & 2                                  939:  1034           mcw  xl2,holdx#8                   save index locs 1 & 2
  935: 1035           mcw                                                                                       940:  1035           mcw
  936: 1036           mcm  data,xl1-2                    retrieve table entry                                   941:  1036           mcm  data,xl1-2                    retrieve table entry
  937: 1037 rtrev     mcw  xxxx,xl3                                                                             942:  1037 rtrev     mcw  xxxx,xl3
  938: 1038           mcw  holdx,xl2                                                                            943:  1038           mcw  holdx,xl2
  939: 1039           mcw                                                                                       944:  1039           mcw
  940: 1040 lod       mvdwnx1,x2                                                                                945:  1040 lod       mvdwnx1,x2
  941: 1041           c    0&x1,0&x3                     check statement name                                   946:  1041           c    0&x1,0&x3                     check statement name
  942: 1042           sar  xl1                                                                                  947:  1042           sar  xl1
  943: 1043           bu   error                                                                                948:  1043           bu   error
  944: 1044 shift     mvdwnx1,x2                                                                                949:  1044 shift     mvdwnx1,x2
  945: 1045 ckdon     bce  done,0&x1,                    blank check for eoj                                    950:  1045 ckdon     bce  done,0&x1,                    blank check for eoj
  946: 1046           b    nustm                                                                                951:  1046           b    nustm
  947: 1047 done      cs   0&x2                                                                                 952:  1047 done      cs   0&x2
  948: 1048           cs                                                                                        953:  1048           cs
  949: 1049           fendxc,,,,initlf,,sys1,dimen1                                                             954:  1049           fendxc,,,,initlf,,sys1,dimen1
  950: 1050 error     ftmsg1,undeterminable statement,stmno,25                                                  955:  1050 error     ftmsg1,undeterminable statement,stmno,25
  951: 1051 pmov3     mcm  2&x2                                                                                 956:  1051 pmov3     mcm  2&x2
  952: 1052           mn                                                                                        957:  1052           mn
  953: 1053           mn                                                                                        958:  1053           mn
  954: 1054           sar  xl2                                                                                  959:  1054           sar  xl2
  955: 1055           bce  pmov3,1&x2,|                                                                         960:  1055           bce  pmov3,1&x2,|
  956: 1056           c    0&x1                                                                                 961:  1056           c    0&x1
  957: 1057           sar  xl1                                                                                  962:  1057           sar  xl1
  958: 1058           b    ckdon                                                                                963:  1058           b    ckdon
  959: 1059 arith     lca  0&x1,0&x2                                                                            964:  1059 arith     lca  0&x1,0&x2
  960: 1060           sar  xl1                                                                                  965:  1060           sar  xl1
  961: 1061           lca  0&x2,0&x2                                                                            966:  1061           lca  0&x2,0&x2
  962: 1062           sbr  xl2                                                                                  967:  1062           sbr  xl2
  963: 1063           b    shift                                                                                968:  1063           b    shift
  964: 1064 endcd     c    0&x1                                                                                 969:  1064 endcd     c    0&x1
  965: 1065           c                                                                                         970:  1065           c
  966: 1066           sar  xl1                                                                                  971:  1066           sar  xl1
  967: 1067           b    ckdon                         / end                                                  972:  1067           b    ckdon                         / end
  968: 1068 table     dcw  rdtap                         1 read tape                                            973:  1068 table     dcw  rdtap                         1 read tape
  969: 1069           dcw  xxxx                          2                                                      974:  1069           dcw  xxxx                          2
  970: 1070           dcw  wrtap                         3 write tape                                           975:  1070           dcw  wrtap                         3 write tape
  971: 1071           dcw  xxxx                          4                                                      976:  1071           dcw  xxxx                          4
  972: 1072           dcw  rditp                         5 read input tape                                      977:  1072           dcw  rditp                         5 read input tape
  973: 1073           dcw  wtotp                         6 write output tape                                    978:  1073           dcw  wtotp                         6 write output tape
  974: 1074           dcw  xxxx                          7                                                      979:  1074           dcw  xxxx                          7
  975: 1075           dcw  xxxx                          8                                                      980:  1075           dcw  xxxx                          8
  976: 1076           dcw  blank                         9 function statements                                  981:  1076           dcw  blank                         9 function statements
  977: 1077           dcw  xxxx                          /                                                      982:  1077           dcw  xxxx                          /
  978: 1078           dcw  stop                          s stop                                                 983:  1078           dcw  stop                          s stop
  979: 1079           dcw  cgoto                         t computed go to                                       984:  1079           dcw  cgoto                         t computed go to
  980: 1080           dcw  punch                         u punch                                                985:  1080           dcw  punch                         u punch
  981: 1081           dcw  xxxx                          v                                                      986:  1081           dcw  xxxx                          v
  982: 1082           dcw  ifssw                         w if sense switch                                      987:  1082           dcw  ifssw                         w if sense switch
  983: 1083           dcw  xxxx                          x                                                      988:  1083           dcw  xxxx                          x
  984: 1084           dcw  xxxx                          y                                                      989:  1084           dcw  xxxx                          y
  985: 1085           dcw  rwd                           z rewind                                               990:  1085           dcw  rwd                           z rewind
  986: 1086           dcw  senlt                         j sense light                                          991:  1086           dcw  senlt                         j sense light
  987: 1087           dcw  ifsl                          k if sense light                                       992:  1087           dcw  ifsl                          k if sense light
  988: 1088           dcw  read                          l read                                                 993:  1088           dcw  read                          l read
  989: 1089           dcw  xxxx                          m                                                      994:  1089           dcw  xxxx                          m
  990: 1090           dcw  eof                           n end of file                                          995:  1090           dcw  eof                           n end of file
  991: 1091           dcw  xxxx                          o                                                      996:  1091           dcw  xxxx                          o
  992: 1092           dcw  print                         p print                                                997:  1092           dcw  print                         p print
  993: 1093           dcw  equiv                         q equivalence                                          998:  1093           dcw  equiv                         q equivalence
  994: 1094           dcw  xxxx                          r arithmetic                                           999:  1094           dcw  xxxx                          r arithmetic
  995: 1095           dcw  pause                         a pause                                               1000:  1095           dcw  pause                         a pause
  996: 1096           dcw  bsp                           b backspace                                           1001:  1096           dcw  bsp                           b backspace
  997: 1097           dcw  cntu                          c continue                                            1002:  1097           dcw  cntu                          c continue
  998: 1098           dcw  do                            d do                                                  1003:  1098           dcw  do                            d do
  999: 1099           dcw  if                            e if                                                  1004:  1099           dcw  if                            e if
 1000: 1100           dcw  frmat                         f format                                              1005:  1100           dcw  frmat                         f format
 1001: 1101           dcw  goto                          g go to                                               1006:  1101           dcw  goto                          g go to
 1002: 1102           dcw  xxxx                          h                                                     1007:  1102           dcw  xxxx                          h
 1003: 1103           dcw  dmsn                          i dimension                                           1008:  1103           dcw  dmsn                          i dimension
 1004: 1104 goto      dcw  @otog@                                                                              1009:  1104 goto      dcw  @otog@
 1005: 1105 cgoto     dcw  @%otog@                                                                             1010:  1105 cgoto     dcw  @%otog@
 1006: 1106 if        dcw  @fi@                                                                                1011:  1106 if        dcw  @fi@
 1007: 1107 ifssw     dcw  @hctiwsesnes%fi@                                                                    1012:  1107 ifssw     dcw  @hctiwsesnes%fi@
 1008: 1108 pause     dcw  @esuap@                                                                             1013:  1108 pause     dcw  @esuap@
 1009: 1109 stop      dcw  @pots@                                                                              1014:  1109 stop      dcw  @pots@
 1010: 1110 do        dcw  @od@                                                                                1015:  1110 do        dcw  @od@
 1011: 1111 cntu      dcw  @eunitnoc@                                                                          1016:  1111 cntu      dcw  @eunitnoc@
 1012: 1112 frmat     dcw  @%tamrof@                                                                           1017:  1112 frmat     dcw  @%tamrof@
 1013: 1113 read      dcw  @daer@                                                                              1018:  1113 read      dcw  @daer@
 1014: 1114 rditp     dcw  @epattupnidaer@                                                                     1019:  1114 rditp     dcw  @epattupnidaer@
 1015: 1115 punch     dcw  @hcnup@                                                                             1020:  1115 punch     dcw  @hcnup@
 1016: 1116 print     dcw  @tnirp@                                                                             1021:  1116 print     dcw  @tnirp@
 1017: 1117 wtotp     dcw  @epattuptuoetirw@                                                                   1022:  1117 wtotp     dcw  @epattuptuoetirw@
 1018: 1118 rdtap     dcw  @epatdaer@                                                                          1023:  1118 rdtap     dcw  @epatdaer@
 1019: 1119 wrtap     dcw  @epatetirw@                                                                         1024:  1119 wrtap     dcw  @epatetirw@
 1020: 1120 eof       dcw  @elifdne@                                                                           1025:  1120 eof       dcw  @elifdne@
 1021: 1121 rwd       dcw  @dniwer@                                                                            1026:  1121 rwd       dcw  @dniwer@
 1022: 1122 bsp       dcw  @ecapskcab@                                                                         1027:  1122 bsp       dcw  @ecapskcab@
 1023: 1123 dmsn      dcw  @noisnemid@                                                                         1028:  1123 dmsn      dcw  @noisnemid@
 1024: 1124 equiv     dcw  @ecnelaviuqe@                                                                       1029:  1124 equiv     dcw  @ecnelaviuqe@
 1025: 1125 ifsl      dcw  @thgilesnes%fi@                                                                     1030:  1125 ifsl      dcw  @thgilesnes%fi@
 1026: 1126 senlt     dcw  @thgilesnes@                                                                        1031:  1126 senlt     dcw  @thgilesnes@
 1027: 1127 data      equ  *&1                                                                                 1032:  1127 data      equ  *&1
 1028: 1128           dcw  @0270005400081|@                                                                    1033:  1128           dcw  @0270005400081|@
 1029: 1129           ltorg*                                                                                   1034:  1129           ltorg*
 1030: 1130 sys1      dcw  @}@                           system group mark                                     1035:  1130 sys1      dcw  @}@                           system group mark
 1031: 1131           xfr  begin                                                                               1036:  1131           xfr  begin
 1032: 1132           job  1401 Fortran dimension phase one                       50093                        1037:  1132           job  1401 Fortran dimension phase one                       50093
 1033: 1133           fbegndimen 1,x1,,x2,r,x3,r,f                                                             1038:  1133           fbegndimen 1,x1,,x2,r,x3,r,f
 1034: 1134           org  xbegin                                                                              1039:  1134           org  xbegin
 1035: 1135 compat    dcw  0                                                                                   1040:  1135 compat    dcw  0
 1036: 1136 initl     sw   gm                                                                                  1041:  1136 initl     sw   gm
 1037: 1137           mcw  83,x1                                                                               1042:  1137           mcw  83,x1
 1038: 1138           a    blank#1,parama&6                                                                    1043:  1138           a    blank#1,parama&6
 1039: 1139           mcw  parama&6,hold#2                                                                     1044:  1139           mcw  parama&6,hold#2
 1040: 1140           a    &2,hold                                                                             1045:  1140           a    &2,hold
 1041: 1141           c    parama&4,hold                                                                       1046:  1141           c    parama&4,hold
 1042: 1142           bu   *&5                                                                                 1047:  1142           bu   *&5
 1043: 1143           cw   compat                                                                              1048:  1143           cw   compat
 1044: 1144           lca  gm,1&x1                                                                             1049:  1144           lca  gm,1&x1
 1045: 1145           lca  parama&2,x2                                                                         1050:  1145           lca  parama&2,x2
 1046: 1146           mn   0000&x2                                                                             1051:  1146           mn   0000&x2
 1047: 1147           mn                                                                                       1052:  1147           mn
 1048: 1148           mcw  @ @                           blank                                                 1053:  1148           mcw  @ @                           blank
 1049: 1149           sbr  x2                                                                                  1054:  1149           sbr  x2
 1050: 1150 start     mcw  blank,001             b op initialized                                              1055:  1150 start     mcw  blank,001             b op initialized
 1051: 1151           mcw  @<@,2&x1           12-6-8                                                           1056:  1151           mcw  @<@,2&x1           12-6-8
 1052: 1152           nop  2&x1                                                                                1057:  1152           nop  2&x1
 1053: 1153           sar  start&6                                                                             1058:  1153           sar  start&6
 1054: 1154           lca  0&x1,work                                                                           1059:  1154           lca  0&x1,work
 1055: 1155           sar  x1                                                                                  1060:  1155           sar  x1
 1056: 1156           sbr  x3                                                                                  1061:  1156           sbr  x3
 1057: 1157           bce  cknod,work,                   blank                                                 1062:  1157           bce  cknod,work,                   blank
 1058: 1158           bce  dimen,work-3,i                                                                      1063:  1158           bce  dimen,work-3,i
 1059: 1159           bce  byp,work-3,/                                                                        1064:  1159           bce  byp,work-3,/
 1060: 1160           b    cknod                                                                               1065:  1160           b    cknod
 1061: 1161 dimen     bce  name,000&x1,%       left paren                                                      1066:  1161 dimen     bce  name,000&x1,%       left paren
 1062: 1162           fbceqsyner,0&x1,,,),}      12-7-8                                                        1067:  1162           fbceqsyner,0&x1,,,),}      12-7-8
 1063: 1163           sbr  x1                                                                                  1068:  1163           sbr  x1
 1064: 1164           b    dimen                                                                               1069:  1164           b    dimen
 1065: 1165 name      sw   dimsw                                                                               1070:  1165 name      sw   dimsw
 1066: 1166           mn   0&x1                                                                                1071:  1166           mn   0&x1
 1067: 1167           sar  x1                                                                                  1072:  1167           sar  x1
 1068: 1168           sw   002&x1                                                                              1073:  1168           sw   002&x1
 1069: 1169           mcw  x2,hex2#3                                                                           1074:  1169           mcw  x2,hex2#3
 1070: 1170 *    test to see if array was previously defined                                                   1075:  1170 *    test to see if array was previously defined
 1071: 1171           bw   ok,dsw#1                                                                            1076:  1171           bw   ok,dsw#1
 1072: 1172 uniq      mcm  1&x2                                                                                1077:  1172 uniq      mcm  1&x2
 1073: 1173           sar  x2                                                                                  1078:  1173           sar  x2
 1074: 1174           bce  ok,0&x2,      blank                                                                 1079:  1174           bce  ok,0&x2,      blank
 1075: 1175 get       mcm  2&x2                                                                                1080:  1175 get       mcm  2&x2
 1076: 1176           mn                                                                                       1081:  1176           mn
 1077: 1177           mn                                                                                       1082:  1177           mn
 1078: 1178           sbr  x2                                                                                  1083:  1178           sbr  x2
 1079: 1179           bce  get,1&x2,|                                                                          1084:  1179           bce  get,1&x2,|
 1080: 1180 comp      c    0&x2,0&x3      rest v. new                                                          1085:  1180 comp      c    0&x2,0&x3      rest v. new
 1081: 1181           sar  x2                                                                                  1086:  1181           sar  x2
 1082: 1182           bu   uniq                                                                                1087:  1182           bu   uniq
 1083: 1183 *    can get equal compare if a field longer than b field                                          1088:  1183 *    can get equal compare if a field longer than b field
 1084: 1184           bwz  multy,1&x2,1                                                                        1089:  1184           bwz  multy,1&x2,1
 1085: 1185           b    uniq                                                                                1090:  1185           b    uniq
 1086: 1186 ok        mcw  hex2,x2                                                                             1091:  1186 ok        mcw  hex2,x2
 1087: 1187           lca  gm,000&x2                                                                           1092:  1187           lca  gm,000&x2
 1088: 1188           lca  000&x3                                                                              1093:  1188           lca  000&x3
 1089: 1189           lca  pred                                                                                1094:  1189           lca  pred
 1090: 1190           sbr  x2                                                                                  1095:  1190           sbr  x2
 1091: 1191           mcw  pred,x3        pred initially blank                                                 1096:  1191           mcw  pred,x3        pred initially blank
 1092: 1192           bce  *&5,x3,                       blank                                                 1097:  1192           bce  *&5,x3,                       blank
 1093: 1193           b    *&8                                                                                 1098:  1193           b    *&8
 1094: 1194           a    blank,x3                                                                            1099:  1194           a    blank,x3
 1095: 1195           lca  @   @,000&x2                                                                        1100:  1195           lca  @   @,000&x2
 1096: 1196           lca  @   @                                                                               1101:  1196           lca  @   @
 1097: 1197           sbr  006&x3                                                                              1102:  1197           sbr  006&x3
 1098: 1198           sbr  pred                                                                                1103:  1198           sbr  pred
 1099: 1199           lca  @     @                                                                             1104:  1199           lca  @     @
 1100: 1200           sbr  x2                                                                                  1105:  1200           sbr  x2
 1101: 1201 reset     fflip0&x1,mn,x1,x3,,,,,),}         group mark                                            1106:  1201 reset     fflip0&x1,mn,x1,x3,,,,,),}         group mark
 1102: 1202           bce  syner,1&x1,}                  12-7-8                                                1107:  1202           bce  syner,1&x1,}                  12-7-8
 1103: 1203           lca  001&x3,000&x2                                                                       1108:  1203           lca  001&x3,000&x2
 1104: 1204           sbr  x2                                                                                  1109:  1204           sbr  x2
 1105: 1205           bce  reset,1&x1,,                                                                        1110:  1205           bce  reset,1&x1,,
 1106: 1206           mcw  start&6,x3                                                                          1111:  1206           mcw  start&6,x3
 1107: 1207           bce  *&5,0&x3,<          12-6-8                                                          1112:  1207           bce  *&5,0&x3,<          12-6-8
 1108: 1208           b    fail                                                                                1113:  1208           b    fail
 1109: 1209           cw   dsw                                                                                 1114:  1209           cw   dsw
 1110: 1210 ckgm      bce  next,0&x1,}          12-7-8                                                         1115:  1210 ckgm      bce  next,0&x1,}          12-7-8
 1111: 1211           b                    last char of dimen might be ,                                       1116:  1211           b                    last char of dimen might be ,
 1112: 1212           bce  *&5,0&x1,,                                                                          1117:  1212           bce  *&5,0&x1,,
 1113: 1213           b    syner                                                                               1118:  1213           b    syner
 1114: 1214           mn   000&x1                                                                              1119:  1214           mn   000&x1
 1115: 1215           sar  x1                                                                                  1120:  1215           sar  x1
 1116: 1216           sbr  x3                                                                                  1121:  1216           sbr  x3
 1117: 1217           b    dimen                                                                               1122:  1217           b    dimen
 1118: 1218 next      c    0&x1                                                                                1123:  1218 next      c    0&x1
 1119: 1219           sar  x1                                                                                  1124:  1219           sar  x1
 1120: 1220           b    start                                                                               1125:  1220           b    start
 1121: 1221 multy     cs   332                                                                                 1126:  1221 multy     cs   332
 1122: 1222           cs                                                                                       1127:  1222           cs
 1123: 1223           sw   failsw                                                                              1128:  1223           sw   failsw
 1124: 1224           mcw  @error 2 - doubly defined array@,230                                                1129:  1224           mcw  @error 2 - doubly defined array@,230
 1125: 1225           mcw  comp&6,x2                                                                           1130:  1225           mcw  comp&6,x2
 1126: 1226           fflip0&x3,232,x3,x2,incl,wm                                                              1131:  1226           fflip0&x3,232,x3,x2,incl,wm
 1127: 1227           w                                                                                        1132:  1227           w
 1128: 1228           forms                                                                                    1133:  1228           forms
 1129: 1229 lozsc     bce  ctul,0&x1,)                                                                         1134:  1229 lozsc     bce  ctul,0&x1,)
 1130: 1230           sbr  x1                                                                                  1135:  1230           sbr  x1
 1131: 1231           bce  syner,1&x1,}      12-7-8                                                            1136:  1231           bce  syner,1&x1,}      12-7-8
 1132: 1232           b    lozsc                                                                               1137:  1232           b    lozsc
 1133: 1233 ctul      mn   0&x1                                                                                1138:  1233 ctul      mn   0&x1
 1134: 1234           sar  x1                                                                                  1139:  1234           sar  x1
 1135: 1235           mcw  hex2,x2                                                                             1140:  1235           mcw  hex2,x2
 1136: 1236           b    ckgm                                                                                1141:  1236           b    ckgm
 1137: 1237 syner     ftmsg3,dimension syntax,work,17                                                          1142:  1237 syner     ftmsg3,dimension syntax,work,17
 1138: 1238           mcw  hex2,x2                                                                             1143:  1238           mcw  hex2,x2
 1139: 1239           bce  start,1&x1,}                  12-7-8                                                1144:  1239           bce  start,1&x1,}                  12-7-8
 1140: 1240 byp       c    0&x1                                                                                1145:  1240 byp       c    0&x1
 1141: 1241           sar  x1                                                                                  1146:  1241           sar  x1
 1142: 1242           b    start                                                                               1147:  1242           b    start
 1143: 1243 cknod     bw   out,dimsw                                                                           1148:  1243 cknod     bw   out,dimsw
 1144: 1244           lca  gm,0&x2                                                                             1149:  1244           lca  gm,0&x2
 1145: 1245           lca  @:@                           5-8                                                   1150:  1245           lca  @:@                           5-8
 1146: 1246           lca  blnk3#3                                                                             1151:  1246           lca  blnk3#3
 1147: 1247           lca  blnk3                                                                               1152:  1247           lca  blnk3
 1148: 1248           lca  blnk3                                                                               1153:  1248           lca  blnk3
 1149: 1249           lca  blank5#5                                                                            1154:  1249           lca  blank5#5
 1150: 1250           lca  @10@                                                                                1155:  1250           lca  @10@
 1151: 1251           sbr  x2                                                                                  1156:  1251           sbr  x2
 1152: 1252 out       nop  002&x1                                                                              1157:  1252 out       nop  002&x1
 1153: 1253           mcm                                                                                      1158:  1253           mcm
 1154: 1254           mcw                                                                                      1159:  1254           mcw
 1155: 1255           sar  x1                                                                                  1160:  1255           sar  x1
 1156: 1256           mcw  006,086                                                                             1161:  1256           mcw  006,086
 1157: 1257           fendxc,gm,,xbegin&1,initlg,xbegin&1,sys1,equiv one                                       1162:  1257           fendxc,gm,,xbegin&1,initlg,xbegin&1,sys1,equiv one
 1158: 1258 fail      fquit                                                                                    1163:  1258 fail      fquit
 1159: 1259           dcw  0                                                                                   1164:  1259           dcw  0
 1160: 1260 work      dcw  #10                                                                                 1165:  1260 work      dcw  #10
 1161: 1261 gm        dc   @}@        12-7-8                                                                   1166:  1261 gm        dc   @}@        12-7-8
 1162: 1262 pred      dcw  #3                                                                                  1167:  1262 pred      dcw  #3
 1163: 1263 mn        dcw  #1                                                                                  1168:  1263 mn        dcw  #1
 1164: 2164           dc   #4                                                                                  1169:  2164           dc   #4
 1165: 1265 dimsw     dc   #1                                                                                  1170:  1265 dimsw     dc   #1
 1166: 1266           ltorg*                                                                                   1171:  1266           ltorg*
 1167: 1267 sys1      dcw  @}@                           system group mark                                     1172:  1267 sys1      dcw  @}@                           system group mark
 1168: 1268           xfr  initl                                                                               1173:  1268           xfr  initl
 1169: 1269           job  1401 Fortran   equivalence phase one                   50103                        1174:  1269           job  1401 Fortran   equivalence phase one                   50103
 1170: 1270           fbegnequiv one,x1,,x2,,x3,r,g                                                            1175:  1270           fbegnequiv one,x1,,x2,,x3,r,g
 1171: 1271           org  xbegin&1                                                                            1176:  1271           org  xbegin&1
 1172: 1272 first     equ  086                                                                                 1177:  1272 first     equ  086
 1173: 1273 gm        dc   @}@                           12-7-8                                                1178:  1273 gm        dc   @}@                           12-7-8
 1174: 1274 work      dc   #10                                                                                 1179:  1274 work      dc   #10
 1175: 1275 dress     dcw  #3                                                                                  1180:  1275 dress     dcw  #3
 1176: 1276 champ     dcw  #5                                                                                  1181:  1276 champ     dcw  #5
 1177: 1277           dc   #3                                                                                  1182:  1277           dc   #3
 1178: 1278 tally     dcw  #5                                                                                  1183:  1278 tally     dcw  #5
 1179: 1279           dc   #3                                                                                  1184:  1279           dc   #3
 1180: 1280 accum     dcw  #5                                                                                  1185:  1280 accum     dcw  #5
 1181: 1281 hex3      dc   #3                                                                                  1186:  1281 hex3      dc   #3
 1182: 1282           dc   #1                                                                                  1187:  1282           dc   #1
 1183: 1283 space     dcw  #1                                                                                  1188:  1283 space     dcw  #1
 1184: 1284           dc   #4                                                                                  1189:  1284           dc   #4
 1185: 1285 syner     ftmsg4,equivalence syntax,work,19                                                        1190:  1285 syner     ftmsg4,equivalence syntax,work,19
 1186: 1286           c    0&x1                                                                                1191:  1286           c    0&x1
 1187: 1287           sar  x1                                                                                  1192:  1287           sar  x1
 1188: 1288           b    start                                                                               1193:  1288           b    start
 1189: 1289 loop      fbceqname,0&x1,,,%,)                                                                     1194:  1289 loop      fbceqname,0&x1,,,%,)
 1190: 1290           bce  syner,0&x1,}                 g-m                                                    1195:  1290           bce  syner,0&x1,}                 g-m
 1191: 1291           sbr  x1                                                                                  1196:  1291           sbr  x1
 1192: 1292           b    loop                                                                                1197:  1292           b    loop
 1193: 1293 name      sw   001&x1                                                                              1198:  1293 name      sw   001&x1
 1194: 1294           mcw  dress,x2        dress equals &table-2                                               1199:  1294           mcw  dress,x2        dress equals &table-2
 1195: 1295 find      bce  cksim,2&x2,                   blank                                                 1200:  1295 find      bce  cksim,2&x2,                   blank
 1196: 1296 get       mcm  2&x2                                                                                1201:  1296 get       mcm  2&x2
 1197: 1297           mn                                                                                       1202:  1297           mn
 1198: 1298           mn                                                                                       1203:  1298           mn
 1199: 1299           sar  x2                                                                                  1204:  1299           sar  x2
 1200: 1300           bce  get,1&x2,|                                                                          1205:  1300           bce  get,1&x2,|
 1201: 1301 comp      c    000,000&x2                    equiv v. table                                        1206:  1301 comp      c    000,000&x2                    equiv v. table
 1202: 1302           sar  x3                                                                                  1207:  1302           sar  x3
 1203: 1303           bu   find                                                                                1208:  1303           bu   find
 1204: 1304 a3        bwz  isin,1&x3,1                                                                         1209:  1304 a3        bwz  isin,1&x3,1
 1205: 1305           b    find                                                                                1210:  1305           b    find
 1206: 1306 initl     mn   000&x2                                                                              1211:  1306 initl     mn   000&x2
 1207: 1307           sar  dress                                                                               1212:  1307           sar  dress
 1208: 1308           sbr  hex3                                                                                1213:  1308           sbr  hex3
 1209: 1309           sw   gm                                                                                  1214:  1309           sw   gm
 1210: 1310           bw   *&8,compat                                                                          1215:  1310           bw   *&8,compat
 1211: 1311           mcw  @B@,cmpsw                                                                           1216:  1311           mcw  @B@,cmpsw
 1212: 1312           mcw  x1,save1                                                                            1217:  1312           mcw  x1,save1
 1213: 1313           mcw  @<@,2&x1                      12-6-8                                                1218:  1313           mcw  @<@,2&x1                      12-6-8
 1214: 1314           sbr  klobr&6,2&x1                                                                        1219:  1314           sbr  klobr&6,2&x1
 1215: 1315 get2      mcm  2&x2                                                                                1220:  1315 get2      mcm  2&x2
 1216: 1316           mn                                                                                       1221:  1316           mn
 1217: 1317           mn                                                                                       1222:  1317           mn
 1218: 1318           sar  x2                                                                                  1223:  1318           sar  x2
 1219: 1319           bce  get2,1&x2,|                                                                         1224:  1319           bce  get2,1&x2,|
 1220: 1320           c    0&x2                                                                                1225:  1320           c    0&x2
 1221: 1321           chain3                                                                                   1226:  1321           chain3
 1222: 1322           sar  pred#3                                                                              1227:  1322           sar  pred#3
 1223: 1323 start     lca  000&x1,work                                                                         1228:  1323 start     lca  000&x1,work
 1224: 1324           sar  x1                                                                                  1229:  1324           sar  x1
 1225: 1325 a1        bce  out1,work,                    blank                                                 1230:  1325 a1        bce  out1,work,                    blank
 1226: 1326           bce  ckprn,work-3,q                                                                      1231:  1326           bce  ckprn,work-3,q
 1227: 1327 a2        b    out1                                                                                1232:  1327 a2        b    out1
 1228: 1328 ckprn     bce  isequ,0&x1,%                                                                        1233:  1328 ckprn     bce  isequ,0&x1,%
 1229: 1329           b    syner                                                                               1234:  1329           b    syner
 1230: 1330 isequ     sw   fxsw#1,fltsw#1                                                                      1235:  1330 isequ     sw   fxsw#1,fltsw#1
 1231: 1331 equiv     mn   000&x1                                                                              1236:  1331 equiv     mn   000&x1
 1232: 1332           sar  x1                                                                                  1237:  1332           sar  x1
 1233: 1333           sbr  comp&3                                                                              1238:  1333           sbr  comp&3
 1234: 1334 cmpsw     nop  loop                                                                                1239:  1334 cmpsw     nop  loop
 1235: 1335 svorg     equ  *&1                                                                                 1240:  1335 svorg     equ  *&1
 1236: 1336           mn   0&x1,tst1&7                                                                         1241:  1336           mn   0&x1,tst1&7
 1237: 1337           mz   0&x1,tst1&7                                                                         1242:  1337           mz   0&x1,tst1&7
 1238: 1338 tst1      bce  fixed,@ijklmn@,x                                                                    1243:  1338 tst1      bce  fixed,@ijklmn@,x
 1239: 1339           chain5                                                                                   1244:  1339           chain5
 1240: 1340           cw   fltsw                                                                               1245:  1340           cw   fltsw
 1241: 1341           b    *&5                                                                                 1246:  1341           b    *&5
 1242: 1342 fixed     cw   fxsw                                                                                1247:  1342 fixed     cw   fxsw
 1243: 1343           bw   loop,fltsw                                                                          1248:  1343           bw   loop,fltsw
 1244: 1344           bwz                                                                                      1249:  1344           bwz
 1245: 1345           ftmsg5,illegal equivalence mixing,work,27                                                1250:  1345           ftmsg5,illegal equivalence mixing,work,27
 1246: 1346           sw   fxsw,fltsw                                                                          1251:  1346           sw   fxsw,fltsw
 1247: 1347           b    loop                                                                                1252:  1347           b    loop
 1248: 1348 cksim     mcw  x1,x3                                                                               1253:  1348 cksim     mcw  x1,x3
 1249: 1349           bce  err,0&x1,%                                                                          1254:  1349           bce  err,0&x1,%
 1250: 1350           mcw  dress,x2                                                                            1255:  1350           mcw  dress,x2
 1251: 1351           lca  gm,1&x2                                                                             1256:  1351           lca  gm,1&x2
 1252: 1352           sbr  x2                                                                                  1257:  1352           sbr  x2
 1253: 1353           mcw  comp&3,x3                                                                           1258:  1353           mcw  comp&3,x3
 1254: 1354           lca  0&x3,0&x2                                                                           1259:  1354           lca  0&x3,0&x2
 1255: 1355           sbr  x2                                                                                  1260:  1355           sbr  x2
 1256: 1356           mcw  pred,x3                                                                             1261:  1356           mcw  pred,x3
 1257: 1357           lca  pred,0&x2                                                                           1262:  1357           lca  pred,0&x2
 1258: 1358           lca  blnk5-2                                                                             1263:  1358           lca  blnk5-2
 1259: 1359           lca  blnk5-2                                                                             1264:  1359           lca  blnk5-2
 1260: 1360           sbr  pred                                                                                1265:  1360           sbr  pred
 1261: 1361           sbr  x2                                                                                  1266:  1361           sbr  x2
 1262: 1362           lca  blnk5#5,0&x2                                                                        1267:  1362           lca  blnk5#5,0&x2
 1263: 1363           lca  @1@                                                                                 1268:  1363           lca  @1@
 1264: 1364           sbr  x2                                                                                  1269:  1364           sbr  x2
 1265: 1365           mcw  pred,6&x3                                                                           1270:  1365           mcw  pred,6&x3
 1266: 1366           bce  newcd,086,                                                                          1271:  1366           bce  newcd,086,
 1267: 1367 oldcd     mn   0&x2                                                                                1272:  1367 oldcd     mn   0&x2
 1268: 1368           sar  dress                                                                               1273:  1368           sar  dress
 1269: 1369 klobr     bce  bstar,0,<                     12-6-8                                                1274:  1369 klobr     bce  bstar,0,<                     12-6-8
 1270: 1370           fquit                                                                                    1275:  1370           fquit
 1271: 1371 newcd     mcw  pred,086        equiv with no dimen stmt                                            1276:  1371 newcd     mcw  pred,086        equiv with no dimen stmt
 1272: 1372           b    oldcd                                                                               1277:  1372           b    oldcd
 1273: 1373 bstar     bce  *&5,0&x1,)                                                                          1278:  1373 bstar     bce  *&5,0&x1,)
 1274: 1374           b    eqbx1                                                                               1279:  1374           b    eqbx1
 1275: 1375           sw   fxsw,fltsw                                                                          1280:  1375           sw   fxsw,fltsw
 1276: 1376 eqbx1     mn   0&x1                                                                                1281:  1376 eqbx1     mn   0&x1
 1277: 1377           sbr  x1                                                                                  1282:  1377           sbr  x1
 1278: 1378           sbr  comp&3                                                                              1283:  1378           sbr  comp&3
 1279: 1379           bce  ctu4,0&x1,,                                                                         1284:  1379           bce  ctu4,0&x1,,
 1280: 1380           bce  bstar,0&x1,}           group mark                                                   1285:  1380           bce  bstar,0&x1,}           group mark
 1281: 1381           bce  start,1&x1,}               12-7-8                                                   1286:  1381           bce  start,1&x1,}               12-7-8
 1282: 1382           b    cmpsw                                                                               1287:  1382           b    cmpsw
 1283: 1383 err       cs   299                                                                                 1288:  1383 err       cs   299
 1284: 1384           mcw  x3,x1                                                                               1289:  1384           mcw  x3,x1
 1285: 1385           mcw  x2,hex2#3                                                                           1290:  1385           mcw  x2,hex2#3
 1286: 1386           fflip0&x1,248,x1,x2,,,%                                                                  1291:  1386           fflip0&x1,248,x1,x2,,,%
 1287: 1387           mcw  hex2,x2                                                                             1292:  1387           mcw  hex2,x2
 1288: 1388           sw   failsw                                                                              1293:  1388           sw   failsw
 1289: 1389           mn   work,240                                                                            1294:  1389           mn   work,240
 1290: 1390           chain2                                                                                   1295:  1390           chain2
 1291: 1391           mcw  @error 6 - undefined array, statement @                                             1296:  1391           mcw  @error 6 - undefined array, statement @
 1292: 1392           forms                                                                                    1297:  1392           forms
 1293: 1393           w                                                                                        1298:  1393           w
 1294: 1394 scan2     mn   0&x1                                                                                1299:  1394 scan2     mn   0&x1
 1295: 1395           sar  x1                                                                                  1300:  1395           sar  x1
 1296: 1396           bce  ctu4,0&x1,)                                                                         1301:  1396           bce  ctu4,0&x1,)
 1297: 1397           fbceqsyner,0&x1,%,}               close paren, gm                                        1302:  1397           fbceqsyner,0&x1,%,}               close paren, gm
 1298: 1398           bce  scan2,0&x1,,                                                                        1303:  1398           bce  scan2,0&x1,,
 1299: 1399           bwz  scan2,0&x1,2                                                                        1304:  1399           bwz  scan2,0&x1,2
 1300: 1400           b    syner                                                                               1305:  1400           b    syner
 1301: 1401 ctu4      mn   0&x1                                                                                1306:  1401 ctu4      mn   0&x1
 1302: 1402           sar  x1                                                                                  1307:  1402           sar  x1
 1303: 1403           b    bstar                                                                               1308:  1403           b    bstar
 1304: 1404 isin      bce  scan2,0&x1,%                                                                        1309:  1404 isin      bce  scan2,0&x1,%
 1305: 1405           b    bstar                                                                               1310:  1405           b    bstar
 1306: 1406 out1      sbr  a1&3,out                                                                            1311:  1406 out1      sbr  a1&3,out
 1307: 1407           sbr  a2&3,out                                                                            1312:  1407           sbr  a2&3,out
 1308: 1408           sbr  find&3,notin                                                                        1313:  1408           sbr  find&3,notin
 1309: 1409           sbr  a3&3,found                                                                          1314:  1409           sbr  a3&3,found
 1310: 1410           mcw  dress,hex3                                                                          1315:  1410           mcw  dress,hex3
 1311: 1411           mcw  save1#3,x1                                                                          1316:  1411           mcw  save1#3,x1
 1312: 1412           mcw  @b@,cmpsw                                                                           1317:  1412           mcw  @b@,cmpsw
 1313: 1413           mcw  @n@,isequ                                                                           1318:  1413           mcw  @n@,isequ
 1314: 1414           fendxc,,,svorg,start,svorg,sys1,equiv two                                                1319:  1414           fendxc,,,svorg,start,svorg,sys1,equiv two
 1315: 1415           ltorg*                                                                                   1320:  1415           ltorg*
 1316: 1416 sys1      dcw  @}@                           system group mark                                     1321:  1416 sys1      dcw  @}@                           system group mark
 1317: 1417           xfr  initl                                                                               1322:  1417           xfr  initl
 1318: 1418           job  1401 Fortran  equivalence phase 2                      50113                        1323:  1418           job  1401 Fortran  equivalence phase 2                      50113
 1319: 1419 110       dcw  @equiv two@                                                                         1324:  1419 110       dcw  @equiv two@
 1320: 1420           org  svorg                                                                               1325:  1420           org  svorg
 1321: 1421 found     lca  @00000@,tally                                                                       1326:  1421 found     lca  @00000@,tally
 1322: 1422           nop  000&x2                                                                              1327:  1422           nop  000&x2
 1323: 1423           mcw                                                                                      1328:  1423           mcw
 1324: 1424           mcw                                                                                      1329:  1424           mcw
 1325: 1425           mcw                                                                                      1330:  1425           mcw
 1326: 1426           mcw                                                                                      1331:  1426           mcw
 1327: 1427           sar  x2                                                                                  1332:  1427           sar  x2
 1328: 1428           bav  *&1                                                                                 1333:  1428           bav  *&1
 1329: 1429           s    erctr#3                                                                             1334:  1429           s    erctr#3
 1330: 1430 nest      bce  nomo,001&x2,   blank                                                                1335:  1430 nest      bce  nomo,001&x2,   blank
 1331: 1431           a    000&x2,tally                                                                        1336:  1431           a    000&x2,tally
 1332: 1432           mcw  003&x2,x2                                                                           1337:  1432           mcw  003&x2,x2
 1333: 1433           a    &1,erctr                                                                            1338:  1433           a    &1,erctr
 1334: 1434           bav  msg                                                                                 1339:  1434           bav  msg
 1335: 1435           b    nest                                                                                1340:  1435           b    nest
 1336: 1436 nomo      mcw  x2,tally&3                                                                          1341:  1436 nomo      mcw  x2,tally&3
 1337: 1437           bce  turn,000&x1,%                                                                       1342:  1437           bce  turn,000&x1,%
 1338: 1438           a    @1@,tally                                                                           1343:  1438           a    @1@,tally
 1339: 1439 fight     mcw  hex3,x3                                                                             1344:  1439 fight     mcw  hex3,x3
 1340: 1440           lca  champ,accum                                                                         1345:  1440           lca  champ,accum
 1341: 1441           s    tally,accum                                                                         1346:  1441           s    tally,accum
 1342: 1442           bwz  chump,accum,k                                                                       1347:  1442           bwz  chump,accum,k
 1343: 1443           lca  tally&3,000&x3                                                                      1348:  1443           lca  tally&3,000&x3
 1344: 1444           sbr  hex3                                                                                1349:  1444           sbr  hex3
 1345: 1445 anymo     bce  equiv,000&x1,,     comma                                                            1350:  1445 anymo     bce  equiv,000&x1,,     comma
 1346: 1446           bce  bpdwn,0&x1,)                                                                        1351:  1446           bce  bpdwn,0&x1,)
 1347: 1447           b    syner                                                                               1352:  1447           b    syner
 1348: 1448 bpdwn     mn   0&x1                                                                                1353:  1448 bpdwn     mn   0&x1
 1349: 1449           mn                                                                                       1354:  1449           mn
 1350: 1450           sar  hex1#3                                                                              1355:  1450           sar  hex1#3
 1351: 1451           mcw  hex3,x3                                                                             1356:  1451           mcw  hex3,x3
 1352: 1452           lca  @$@,000&x3                                                                          1357:  1452           lca  @$@,000&x3
 1353: 1453           mcw  dress,x3                                                                            1358:  1453           mcw  dress,x3
 1354: 1454 main      bce  done,000&x3,$                                                                       1359:  1454 main      bce  done,000&x3,$
 1355: 1455           mcw  0&x3,hold3#3                                                                        1360:  1455           mcw  0&x3,hold3#3
 1356: 1456           c    champ&3,hold3                                                                       1361:  1456           c    champ&3,hold3
 1357: 1457           be   oops1                                                                               1362:  1457           be   oops1
 1358: 1458 gt1       mcw  0&x3,x2                                                                             1363:  1458 gt1       mcw  0&x3,x2
 1359: 1459           sar  hex3                                                                                1364:  1459           sar  hex3
 1360: 1460           bce  *&5,0&x2,                     blank                                                 1365:  1460           bce  *&5,0&x2,                     blank
 1361: 1461           b    oops2                                                                               1366:  1461           b    oops2
 1362: 1462 pull1     mcw  9&x2,x1                                                                             1367:  1462 pull1     mcw  9&x2,x1
 1363: 1463 lower     mcw  006&x2,x3      after tail of new follower                                           1368:  1463 lower     mcw  006&x2,x3      after tail of new follower
 1364: 1464           bce  last,x3,       blank                                                                1369:  1464           bce  last,x3,       blank
 1365: 1465           bce  last,001&x3,   blank                                                                1370:  1465           bce  last,001&x3,   blank
 1366: 1466           sbr  x2             tail of new follower                                                 1371:  1466           sbr  x2             tail of new follower
 1367: 1467           b    lower                                                                               1372:  1467           b    lower
 1368: 1468 last      bce  *&8,x3,        blank                                                                1373:  1468 last      bce  *&8,x3,        blank
 1369: 1469           mcw  x1,9&x3                                                                             1374:  1469           mcw  x1,9&x3
 1370: 1470           bce  inish,x1,         blank                                                             1375:  1470           bce  inish,x1,         blank
 1371: 1471           mcw  x3,6&x1                                                                             1376:  1471           mcw  x3,6&x1
 1372: 1472 link      mcw  champ&3,x1        head of leader                                                    1377:  1472 link      mcw  champ&3,x1        head of leader
 1373: 1473           mcw  006&x1,006&x2                                                                       1378:  1473           mcw  006&x1,006&x2
 1374: 1474           mcw  6&x1,x3                                                                             1379:  1474           mcw  6&x1,x3
 1375: 1475           mcw  x2,9&x3                                                                             1380:  1475           mcw  x2,9&x3
 1376: 1476           mcw  hex3,x3                                                                             1381:  1476           mcw  hex3,x3
 1377: 1477           mcw  003&x3,x2         head of new follower                                              1382:  1477           mcw  003&x3,x2         head of new follower
 1378: 1478           mcw  x2,006&x1                                                                           1383:  1478           mcw  x2,006&x1
 1379: 1479           mcw  x1,9&x2                                                                             1384:  1479           mcw  x1,9&x2
 1380: 1480           mcw  champ&3,003&x2                                                                      1385:  1480           mcw  champ&3,003&x2
 1381: 1481           mcw                                                                                      1386:  1481           mcw
 1382: 1482           s    000&x3,000&x2                                                                       1387:  1482           s    000&x3,000&x2
 1383: 1483           sar  x3                                                                                  1388:  1483           sar  x3
 1384: 1484           bw   main,errsw                                                                          1389:  1484           bw   main,errsw
 1385: 1485           sw   errsw                                                                               1390:  1485           sw   errsw
 1386: 1486           c    0&x2, save5                                                                         1391:  1486           c    0&x2, save5
 1387: 1487           be   isred                                                                               1392:  1487           be   isred
 1388: 1488           b    qverr                                                                               1393:  1488           b    qverr
 1389: 1489           b    main                                                                                1394:  1489           b    main
 1390: 1490 isred     b    rdmsg                                                                               1395:  1490 isred     b    rdmsg
 1391: 1491           b    main                                                                                1396:  1491           b    main
 1392: 1492 turn      fflip0&x1,space-1,x1,x3,,,)                                                              1397:  1492 turn      fflip0&x1,space-1,x1,x3,,,)
 1393: 1493           a    001&x3,tally                                                                        1398:  1493           a    001&x3,tally
 1394: 1494           b    fight                                                                               1399:  1494           b    fight
 1395: 1495 chump     bce  cinch,champ,   blank                                                                1400:  1495 chump     bce  cinch,champ,   blank
 1396: 1496           lca  champ&3,000&x3                                                                      1401:  1496           lca  champ&3,000&x3
 1397: 1497           sbr  hex3                                                                                1402:  1497           sbr  hex3
 1398: 1498 cinch     mcw  tally&3,champ&3                                                                     1403:  1498 cinch     mcw  tally&3,champ&3
 1399: 1499           b    anymo                                                                               1404:  1499           b    anymo
 1400: 1500 done      mcw  hex1,x1                                                                             1405:  1500 done      mcw  hex1,x1
 1401: 1501           lca  @     @,champ                                                                       1406:  1501           lca  @     @,champ
 1402: 1502           mcw  dress,hex3                                                                          1407:  1502           mcw  dress,hex3
 1403: 1503           bce  isequ,1&x1,,                                                                        1408:  1503           bce  isequ,1&x1,,
 1404: 1504           bce  start,1&x1,}                  g-m                                                   1409:  1504           bce  start,1&x1,}                  g-m
 1405: 1505           b    syner                                                                               1410:  1505           b    syner
 1406: 1506 inish     mcw  x3,first                                                                            1411:  1506 inish     mcw  x3,first
 1407: 1507           b    link                                                                                1412:  1507           b    link
 1408: 1508 out       mcw  dress,x3                                                                            1413:  1508 out       mcw  dress,x3
 1409: 1509           mcw  gm, 001&x3                                                                          1414:  1509           mcw  gm, 001&x3
 1410: 1510           mcm  5&x1                                                                                1415:  1510           mcm  5&x1
 1411: 1511           mn                                                                                       1416:  1511           mn
 1412: 1512           mn                                                                                       1417:  1512           mn
 1413: 1513           sar  x1                                                                                  1418:  1513           sar  x1
 1414: 1514           fendxc,gm,,xbegin,xbegin,xbegin,sys2,dimen two                                           1419:  1514           fendxc,gm,,xbegin,xbegin,xbegin,sys2,dimen two
 1415: 1515 notin     bce  ctu3,0&x1,)                                                                         1420:  1515 notin     bce  ctu3,0&x1,)
 1416: 1516           sbr  x1                                                                                  1421:  1516           sbr  x1
 1417: 1517           b    notin                                                                               1422:  1517           b    notin
 1418: 1518 ctu3      mn   0&x1                                                                                1423:  1518 ctu3      mn   0&x1
 1419: 1519           sar  x1                                                                                  1424:  1519           sar  x1
 1420: 1520           b    equiv                                                                               1425:  1520           b    equiv
 1421: 1521 oops1     mcw  0&x3, x2                                                                            1426:  1521 oops1     mcw  0&x3, x2
 1422: 1522           sar  x2                                                                                  1427:  1522           sar  x2
 1423: 1523           c    0&x2, champ                                                                         1428:  1523           c    0&x2, champ
 1424: 1524           be   redun                                                                               1429:  1524           be   redun
 1425: 1525           b    qverr                                                                               1430:  1525           b    qverr
 1426: 1526           b    gt1                                                                                 1431:  1526           b    gt1
 1427: 1527 redun     b    rdmsg                                                                               1432:  1527 redun     b    rdmsg
 1428: 1528           b    gt1                                                                                 1433:  1528           b    gt1
 1429: 1529 qverr     sbr  qvxt&3                                                                              1434:  1529 qverr     sbr  qvxt&3
 1430: 1530           ftmsg7,illegal equivalence,work,20                                                       1435:  1530           ftmsg7,illegal equivalence,work,20
 1431: 1531 qvxt      b    0                                                                                   1436:  1531 qvxt      b    0
 1432: 1532 rdmsg     sbr  rdxt&3                                                                              1437:  1532 rdmsg     sbr  rdxt&3
 1433: 1533           ftmsg8,redundant equivalence,work,22                                                     1438:  1533           ftmsg8,redundant equivalence,work,22
 1434: 1534 rdxt      b    0                                                                                   1439:  1534 rdxt      b    0
 1435: 1535 msg       messg@correct errors indicated and restart@,70,l,1                                       1440:  1535 msg       messg@correct errors indicated and restart@,70,l,1
 1436: 1536           h    *-3                                                                                 1441:  1536           h    *-3
 1437: 1537 oops2     mcw  0&x2, save5#5                                                                       1442:  1537 oops2     mcw  0&x2, save5#5
 1438: 1538           cw   errsw#1                                                                             1443:  1538           cw   errsw#1
 1439: 1539           b    pull1                                                                               1444:  1539           b    pull1
 1440: 1540           ltorg*                                                                                   1445:  1540           ltorg*
 1441: 1541 sys2      dcw  @}@                           system group mark                                     1446:  1541 sys2      dcw  @}@                           system group mark
 1442: 1542           xfr  start                                                                               1447:  1542           xfr  start
 1443: 1543           job  1401 Fortran   dimension phase two                     50123                        1448:  1543           job  1401 Fortran   dimension phase two                     50123
 1444: 1544           fbegndimen two,x1,,x2,r,x3,,h                                                            1449:  1544           fbegndimen two,x1,,x2,r,x3,,h
 1445: 1545 param     equ  parama                                                                              1450:  1545 param     equ  parama
 1446: 1546           org  xbegin                                                                              1451:  1546           org  xbegin
 1447: 1547 tstio     bce  initl,param&10,    blank                                                            1452:  1547 tstio     bce  initl,param&10,    blank
 1448: 1548           sbr  x2,aform                                                                            1453:  1548           sbr  x2,aform
 1449: 1549           bce  move,param&10,a                                                                     1454:  1549           bce  move,param&10,a
 1450: 1550           sbr  x2,limio                                                                            1455:  1550           sbr  x2,limio
 1451: 1551           bce  move,param&10,l                                                                     1456:  1551           bce  move,param&10,l
 1452: 1552           sbr  x2,noio                                                                             1457:  1552           sbr  x2,noio
 1453: 1553           bce  move,param&10,x                                                                     1458:  1553           bce  move,param&10,x
 1454: 1554 initl     mcw  x3,083    address of table-1                                                        1459:  1554 initl     mcw  x3,083    address of table-1
 1455: 1555           a    &2,param&6                                                                          1460:  1555           a    &2,param&6
 1456: 1556           sw   gm                                                                                  1461:  1556           sw   gm
 1457: 1557           lca  gm,001&x3                                                                           1462:  1557           lca  gm,001&x3
 1458: 1558           bce  nix,086,            blank, no dimension                                             1463:  1558           bce  nix,086,            blank, no dimension
 1459: 1559           mcw  086,x3    address of lowest array                                                   1464:  1559           mcw  086,x3    address of lowest array
 1460: 1560 start     s    accum#6                                                                             1465:  1560 start     s    accum#6
 1461: 1561           mcw  006&x3,link#3                                                                       1466:  1561           mcw  006&x3,link#3
 1462: 1562           bce  leadr,001&x3,       blank                                                           1467:  1562           bce  leadr,001&x3,       blank
 1463: 1563           mcw  003&x3,x2      address of leader in x2                                              1468:  1563           mcw  003&x3,x2      address of leader in x2
 1464: 1564           za   000&x3,prod                                                                         1469:  1564           za   000&x3,prod
 1465: 1565           m    005&x2,prod&3                                                                       1470:  1565           m    005&x2,prod&3
 1466: 1566           a    000&x2,prod&3                                                                       1471:  1566           a    000&x2,prod&3
 1467: 1567           mcw  prod&3,000&x3                                                                       1472:  1567           mcw  prod&3,000&x3
 1468: 1568 pack      mcw  000&x3,accum                                                                        1473:  1568 pack      mcw  000&x3,accum
 1469: 1569           sar  x3                                                                                  1474:  1569           sar  x3
 1470: 1570           s    &1,accum                                                                            1475:  1570           s    &1,accum
 1471: 1571           mcw  x3,x2                                                                               1476:  1571           mcw  x3,x2
 1472: 1572 loop3     mcm  2&x2                                                                                1477:  1572 loop3     mcm  2&x2
 1473: 1573           mn                                                                                       1478:  1573           mn
 1474: 1574           mn                                                                                       1479:  1574           mn
 1475: 1575           sar  x2                                                                                  1480:  1575           sar  x2
 1476: 1576           bce  loop3,1&x2,|                                                                        1481:  1576           bce  loop3,1&x2,|
 1477: 1577           mcw  0&x2,box#1                                                                          1482:  1577           mcw  0&x2,box#1
 1478: 1578           mcw  box,*&8                                                                             1483:  1578           mcw  box,*&8
 1479: 1579           bce  fix1,@ijklmn@,0                                                                     1484:  1579           bce  fix1,@ijklmn@,0
 1480: 1580           chain5                                                                                   1485:  1580           chain5
 1481: 1581           a    parama&6,accum                                                                      1486:  1581           a    parama&6,accum
 1482: 1582 ctu3      mcw  accum,14&x3                                                                         1487:  1582 ctu3      mcw  accum,14&x3
 1483: 1583           mcw  accum-3,x2                                                                          1488:  1583           mcw  accum-3,x2
 1484: 1584           a    x2                                                                                  1489:  1584           a    x2
 1485: 1585           mz   zones&x2,012&x3                                                                     1490:  1585           mz   zones&x2,012&x3
 1486: 1586           mz   zones&1&x2,014&x3                                                                   1491:  1586           mz   zones&1&x2,014&x3
 1487: 1587           za   @0@,prod                                                                            1492:  1587           za   @0@,prod
 1488: 1588           mcw  000&x3,prod                                                                         1493:  1588           mcw  000&x3,prod
 1489: 1589           mcw  blank                                                                               1494:  1589           mcw  blank
 1490: 1590           sbr  mplr&6                                                                              1495:  1590           sbr  mplr&6
 1491: 1591           nop  000&x3                                                                              1496:  1591           nop  000&x3
 1492: 1592           mcw                                                                                      1497:  1592           mcw
 1493: 1593           sar  x2                                                                                  1498:  1593           sar  x2
 1494: 1594           bce  nocol,000&x2,}       12-7-8, initl sets in dress&1                                  1499:  1594           bce  nocol,000&x2,}       12-7-8, initl sets in dress&1
 1495: 1595 mplr      mcw  000&x2,000                                                                          1500:  1595 mplr      mcw  000&x2,000
 1496: 1596           m    000&x3,prod                                                                         1501:  1596           m    000&x3,prod
 1497: 1597 nocol     lca  @   @,008&x3                                                                        1502:  1597 nocol     lca  @   @,008&x3
 1498: 1598           mcw  x1,hold1#3                                                                          1503:  1598           mcw  x1,hold1#3
 1499: 1599           mcw  14&x3,x1                                                                            1504:  1599           mcw  14&x3,x1
 1500: 1600           mcw  box,*&8                                                                             1505:  1600           mcw  box,*&8
 1501: 1601           bce  fixed,@ijklmn@,0                                                                    1506:  1601           bce  fixed,@ijklmn@,0
 1502: 1602           chain5                                                                                   1507:  1602           chain5
 1503: 1603           m    param&6,prod&3                                                                      1508:  1603           m    param&6,prod&3
 1504: 1604           mz   @a@,007&x3                                                                          1509:  1604           mz   @a@,007&x3
 1505: 1605           mcw  param&6,010&x3                                                                      1510:  1605           mcw  param&6,010&x3
 1506: 1606 bump      mz   7&x3,13&x3                                                                          1511:  1606 bump      mz   7&x3,13&x3
 1507: 1607           mcw  hold1,x1                                                                            1512:  1607           mcw  hold1,x1
 1508: 1608           s    10&x3,accum                                                                         1513:  1608           s    10&x3,accum
 1509: 1609           a    prod&3,accum                                                                        1514:  1609           a    prod&3,accum
 1510: 1610           fpackaccum,8&x3,x2                                                                       1515:  1610           fpackaccum,8&x3,x2
 1511: 1611           a    &1,accum                                                                            1516:  1611           a    &1,accum
 1512: 1612           s    accum,count                                                                         1517:  1612           s    accum,count
 1513: 1613           bwz  alter,count,k                                                                       1518:  1613           bwz  alter,count,k
 1514: 1614           a    accum,count                                                                         1519:  1614           a    accum,count
 1515: 1615 test      bce  out,link,        blank                                                              1520:  1615 test      bce  out,link,        blank
 1516: 1616           mcw  link,x3                                                                             1521:  1616           mcw  link,x3
 1517: 1617           b    start                                                                               1522:  1617           b    start
 1518: 1618 fix1      a    parama&4,accum                                                                      1523:  1618 fix1      a    parama&4,accum
 1519: 1619           b    ctu3                                                                                1524:  1619           b    ctu3
 1520: 1620 leadr     mcw  count,000&x3                                                                        1525:  1620 leadr     mcw  count,000&x3
 1521: 1621           b    pack                                                                                1526:  1621           b    pack
 1522: 1622 alter     mcw  accum,count                                                                         1527:  1622 alter     mcw  accum,count
 1523: 1623           b    test                                                                                1528:  1623           b    test
 1524: 1624 fixed     m    param&4,prod&3                                                                      1529:  1624 fixed     m    param&4,prod&3
 1525: 1625           mz   @j@,007&x3                                                                          1530:  1625           mz   @j@,007&x3
 1526: 1626           mcw  param&4,010&x3                                                                      1531:  1626           mcw  param&4,010&x3
 1527: 1627           b    bump                                                                                1532:  1627           b    bump
 1528: 1628 out       unpakparam&2,reloc                                                                       1533:  1628 out       unpakparam&2,reloc
 1529: 1629           s    count,reloc                                                                         1534:  1629           s    count,reloc
 1530: 1630           s    &1,reloc                                                                            1535:  1630           s    &1,reloc
 1531: 1631           bwz  tubig,reloc,k                                                                       1536:  1631           bwz  tubig,reloc,k
 1532: 1632           fpackreloc,adjst,x2                                                                      1537:  1632           fpackreloc,adjst,x2
 1533: 1633           mcw  nxtop,conlst                                                                        1538:  1633           mcw  nxtop,conlst
 1534: 1634           ma   adjst,conlst                                                                        1539:  1634           ma   adjst,conlst
 1535: 1635           b    skipf                                                                               1540:  1635           b    skipf
 1536: 1636 tubig     bw   skipf,lgsw                                                                          1541:  1636 tubig     bw   skipf,lgsw
 1537: 1637           cs   332                                                                                 1542:  1637           cs   332
 1538: 1638           cs                                                                                       1543:  1638           cs
 1539: 1639           mlc  @message 2 - object program too large@,270                                          1544:  1639           mlc  @message 2 - object program too large@,270
 1540: 1640           w                                                                                        1545:  1640           w
 1541: 1641           sw   failsw,lgsw                                                                         1546:  1641           sw   failsw,lgsw
 1542: 1642           s    reloc                                                                               1547:  1642           s    reloc
 1543: 1643 nix       mcw  param&2,conlst                                                                      1548:  1643 nix       mcw  param&2,conlst
 1544: 1644 skipf     mcw  nxtop,086                                                                           1549:  1644 skipf     mcw  nxtop,086
 1545: 1645 *dump array table                                                                                  1550:  1645 *dump array table
 1546: 1646           cc   l                                                                                   1551:  1646           cc   l
 1547: 1647           forms                                                                                    1552:  1647           forms
 1548: 1648           cs   332                                                                                 1553:  1648           cs   332
 1549: 1649           cs                                                                                       1554:  1649           cs
 1550: 1650           mcw  @storage assignment-arrays & equated variables@,247                                 1555:  1650           mcw  @storage assignment-arrays & equated variables@,247
 1551: 1651           w                                                                                        1556:  1651           w
 1552: 1652           cc   j                                                                                   1557:  1652           cc   j
 1553: 1653           mcw  083,x3                                                                              1558:  1653           mcw  083,x3
 1554: 1654 loopa     nop  10&x3                                                                               1559:  1654 loopa     nop  10&x3
 1555: 1655           mcm                                                                                      1560:  1655           mcm
 1556: 1656           sar  x3                                                                                  1561:  1656           sar  x3
 1557: 1657           cs   299                                                                                 1562:  1657           cs   299
 1558: 1658 tsdun     bce  nodun,0&x3,|                                                                        1563:  1658 tsdun     bce  nodun,0&x3,|
 1559: 1659           bce                                                                                      1564:  1659           bce
 1560: 1660           mn   0&x3                                                                                1565:  1660           mn   0&x3
 1561: 1661           mn                                                                                       1566:  1661           mn
 1562: 1662           sar  x3                                                                                  1567:  1662           sar  x3
 1563: 1663           bce  noray,0&x3,:                  5-8                                                   1568:  1663           bce  noray,0&x3,:                  5-8
 1564: 1664           fflip0&x3,201,x3,x2,inc,wm                                                               1569:  1664           fflip0&x3,201,x3,x2,inc,wm
 1565: 1665           c    0&x3                                                                                1570:  1665           c    0&x3
 1566: 1666           chain3                                                                                   1571:  1666           chain3
 1567: 1667           sar  x2                                                                                  1572:  1667           sar  x2
 1568: 1668           a    reloc,5&x2                                                                          1573:  1668           a    reloc,5&x2
 1569: 1669           ma   adjst,8&x2                                                                          1574:  1669           ma   adjst,8&x2
 1570: 1670           ma   adjst,14&x2                                                                         1575:  1670           ma   adjst,14&x2
 1571: 1671           mcs  5&x2,218                                                                            1576:  1671           mcs  5&x2,218
 1572: 1672           mcw  8&x2,234                                                                            1577:  1672           mcw  8&x2,234
 1573: 1673           mz   blank,233                                                                           1578:  1673           mz   blank,233
 1574: 1674           sw   220                                                                                 1579:  1674           sw   220
 1575: 1675           unpak8&x2,224                                                                            1580:  1675           unpak8&x2,224
 1576: 1676           mcw  @-@,219                                                                             1581:  1676           mcw  @-@,219
 1577: 1677           fpack5&x2,230,x2                                                                         1582:  1677           fpack5&x2,230,x2
 1578: 1678           forms                                                                                    1583:  1678           forms
 1579: 1679           w                                                                                        1584:  1679           w
 1580: 1680           cs   299                                                                                 1585:  1680           cs   299
 1581: 1681           mcm  1&x3                                                                                1586:  1681           mcm  1&x3
 1582: 1682           sar  x3                                                                                  1587:  1682           sar  x3
 1583: 1683           bce  eoj,0&x3,                     blank                                                 1588:  1683           bce  eoj,0&x3,                     blank
 1584: 1684           b    loopa                                                                               1589:  1684           b    loopa
 1585: 1685 nodun     mcm  0&x3                                                                                1590:  1685 nodun     mcm  0&x3
 1586: 1686           sbr  x3                                                                                  1591:  1686           sbr  x3
 1587: 1687           b    tsdun                                                                               1592:  1687           b    tsdun
 1588: 1688 noray     messg@no arrays@,9                                                                       1593:  1688 noray     messg@no arrays@,9
 1589: 1689 eoj       cc   l                                                                                   1594:  1689 eoj       cc   l
 1590: 1690           fendxe,gm,,,,,sys2,varbl1                                                                1595:  1690           fendxe,gm,,,,,sys2,varbl1
 1591: 1691 move      mcw  0&x2,nxtop                                                                          1596:  1691 move      mcw  0&x2,nxtop
 1592: 1692           mcw                                                                                      1597:  1692           mcw
 1593: 1693           b    initl                                                                               1598:  1693           b    initl
 1594: 1694 count     dcw  04280                         change                                                1599:  1694 count     dcw  04280                         change
 1595: 1695 nxtop     dsa  4279                           on                                                   1600:  1695 nxtop     dsa  4279                           on
 1596: 1696           dcw  04617                           reassembly                                          1601:  1696           dcw  04617                           reassembly
 1597: 1697 aform     dsa  4616                             of                                                 1602:  1697 aform     dsa  4616                             of
 1598: 1698           dcw  02016                             object                                            1603:  1698           dcw  02016                             object
 1599: 1699 limio     dsa  2015                               time                                             1604:  1699 limio     dsa  2015                               time
 1600: 1700           dcw  01697                               format                                          1605:  1700           dcw  01697                               format
 1601: 1701 noio      dsa  1696                                 packages                                       1606:  1701 noio      dsa  1696                                 packages
 1602: 1702 reloc     dcw  00000                                                                               1607:  1702 reloc     dcw  00000
 1603: 1703 adjst     dsa  000                                                                                 1608:  1703 adjst     dsa  000
 1604: 1704 gm        dc   @}@                           g-m                                                   1609:  1704 gm        dc   @}@                           g-m
 1605: 1705 prod      dcw  #6                                                                                  1610:  1705 prod      dcw  #6
 1606: 1706           dc   #3                                                                                  1611:  1706           dc   #3
 1607: 1707 lgsw      dc   #1                                                                                  1612:  1707 lgsw      dc   #1
 1608: 1708 blank     dcw  #01                                                                                 1613:  1708 blank     dcw  #01
 1609: 1709           org  *                                                                                   1614:  1709           org  *
 1610:                ltorg*    WVS: Autocoder shouldn't load incld at org                                     1615:                 ltorg*    WVS: Autocoder shouldn't load incld at org
 1611: 1710 sys2      dcw  @}@            system and work group mark                                           1616:  1710 sys2      dcw  @}@            system and work group mark
 1612: 1711           xfr  tstio                                                                               1617:  1711           xfr  tstio
 1613: 1712           job  1401 Fortran  variables phase one                      50133                        1618:  1712           job  1401 Fortran  variables phase one                      50133
 1614: 1713           fbegnvarbl 1,x1,,x2,r,x3,r,i                                                             1619:  1713           fbegnvarbl 1,x1,,x2,r,x3,r,i
 1615: 1714           org  xbegin                                                                              1620:  1714           org  xbegin
 1616: 1715 * replace array names in source program with addresses,                                            1621:  1715 * replace array names in source program with addresses,
 1617: 1716 * process subscripts                                                                               1622:  1716 * process subscripts
 1618: 1717 * mark simple variables with a delta for varbl, phase 2                                            1623:  1717 * mark simple variables with a delta for varbl, phase 2
 1619: 1718 initl     mcw  083,x2                                                                              1624:  1718 initl     mcw  083,x2
 1620: 1719           mcw  x2,dress#3                                                                          1625:  1719           mcw  x2,dress#3
 1621: 1720           sw   gm                                                                                  1626:  1720           sw   gm
 1622: 1721 start     bce  out,000&x1,    blank                                                                1627:  1721 start     bce  out,000&x1,    blank
 1623: 1722           lca  000&x1,work#10                                                                      1628:  1722           lca  000&x1,work#10
 1624: 1723           sar  x1                                                                                  1629:  1723           sar  x1
 1625: 1724           sbr  x3                                                                                  1630:  1724           sbr  x3
 1626: 1725           lca  work,000&x2                                                                         1631:  1725           lca  work,000&x2
 1627: 1726           sbr  x2                                                                                  1632:  1726           sbr  x2
 1628: 1727           bce  fmat,code-3,f                                                                       1633:  1727           bce  fmat,code-3,f
 1629: 1728           sw   work-3                                                                              1634:  1728           sw   work-3
 1630: 1729           mcw  code-3,*&8                                                                          1635:  1729           mcw  code-3,*&8
 1631: 1730           bce  list,@3l5up61@,0    d-char modified                                                 1636:  1730           bce  list,@3l5up61@,0    d-char modified
 1632: 1731           chain6                                                                                   1637:  1731           chain6
 1633: 1732           mcw  @n@,swcha                                                                           1638:  1732           mcw  @n@,swcha
 1634: 1733           mcw  @n@,swchb                                                                           1639:  1733           mcw  @n@,swchb
 1635: 1734 * search for alpha character which might be variable name                                          1640:  1734 * search for alpha character which might be variable name
 1636: 1735 find      mcw  000&x1,box#1                                                                        1641:  1735 find      mcw  000&x1,box#1
 1637: 1736           sar  x1                                                                                  1642:  1736           sar  x1
 1638: 1737           bwz  find,box,2     no zone, numerics and equals                                         1643:  1737           bwz  find,box,2     no zone, numerics and equals
 1639: 1738 swcha     nop  rtpar                                                                               1644:  1738 swcha     nop  rtpar
 1640: 1739 mdify     mcw  box,*&8                                                                             1645:  1739 mdify     mcw  box,*&8
 1641: 1740           bce  find,@@*-&.%),@,0      d char modified                                              1646:  1740           bce  find,@@*-&.%),@,0      d char modified
 1642: 1741           chain7                                                                                   1647:  1741           chain7
 1643: 1742           bce  ckxpn,box,e     may be exponent                                                     1648:  1742           bce  ckxpn,box,e     may be exponent
 1644: 1743           bce  sw1,box,}       group mark                                                          1649:  1743           bce  sw1,box,}       group mark
 1645: 1744           mcw  2&x1,box2#1                                                                         1650:  1744           mcw  2&x1,box2#1
 1646: 1745           mcw  box2,*&8                                                                            1651:  1745           mcw  box2,*&8
 1647: 1746           bce  sw1,mrkrs,0                 @*&-,#%) and gm                                         1652:  1746           bce  sw1,mrkrs,0                 @*&-,#%) and gm
 1648: 1747           chain8                                                                                   1653:  1747           chain8
 1649: 1748           bce  sw1,code-3,d                 do stmt                                                1654:  1748           bce  sw1,code-3,d                 do stmt
 1650: 1749 vserr     fmesg9,variable syntax,code,16                                                           1655:  1749 vserr     fmesg9,variable syntax,code,16
 1651: 1750           bw   syn2r,syn2s                                                                         1656:  1750           bw   syn2r,syn2s
 1652: 1751           sbr  x1,1&x1                                                                             1657:  1751           sbr  x1,1&x1
 1653: 1752           sw   errsw                                                                               1658:  1752           sw   errsw
 1654: 1753           b    limit                                                                               1659:  1753           b    limit
 1655: 1754 rtna      lca  @0?0@,0&x2                    0,12-0,0                                              1660:  1754 rtna      lca  @0?0@,0&x2                    0,12-0,0
 1656: 1755           sbr  x2                                                                                  1661:  1755           sbr  x2
 1657: 1756           sbr  x3,1&x1                                                                             1662:  1756           sbr  x3,1&x1
 1658: 1757           sbr  x1                                                                                  1663:  1757           sbr  x1
 1659: 1758           b    botm                                                                                1664:  1758           b    botm
 1660: 1759 sw1       sw   1&x1                                                                                1665:  1759 sw1       sw   1&x1
 1661: 1760 *shift all but variable                                                                            1666:  1760 *shift all but variable
 1662: 1761           lca  00&x3,000&x2        slide one extra char                                            1667:  1761           lca  00&x3,000&x2        slide one extra char
 1663: 1762           sbr  x2                  necess. if 1st char is alpha                                    1668:  1762           sbr  x2                  necess. if 1st char is alpha
 1664: 1763           cw   001&x1                                                                              1669:  1763           cw   001&x1
 1665: 1764           sbr  x3,1&x1                                                                             1670:  1764           sbr  x3,1&x1
 1666: 1765           sbr  klobr&6,2&x1                                                                        1671:  1765           sbr  klobr&6,2&x1
 1667: 1766           mcw  @;@                           11-6-8                                                1672:  1766           mcw  @;@                           11-6-8
 1668: 1767           bce  nomo,box,}      group mark                                                          1673:  1767           bce  nomo,box,}      group mark
 1669: 1768           za   &1,count#2                                                                          1674:  1768           za   &1,count#2
 1670: 1769 *  scan to bottom of  variable                                                                     1675:  1769 *  scan to bottom of  variable
 1671: 1770 limit     mcw  000&x1,box                                                                          1676:  1770 limit     mcw  000&x1,box
 1672: 1771           sar  x1                                                                                  1677:  1771           sar  x1
 1673: 1772           mcw  box,*&8                                                                             1678:  1772           mcw  box,*&8
 1674: 1773           bce  look,mrkrs,0                     @*&-,#%) and gm                                    1679:  1773           bce  look,mrkrs,0                     @*&-,#%) and gm
 1675: 1774           chain8                                                                                   1680:  1774           chain8
 1676: 1775           a    &1,count                                                                            1681:  1775           a    &1,count
 1677: 1776           b    limit                                                                               1682:  1776           b    limit
 1678: 1777 look      bw   rtnb,ervbl                                                                          1683:  1777 look      bw   rtnb,ervbl
 1679: 1778           bw   rtna,errsw                                                                          1684:  1778           bw   rtna,errsw
 1680: 1779           sw   002&x1                                                                              1685:  1779           sw   002&x1
 1681: 1780           sar  hex1#3                                                                              1686:  1780           sar  hex1#3
 1682: 1781 tlu       mcw  dress,x1       address of array table                                               1687:  1781 tlu       mcw  dress,x1       address of array table
 1683: 1782           bce  equal,box,#    equal                                                                1688:  1782           bce  equal,box,#    equal
 1684: 1783 *determine if variable is an array name                                                            1689:  1783 *determine if variable is an array name
 1685: 1784 loop      bce  notin,002&x1,       blank                                                           1690:  1784 loop      bce  notin,002&x1,       blank
 1686: 1785 mcm2      mcm  2&x1                                                                                1691:  1785 mcm2      mcm  2&x1
 1687: 1786           mn                                                                                       1692:  1786           mn
 1688: 1787           mn                                                                                       1693:  1787           mn
 1689: 1788           sar  x1                                                                                  1694:  1788           sar  x1
 1690: 1789           bce  mcm2,1&x1,|                                                                         1695:  1789           bce  mcm2,1&x1,|
 1691: 1790           c    000&x3,00&x1                                                                        1696:  1790           c    000&x3,00&x1
 1692: 1791           bu   loop                                                                                1697:  1791           bu   loop
 1693: 1792           c    000&x1,000&x3                                                                       1698:  1792           c    000&x1,000&x3
 1694: 1793           bu   loop                                                                                1699:  1793           bu   loop
 1695: 1794 * move x1 pointer to hi address of variable                                                        1700:  1794 * move x1 pointer to hi address of variable
 1696: 1795           c    0&x1                                                                                1701:  1795           c    0&x1
 1697: 1796           chain3                                                                                   1702:  1796           chain3
 1698: 1797           sar  x1                                                                                  1703:  1797           sar  x1
 1699: 1798 *   check to see if there are any subscripts                                                       1704:  1798 *   check to see if there are any subscripts
 1700: 1799           bw   sbray,subsw                                                                         1705:  1799           bw   sbray,subsw
 1701: 1800           bce  sbscr,box,%    left paren                                                           1706:  1800           bce  sbscr,box,%    left paren
 1702: 1801 swchb     nop  array                                                                               1707:  1801 swchb     nop  array
 1703: 1802 tuno      lca  9&x1,1&x2                                                                           1708:  1802 tuno      lca  9&x1,1&x2
 1704: 1803           sbr  x2                                                                                  1709:  1803           sbr  x2
 1705: 1804 resto     mcw  hex1,x1                                                                             1710:  1804 resto     mcw  hex1,x1
 1706: 1805           b    botm                                                                                1711:  1805           b    botm
 1707: 1806 array     lca  9&x1,1&x2                                                                           1712:  1806 array     lca  9&x1,1&x2
 1708: 1807           lca  3&x1                                                                                1713:  1807           lca  3&x1
 1709: 1808           sbr  x2                                                                                  1714:  1808           sbr  x2
 1710: 1809           cw   4&x2                                                                                1715:  1809           cw   4&x2
 1711: 1810           b    resto                                                                               1716:  1810           b    resto
 1712: 1811 notin     mcw  hex1,x1                                                                             1717:  1811 notin     mcw  hex1,x1
 1713: 1812           bw   lod2,subsw                                                                          1718:  1812           bw   lod2,subsw
 1714: 1813           bce  rufn,box,%                                                                          1719:  1813           bce  rufn,box,%
 1715: 1814           lca  @ _@,1&x2                     blank,delta 11-7-8                                    1720:  1814           lca  @ _@,1&x2                     blank,delta 11-7-8
 1716: 1815           sbr  x2                                                                                  1721:  1815           sbr  x2
 1717: 1816 slide     lca  000&x3,001&x2                                                                       1722:  1816 slide     lca  000&x3,001&x2
 1718: 1817           sbr  x2                                                                                  1723:  1817           sbr  x2
 1719: 1818           cw   001&x2                                                                              1724:  1818           cw   001&x2
 1720: 1819           s    &2,count                                                                            1725:  1819           s    &2,count
 1721: 1820           bwz  load1,count,k      b-zone                                                           1726:  1820           bwz  load1,count,k      b-zone
 1722: 1821 botm      cw   001&x1                                                                              1727:  1821 botm      cw   001&x1
 1723: 1822           sar  x3                                                                                  1728:  1822           sar  x3
 1724: 1823 botm2     cw   1&x2                                                                                1729:  1823 botm2     cw   1&x2
 1725: 1824           cw   fewsw,errsw                                                                         1730:  1824           cw   fewsw,errsw
 1726: 1825           cw   tusw                                                                                1731:  1825           cw   tusw
 1727: 1826 klobr     bce  find,0,;                      11-6-8                                                1732:  1826 klobr     bce  find,0,;                      11-6-8
 1728: 1827           mcw  @$@,x1                                                                              1733:  1827           mcw  @$@,x1
 1729: 1828           b    out                                                                                 1734:  1828           b    out
 1730: 1829 *  if @subscripted@ variable not function then error                                               1735:  1829 *  if @subscripted@ variable not function then error
 1731: 1830 rufn      bce  slide,1&x1,f                                                                        1736:  1830 rufn      bce  slide,1&x1,f
 1732: 1831           ftmsg6,undefined array,code,16                                                           1737:  1831           ftmsg6,undefined array,code,16
 1733: 1832           lca  @%000@,1&x2                                                                         1738:  1832           lca  @%000@,1&x2
 1734: 1833           sbr  x2                                                                                  1739:  1833           sbr  x2
 1735: 1834           mz   vzone,3&x2                                                                          1740:  1834           mz   vzone,3&x2
 1736: 1835 skloz     bce  fndlz,0&x1,)                                                                        1741:  1835 skloz     bce  fndlz,0&x1,)
 1737: 1836           bce  nomo1,0&x1,}                  gm                                                    1742:  1836           bce  nomo1,0&x1,}                  gm
 1738: 1837           sbr  x1                                                                                  1743:  1837           sbr  x1
 1739: 1838           b    skloz                                                                               1744:  1838           b    skloz
 1740: 1839 fndlz     mn   0&x1                                                                                1745:  1839 fndlz     mn   0&x1
 1741: 1840           sar  x1                                                                                  1746:  1840           sar  x1
 1742: 1841           b    botm2                                                                               1747:  1841           b    botm2
 1743: 1842 *  process subscripts                                                                              1748:  1842 *  process subscripts
 1744: 1843 sbscr     za   00&x1,accum#6                                                                       1749:  1843 sbscr     za   00&x1,accum#6
 1745: 1844           sar  x3                                                                                  1750:  1844           sar  x3
 1746: 1845           sw   vblsw                                                                               1751:  1845           sw   vblsw
 1747: 1846           za   000&x3,rows#5                                                                       1752:  1846           za   000&x3,rows#5
 1748: 1847           za   005&x1,wordl                                                                        1753:  1847           za   005&x1,wordl
 1749: 1848           s    &1,accum                                                                            1754:  1848           s    &1,accum
 1750: 1849           mz   8&x1,vzone#1                                                                        1755:  1849           mz   8&x1,vzone#1
 1751: 1850           mcw  hex1,x1                                                                             1756:  1850           mcw  hex1,x1
 1752: 1851           lca  @ $@,001&x2                                                                         1757:  1851           lca  @ $@,001&x2
 1753: 1852           sbr  x2                                                                                  1758:  1852           sbr  x2
 1754: 1853           mn   000&x1                                                                              1759:  1853           mn   000&x1
 1755: 1854           sar  x1                                                                                  1760:  1854           sar  x1
 1756: 1855           sbr  x3                                                                                  1761:  1855           sbr  x3
 1757: 1856 split     bwz  const,000&x1,2      no zone                                                         1762:  1856 split     bwz  const,000&x1,2      no zone
 1758: 1857 *  process variable suscripts                                                                      1763:  1857 *  process variable suscripts
 1759: 1858           sbr  x1,2&x1                                                                             1764:  1858           sbr  x1,2&x1
 1760: 1859           lca  @*1@,000&x1                                                                         1765:  1859           lca  @*1@,000&x1
 1761: 1860           b    const                                                                               1766:  1860           b    const
 1762: 1861 delta     lca  @ _@,001&x2    11-7-8  delta                                                        1767:  1861 delta     lca  @ _@,001&x2    11-7-8  delta
 1763: 1862           sbr  x2                                                                                  1768:  1862           sbr  x2
 1764: 1863 feed      mcw  000&x1,box                                                                          1769:  1863 feed      mcw  000&x1,box
 1765: 1864           sar  x1                                                                                  1770:  1864           sar  x1
 1766: 1865           mcw  box,*&8                                                                             1771:  1865           mcw  box,*&8
 1767: 1866           bce  xpand,@-&),@,0                                                                      1772:  1866           bce  xpand,@-&),@,0
 1768: 1867           b                                                                                        1773:  1867           b
 1769: 1868           b                                                                                        1774:  1868           b
 1770: 1869           b                                                                                        1775:  1869           b
 1771: 1870           b    feed                                                                                1776:  1870           b    feed
 1772: 1871 xpand     sw   2&x1                                                                                1777:  1871 xpand     sw   2&x1
 1773: 1872           sw                                                                                       1778:  1872           sw
 1774: 1873           sar  hex1                                                                                1779:  1873           sar  hex1
 1775: 1874           sw   subsw                                                                               1780:  1874           sw   subsw
 1776: 1875           b    tlu                                                                                 1781:  1875           b    tlu
 1777: 1876 sbray     lca  9&x1,2&x2                                                                           1782:  1876 sbray     lca  9&x1,2&x2
 1778: 1877           sbr  x2                                                                                  1783:  1877           sbr  x2
 1779: 1878           cw   1&x2                                                                                1784:  1878           cw   1&x2
 1780: 1879           mn                                                                                       1785:  1879           mn
 1781: 1880           sar  x2                                                                                  1786:  1880           sar  x2
 1782: 1881           b    ldcom                                                                               1787:  1881           b    ldcom
 1783: 1882 lod2      lca  000&x3,001&x2                                                                       1788:  1882 lod2      lca  000&x3,001&x2
 1784: 1883           lca                                                                                      1789:  1883           lca
 1785: 1884           sbr  x2                                                                                  1790:  1884           sbr  x2
 1786: 1885           cw   2&x2                                                                                1791:  1885           cw   2&x2
 1787: 1886 ldcom     mcw  hex1,x1                                                                             1792:  1886 ldcom     mcw  hex1,x1
 1788: 1887           cw   2&x1                                                                                1793:  1887           cw   2&x1
 1789: 1888           bce  load2,003&x2,_      delta  11-7-8                                                   1794:  1888           bce  load2,003&x2,_      delta  11-7-8
 1790: 1889           lca  @ ,@,1&x2                     blank comma                                           1795:  1889           lca  @ ,@,1&x2                     blank comma
 1791: 1890           sbr  x2                                                                                  1796:  1890           sbr  x2
 1792: 1891           cw   subsw                                                                               1797:  1891           cw   subsw
 1793: 1892           bce  putc,box,,          comma                                                           1798:  1892           bce  putc,box,,          comma
 1794: 1893           bce  phew,box,)          rt paren                                                        1799:  1893           bce  phew,box,)          rt paren
 1795: 1894           mz   box,wordl                                                                           1800:  1894           mz   box,wordl
 1796: 1895 copy      mcw  x1,x3                                                                               1801:  1895 copy      mcw  x1,x3
 1797: 1896           b    split                                                                               1802:  1896           b    split
 1798: 1897 *flip constant                                                                                     1803:  1897 *flip constant
 1799: 1898 const     sbr  x3,verse-2                                                                          1804:  1898 const     sbr  x3,verse-2
 1800: 1899 turn      mcw  000&x1,box                                                                          1805:  1899 turn      mcw  000&x1,box
 1801: 1900           sar  x1                                                                                  1806:  1900           sar  x1
 1802: 1901           mcw  box,002&x3                                                                          1807:  1901           mcw  box,002&x3
 1803: 1902           sbr  x3                                                                                  1808:  1902           sbr  x3
 1804: 1903           bwz  turn,000&x1,2       no zone                                                         1809:  1903           bwz  turn,000&x1,2       no zone
 1805: 1904           sbr  x1                                                                                  1810:  1904           sbr  x1
 1806: 1905           m    wordl,007&x3        switch c, since wordl modified                                  1811:  1905           m    wordl,007&x3        switch c, since wordl modified
 1807: 1906           bce  varbl,001&x1,*      asterisk                                                        1812:  1906           bce  varbl,001&x1,*      asterisk
 1808: 1907           a    007&x3,accum                                                                        1813:  1907           a    007&x3,accum
 1809: 1908           bce  phew,1&x1,)                                                                         1814:  1908           bce  phew,1&x1,)
 1810: 1909           bce  putc,1&x1,,                                                                         1815:  1909           bce  putc,1&x1,,
 1811: 1910           sw   syn2s                                                                               1816:  1910           sw   syn2s
 1812: 1911           b    vserr                                                                               1817:  1911           b    vserr
 1813: 1912 syn2r     cw   syn2s                                                                               1818:  1912 syn2r     cw   syn2s
 1814: 1913           sw   ervbl                                                                               1819:  1913           sw   ervbl
 1815: 1914           b    limit                                                                               1820:  1914           b    limit
 1816: 1915 rtnb      cw   ervbl                                                                               1821:  1915 rtnb      cw   ervbl
 1817: 1916 *  end of process subscript                                                                        1822:  1916 *  end of process subscript
 1818: 1917 phew      nop  accum-7                                                                             1823:  1917 phew      nop  accum-7
 1819: 1918           sar  x3                                                                                  1824:  1918           sar  x3
 1820: 1919           sw   fewsw                                                                               1825:  1919           sw   fewsw
 1821: 1920           b    norml                                                                               1826:  1920           b    norml
 1822: 1921 ldolr     lca  @$@,0&x2                                                                            1827:  1921 ldolr     lca  @$@,0&x2
 1823: 1922           sbr  x2                                                                                  1828:  1922           sbr  x2
 1824: 1923           mz   vzone,3&x2                                                                          1829:  1923           mz   vzone,3&x2
 1825: 1924           b    botm                                                                                1830:  1924           b    botm
 1826: 1925 *  process variable subscript                                                                      1831:  1925 *  process variable subscript
 1827: 1926 varbl     cw   1&x1,vblsw#1                                                                        1832:  1926 varbl     cw   1&x1,vblsw#1
 1828: 1927           b    norml                                                                               1833:  1927           b    norml
 1829: 1928           lca  @ *@,000&x2         blank, asterisk                                                 1834:  1928           lca  @ *@,000&x2         blank, asterisk
 1830: 1929           sbr  x2                                                                                  1835:  1929           sbr  x2
 1831: 1930           cw   001&x2                                                                              1836:  1930           cw   001&x2
 1832: 1931           mcw  x1,x3                                                                               1837:  1931           mcw  x1,x3
 1833: 1932           b    delta                                                                               1838:  1932           b    delta
 1834: 1933 norml     sbr  exit&3                                                                              1839:  1933 norml     sbr  exit&3
 1835: 1934 x3and     equ  007&x3                                                                              1840:  1934 x3and     equ  007&x3
 1836: 1935 subtr     s    &16000,x3and                                                                        1841:  1935 subtr     s    &16000,x3and
 1837: 1936           bwz  subtr,x3and,b    ab zone                                                            1842:  1936           bwz  subtr,x3and,b    ab zone
 1838: 1937 add       a    &16000,x3and                                                                        1843:  1937 add       a    &16000,x3and
 1839: 1938           bwz  add,x3and,k      b zone                                                             1844:  1938           bwz  add,x3and,k      b zone
 1840: 1939           bw   alcon,fewsw                                                                         1845:  1939           bw   alcon,fewsw
 1841: 1940 get       sbr  x3,1&x3                                                                             1846:  1940 get       sbr  x3,1&x3
 1842: 1941           bce  get,002&x3,0     zero                                                               1847:  1941           bce  get,002&x3,0     zero
 1843: 1942           sbr  x2,1&x2                                                                             1848:  1942           sbr  x2,1&x2
 1844: 1943           lca  blnk6#6                                                                             1849:  1943           lca  blnk6#6
 1845: 1944 twist     mcw  002&x3,box                                                                          1850:  1944 twist     mcw  002&x3,box
 1846: 1945           sar  x3                                                                                  1851:  1945           sar  x3
 1847: 1946           mcw  box,000&x2                                                                          1852:  1946           mcw  box,000&x2
 1848: 1947           sbr  x2                                                                                  1853:  1947           sbr  x2
 1849: 1948           bwz  twist,001&x3,2       no zone                                                        1854:  1948           bwz  twist,001&x3,2       no zone
 1850: 1949           mz   blank,1&x2                                                                          1855:  1949           mz   blank,1&x2
 1851: 1950 exit      b    00                                                                                  1856:  1950 exit      b    00
 1852: 1951 out       fendxc,,,,phse2p,,orgvb-1,varbl two                                                      1857:  1951 out       fendxc,,,,phse2p,,orgvb-1,varbl two
 1853: 1952 list      mcw  @b@,swcha                                                                           1858:  1952 list      mcw  @b@,swcha
 1854: 1953           mcw  @b@,swchb                                                                           1859:  1953           mcw  @b@,swchb
 1855: 1954           mcw  code-3,*&8                                                                          1860:  1954           mcw  code-3,*&8
 1856: 1955           bce  tu,@1356@,0                                                                         1861:  1955           bce  tu,@1356@,0
 1857: 1956           chain3                                                                                   1862:  1956           chain3
 1858: 1957           b    find                                                                                1863:  1957           b    find
 1859: 1958 tu        sw   tusw                                                                                1864:  1958 tu        sw   tusw
 1860: 1959           b    find                                                                                1865:  1959           b    find
 1861: 1960 rtpar     bce  putb,box,)     rt paren                                                             1866:  1960 rtpar     bce  putb,box,)     rt paren
 1862: 1961           b    mdify                                                                               1867:  1961           b    mdify
 1863: 1962 putb      mcw  @b@,swchb                                                                           1868:  1962 putb      mcw  @b@,swchb
 1864: 1963           b    mdify                                                                               1869:  1963           b    mdify
 1865: 1964 nomo1     mn   0&x2                                                                                1870:  1964 nomo1     mn   0&x2
 1866: 1965           sar  x2                                                                                  1871:  1965           sar  x2
 1867: 1966 nomo      lca  gm,001&x2                                                                           1872:  1966 nomo      lca  gm,001&x2
 1868: 1967           b    start                                                                               1873:  1967           b    start
 1869: 1968 equal     mcw  @n@,swchb                                                                           1874:  1968 equal     mcw  @n@,swchb
 1870: 1969           b    loop                                                                                1875:  1969           b    loop
 1871: 1970 load2     lca  blnk2,1&x2                                                                          1876:  1970 load2     lca  blnk2,1&x2
 1872: 1971           sbr  x2                                                                                  1877:  1971           sbr  x2
 1873: 1972           b    ldcom                                                                               1878:  1972           b    ldcom
 1874: 1973 load1     lca  blank,0&x2                                                                          1879:  1973 load1     lca  blank,0&x2
 1875: 1974           sbr  x2                                                                                  1880:  1974           sbr  x2
 1876: 1975           cw   001&x2                                                                              1881:  1975           cw   001&x2
 1877: 1976           b    botm                                                                                1882:  1976           b    botm
 1878: 1977 ckxpn     bce  sw1,2&x1,#                                                                          1883:  1977 ckxpn     bce  sw1,2&x1,#
 1879: 1978           bce  sw1,2&x1,@                                                                          1884:  1978           bce  sw1,2&x1,@
 1880: 1979           bwz  find,2&x1,2                                                                         1885:  1979           bwz  find,2&x1,2
 1881: 1980           bce  find,2&x1,.                                                                         1886:  1980           bce  find,2&x1,.
 1882: 1981           b    sw1                                                                                 1887:  1981           b    sw1
 1883: 1982 alcon     mcw  7&x3,hold5#5                                                                        1888:  1982 alcon     mcw  7&x3,hold5#5
 1884: 1983           fpackhold5,work3,x3                                                                      1889:  1983           fpackhold5,work3,x3
 1885: 1984           bce  *&8,2&x2,,                                                                          1890:  1984           bce  *&8,2&x2,,
 1886: 1985           sbr  x2,1&x2                                                                             1891:  1985           sbr  x2,1&x2
 1887: 1986           lca  work3,1&x2                                                                          1892:  1986           lca  work3,1&x2
 1888: 1987           sbr  x2                                                                                  1893:  1987           sbr  x2
 1889: 1988           cw   1&x2                                                                                1894:  1988           cw   1&x2
 1890: 1989           mz   vzone,2&x2                                                                          1895:  1989           mz   vzone,2&x2
 1891: 1990           bw   botm,vblsw                                                                          1896:  1990           bw   botm,vblsw
 1892: 1991           b    ldolr                                                                               1897:  1991           b    ldolr
 1893: 1992 putc      mz   *-4,wordl                                                                           1898:  1992 putc      mz   *-4,wordl
 1894: 1993           m    rows,wordl&6                                                                        1899:  1993           m    rows,wordl&6
 1895: 1994           mcm  wordl&2,wordl-4      rows*wordl in wordl %2 dimens)                                 1900:  1994           mcm  wordl&2,wordl-4      rows*wordl in wordl %2 dimens)
 1896: 1995           s    wordl,accum                                                                         1901:  1995           s    wordl,accum
 1897: 1996           b    copy                                                                                1902:  1996           b    copy
 1898: 1997 fmat      lca  0&x1,0&x2                                                                           1903:  1997 fmat      lca  0&x1,0&x2
 1899: 1998           sbr  x2                                                                                  1904:  1998           sbr  x2
 1900: 1999           c    0&x1                                                                                1905:  1999           c    0&x1
 1901: 2000           sar  x1                                                                                  1906:  2000           sar  x1
 1902: 2001           b    start                                                                               1907:  2001           b    start
 1903: 2002 mrkrs     dcw  @#,}*@&-%)@                     equals,comma,gr mark                                1908:  2002 mrkrs     dcw  @#,}*@&-%)@                     equals,comma,gr mark
 1904: 2003 syn2s     dc   #1                                                                                  1909:  2003 syn2s     dc   #1
 1905: 2004 subsw     dc   #1                                                                                  1910:  2004 subsw     dc   #1
 1906: 2005 errsw     dc   #1                                                                                  1911:  2005 errsw     dc   #1
 1907: 2006 verse     dcw  #1                                                                                  1912:  2006 verse     dcw  #1
 1908: 2007           dc   #49                                                                                 1913:  2007           dc   #49
 1909: 2008 gm        dc   @}@                             g-m                                                 1914:  2008 gm        dc   @}@                             g-m
 1910: 2009 kerr      dcw  @error @                                                                            1915:  2009 kerr      dcw  @error @
 1911: 2010 kvstm     dcw  @ variable, statement @                                                             1916:  2010 kvstm     dcw  @ variable, statement @
 1912: 2011 wordl     dcw  #5                                                                                  1917:  2011 wordl     dcw  #5
 1913: 2012           dc   #6                                                                                  1918:  2012           dc   #6
 1914: 2013           dc   @|@   record mark                                                                   1919:  2013           dc   @|@   record mark
 1915: 2014 work3     dcw  #3                                                                                  1920:  2014 work3     dcw  #3
 1916: 2015 fewsw     dc   #1                                                                                  1921:  2015 fewsw     dc   #1
 1917: 2016 tusw      dc   #1                                                                                  1922:  2016 tusw      dc   #1
 1918: 2017 ervbl     dc   #1                                                                                  1923:  2017 ervbl     dc   #1
 1919: 2018           org  *                                                                                   1924:  2018           org  *
 1920:                ltorg*    WVS: Autocoder shouldn't load incld at org                                     1925:                 ltorg*    WVS: Autocoder shouldn't load incld at org
 1921: 2019 code      equ  work                                                                                1926:  2019 code      equ  work
 1922: 2020 blank     equ  blnk6-5                                                                             1927:  2020 blank     equ  blnk6-5
 1923: 2021 blnk2     equ  blnk6-4                                                                             1928:  2021 blnk2     equ  blnk6-4
 1924: 2022           dcw  @}@                           system group mark                                     1929:  2022           dcw  @}@                           system group mark
 1925: 2023 orgvb     equ  *&1                                                                                 1930:  2023 orgvb     equ  *&1
 1926: 2024           xfr  initl                                                                               1931:  2024           xfr  initl
 1927: 2025           job  1401 fortran  variables phase two                      50143                        1932:  2025           job  1401 fortran  variables phase two                      50143
 1928: 2026 * moves the source program up to sauce and computes parameters for                                 1933:  2026 * moves the source program up to sauce and computes parameters for
 1929: 2027 * the randomizer in varbl. phase 3                                                                 1934:  2027 * the randomizer in varbl. phase 3
 1930: 2028           fbegnvarbl two,x1,r,x2,,x3,r,p                                                           1935:  2028           fbegnvarbl two,x1,r,x2,,x3,r,p
 1931: 2029 sauce     equ  saucek                                                                              1936:  2029 sauce     equ  saucek
 1932: 2030           org  xbegin                                                                              1937:  2030           org  xbegin
 1933: 2031 base      dcw  #3                                                                                  1938:  2031 base      dcw  #3
 1934: 2032 max       dcw  #4                                                                                  1939:  2032 max       dcw  #4
 1935: 2033           dc   #1                                                                                  1940:  2033           dc   #1
 1936: 2034 uplim     dcw  #3                                                                                  1941:  2034 uplim     dcw  #3
 1937: 2035 nxbtm     equ  083                                                                                 1942:  2035 nxbtm     equ  083
 1938: 2036 phse2     mcw  nxbtm,x3                                                                            1943:  2036 phse2     mcw  nxbtm,x3
 1939: 2037           bce  fquit,x1,$                                                                          1944:  2037           bce  fquit,x1,$
 1940: 2038           sbr  nomo#3,2&x3                                                                         1945:  2038           sbr  nomo#3,2&x3
 1941: 2039           mcw  x2,x3                                                                               1946:  2039           mcw  x2,x3
 1942: 2040 clr1      cs   000&x3                                                                              1947:  2040 clr1      cs   000&x3
 1943: 2041           sbr  x3                                                                                  1948:  2041           sbr  x3
 1944: 2042           c    x3,&sauce-1                                                                         1949:  2042           c    x3,&sauce-1
 1945: 2043           bu   clr1                                                                                1950:  2043           bu   clr1
 1946: 2044           sbr  x1,sauce-1                                                                          1951:  2044           sbr  x1,sauce-1
 1947: 2045 *  shift source program up to compiler program                                                     1952:  2045 *  shift source program up to compiler program
 1948: 2046           movupx2,x1,nomo,all,|                                                                    1953:  2046           movupx2,x1,nomo,all,|
 1949: 2047           cw   0&x2                                                                                1954:  2047           cw   0&x2
 1950: 2048           cw                                                                                       1955:  2048           cw
 1951: 2049           sbr  base,2&x1                                                                           1956:  2049           sbr  base,2&x1
 1952: 2050           mn   two9,base                                                                           1957:  2050           mn   two9,base
 1953: 2051           mn                                                                                       1958:  2051           mn
 1954: 2052           mcw  parama&2,x3                                                                         1959:  2052           mcw  parama&2,x3
 1955: 2053           mn   000&x3                                                                              1960:  2053           mn   000&x3
 1956: 2054           sw                                                                                       1961:  2054           sw
 1957: 2055           sar  nxbtm                                                                               1962:  2055           sar  nxbtm
 1958: 2056           sbr  x3                                                                                  1963:  2056           sbr  x3
 1959: 2057 *  clear balance of core                                                                           1964:  2057 *  clear balance of core
 1960: 2058 clr2      cs   000&x3                                                                              1965:  2058 clr2      cs   000&x3
 1961: 2059           sbr  x3                                                                                  1966:  2059           sbr  x3
 1962: 2060           c    x3,base                                                                             1967:  2060           c    x3,base
 1963: 2061           bu   clr2                                                                                1968:  2061           bu   clr2
 1964: 2062           mcw  @<@,0&x3                      12-6-8                                                1969:  2062           mcw  @<@,0&x3                      12-6-8
 1965: 2063 *  divide rest of core for tables   ratio 3 to 7                                                   1970:  2063 *  divide rest of core for tables   ratio 3 to 7
 1966: 2064           mcw  nxbtm,loc                                                                           1971:  2064           mcw  nxbtm,loc
 1967: 2065           b    unpak                                                                               1972:  2065           b    unpak
 1968: 2066           mcw  num#5,max&1                                                                         1973:  2066           mcw  num#5,max&1
 1969: 2067           mcw  base,loc                                                                            1974:  2067           mcw  base,loc
 1970: 2068           b    unpak                                                                               1975:  2068           b    unpak
 1971: 2069           s    num,max&1                                                                           1976:  2069           s    num,max&1
 1972: 2070           a    max,accum#6                                                                         1977:  2070           a    max,accum#6
 1973: 2071           a    accum                                                                               1978:  2071           a    accum
 1974: 2072           a    max,accum       3*max in accum                                                      1979:  2072           a    max,accum       3*max in accum
 1975: 2073 *  1/10 of nxbtm-base in max                                                                       1980:  2073 *  1/10 of nxbtm-base in max
 1976: 2074           a    num,accum                                                                           1981:  2074           a    num,accum
 1977: 2075           mcw  accum-3,x3                                                                          1982:  2075           mcw  accum-3,x3
 1978: 2076           a    x3                                                                                  1983:  2076           a    x3
 1979: 2077           mz   zones&x3,accum-2                                                                    1984:  2077           mz   zones&x3,accum-2
 1980: 2078           mz   zones&1&x3,accum                                                                    1985:  2078           mz   zones&1&x3,accum
 1981: 2079           mcw  accum,x3                                                                            1986:  2079           mcw  accum,x3
 1982: 2080           sw   002&x3                                                                              1987:  2080           sw   002&x3
 1983: 2081           mcw  @<@      12-6-8                                                                     1988:  2081           mcw  @<@      12-6-8
 1984: 2082           sbr  uplim                                                                               1989:  2082           sbr  uplim
 1985: 2083           mcw  x1,x2                                                                               1990:  2083           mcw  x1,x2
 1986: 2084           mn   0&x2                                                                                1991:  2084           mn   0&x2
 1987: 2085           sar  x1                                                                                  1992:  2085           sar  x1
 1988: 2086           fendxc,,,work5j-4,phse3j,work5j,sys2,varbl tri                                           1993:  2086           fendxc,,,work5j-4,phse3j,work5j,sys2,varbl tri
 1989: 2087 fquit     fquit                                                                                    1994:  2087 fquit     fquit
 1990: 2088 unpak     sbr  exit&3                                                                              1995:  2088 unpak     sbr  exit&3
 1991: 2089           mn   loc,num                                                                             1996:  2089           mn   loc,num
 1992: 2090           mn                                                                                       1997:  2090           mn
 1993: 2091           mn                                                                                       1998:  2091           mn
 1994: 2092           mcw                                                                                      1999:  2092           mcw
 1995: 2093           mz   loc,two9                                                                            2000:  2093           mz   loc,two9
 1996: 2094           mz   loc-2,two9-1                                                                        2001:  2094           mz   loc-2,two9-1
 1997: 2095           nop  zones-3                                                                             2002:  2095           nop  zones-3
 1998: 2096           sar  x3                                                                                  2003:  2096           sar  x3
 1999: 2097 comp      c    004&x3,two9                                                                         2004:  2097 comp      c    004&x3,two9
 2000: 2098           sar  x3                                                                                  2005:  2098           sar  x3
 2001: 2099           a    &1,num-3                                                                            2006:  2099           a    &1,num-3
 2002: 2100           bu   comp                                                                                2007:  2100           bu   comp
 2003: 2101           mz   blank#1,num-3                                                                       2008:  2101           mz   blank#1,num-3
 2004: 2102 exit      b    000                                                                                 2009:  2102 exit      b    000
 2005: 2103 loc       dcw  @0j   @                                                                             2010:  2103 loc       dcw  @0j   @
 2006: 2104 two9      dcw  @99@                                                                                2011:  2104 two9      dcw  @99@
 2007: 2105 zones     dc   @9@                                                                                 2012:  2105 zones     dc   @9@
 2008: 2106           dc   @9z9r9i99zzzrziz9rzrrrir9iziriii@                                                   2013:  2106           dc   @9z9r9i99zzzrziz9rzrrrir9iziriii@
 2009: 2107           ltorg*                                                                                   2014:  2107           ltorg*
 2010: 2108           ltorg*                                                                                   2015:  2108           ltorg*
 2011: 2109 sys2      dcw  @}@                           system group mark                                     2016:  2109 sys2      dcw  @}@                           system group mark
 2012: 2110           xfr  phse2                                                                               2017:  2110           xfr  phse2
 2013: 2111           job  1401 fortran   variables  phase three                  50153                        2018:  2111           job  1401 fortran   variables  phase three                  50153
 2014: 2112           fbegnvarbl tri,x1,,x2,,x3,r,j                                                            2019:  2112           fbegnvarbl tri,x1,,x2,,x3,r,j
 2015: 2113 * defines variables in source program                                                              2020:  2113 * defines variables in source program
 2016: 2114           org  xbegin                                                                              2021:  2114           org  xbegin
 2017: 2115 base      ds   3                                                                                   2022:  2115 base      ds   3
 2018: 2116 max       ds   4                                                                                   2023:  2116 max       ds   4
 2019: 2117 uplim     ds   4                                                                                   2024:  2117 uplim     ds   4
 2020: 2118 nxtop     equ  086                                                                                 2025:  2118 nxtop     equ  086
 2021: 2119 nxbtm     equ  083                                                                                 2026:  2119 nxbtm     equ  083
 2022: 2120 work5     dcw  #5                                                                                  2027:  2120 work5     dcw  #5
 2023: 2121 save2     dcw  #3                                                                                  2028:  2121 save2     dcw  #3
 2024: 2122 phse3     messg@storage assignment - simple variables@,37,l,j                                      2029:  2122 phse3     messg@storage assignment - simple variables@,37,l,j
 2025: 2123           mcw  @ @,saucek-1                  blank                                                 2030:  2123           mcw  @ @,saucek-1                  blank
 2026: 2124           mcw  x2,save2                                                                            2031:  2124           mcw  x2,save2
 2027: 2125           unpaknxtop,work5                                                                         2032:  2125           unpaknxtop,work5
 2028: 2126           fendxc,,,phse3,,phse3,saucek-1,varbl quad                                                2033:  2126           fendxc,,,phse3,,phse3,saucek-1,varbl quad
 2029: 2127           ltorg*                                                                                   2034:  2127           ltorg*
 2030: 2128           dcw  @}@                           system group mark                                     2035:  2128           dcw  @}@                           system group mark
 2031: 2129           xfr  phse3                                                                               2036:  2129           xfr  phse3
 2032: 2130           job  1401 fortran   variables phase four                    50163                        2037:  2130           job  1401 fortran   variables phase four                    50163
 2033: 2131 110       dcw  @varbl quad@                                                                        2038:  2131 110       dcw  @varbl quad@
 2034: 2132           org  phse3                                                                               2039:  2132           org  phse3
 2035: 2133 begin     mcw  base,bump&3                                                                         2040:  2133 begin     mcw  base,bump&3
 2036: 2134           mz   @s@,bump&2                                                                          2041:  2134           mz   @s@,bump&2
 2037: 2135           sw   gm                                                                                  2042:  2135           sw   gm
 2038: 2136           cw   isfsw                                                                               2043:  2136           cw   isfsw
 2039: 2137 start     bce  out,000&x1,                    blank                                                2044:  2137 start     bce  out,000&x1,                    blank
 2040: 2138           mcw  000&x1,code#4                                                                       2045:  2138           mcw  000&x1,code#4
 2041: 2139           lca  000&x1,work#10                                                                      2046:  2139           lca  000&x1,work#10
 2042: 2140           sar  x1                                                                                  2047:  2140           sar  x1
 2043: 2141           sbr  x3                                                                                  2048:  2141           sbr  x3
 2044: 2142           lca  work,000&x2                                                                         2049:  2142           lca  work,000&x2
 2045: 2143           sbr  x2                                                                                  2050:  2143           sbr  x2
 2046: 2144           bce  pass,code-3,/                  bad statement                                        2051:  2144           bce  pass,code-3,/                  bad statement
 2047: 2145           bce  pass,code-3,f                                                                       2052:  2145           bce  pass,code-3,f
 2048: 2146           mcw  @01@,fnctr#2                                                                        2053:  2146           mcw  @01@,fnctr#2
 2049: 2147 *  determine if in run one of run two                                                              2054:  2147 *  determine if in run one of run two
 2050: 2148 swche     b    test                                                                                2055:  2148 swche     b    test
 2051: 2149 find2     bce  seek,000&x1,_                  delta 11-7-8                                         2056:  2149 find2     bce  seek,000&x1,_                  delta 11-7-8
 2052: 2150           chain5                                                                                   2057:  2150           chain5
 2053: 2151           bce  pass,000&x1,}       group mark                                                      2058:  2151           bce  pass,000&x1,}       group mark
 2054: 2152           chain5                                                                                   2059:  2152           chain5
 2055: 2153           sbr  x1                                                                                  2060:  2153           sbr  x1
 2056: 2154           b    find2                                                                               2061:  2154           b    find2
 2057: 2155 seek      bce  found,000&x1,_                 delta 11-7-8                                         2062:  2155 seek      bce  found,000&x1,_                 delta 11-7-8
 2058: 2156           sbr  x1                                                                                  2063:  2156           sbr  x1
 2059: 2157           b    seek                                                                                2064:  2157           b    seek
 2060: 2158 found     sw   001&x1                                                                              2065:  2158 found     sw   001&x1
 2061: 2159           cw                                  dummy                                                2066:  2159           cw                                  dummy
 2062: 2160           cw                                  dummy                                                2067:  2160           cw                                  dummy
 2063: 2161           cw                                  dummy                                                2068:  2161           cw                                  dummy
 2064: 2162           sar  x1                                                                                  2069:  2162           sar  x1
 2065: 2163           bce  copy,004&x1,}     group mk, first char may be delta                                 2070:  2163           bce  copy,004&x1,}     group mk, first char may be delta
 2066: 2164           lca  000&x3,000&x2                                                                       2071:  2164           lca  000&x3,000&x2
 2067: 2165           sbr  x2                                                                                  2072:  2165           sbr  x2
 2068: 2166           cw   001&x2                                                                              2073:  2166           cw   001&x2
 2069: 2167 copy      sbr  x3,2&x1                                                                             2074:  2167 copy      sbr  x3,2&x1
 2070: 2168 *  scan for ending character                                                                       2075:  2168 *  scan for ending character
 2071: 2169 limit     mcw  000&x1,box#1                                                                        2076:  2169 limit     mcw  000&x1,box#1
 2072: 2170           sar  x1                                                                                  2077:  2170           sar  x1
 2073: 2171           mcw  box,*&8                                                                             2078:  2171           mcw  box,*&8
 2074: 2172           bce  randm,@@}#*-&),@,0       at,12-7-8  etc                                             2079:  2172           bce  randm,@@}#*-&),@,0       at,12-7-8  etc
 2075: 2173           chain7                                                                                   2080:  2173           chain7
 2076: 2174           b    limit                                                                               2081:  2174           b    limit
 2077: 2175 randm     bce  swchf,box,#      equal                                                              2082:  2175 randm     bce  swchf,box,#      equal
 2078: 2176           bce  *&5,2&x1,]                  11-5-8  funct stmt                                      2083:  2176           bce  *&5,2&x1,]                  11-5-8  funct stmt
 2079: 2177           b    *&5                                                                                 2084:  2177           b    *&5
 2080: 2178           sw   isfsw#1                                                                             2085:  2178           sw   isfsw#1
 2081: 2179 swcha     nop  botm                                                                                2086:  2179 swcha     nop  botm
 2082: 2180 *  randomizing variable name                                                                       2087:  2180 *  randomizing variable name
 2083: 2181 mixup     sw   002&x1                                                                              2088:  2181 mixup     sw   002&x1
 2084: 2182           za   000&x3,mod#4                                                                        2089:  2182           za   000&x3,mod#4
 2085: 2183           a    004&x1,mod                                                                          2090:  2183           a    004&x1,mod
 2086: 2184           mz   @    @,mod                                                                          2091:  2184           mz   @    @,mod
 2087: 2185           mz                                                                                       2092:  2185           mz
 2088: 2186           mz                                                                                       2093:  2186           mz
 2089: 2187           mcw                              3 digit no. in mod                                      2094:  2187           mcw                              3 digit no. in mod
 2090: 2188 subtr     s    max,mod                                                                             2095:  2188 subtr     s    max,mod
 2091: 2189           bwz  subtr,mod,b                                                                         2096:  2189           bwz  subtr,mod,b
 2092: 2190           a    max,mod                                                                             2097:  2190           a    max,mod
 2093: 2191           mz   @ @,mod                     blank                                                   2098:  2191           mz   @ @,mod                     blank
 2094: 2192           mcw  x2,hex2#8                                                                           2099:  2192           mcw  x2,hex2#8
 2095: 2193           mcw                              stores x1 in hex1                                       2100:  2193           mcw                              stores x1 in hex1
 2096: 2194           mcw  mod,x1                                                                              2101:  2194           mcw  mod,x1
 2097: 2195           a    x1                                                                                  2102:  2195           a    x1
 2098: 2196           a    mod,x1                                                                              2103:  2196           a    mod,x1
 2099: 2197 *  get table 1 address                                                                             2104:  2197 *  get table 1 address
 2100: 2198 bump      nop  000                                                                                 2105:  2198 bump      nop  000
 2101: 2199           sar  x1                          tagged by A-bit                                         2106:  2199           sar  x1                          tagged by A-bit
 2102: 2200           mcw  @n@,ovflw                                                                           2107:  2200           mcw  @n@,ovflw
 2103: 2201 chain     bce  new,000&x1,   blank  varbl not yet endountered                                      2108:  2201 chain     bce  new,000&x1,   blank  varbl not yet endountered
 2104: 2202           bce  ovflw,000&x1,<   12-6-8                                                             2109:  2202           bce  ovflw,000&x1,<   12-6-8
 2105: 2203 *  see if defined already                                                                          2110:  2203 *  see if defined already
 2106: 2204           mcw  000&x1,x2                                                                           2111:  2204           mcw  000&x1,x2
 2107: 2205           sar  x1                                                                                  2112:  2205           sar  x1
 2108: 2206           c    000&x3,000&x2                                                                       2113:  2206           c    000&x3,000&x2
 2109: 2207           bu   chain                                                                               2114:  2207           bu   chain
 2110: 2208           c    000&x2,000&x3                                                                       2115:  2208           c    000&x2,000&x3
 2111: 2209           sar  swchc&3                                                                             2116:  2209           sar  swchc&3
 2112: 2210           bu   chain                                                                               2117:  2210           bu   chain
 2113: 2211 swchc     mn   0                                                                                   2118:  2211 swchc     mn   0
 2114: 2212           sar  send&3                                                                              2119:  2212           sar  send&3
 2115: 2213 restr     mcw  hex2,x2                                                                             2120:  2213 restr     mcw  hex2,x2
 2116: 2214           mcw                                                                                      2121:  2214           mcw
 2117: 2215 send      lca  000,000&x2                                                                          2122:  2215 send      lca  000,000&x2
 2118: 2216           sbr  x2                                                                                  2123:  2216           sbr  x2
 2119: 2217           cw   001&x2                                                                              2124:  2217           cw   001&x2
 2120: 2218           sbr  x3,1&x1                                                                             2125:  2218           sbr  x3,1&x1
 2121: 2219           sbr  x1                                                                                  2126:  2219           sbr  x1
 2122: 2220 gobak     b    find1     operand set to find2 for run2                                             2127:  2220 gobak     b    find1     operand set to find2 for run2
 2123: 2221 new       mcw  nxbtm,x2                                                                            2128:  2221 new       mcw  nxbtm,x2
 2124: 2222           mcw  nxbtm,000&x1                                                                        2129:  2222           mcw  nxbtm,000&x1
 2125: 2223           mcw  000&x3,000&x2                                                                       2130:  2223           mcw  000&x3,000&x2
 2126: 2224           sbr  x2                                                                                  2131:  2224           sbr  x2
 2127: 2225 *  check to see if there is room for address                                                       2132:  2225 *  check to see if there is room for address
 2128: 2226           bce  full,000&x2,<                  12-6-8                                               2133:  2226           bce  full,000&x2,<                  12-6-8
 2129: 2227           chain4                                                                                   2134:  2227           chain4
 2130: 2228           sw   000&x3                                                                              2135:  2228           sw   000&x3
 2131: 2229           mcw  000&x3,*&8                                                                          2136:  2229           mcw  000&x3,*&8
 2132: 2230           bce  fixed,@ijklmn@,0                                                                    2137:  2230           bce  fixed,@ijklmn@,0
 2133: 2231           chain5                                                                                   2138:  2231           chain5
 2134: 2232           mz   @A@,vzone#1                                                                         2139:  2232           mz   @A@,vzone#1
 2135: 2233           bw   funst,isfsw                                                                         2140:  2233           bw   funst,isfsw
 2136: 2234           a    parama&6,work5                                                                      2141:  2234           a    parama&6,work5
 2137: 2235 pack      c    work5,&16000                                                                        2142:  2235 pack      c    work5,&16000
 2138: 2236           bh   pack2                                                                               2143:  2236           bh   pack2
 2139: 2237           bw   pack2,lgsw                                                                          2144:  2237           bw   pack2,lgsw
 2140: 2238           cs   332                                                                                 2145:  2238           cs   332
 2141: 2239           cs                                                                                       2146:  2239           cs
 2142: 2240           mlc  @message 2 - object program too large@,270                                          2147:  2240           mlc  @message 2 - object program too large@,270
 2143: 2241           w                                                                                        2148:  2241           w
 2144: 2242           sw   failsw,lgsw                                                                         2149:  2242           sw   failsw,lgsw
 2145: 2243 pack2     mcw  work5,hold5#5                                                                       2150:  2243 pack2     mcw  work5,hold5#5
 2146: 2244           mcw  x3,hold8#8                                                                          2151:  2244           mcw  x3,hold8#8
 2147: 2245           mcw                                                                                      2152:  2245           mcw
 2148: 2246           fpackhold5,nxtop,x2                                                                      2153:  2246           fpackhold5,nxtop,x2
 2149: 2247           mcw  nxtop,adrss#3                                                                       2154:  2247           mcw  nxtop,adrss#3
 2150: 2248 rtn2      cw   0&x3                                                                                2155:  2248 rtn2      cw   0&x3
 2151: 2249           cs   299                                                                                 2156:  2249           cs   299
 2152: 2250           fflip0&x3,201,x3,x2,inc,wm                                                               2157:  2250           fflip0&x3,201,x3,x2,inc,wm
 2153: 2251           mcw  hold8,x3                                                                            2158:  2251           mcw  hold8,x3
 2154: 2252           mcw                                                                                      2159:  2252           mcw
 2155: 2253           mcw  nxtop,227                                                                           2160:  2253           mcw  nxtop,227
 2156: 2254           mcs  work5,219                                                                           2161:  2254           mcs  work5,219
 2157: 2255           bw   swix2,isfsw                                                                         2162:  2255           bw   swix2,isfsw
 2158: 2256           w                                                                                        2163:  2256           w
 2159: 2257           forms                                                                                    2164:  2257           forms
 2160: 2258 swix2     sw   1&x2                                                                                2165:  2258 swix2     sw   1&x2
 2161: 2259           lca  gm                                                                                  2166:  2259           lca  gm
 2162: 2260           sbr  send&3                                                                              2167:  2260           sbr  send&3
 2163: 2261           lca  adrss                                                                               2168:  2261           lca  adrss
 2164: 2262           sbr  nxbtm                                                                               2169:  2262           sbr  nxbtm
 2165: 2263           sbr  x2                                                                                  2170:  2263           sbr  x2
 2166: 2264           bce  *&5,code-3,d                                                                        2171:  2264           bce  *&5,code-3,d
 2167: 2265           b    *&5                                                                                 2172:  2265           b    *&5
 2168: 2266           cw   4&x2                                                                                2173:  2266           cw   4&x2
 2169: 2267           mz   vzone,2&x2                                                                          2174:  2267           mz   vzone,2&x2
 2170: 2268           cw   isfsw                                                                               2175:  2268           cw   isfsw
 2171: 2269           b    restr                                                                               2176:  2269           b    restr
 2172: 2270 funst     mcw  fnctr,adrss                                                                         2177:  2270 funst     mcw  fnctr,adrss
 2173: 2271           mcw  @]@                          11-5-8                                                 2178:  2271           mcw  @]@                          11-5-8
 2174: 2272           a    &1,fnctr                                                                            2179:  2272           a    &1,fnctr
 2175: 2273           b    rtn2                                                                                2180:  2273           b    rtn2
 2176: 2274 test      fbceqinput,code-3,1,5,l                                                                  2181:  2274 test      fbceqinput,code-3,1,5,l
 2177: 2275           mcw  @b@,swcha                                                                           2182:  2275           mcw  @b@,swcha
 2178: 2276           mcw  @n@,swchb                                                                           2183:  2276           mcw  @n@,swchb
 2179: 2277           mcw  @n@,swchf                                                                           2184:  2277           mcw  @n@,swchf
 2180: 2278           mcw  @n@,swchg                                                                           2185:  2278           mcw  @n@,swchg
 2181: 2279 find1     bce  found,000&x1,_               delta   11-7-8                                         2186:  2279 find1     bce  found,000&x1,_               delta   11-7-8
 2182: 2280 swchb     nop  rtpar,000&x1,)               rt paren                                               2187:  2280 swchb     nop  rtpar,000&x1,)               rt paren
 2183: 2281 swchg     nop  dolr1,000&x1,$    dollar, a-operand also modified                                   2188:  2281 swchg     nop  dolr1,000&x1,$    dollar, a-operand also modified
 2184: 2282 done      bce  pass,000&x1,}                group mark                                             2189:  2282 done      bce  pass,000&x1,}                group mark
 2185: 2283           sbr  x1                                                                                  2190:  2283           sbr  x1
 2186: 2284           b    find1                                                                               2191:  2284           b    find1
 2187: 2285 input     mcw  @n@,swcha                                                                           2192:  2285 input     mcw  @n@,swcha
 2188: 2286           mcw  @b@,swchb                                                                           2193:  2286           mcw  @b@,swchb
 2189: 2287           mcw  @m@,swchf                                                                           2194:  2287           mcw  @m@,swchf
 2190: 2288           mcw  @b@,swchg                                                                           2195:  2288           mcw  @b@,swchg
 2191: 2289           b    find1                                                                               2196:  2289           b    find1
 2192: 2290 rtpar     mcw  @n@,swcha                                                                           2197:  2290 rtpar     mcw  @n@,swcha
 2193: 2291           b    done                                                                                2198:  2291           b    done
 2194: 2292 swchf     nop  @b@,swchb                                                                           2199:  2292 swchf     nop  @b@,swchb
 2195: 2293           mcw  @b@,swcha                                                                           2200:  2293           mcw  @b@,swcha
 2196: 2294           b    mixup                                                                               2201:  2294           b    mixup
 2197: 2295 undef     cs   299                                                                                 2202:  2295 undef     cs   299
 2198: 2296           sw   failsw                                                                              2203:  2296           sw   failsw
 2199: 2297           mcw  @error 10 - undefined variable @,230                                                2204:  2297           mcw  @error 10 - undefined variable @,230
 2200: 2298           fflip0&x3,231,x3,x1,inc,wm                                                               2205:  2298           fflip0&x3,231,x3,x1,inc,wm
 2201: 2299           mn   code,255                                                                            2206:  2299           mn   code,255
 2202: 2300           mn                                                                                       2207:  2300           mn
 2203: 2301           mn                                                                                       2208:  2301           mn
 2204: 2302           mcw  @statement @                                                                        2209:  2302           mcw  @statement @
 2205: 2303           w                                                                                        2210:  2303           w
 2206: 2304           forms                                                                                    2211:  2304           forms
 2207: 2305           sbr  send&3,zeroz                                                                        2212:  2305           sbr  send&3,zeroz
 2208: 2306           bwz  ckfix,231,k                                                                         2213:  2306           bwz  ckfix,231,k
 2209: 2307 zna       mz   @a@,zeroz-1                                                                         2214:  2307 zna       mz   @a@,zeroz-1
 2210: 2308           b    restr                                                                               2215:  2308           b    restr
 2211: 2309 ckfix     sw   231                                                                                 2216:  2309 ckfix     sw   231
 2212: 2310           mcw  231,*&8                                                                             2217:  2310           mcw  231,*&8
 2213: 2311           bce  zna,@opqr@,       initialized                                                       2218:  2311           bce  zna,@opqr@,       initialized
 2214: 2312           chain3                                                                                   2219:  2312           chain3
 2215: 2313           mz   @k@,zeroz-1                                                                         2220:  2313           mz   @k@,zeroz-1
 2216: 2314           b    restr                                                                               2221:  2314           b    restr
 2217: 2315 ovflw     nop  full                                                                                2222:  2315 ovflw     nop  full
 2218: 2316           mcw  @b@,ovflw                                                                           2223:  2316           mcw  @b@,ovflw
 2219: 2317           mcw  uplim,x1                                                                            2224:  2317           mcw  uplim,x1
 2220: 2318           b    chain                                                                               2225:  2318           b    chain
 2221: 2319 dolr1     sbr  swchg&3,dolr2                                                                       2226:  2319 dolr1     sbr  swchg&3,dolr2
 2222: 2320           mcw  @b@,swcha                                                                           2227:  2320           mcw  @b@,swcha
 2223: 2321           b    done                                                                                2228:  2321           b    done
 2224: 2322 dolr2     sbr  swchg&3,dolr1                                                                       2229:  2322 dolr2     sbr  swchg&3,dolr1
 2225: 2323           mcw  @n@,swcha                                                                           2230:  2323           mcw  @n@,swcha
 2226: 2324           b    done                                                                                2231:  2324           b    done
 2227: 2325 fixed     mz   @j@,vzone                                                                           2232:  2325 fixed     mz   @j@,vzone
 2228: 2326           bw   funst,isfsw                                                                         2233:  2326           bw   funst,isfsw
 2229: 2327           a    parama&4,work5                                                                      2234:  2327           a    parama&4,work5
 2230: 2328           b    pack                                                                                2235:  2328           b    pack
 2231: 2329 out       mlc  save2,x1                                                                            2236:  2329 out       mlc  save2,x1
 2232: 2330           cs   0&x2                                                                                2237:  2330           cs   0&x2
 2233: 2331           cs                                                                                       2238:  2331           cs
 2234: 2332           sbr  tclear,sys4                                                                         2239:  2332           sbr  tclear,sys4
 2235: 2333 swchd     nop  dun                                                                                 2240:  2333 swchd     nop  dun
 2236: 2334           sw   gm                                                                                  2241:  2334           sw   gm
 2237: 2335           mcw  @b@,swchd                                                                           2242:  2335           mcw  @b@,swchd
 2238: 2336           mcw  @)@,swchc                                                                           2243:  2336           mcw  @)@,swchc
 2239: 2337           mcw  @n@,swche                                                                           2244:  2337           mcw  @n@,swche
 2240: 2338           mcw  @n@,swcha                                                                           2245:  2338           mcw  @n@,swcha
 2241: 2339           sbr  chain&3,undef                                                                       2246:  2339           sbr  chain&3,undef
 2242: 2340           sbr  gobak&3,find2                                                                       2247:  2340           sbr  gobak&3,find2
 2243: 2341           cs   0&x2                                                                                2248:  2341           cs   0&x2
 2244: 2342           sbr  x2,1&x1                                                                             2249:  2342           sbr  x2,1&x1
 2245: 2343           sbr  save2                                                                               2250:  2343           sbr  save2
 2246: 2344           cc   j                                                                                   2251:  2344           cc   j
 2247: 2345           b    start                                                                               2252:  2345           b    start
 2248: 2346 dun       bss  333,c                                                                               2253:  2346 dun       bss  333,c
 2249: 2347           mcw  @varblquin@,110                                                                     2254:  2347           mcw  @varblquin@,110
 2250: 3448           b    montor                                                                              2255:  3448           b    montor
 2251: 2349 pass      mvdwnx3,x2                                                                               2256:  2349 pass      mvdwnx3,x2
 2252: 2350           mcw  x3,x1                                                                               2257:  2350           mcw  x3,x1
 2253: 2351           b    start                                                                               2258:  2351           b    start
 2254: 2352 botm      sbr  x1,1&x1                                                                             2259:  2352 botm      sbr  x1,1&x1
 2255: 2353           sbr  x3,1&x3                                                                             2260:  2353           sbr  x3,1&x3
 2256: 2354           b    find1                                                                               2261:  2354           b    find1
 2257: 2355 full      fquit                                                                                    2262:  2355 full      fquit
 2258: 2356 zeroz     dcw  @000@                                                                               2263:  2356 zeroz     dcw  @000@
 2259: 2357 lgsw      dc   #1                                                                                  2264:  2357 lgsw      dc   #1
 2260: 2358           org  *                                                                                   2265:  2358           org  *
 2261:                ltorg*    WVS: Autocoder shouldn't load incld at org                                     2266:                 ltorg*    WVS: Autocoder shouldn't load incld at org
 2262: 2359 gm        dc   @}@                 g-m                                                             2267:  2359 gm        dc   @}@                 g-m
 2263: 2360           dc   @     @      space for fancy scan                                                   2268:  2360           dc   @     @      space for fancy scan
 2264: 2361 sys4      dcw  @}@          work and system group mark                                             2269:  2361 sys4      dcw  @}@          work and system group mark
 2265: 2362           xfr  begin                                                                               2270:  2362           xfr  begin
 2266: 2363           job  1401 fortran   variables phase five                    50173                        2271:  2363           job  1401 fortran   variables phase five                    50173
 2267: 2364 110       dcw  @varbl quin@                                                                        2272:  2364 110       dcw  @varbl quin@
 2268: 2365           org  phse3                                                                               2273:  2365           org  phse3
 2269: 2366 ckref     cc   j                                                                                   2274:  2366 ckref     cc   j
 2270: 2367           mcw  x1,keep2#3                                                                          2275:  2367           mcw  x1,keep2#3
 2271: 2368           mcw  parama&2,x2                                                                         2276:  2368           mcw  parama&2,x2
 2272: 2369 scan      bce  isgm,0&x2,}                   12-7-8                                                2277:  2369 scan      bce  isgm,0&x2,}                   12-7-8
 2273: 2370           sbr  x2                                                                                  2278:  2370           sbr  x2
 2274: 2371           c    x2,nxbtm                                                                            2279:  2371           c    x2,nxbtm
 2275: 2372           bu   scan                                                                                2280:  2372           bu   scan
 2276: 2373           mcw  keep2,x1                                                                            2281:  2373           mcw  keep2,x1
 2277: 2374           fendxd,,,xbegin,xbegin,xbegin,saucek-2,const one                                         2282:  2374           fendxd,,,xbegin,xbegin,xbegin,saucek-2,const one
 2278: 2375 isgm      bw   unref,0&x2                                                                          2283:  2375 isgm      bw   unref,0&x2
 2279: 2376           mn   0&x2                                                                                2284:  2376           mn   0&x2
 2280: 2377           sbr  x2                                                                                  2285:  2377           sbr  x2
 2281: 2378           b    scan                                                                                2286:  2378           b    scan
 2282: 2379 unref     cs   299                                                                                 2287:  2379 unref     cs   299
 2283: 2380           mcw  @error 11 - unreferenced variable @,233                                             2288:  2380           mcw  @error 11 - unreferenced variable @,233
 2284: 2381           mcw  x2,x3                                                                               2289:  2381           mcw  x2,x3
 2285: 2382 nopr      nop  1&x3                                                                                2290:  2382 nopr      nop  1&x3
 2286: 2383           sar  x3                                                                                  2291:  2383           sar  x3
 2287: 2384           bw   flip,2&x3                                                                           2292:  2384           bw   flip,2&x3
 2288: 2385           b    nopr                                                                                2293:  2385           b    nopr
 2289: 2386 flip      fflip1&x3,234,x3,x1,incl,wm                                                              2294:  2386 flip      fflip1&x3,234,x3,x1,incl,wm
 2290: 2387           w                                                                                        2295:  2387           w
 2291: 2388           forms                                                                                    2296:  2388           forms
 2292: 2389           mn   0&x2                                                                                2297:  2389           mn   0&x2
 2293: 2390           sar  x2                                                                                  2298:  2390           sar  x2
 2294: 2391           b    scan                                                                                2299:  2391           b    scan
 2295: 2392           ltorg*                                                                                   2300:  2392           ltorg*
 2296: 2393           dcw  @}@                      system group mark                                          2301:  2393           dcw  @}@                      system group mark
 2297: 2394           xfr  ckref                                                                               2302:  2394           xfr  ckref
 2298: 2395           job  1401 fortran   constant phase one                      50183                        2303:  2395           job  1401 fortran   constant phase one                      50183
 2299: 2396           fbegnconst one,x1,,x2,r,x3,r,k                                                           2304:  2396           fbegnconst one,x1,,x2,r,x3,r,k
 2300: 2397           org  xbegin                                                                              2305:  2397           org  xbegin
 2301: 2398 track     equ  200                                                                                 2306:  2398 track     equ  200
 2302: 2399 nxbtm     equ  083                                                                                 2307:  2399 nxbtm     equ  083
 2303: 2400 initl     cs   track&99                                                                            2308:  2400 initl     cs   track&99
 2304: 2401           sw   gm                                                                                  2309:  2401           sw   gm
 2305: 2402           sw   track                                                                               2310:  2402           sw   track
 2306: 2403           mcw  parama&2,x2                                                                         2311:  2403           mcw  parama&2,x2
 2307: 2404           mn   000&x2                                                                              2312:  2404           mn   000&x2
 2308: 2405           mn                                                                                       2313:  2405           mn
 2309: 2406           sar  x2                                                                                  2314:  2406           sar  x2
 2310: 2407           sbr  nxbtm                                                                               2315:  2407           sbr  nxbtm
 2311: 2408           lca  gm, 1&x2                                                                            2316:  2408           lca  gm, 1&x2
 2312: 2409 start     bce  out,000&x1,    blank                                                                2317:  2409 start     bce  out,000&x1,    blank
 2313: 2410           mcw  000&x1,code#4                                                                       2318:  2410           mcw  000&x1,code#4
 2314: 2411           lca  000&x1,work#10                                                                      2319:  2411           lca  000&x1,work#10
 2315: 2412           sar  x1                                                                                  2320:  2412           sar  x1
 2316: 2413           sbr  hex3#3                                                                              2321:  2413           sbr  hex3#3
 2317: 2414           sbr  kill#3,0&x2                                                                         2322:  2414           sbr  kill#3,0&x2
 2318: 2415           lca  work,000&x2                                                                         2323:  2415           lca  work,000&x2
 2319: 2416           sbr  x2                                                                                  2324:  2416           sbr  x2
 2320: 2417           mcw  code-3,*&8                                                                          2325:  2417           mcw  code-3,*&8
 2321: 2418           bce  tryit,@upl3165der@,0                                                                2326:  2418           bce  tryit,@upl3165der@,0
 2322: 2419           chain9                                                                                   2327:  2419           chain9
 2323: 2420           mvdwnx1,x2                                                                               2328:  2420           mvdwnx1,x2
 2324: 2421           b    start                                                                               2329:  2421           b    start
 2325: 2422 tryit     sbr  x3,table-4                                                                          2330:  2422 tryit     sbr  x3,table-4
 2326: 2423           mcw  code-3,scan&7                                                                       2331:  2423           mcw  code-3,scan&7
 2327: 2424 scan      bce  setup,004&x3,0      d-char modified                                                 2332:  2424 scan      bce  setup,004&x3,0      d-char modified
 2328: 2425           sbr  x3                                                                                  2333:  2425           sbr  x3
 2329: 2426           b    scan                                                                                2334:  2426           b    scan
 2330: 2427 setup     mcw  006&x3,cntrl#2                                                                      2335:  2427 setup     mcw  006&x3,cntrl#2
 2331: 2428           mcw  cntrl-1,test2&7                                                                     2336:  2428           mcw  cntrl-1,test2&7
 2332: 2429 test1     bce  guts,cntrl,2                                                                        2337:  2429 test1     bce  guts,cntrl,2
 2333: 2430           a    @1@,cntrl                                                                           2338:  2430           a    @1@,cntrl
 2334: 2431 test2     bce  bump1,0&x1,0                                                                        2339:  2431 test2     bce  bump1,0&x1,0
 2335: 2432           bce  guts,0&x1,}                   gm                                                    2340:  2432           bce  guts,0&x1,}                   gm
 2336: 2433           sbr  x1                                                                                  2341:  2433           sbr  x1
 2337: 2434           b    test2                                                                               2342:  2434           b    test2
 2338: 2435 bump1     mn   0&x1                                                                                2343:  2435 bump1     mn   0&x1
 2339: 2436           sar  x1                                                                                  2344:  2436           sar  x1
 2340: 2437           b    test1                                                                               2345:  2437           b    test1
 2341: 2438 guts      bwz  maybe,000&x1,3   number,equal sign,word mk                                          2346:  2438 guts      bwz  maybe,000&x1,3   number,equal sign,word mk
 2342: 2439           sbr  x1                                                                                  2347:  2439           sbr  x1
 2343: 2440           bce  subsc,1&x1,$                                                                        2348:  2440           bce  subsc,1&x1,$
 2344: 2441           b    guts                                                                                2349:  2441           b    guts
 2345: 2442 maybe     bce  pass,000&x1,}       12-7-8                                                          2350:  2442 maybe     bce  pass,000&x1,}       12-7-8
 2346: 2443           sbr  x1                                                                                  2351:  2443           sbr  x1
 2347: 2444           bce  guts,001&x1,#                                                                       2352:  2444           bce  guts,001&x1,#
 2348: 2445           bce  guts,1&x1,@                                                                         2353:  2445           bce  guts,1&x1,@
 2349: 2446           mcw  002&x1,box&1                                                                        2354:  2446           mcw  002&x1,box&1
 2350: 2447           mcw                                                                                      2355:  2447           mcw
 2351: 2448           mcw                                                                                      2356:  2448           mcw
 2352: 2449           sar  x1                                                                                  2357:  2449           sar  x1
 2353: 2450           mcw  box&1,*&8                                                                           2358:  2450           mcw  box&1,*&8
 2354: 2451           bce  rucon,@)}@.#%$,*-&@,0         rt paren,group mark                                   2359:  2451           bce  rucon,@)}@.#%$,*-&@,0         rt paren,group mark
 2355: 2452           chain10                                                                                  2360:  2452           chain10
 2356: 2453           bce  pass,1&x1,}                   gm                                                    2361:  2453           bce  pass,1&x1,}                   gm
 2357: 2454 bmpx1     sbr  x1,1&x1                                                                             2362:  2454 bmpx1     sbr  x1,1&x1
 2358: 2455           b    guts                                                                                2363:  2455           b    guts
 2359: 2456 subsc     nop  sub2                                                                                2364:  2456 subsc     nop  sub2
 2360: 2457           mcw  @b@,subsc                                                                           2365:  2457           mcw  @b@,subsc
 2361: 2458           mcw  blank,subsw&4                                                                       2366:  2458           mcw  blank,subsw&4
 2362: 2459           b    guts                                                                                2367:  2459           b    guts
 2363: 2460 sub2      mcw  @n@,subsc                                                                           2368:  2460 sub2      mcw  @n@,subsc
 2364: 2461           mcw  @/@,subsw&4                                                                         2369:  2461           mcw  @/@,subsw&4
 2365: 2462           b    guts                                                                                2370:  2462           b    guts
 2366: 2463 rucon     bce  bakup,3&x1,.                                                                        2371:  2463 rucon     bce  bakup,3&x1,.
 2367: 2464           mcw  box-1,*&8                                                                           2372:  2464           mcw  box-1,*&8
 2368: 2465           bce  bmpx1,@?abcdefghi!jklmnopqr@,0      &zero,- zero                                    2373:  2465           bce  bmpx1,@?abcdefghi!jklmnopqr@,0      &zero,- zero
 2369: 2466           chain19                                                                                  2374:  2466           chain19
 2370: 2467           bce  ckif,3&x1,)                                                                         2375:  2467           bce  ckif,3&x1,)
 2371: 2468 set       sw   003&x1                                                                              2376:  2468 set       sw   003&x1
 2372: 2469           mcw  hex3,x3                                                                             2377:  2469           mcw  hex3,x3
 2373: 2470           lca  000&x3,000&x2                                                                       2378:  2470           lca  000&x3,000&x2
 2374: 2471           sbr  x2                                                                                  2379:  2471           sbr  x2
 2375: 2472           mcw  @<@,3&x1                         12-6-8                                             2380:  2472           mcw  @<@,3&x1                         12-6-8
 2376: 2473           sbr  klobr&6,3&x1                                                                        2381:  2473           sbr  klobr&6,3&x1
 2377: 2474           cw   001&x2                                                                              2382:  2474           cw   001&x2
 2378: 2475           lca  @_@,000&x2          11-7-8                                                          2383:  2475           lca  @_@,000&x2          11-7-8
 2379: 2476           sbr  x2                                                                                  2384:  2476           sbr  x2
 2380: 2477           cw   001&x2                                                                              2385:  2477           cw   001&x2
 2381: 2478           cw   oddsw                                                                               2386:  2478           cw   oddsw
 2382: 2479           s    xpont#2                                                                             2387:  2479           s    xpont#2
 2383: 2480           s    count#3                                                                             2388:  2480           s    count#3
 2384: 2481           s    total                                                                               2389:  2481           s    total
 2385: 2482           mcw  @,@,stodd                                                                           2390:  2482           mcw  @,@,stodd
 2386: 2483           mcw  @n@,swchx                                                                           2391:  2483           mcw  @n@,swchx
 2387: 2484           mcw  @b@,swchz                                                                           2392:  2484           mcw  @b@,swchz
 2388: 2485           sbr  swcha&3,a                                                                           2393:  2485           sbr  swcha&3,a
 2389: 2486           sbr  swchs&3,s                                                                           2394:  2486           sbr  swchs&3,s
 2390: 2487           sbr  x1,2&x1                                                                             2395:  2487           sbr  x1,2&x1
 2391: 2488 norml     mcw  000&x1,box                                                                          2396:  2488 norml     mcw  000&x1,box
 2392: 2489           sar  x1                                                                                  2397:  2489           sar  x1
 2393: 2490 swchx     nop  &1,xpont                                                                            2398:  2490 swchx     nop  &1,xpont
 2394: 2491           a    &1,total#3                                                                          2399:  2491           a    &1,total#3
 2395: 2492 swchz     bce  norml,box,0     passes by leading zeros                                             2400:  2492 swchz     bce  norml,box,0     passes by leading zeros
 2396: 2493           bce  swchs,box,.                                                                         2401:  2493           bce  swchs,box,.
 2397: 2494           bce  swcha,swchz,b      branches on first signif char                                    2402:  2494           bce  swcha,swchz,b      branches on first signif char
 2398: 2495           a    &1,count                                                                            2403:  2495           a    &1,count
 2399: 2496 test      bce  cnlft,box,#                                                                         2404:  2496 test      bce  cnlft,box,#
 2400: 2497           bce  *&9,box,@                                                                           2405:  2497           bce  *&9,box,@
 2401: 2498           bwz  norml,box,2    no zone                                                              2406:  2498           bwz  norml,box,2    no zone
 2402: 2499 cr        c    swcha&3,nopad                                                                       2407:  2499 cr        c    swcha&3,nopad
 2403: 2500 *  decimal point sends the address of nop to swcha&3                                               2408:  2500 *  decimal point sends the address of nop to swcha&3
 2404: 2501 *  cannot use address constant                                                                     2409:  2501 *  cannot use address constant
 2405: 2502           bu   fixed                                                                               2410:  2502           bu   fixed
 2406: 2503           bwz  mark,xpont,b                                                                        2411:  2503           bwz  mark,xpont,b
 2407: 2504           a    &1,xpont                                                                            2412:  2504           a    &1,xpont
 2408: 2505 mark      sw   002&x1                                                                              2413:  2505 mark      sw   002&x1
 2409: 2506           bce  oddbl,2&x1,.                                                                        2414:  2506           bce  oddbl,2&x1,.
 2410: 2507 cktal     bce  tail,box,e                                                                          2415:  2507 cktal     bce  tail,box,e
 2411: 2508 float     c    total,&01                                                                           2416:  2508 float     c    total,&01
 2412: 2509           nop  syntx                                                                               2417:  2509           nop  syntx
 2413: 2510           nop                                                                                      2418:  2510           nop
 2414: 2511           c    count,&000                                                                          2419:  2511           c    count,&000
 2415: 2512           bu   rtlft                                                                               2420:  2512           bu   rtlft
 2416: 2513 ldzer     lca  @?0?@,0&x2          12-0,0,12-0                                                     2421:  2513 ldzer     lca  @?0?@,0&x2          12-0,0,12-0
 2417: 2414           sbr  x2                                                                                  2422:  2414           sbr  x2
 2418: 2515           cw   001&x2                                                                              2423:  2515           cw   001&x2
 2419: 2516           b    botm2                                                                               2424:  2516           b    botm2
 2420: 2517 rtlft     mcw  x1,hex1#3                                                                           2425:  2517 rtlft     mcw  x1,hex1#3
 2421: 2518           bw   *&8,oddsw                                                                           2426:  2518           bw   *&8,oddsw
 2422: 2519           lca  000&x3,001&x3                                                                       2427:  2519           lca  000&x3,001&x3
 2423: 2520           mcw  right#3,x1                                                                          2428:  2520           mcw  right#3,x1
 2424: 2521           mcw  parama&6,presz#2                                                                    2429:  2521           mcw  parama&6,presz#2
 2425: 2522           a    &2,presz                                                                            2430:  2522           a    &2,presz
 2426: 2523           sbr  x3,track-2                                                                          2431:  2523           sbr  x3,track-2
 2427: 2524           sw   track                                                                               2432:  2524           sw   track
 2428: 2525 twist     mcw  000&x1,box                                                                          2433:  2525 twist     mcw  000&x1,box
 2429: 2526           sar  x1                                                                                  2434:  2526           sar  x1
 2430: 2527           mcw  box,002&x3                                                                          2435:  2527           mcw  box,002&x3
 2431: 2528           sbr  x3                                                                                  2436:  2528           sbr  x3
 2432: 2529           bwz  phew,001&x1,1       word mark                                                       2437:  2529           bwz  phew,001&x1,1       word mark
 2433: 2530           s    &1,presz                                                                            2438:  2530           s    &1,presz
 2434: 2531           c    presz,&00                                                                           2439:  2531           c    presz,&00
 2435: 2532           bu   twist                                                                               2440:  2532           bu   twist
 2436: 2533 phew      sbr  x3,1&x3                                                                             2441:  2533 phew      sbr  x3,1&x3
 2437: 2534 phew1     bce  *&5,0&x3,0                                                                          2442:  2534 phew1     bce  *&5,0&x3,0
 2438: 2535           b    xeunt                                                                               2443:  2535           b    xeunt
 2439: 2536           mn   0&x3                                                                                2444:  2536           mn   0&x3
 2440: 2537           sar  x3                                                                                  2445:  2537           sar  x3
 2441: 2538           b    phew1                                                                               2446:  2538           b    phew1
 2442: 2539 xeunt     mn   0&x3                                                                                2447:  2539 xeunt     mn   0&x3
 2443: 2540           sar  x3                                                                                  2448:  2540           sar  x3
 2444: 2541           mcw  xpont,3&x3                                                                          2449:  2541           mcw  xpont,3&x3
 2445: 2542           mz   @a@,1&x3                                                                            2450:  2542           mz   @a@,1&x3
 2446: 2543           lca  003&x3,000&x2                                                                       2451:  2543           lca  003&x3,000&x2
 2447: 2544           sbr  x2                                                                                  2452:  2544           sbr  x2
 2448: 2545           b    botm                                                                                2453:  2545           b    botm
 2449: 2546 cnlft     cs   332                                                                                 2454:  2546 cnlft     cs   332
 2450: 2547           cs                                                                                       2455:  2547           cs
 2451: 2548           sw   failsw                                                                              2456:  2548           sw   failsw
 2452: 2549           mn   code,256                                                                            2457:  2549           mn   code,256
 2453: 2550           chain2                                                                                   2458:  2550           chain2
 2454: 2551           mcw  @equal sign, statement @                                                            2459:  2551           mcw  @equal sign, statement @
 2455: 2552           mcw  @error 41 - constant left side of @                                                 2460:  2552           mcw  @error 41 - constant left side of @
 2456: 2553           w                                                                                        2461:  2553           w
 2457: 2554           forms                                                                                    2462:  2554           forms
 2458: 2555           mcw  kill,x2                                                                             2463:  2555           mcw  kill,x2
 2459: 2556           mcw  blank#1,0&x2                                                                        2464:  2556           mcw  blank#1,0&x2
 2460: 2557           c    0&x1                                                                                2465:  2557           c    0&x1
 2461: 2558           sar  x1                                                                                  2466:  2558           sar  x1
 2462: 2559           b    start                                                                               2467:  2559           b    start
 2463: 2560 syntx     ftmsg44,constant syntax,code,17                                                          2468:  2560 syntx     ftmsg44,constant syntax,code,17
 2464: 2561           b    ldzer                                                                               2469:  2561           b    ldzer
 2465: 2562 oddbl     mcw  @0@,2&x1                                                                            2470:  2562 oddbl     mcw  @0@,2&x1
 2466: 2563           sw   oddsw#1                                                                             2471:  2563           sw   oddsw#1
 2467: 2564           b    cktal                                                                               2472:  2564           b    cktal
 2468: 2565 tail      za   &0,bump#2                                                                           2473:  2565 tail      za   &0,bump#2
 2469: 2566           bwz  flip,000&x1,2       no zone                                                         2474:  2566           bwz  flip,000&x1,2       no zone
 2470: 2567           mz   000&x1,bump                                                                         2475:  2567           mz   000&x1,bump
 2471: 2568 *                            zone respectively                                                     2476:  2568 *                            zone respectively
 2472: 2569           sar  x1                                                                                  2477:  2569           sar  x1
 2473: 2570 flip      mn   000&x1                                                                              2478:  2570 flip      mn   000&x1
 2474: 2571           sar  x1                                                                                  2479:  2571           sar  x1
 2475: 2572           c    0&x1,@z@                                                                            2480:  2572           c    0&x1,@z@
 2476: 2573           bl   units               numeric, two digit expon                                        2481:  2573           bl   units               numeric, two digit expon
 2477: 2574           mn   001&x1,bump                                                                         2482:  2574           mn   001&x1,bump
 2478: 2575           b    bumpr                                                                               2483:  2575           b    bumpr
 2479: 2576 units     mn   001&x1,bump-1                                                                       2484:  2576 units     mn   001&x1,bump-1
 2480: 2577           mn   000&x1,bump                                                                         2485:  2577           mn   000&x1,bump
 2481: 2578           sar  x1                                                                                  2486:  2578           sar  x1
 2482: 2579 bumpr     a    bump,xpont                                                                          2487:  2579 bumpr     a    bump,xpont
 2483: 2580           mn   0&x1                                                                                2488:  2580           mn   0&x1
 2484: 2581           sar  x1                                                                                  2489:  2581           sar  x1
 2485: 2582           b    float                                                                               2490:  2582           b    float
 2486: 2583 fixed     c    count,&000                                                                          2491:  2583 fixed     c    count,&000
 2487: 2584           bu   lftrt                                                                               2492:  2584           bu   lftrt
 2488: 2585           lca  @ 0@,000&x2      blank, zero                                                        2493:  2585           lca  @ 0@,000&x2      blank, zero
 2489: 2586           sbr  x2                                                                                  2494:  2586           sbr  x2
 2490: 2587           cw   001&x2                                                                              2495:  2587           cw   001&x2
 2491: 2588           b    botm2                                                                               2496:  2588           b    botm2
 2492: 2589 lftrt     mcw  x1,hex1                                                                             2497:  2589 lftrt     mcw  x1,hex1
 2493: 2590           mcw  right,x3                                                                            2498:  2590           mcw  right,x3
 2494: 2591           sw   0&x3                                                                                2499:  2591           sw   0&x3
 2495: 2592           sbr  x3,track&99                                                                         2500:  2592           sbr  x3,track&99
 2496: 2593           mcw  parama&4,presz                                                                      2501:  2593           mcw  parama&4,presz
 2497: 2594 turn      mcw  002&x1,box                                                                          2502:  2594 turn      mcw  002&x1,box
 2498: 2595           sar  x1                                                                                  2503:  2595           sar  x1
 2499: 2596           mcw  box,000&x3                                                                          2504:  2596           mcw  box,000&x3
 2500: 2597           sbr  x3                                                                                  2505:  2597           sbr  x3
 2501: 2598           bwz  wow,001&x1,1       word mark                                                        2506:  2598           bwz  wow,001&x1,1       word mark
 2502: 2599           s    &1,presz                                                                            2507:  2599           s    &1,presz
 2503: 2600           c    presz,&00                                                                           2508:  2600           c    presz,&00
 2504: 2601 subsw     bu   turn                                                                                2509:  2601 subsw     bu   turn
 2505: 2602 wow       sw   001&x3                                                                              2510:  2602 wow       sw   001&x3
 2506: 2603           lca  track&99,000&x2                                                                     2511:  2603           lca  track&99,000&x2
 2507: 2604           sbr  x2                                                                                  2512:  2604           sbr  x2
 2508: 2605           cw   001&x3                                                                              2513:  2605           cw   001&x3
 2509: 2606           c    count,&001                                                                          2514:  2606           c    count,&001
 2510: 2607           bu   botm                                                                                2515:  2607           bu   botm
 2511: 2608           cw   001&x2                                                                              2516:  2608           cw   001&x2
 2512: 2609           lca  @ @,000&x2     blank                                                                2517:  2609           lca  @ @,000&x2     blank
 2513: 2610           sbr  x2                                                                                  2518:  2610           sbr  x2
 2514: 2611 botm      cw   001&x2                                                                              2519:  2611 botm      cw   001&x2
 2515: 2612           mcw  hex1,x1                                                                             2520:  2612           mcw  hex1,x1
 2516: 2613 botm2     sbr  x1,1&x1                                                                             2521:  2613 botm2     sbr  x1,1&x1
 2517: 2614           sbr  hex3                                                                                2522:  2614           sbr  hex3
 2518: 2615 klobr     bce  guts,0,<                      12-6-8                                                2523:  2615 klobr     bce  guts,0,<                      12-6-8
 2519: 2616           fquit                                                                                    2524:  2616           fquit
 2520: 2617 out       fendxc,gm,,,phse2o,,sys1,const two                                                       2525:  2617 out       fendxc,gm,,,phse2o,,sys1,const two
 2521: 2618 ckif      bce  pass,code-3,e                                                                       2526:  2618 ckif      bce  pass,code-3,e
 2522: 2619           b    set                                                                                 2527:  2619           b    set
 2523: 2620 pass      mcw  hex3,x3                                                                             2528:  2620 pass      mcw  hex3,x3
 2524: 2621           mvdwnx3,x2                                                                               2529:  2621           mvdwnx3,x2
 2525: 2622           mcw  x3,x1                                                                               2530:  2622           mcw  x3,x1
 2526: 2623           b    start                                                                               2531:  2623           b    start
 2527: 2624 bakup     sbr  x1,1&x1                                                                             2532:  2624 bakup     sbr  x1,1&x1
 2528: 2625           b    set                                                                                 2533:  2625           b    set
 2529: 2626 swchs     mcw  @s@,swchx                                                                           2534:  2626 swchs     mcw  @s@,swchx
 2530: 2627           mcw  nopad,swcha&3                                                                       2535:  2627           mcw  nopad,swcha&3
 2531: 2628           mcw  x1,x3                                                                               2536:  2628           mcw  x1,x3
 2532: 2629 stodd     sw   oddsw                                                                               2537:  2629 stodd     sw   oddsw
 2533: 2630           b    norml                                                                               2538:  2630           b    norml
 2534: 2631 swcha     mcw  @a@,swchx                                                                           2539:  2631 swcha     mcw  @a@,swchx
 2535: 2632           mcw  nopad,swchs&3                                                                       2540:  2632           mcw  nopad,swchs&3
 2536: 2633           mcw  @n@,swchz                                                                           2541:  2633           mcw  @n@,swchz
 2537: 2634           sbr  right,1&x1                                                                          2542:  2634           sbr  right,1&x1
 2538: 2635           mcw  @n@,stodd                                                                           2543:  2635           mcw  @n@,stodd
 2539: 2636           b    test                                                                                2544:  2636           b    test
 2540: 2637 table     equ  *&1                                                                                 2545:  2637 table     equ  *&1
 2541: 2638           dcw  @r 2e 2d#1l,15,0u,1p,16,01,13,1@                                                    2546:  2638           dcw  @r 2e 2d#1l,15,0u,1p,16,01,13,1@
 2542: 2639 a         dcw  @a@                                                                                 2547:  2639 a         dcw  @a@
 2543: 2640 s         dcw  @s@                                                                                 2548:  2640 s         dcw  @s@
 2544: 2641 nopad     dcw  &@n@                                                                                2549:  2641 nopad     dcw  &@n@
 2545: 2642           dcw  @ @         blank                                                                   2550:  2642           dcw  @ @         blank
 2546: 2643 box       dcw  @ @      blank                                                                      2551:  2643 box       dcw  @ @      blank
 2547: 2644           dcw  @ @     blank                                                                       2552:  2644           dcw  @ @     blank
 2548: 2645 gm        dc   @}@                          group mark                                             2553:  2645 gm        dc   @}@                          group mark
 2549: 2646           ltorg*                                                                                   2554:  2646           ltorg*
 2550: 2647 sys1      dcw  @}@                           system group mark                                     2555:  2647 sys1      dcw  @}@                           system group mark
 2551: 2648           org  *&x00                                                                               2556:  2648           org  *&x00
 2552: 2649 sauce     equ  *&1                                                                                 2557:  2649 sauce     equ  *&1
 2553: 2650           xfr  initl                                                                               2558:  2650           xfr  initl
 2554: 2651           job  1401 fortran  constant phase two                       50193                        2559:  2651           job  1401 fortran  constant phase two                       50193
 2555: 2652           fbegnconst two,x1,r,x2,,x3,r,o                                                           2560:  2652           fbegnconst two,x1,r,x2,,x3,r,o
 2556: 2653           org  xbegin                                                                              2561:  2653           org  xbegin
 2557: 2654 nxbtm     equ  083                                                                                 2562:  2654 nxbtm     equ  083
 2558: 2655 nomo      equ  parama&2                                                                            2563:  2655 nomo      equ  parama&2
 2559: 2656 base      dcw  #3                                                                                  2564:  2656 base      dcw  #3
 2560: 2657 max       dcw  #4                                                                                  2565:  2657 max       dcw  #4
 2561: 2658           dc   #1                                                                                  2566:  2658           dc   #1
 2562: 2659 uplim     dcw  #3                                                                                  2567:  2659 uplim     dcw  #3
 2563: 2660 phse2     mcw  x2, x3                                                                              2568:  2660 phse2     mcw  x2, x3
 2564: 2661           sw   gm2                                                                                 2569:  2661           sw   gm2
 2565: 2662 clr1      cs   000&x3                                                                              2570:  2662 clr1      cs   000&x3
 2566: 2663           sbr  x3                                                                                  2571:  2663           sbr  x3
 2567: 2664           c    x3,&sauce-1                                                                         2572:  2664           c    x3,&sauce-1
 2568: 2665           bu   clr1                                                                                2573:  2665           bu   clr1
 2569: 2666           sbr  x1,sauce-1                                                                          2574:  2666           sbr  x1,sauce-1
 2570: 2667 *  shift source program up to compiler program                                                     2575:  2667 *  shift source program up to compiler program
 2571: 2668           movupx2,x1,nomo,all,|                                                                    2576:  2668           movupx2,x1,nomo,all,|
 2572: 2669           cw   0&x2                                                                                2577:  2669           cw   0&x2
 2573: 2670           cw                                                                                       2578:  2670           cw
 2574: 2671           sbr  base,1&x1                                                                           2579:  2671           sbr  base,1&x1
 2575: 2672           mn   two9,base                                                                           2580:  2672           mn   two9,base
 2576: 2673           mn                                                                                       2581:  2673           mn
 2577: 2674           mcw  nxbtm,x3                                                                            2582:  2674           mcw  nxbtm,x3
 2578: 2675 *  clear balance of core                                                                           2583:  2675 *  clear balance of core
 2579: 2676 clr2      cs   000&x3                                                                              2584:  2676 clr2      cs   000&x3
 2580: 2677           sbr  x3                                                                                  2585:  2677           sbr  x3
 2581: 2678           c    x3,base                                                                             2586:  2678           c    x3,base
 2582: 2679           bu   clr2                                                                                2587:  2679           bu   clr2
 2583: 2680           mcw  @<@,0&x3                    12-6-8                                                  2588:  2680           mcw  @<@,0&x3                    12-6-8
 2584: 2681 *  divide rest of core for tables   ratio 3 to 7                                                   2589:  2681 *  divide rest of core for tables   ratio 3 to 7
 2585: 2682           mcw  nxbtm,loc                                                                           2590:  2682           mcw  nxbtm,loc
 2586: 2683           b    unpak                                                                               2591:  2683           b    unpak
 2587: 2684           mcw  num#5,max&1                                                                         2592:  2684           mcw  num#5,max&1
 2588: 2685           mcw  base,loc                                                                            2593:  2685           mcw  base,loc
 2589: 2686           b    unpak                                                                               2594:  2686           b    unpak
 2590: 2687           s    num,max&1                                                                           2595:  2687           s    num,max&1
 2591: 2688           a    max,accum#6                                                                         2596:  2688           a    max,accum#6
 2592: 2689           a    accum                                                                               2597:  2689           a    accum
 2593: 2690           a    max,accum       3*max in accum                                                      2598:  2690           a    max,accum       3*max in accum
 2594: 2691 * 1/10 of nxbtm-base in max                                                                        2599:  2691 * 1/10 of nxbtm-base in max
 2595: 2692           a    num,accum                                                                           2600:  2692           a    num,accum
 2596: 2693           mcw  accum-3,x3                                                                          2601:  2693           mcw  accum-3,x3
 2597: 2694           a    x3                                                                                  2602:  2694           a    x3
 2598: 2695           mz   zon19&x3,accum-2                                                                    2603:  2695           mz   zon19&x3,accum-2
 2599: 2696           mz   zon19&1&x3,accum                                                                    2604:  2696           mz   zon19&1&x3,accum
 2600: 2697           mcw  accum,x3                                                                            2605:  2697           mcw  accum,x3
 2601: 2698           sw   002&x3                                                                              2606:  2698           sw   002&x3
 2602: 2699           mcw  @<@      12-6-8                                                                     2607:  2699           mcw  @<@      12-6-8
 2603: 2700           sbr  uplim                                                                               2608:  2700           sbr  uplim
 2604: 2701           mcw  x1,x2                                                                               2609:  2701           mcw  x1,x2
 2605: 2702           mn   0&x2                                                                                2610:  2702           mn   0&x2
 2606: 2703           sar  x1                                                                                  2611:  2703           sar  x1
 2607: 2704           mcw  nxbtm,x3                                                                            2612:  2704           mcw  nxbtm,x3
 2608: 2705           lca  gm2,1&x3                                                                            2613:  2705           lca  gm2,1&x3
 2609: 2706           cs   299                                                                                 2614:  2706           cs   299
 2610: 2707           mcw  parama&6,x3                                                                         2615:  2707           mcw  parama&6,x3
 2611: 2708           mcw  @0@                                                                                 2616:  2708           mcw  @0@
 2612: 2709           sw   200                                                                                 2617:  2709           sw   200
 2613: 2710           mcw  nxbtm,ldflt&6                                                                       2618:  2710           mcw  nxbtm,ldflt&6
 2614: 2711 ldflt     lca  199&x3,0                                                                            2619:  2711 ldflt     lca  199&x3,0
 2615: 2712           sbr  nxbtm                                                                               2620:  2712           sbr  nxbtm
 2616: 2713           sbr  lodx&6                                                                              2621:  2713           sbr  lodx&6
 2617: 2714           mn   parama&4,x3                                                                         2622:  2714           mn   parama&4,x3
 2618: 2715           mn                                                                                       2623:  2715           mn
 2619: 2716 lodx      lca  199&x3,0                                                                            2624:  2716 lodx      lca  199&x3,0
 2620: 2717           sbr  x3                                                                                  2625:  2717           sbr  x3
 2621: 2718           sbr  oneadr                                                                              2626:  2718           sbr  oneadr
 2622: 2719           lca  @1@,0&x3                                                                            2627:  2719           lca  @1@,0&x3
 2623: 2720           sbr  xexpon                                                                              2628:  2720           sbr  xexpon
 2624: 2721           lca  @a0?@               0,12-0                                                          2629:  2721           lca  @a0?@               0,12-0
 2625: 2722           sbr  nxbtm                                                                               2630:  2722           sbr  nxbtm
 2626: 2723           fendxc,gm2,,phse2,,phse2,sys2,const tri                                                  2631:  2723           fendxc,gm2,,phse2,,phse2,sys2,const tri
 2627: 2724 unpak     sbr  exit&3                                                                              2632:  2724 unpak     sbr  exit&3
 2628: 2725           mn   loc,num                                                                             2633:  2725           mn   loc,num
 2629: 2726           mn                                                                                       2634:  2726           mn
 2630: 2727           mn                                                                                       2635:  2727           mn
 2631: 2728           mcw                                                                                      2636:  2728           mcw
 2632: 2729           mz   loc,two9                                                                            2637:  2729           mz   loc,two9
 2633: 2730           mz   loc-2,two9-1                                                                        2638:  2730           mz   loc-2,two9-1
 2634: 2731           nop  zon19-3                                                                             2639:  2731           nop  zon19-3
 2635: 2732           sar  x3                                                                                  2640:  2732           sar  x3
 2636: 2733 comp      c    004&x3,two9                                                                         2641:  2733 comp      c    004&x3,two9
 2637: 2734           sar  x3                                                                                  2642:  2734           sar  x3
 2638: 2735           a    &1,num-3                                                                            2643:  2735           a    &1,num-3
 2639: 2736           bu   comp                                                                                2644:  2736           bu   comp
 2640: 2737           mz   @ @,num-3                                                                           2645:  2737           mz   @ @,num-3
 2641: 2738 exit      b    000                                                                                 2646:  2738 exit      b    000
 2642: 2739 loc       dcw  @0j   @                                                                             2647:  2739 loc       dcw  @0j   @
 2643: 2740 two9      dcw  @99@                                                                                2648:  2740 two9      dcw  @99@
 2644: 2741 gm2       dc   @}@                                                                                 2649:  2741 gm2       dc   @}@
 2645: 2742 zon19     dc   @9@                                                                                 2650:  2742 zon19     dc   @9@
 2646: 2743           dc   @9z9r9i99zzzrziz9rzrrrir9iziriii@                                                   2651:  2743           dc   @9z9r9i99zzzrziz9rzrrrir9iziriii@
 2647: 2744           ltorg*                                                                                   2652:  2744           ltorg*
 2648: 2745 sys2      dcw  @}@                           system group mark                                     2653:  2745 sys2      dcw  @}@                           system group mark
 2649: 2746           xfr  phse2                                                                               2654:  2746           xfr  phse2
 2650: 2747           job  1401 fortran  constant phase three                     50203                        2655:  2747           job  1401 fortran  constant phase three                     50203
 2651: 2748 110       dcw  @const tri@                                                                         2656:  2748 110       dcw  @const tri@
 2652: 2749           org  phse2                                                                               2657:  2749           org  phse2
 2653: 2750 * defines normalized constants in sauce                                                            2658:  2750 * defines normalized constants in sauce
 2654: 2751 *              calculating amount by which object time addresses of                                2659:  2751 *              calculating amount by which object time addresses of
 2655: 2752 *              constants, formats, and lists must be reduced                                       2660:  2752 *              constants, formats, and lists must be reduced
 2656: 2753 *              (via MA instructions)  because of array storage                                     2661:  2753 *              (via MA instructions)  because of array storage
 2657: 2754 *              plusdf is used in phases 24,26&50                                                   2662:  2754 *              plusdf is used in phases 24,26&50
 2658: 2755 *              macfls is used in phases 20,24,25,26,&50                                            2663:  2755 *              macfls is used in phases 20,24,25,26,&50
 2659: 2756 phse3     unpakparama&2,wk5                                                                        2664:  2756 phse3     unpakparama&2,wk5
 2660: 2757           mcw  x2,savx2#3         save x2                                                          2665:  2757           mcw  x2,savx2#3         save x2
 2661: 2758           unpakconlst,cnls5                                                                        2666:  2758           unpakconlst,cnls5
 2662: 2759           s    cnls5#5,wk5#5                                                                       2667:  2759           s    cnls5#5,wk5#5
 2663: 2760           c    @0000?@,wk5                  plus zero                                              2668:  2760           c    @0000?@,wk5                  plus zero
 2664: 2761           be   rsx2                                                                                2669:  2761           be   rsx2
 2665: 2762           fpackwk5,plusdf,x2                                                                       2670:  2762           fpackwk5,plusdf,x2
 2666: 2763           mcw  @16000@,mcfl5#5                                                                     2671:  2763           mcw  @16000@,mcfl5#5
 2667: 2764           s    wk5,mcfl5                                                                           2672:  2764           s    wk5,mcfl5
 2668: 2765           fpackmcfl5,macfls,x2                                                                     2673:  2765           fpackmcfl5,macfls,x2
 2669: 2766 rsx2      mcw  savx2,x2            restore x2                                                      2674:  2766 rsx2      mcw  savx2,x2            restore x2
 2670: 2767           ma   macfls,oneadr                                                                       2675:  2767           ma   macfls,oneadr
 2671: 2768           ma   macfls,xexpon                                                                       2676:  2768           ma   macfls,xexpon
 2672: 2769           mcw  base,bump&3                                                                         2677:  2769           mcw  base,bump&3
 2673: 2770           mz   @s@,bump&2                                                                          2678:  2770           mz   @s@,bump&2
 2674: 2771           mcw  x2,hex1#3                                                                           2679:  2771           mcw  x2,hex1#3
 2675: 2772           mcw  @ @,sauce-1    blank, may not be necessary                                          2680:  2772           mcw  @ @,sauce-1    blank, may not be necessary
 2676: 2773 start     bce  out,000&x1,    blank                                                                2681:  2773 start     bce  out,000&x1,    blank
 2677: 2774           mcw  000&x1,code#4                                                                       2682:  2774           mcw  000&x1,code#4
 2678: 2775           lca  000&x1,work#10                                                                      2683:  2775           lca  000&x1,work#10
 2679: 2776           sar  x1                                                                                  2684:  2776           sar  x1
 2680: 2777           sbr  x3                                                                                  2685:  2777           sbr  x3
 2681: 2778           lca  work,000&x2                                                                         2686:  2778           lca  work,000&x2
 2682: 2779           sbr  x2                                                                                  2687:  2779           sbr  x2
 2683: 2780           bce  pass,code-3,/                                                                       2688:  2780           bce  pass,code-3,/
 2684: 2781 find      bce  seek,000&x1,_       delta   11-7-8                                                  2689:  2781 find      bce  seek,000&x1,_       delta   11-7-8
 2685: 2782           chain5                                                                                   2690:  2782           chain5
 2686: 2783           bce  pass,000&x1,}       group mark                                                      2691:  2783           bce  pass,000&x1,}       group mark
 2687: 2784           chain5                                                                                   2692:  2784           chain5
 2688: 2785           sbr  x1                                                                                  2693:  2785           sbr  x1
 2689: 2786           b    find                                                                                2694:  2786           b    find
 2690: 2787 seek      bce  found,000&x1,_      delta   11-7-8                                                  2695:  2787 seek      bce  found,000&x1,_      delta   11-7-8
 2691: 2788           sbr  x1                                                                                  2696:  2788           sbr  x1
 2692: 2789           b    seek                                                                                2697:  2789           b    seek
 2693: 2790 found     sw   001&x1                                                                              2698:  2790 found     sw   001&x1
 2694: 2791           cw                                                                                       2699:  2791           cw
 2695: 2792           cw                                                                                       2700:  2792           cw
 2696: 2793           cw                                                                                       2701:  2793           cw
 2697: 2794           sar  x1                                                                                  2702:  2794           sar  x1
 2698: 2795           bce  copy, 004&x1,}      group mk, first char may be dlta                                2703:  2795           bce  copy, 004&x1,}      group mk, first char may be dlta
 2699: 2796           lca  000&x3,000&x2                                                                       2704:  2796           lca  000&x3,000&x2
 2700: 2797           sbr  x2                                                                                  2705:  2797           sbr  x2
 2701: 2798           cw   001&x2                                                                              2706:  2798           cw   001&x2
 2702: 2799 copy      sbr  x3,2&x1                                                                             2707:  2799 copy      sbr  x3,2&x1
 2703: 2800 limit     mcw  000&x1,box#1                                                                        2708:  2800 limit     mcw  000&x1,box#1
 2704: 2801           sar  x1                                                                                  2709:  2801           sar  x1
 2705: 2802           mcw  box,*&8                                                                             2710:  2802           mcw  box,*&8
 2706: 2803           bce  randm,@#}@*-&)$,@,0             equal, gm                                           2711:  2803           bce  randm,@#}@*-&)$,@,0             equal, gm
 2707: 2804           chain8                                                                                   2712:  2804           chain8
 2708: 2805           b    limit                                                                               2713:  2805           b    limit
 2709: 2806 randm     sw   002&x1                                                                              2714:  2806 randm     sw   002&x1
 2710: 2807           za   000&x3,mod#4                                                                        2715:  2807           za   000&x3,mod#4
 2711: 2808           a    004&x1,mod                                                                          2716:  2808           a    004&x1,mod
 2712: 2809           bce  squoz,002&x1,        blank, 1 char fixed pt. num                                    2717:  2809           bce  squoz,002&x1,        blank, 1 char fixed pt. num
 2713: 2810 strip     mz   @    @,mod                                                                          2718:  2810 strip     mz   @    @,mod
 2714: 2811           mz                                                                                       2719:  2811           mz
 2715: 2812           mz                                                                                       2720:  2812           mz
 2716: 2813           mcw            3 digit no. in mod                                                        2721:  2813           mcw            3 digit no. in mod
 2717: 2814 subtr     s    max,mod                                                                             2722:  2814 subtr     s    max,mod
 2718: 2815           bwz  subtr,mod,b                                                                         2723:  2815           bwz  subtr,mod,b
 2719: 2816           a    max,mod                                                                             2724:  2816           a    max,mod
 2720: 2817           mz   @ @,mod        blank                                                                2725:  2817           mz   @ @,mod        blank
 2721: 2818           mcw  x2,hex2#8                                                                           2726:  2818           mcw  x2,hex2#8
 2722: 2819           mcw                 stores x1                                                            2727:  2819           mcw                 stores x1
 2723: 2820           mcw  mod,x1                                                                              2728:  2820           mcw  mod,x1
 2724: 2821           a    x1                                                                                  2729:  2821           a    x1
 2725: 2822           a    mod,x1                                                                              2730:  2822           a    mod,x1
 2726: 2823 bump      nop  000       base & 3*mod in x1, table 1 entry address                                 2731:  2823 bump      nop  000       base & 3*mod in x1, table 1 entry address
 2727: 2824           sar  x1                                                                                  2732:  2824           sar  x1
 2728: 2825           mcw  @n@,ovflw                                                                           2733:  2825           mcw  @n@,ovflw
 2729: 2826 chain     bce  new,000&x1,    blank, const not yet encountered                                     2734:  2826 chain     bce  new,000&x1,    blank, const not yet encountered
 2730: 2827           bce  ovflw,000&x1,<      12-6-8                                                          2735:  2827           bce  ovflw,000&x1,<      12-6-8
 2731: 2828           mcw  000&x1,x2                                                                           2736:  2828           mcw  000&x1,x2
 2732: 2829           sar  x1                                                                                  2737:  2829           sar  x1
 2733: 2830           c    000&x3,000&x2                                                                       2738:  2830           c    000&x3,000&x2
 2734: 2831           bu   chain                                                                               2739:  2831           bu   chain
 2735: 2832           c    000&x2,000&x3                                                                       2740:  2832           c    000&x2,000&x3
 2736: 2833           bu   chain                                                                               2741:  2833           bu   chain
 2737: 2834 restr     mcw  x2,temp#3                                                                           2742:  2834 restr     mcw  x2,temp#3
 2738: 2835           mcw  temp,temp2    compute correct constant addrs. before                                2743:  2835           mcw  temp,temp2    compute correct constant addrs. before
 2739: 2836           ma   macfls,temp   putting them in arithmetic strings.                                   2744:  2836           ma   macfls,temp   putting them in arithmetic strings.
 2740: 2837           mcw  hex2,x2                                                                             2745:  2837           mcw  hex2,x2
 2741: 2838           mcw                                                                                      2746:  2838           mcw
 2742: 2839           lca  temp,0&x2                                                                           2747:  2839           lca  temp,0&x2
 2743: 2840           sbr  x2                                                                                  2748:  2840           sbr  x2
 2744: 2841           cw   001&x2                                                                              2749:  2841           cw   001&x2
 2745: 2842           mcw  temp2#3,*&7                                                                         2750:  2842           mcw  temp2#3,*&7
 2746: 2843           bwz  fixed,0,2                                                                           2751:  2843           bwz  fixed,0,2
 2747: 2844           mz   @ @,002&x2                    blank                                                 2752:  2844           mz   @ @,002&x2                    blank
 2748: 2845 botm      sbr  x1,1&x1                                                                             2753:  2845 botm      sbr  x1,1&x1
 2749: 2846           sbr  x3                                                                                  2754:  2846           sbr  x3
 2750: 2847           b    find                                                                                2755:  2847           b    find
 2751: 2848 new       mcw  nxbtm,x2                                                                            2756:  2848 new       mcw  nxbtm,x2
 2752: 2849           mcw  nxbtm,000&x1                                                                        2757:  2849           mcw  nxbtm,000&x1
 2753: 2850           mcw  000&x3,000&x2                                                                       2758:  2850           mcw  000&x3,000&x2
 2754: 2851           sbr  x1                                                                                  2759:  2851           sbr  x1
 2755: 2852           sbr  nxbtm                                                                               2760:  2852           sbr  nxbtm
 2756: 2853           bce  full,000&x1,<      12-6-8                                                           2761:  2853           bce  full,000&x1,<      12-6-8
 2757: 2854           sw   001&x1                                                                              2762:  2854           sw   001&x1
 2758: 2855           b    restr                                                                               2763:  2855           b    restr
 2759: 2856 ovflw     nop  full                                                                                2764:  2856 ovflw     nop  full
 2760: 2857           mcw  @s@,ovflw                                                                           2765:  2857           mcw  @s@,ovflw
 2761: 2858           mcw  uplim,x1                                                                            2766:  2858           mcw  uplim,x1
 2762: 2859           b    chain                                                                               2767:  2859           b    chain
 2763: 2860 fixed     mz   *-6,2&x2                                                                            2768:  2860 fixed     mz   *-6,2&x2
 2764: 2861           b    botm                                                                                2769:  2861           b    botm
 2765: 2862 squoz     sw   003&x1                                                                              2770:  2862 squoz     sw   003&x1
 2766: 2863           b    strip                                                                               2771:  2863           b    strip
 2767: 2864 full      fquit                                                                                    2772:  2864 full      fquit
 2768: 2865 pass      mvdwnx3,x2                                                                               2773:  2865 pass      mvdwnx3,x2
 2769: 2866           mcw  x3,x1                                                                               2774:  2866           mcw  x3,x1
 2770: 2867           b    start                                                                               2775:  2867           b    start
 2771: 2868 out       mcw  hex1,x1                                                                             2776:  2868 out       mcw  hex1,x1
 2772: 2869           cs   332                                                                                 2777:  2869           cs   332
 2773: 2870           cs                                                                                       2778:  2870           cs
 2774: 2871           mcw  @constants located from @,223                                                       2779:  2871           mcw  @constants located from @,223
 2775: 2872           unpaknxbtm,wk51                                                                          2780:  2872           unpaknxbtm,wk51
 2776: 2873           s    wk5,wk51                                                                            2781:  2873           s    wk5,wk51
 2777: 2874           mz   @ @,wk51            remove sign                                                     2782:  2874           mz   @ @,wk51            remove sign
 2778: 2875           a    &1,wk51#5                                                                           2783:  2875           a    &1,wk51#5
 2779: 2876           mcw  nxbtm,x3                                                                            2784:  2876           mcw  nxbtm,x3
 2780: 2877           ma   macfls,x3                                                                           2785:  2877           ma   macfls,x3
 2781: 2878           sbr  x3,1&x3                                                                             2786:  2878           sbr  x3,1&x3
 2782: 2879           mcw  conlst,247                                                                          2787:  2879           mcw  conlst,247
 2783: 2880           mcw  @-@                                                                                 2788:  2880           mcw  @-@
 2784: 2881           mcw  x3                                                                                  2789:  2881           mcw  x3
 2785: 2882           mcw  @   @                                                                               2790:  2882           mcw  @   @
 2786: 2883           mcw  cnls5                                                                               2791:  2883           mcw  cnls5
 2787: 2884           mcw  @ to @                                                                              2792:  2884           mcw  @ to @
 2788: 2885           mcw  wk51                                                                                2793:  2885           mcw  wk51
 2789: 2886           cc   j                                                                                   2794:  2886           cc   j
 2790: 2887           w                                                                                        2795:  2887           w
 2791: 2888           cc   j                                                                                   2796:  2888           cc   j
 2792: 2889           forms                                                                                    2797:  2889           forms
 2793: 2890           fendxd,,,xbegin,xbegin,xbegin,sauce-2,subscr                                             2798:  2890           fendxd,,,xbegin,xbegin,xbegin,sauce-2,subscr
 2794: 2891           org  *                                                                                   2799:  2891           org  *
 2795:                ltorg*    WVS: Autocoder shouldn't load incld at org                                     2800:                 ltorg*    WVS: Autocoder shouldn't load incld at org
 2796: 2892           dcw  @}@                           system group mark                                     2801:  2892           dcw  @}@                           system group mark
 2797: 2893           org  tamaxt&x00                                                                          2802:  2893           org  tamaxt&x00
 2798: 2894 sauce     equ  *&1                                                                                 2803:  2894 sauce     equ  *&1
 2799: 2895           xfr  phse3                                                                               2804:  2895           xfr  phse3
 2800: 2896           job  1401 fortran  subscripts phase                         50213                        2805:  2896           job  1401 fortran  subscripts phase                         50213
 2801: 2897           fbegnsubscr,x1,,x2,,x3,r,w                                                               2806:  2897           fbegnsubscr,x1,,x2,,x3,r,w
 2802: 2898           org  xbegin                                                                              2807:  2898           org  xbegin
 2803: 2899 *  squeeze addresses between $ signs together, error check                                         2808:  2899 *  squeeze addresses between $ signs together, error check
 2804: 2900 initl     cs   0&x2                                                                                2809:  2900 initl     cs   0&x2
 2805: 2901           cs                                                                                       2810:  2901           cs
 2806: 2902           sbr  x2,1&x1                                                                             2811:  2902           sbr  x2,1&x1
 2807: 2903           sbr  hex1#3                                                                              2812:  2903           sbr  hex1#3
 2808: 2904 start     bce  out,000&x1,      blank                                                              2813:  2904 start     bce  out,000&x1,      blank
 2809: 2905           mcw  000&x1,code#4                                                                       2814:  2905           mcw  000&x1,code#4
 2810: 2906           b    slide          x2 initially greater than x1                                         2815:  2906           b    slide          x2 initially greater than x1
 2811: 2907           bce  pass,code-3,/                                                                       2816:  2907           bce  pass,code-3,/
 2812: 2908           bce  pass,code-3,f                                                                       2817:  2908           bce  pass,code-3,f
 2813: 2909 find      bce  seek,000&x1,$                                                                       2818:  2909 find      bce  seek,000&x1,$
 2814: 2910           chain5                                                                                   2819:  2910           chain5
 2815: 2911           bwz  fnish,000&x1,1      word mk                                                         2820:  2911           bwz  fnish,000&x1,1      word mk
 2816: 2912           chain5                                                                                   2821:  2912           chain5
 2817: 2913           sbr  x1                                                                                  2822:  2913           sbr  x1
 2818: 2914           b    find                                                                                2823:  2914           b    find
 2819: 2915 seek      bce  found,000&x1,$                                                                      2824:  2915 seek      bce  found,000&x1,$
 2820: 2916           sbr  x1                                                                                  2825:  2916           sbr  x1
 2821: 2917           b    seek                                                                                2826:  2917           b    seek
 2822: 2918 found     sw   000&x1                                                                              2827:  2918 found     sw   000&x1
 2823: 2919           b    send                                                                                2828:  2919           b    send
 2824: 2920           mn   000&x1                                                                              2829:  2920           mn   000&x1
 2825: 2921           sar  x1                                                                                  2830:  2921           sar  x1
 2826: 2922           b    drop4                                                                               2831:  2922           b    drop4
 2827: 2923 squoz     sw   2&x1                                                                                2832:  2923 squoz     sw   2&x1
 2828: 2924           b    send                                                                                2833:  2924           b    send
 2829: 2925           b    drop4                                                                               2834:  2925           b    drop4
 2830: 2926           bwz  cpar,3&x1,s                                                                         2835:  2926           bwz  cpar,3&x1,s
 2831: 2927           bwz  cpar,3&x1,k                                                                         2836:  2927           bwz  cpar,3&x1,k
 2832: 2928           ftmsg12,floating point subscript,code,26                                                 2837:  2928           ftmsg12,floating point subscript,code,26
 2833: 2929 cpar      sw   2&x1                                                                                2838:  2929 cpar      sw   2&x1
 2834: 2930           b    send                                                                                2839:  2930           b    send
 2835: 2931           b    drop4                                                                               2840:  2931           b    drop4
 2836: 2932           c    001&x1,@$@                                                                          2841:  2932           c    001&x1,@$@
 2837: 2933           bu   squoz                                                                               2842:  2933           bu   squoz
 2838: 2934           sw   001&x1                                                                              2843:  2934           sw   001&x1
 2839: 2935           b    send                                                                                2844:  2935           b    send
 2840: 2936           mcw  x1,x3                                                                               2845:  2936           mcw  x1,x3
 2841: 2937           b    find                                                                                2846:  2937           b    find
 2842: 2938 slide     sbr  exsld&3                                                                             2847:  2938 slide     sbr  exsld&3
 2843: 2939           mvdwnx1,x2                                                                               2848:  2939           mvdwnx1,x2
 2844: 2940           mcw  x1,x3                                                                               2849:  2940           mcw  x1,x3
 2845: 2941 exsld     b    000                                                                                 2850:  2941 exsld     b    000
 2846: 2942 drop4     sbr  exdrp&3                                                                             2851:  2942 drop4     sbr  exdrp&3
 2847: 2943           mcw  x1,x3                                                                               2852:  2943           mcw  x1,x3
 2848: 2944           mn   0&x1                                                                                2853:  2944           mn   0&x1
 2849: 2945           chain3                                                                                   2854:  2945           chain3
 2850: 2946           sbr  x1                                                                                  2855:  2946           sbr  x1
 2851: 2947 exdrp     b    000                                                                                 2856:  2947 exdrp     b    000
 2852: 2948 fnish     mcw  x3,x1                                                                               2857:  2948 fnish     mcw  x3,x1
 2853: 2949 pass      b    slide                                                                               2858:  2949 pass      b    slide
 2854: 2950           b    start                                                                               2859:  2950           b    start
 2855: 2951 out       mcw  hex1,x1                                                                             2860:  2951 out       mcw  hex1,x1
 2856: 2952           fendxc,,,,,,sys1,stnum one                                                               2861:  2952           fendxc,,,,,,sys1,stnum one
 2857: 2953 send      sbr  exsnd&3                                                                             2862:  2953 send      sbr  exsnd&3
 2858: 2954           lca  000&x3,000&x2                                                                       2863:  2954           lca  000&x3,000&x2
 2859: 2955           sbr  x2                                                                                  2864:  2955           sbr  x2
 2860: 2956           cw   001&x2                                                                              2865:  2956           cw   001&x2
 2861: 2957 exsnd     b    000                                                                                 2866:  2957 exsnd     b    000
 2862: 2958           ltorg*                                                                                   2867:  2958           ltorg*
 2863: 2959 sys1      dcw  @}@                           system group mark                                     2868:  2959 sys1      dcw  @}@                           system group mark
 2864: 2960           xfr  initl                                                                               2869:  2960           xfr  initl
 2865: 2961           job  1401 Fortran   statement number phase one              50223                        2870:  2961           job  1401 Fortran   statement number phase one              50223
 2866: 2962           fbegnstnum one,x1,,x2,,x3,r,m                                                            2871:  2962           fbegnstnum one,x1,,x2,,x3,r,m
 2867: 2963           org  xbegin                                                                              2872:  2963           org  xbegin
 2868: 2964 nxbtm     equ  083                                                                                 2873:  2964 nxbtm     equ  083
 2869: 2965 initl     cs   0&x2                                                                                2874:  2965 initl     cs   0&x2
 2870: 2966           mcw  nxbtm,x2                                                                            2875:  2966           mcw  nxbtm,x2
 2871: 2967           sw   gm               from the bottom                                                    2876:  2967           sw   gm               from the bottom
 2872: 2968           lca  gm,000&x2                                                                           2877:  2968           lca  gm,000&x2
 2873: 2969           sbr  x2                                                                                  2878:  2969           sbr  x2
 2874: 2970 start     bce  out,000&x1,       blank                                                             2879:  2970 start     bce  out,000&x1,       blank
 2875: 2971           lca  000&x1,work1#10                                                                     2880:  2971           lca  000&x1,work1#10
 2876: 2972           sar  x1                                                                                  2881:  2972           sar  x1
 2877: 2973           cw   001&x1                                                                              2882:  2973           cw   001&x1
 2878: 2974           sw   work1-3                                                                             2883:  2974           sw   work1-3
 2879: 2975           lca  work1,000&x2                                                                        2884:  2975           lca  work1,000&x2
 2880: 2976           sbr  x2                                                                                  2885:  2976           sbr  x2
 2881: 2977           cw   001&x2                                                                              2886:  2977           cw   001&x2
 2882: 2978           bwz  label,work1-4,2        no zone                                                      2887:  2978           bwz  label,work1-4,2        no zone
 2883: 2979 top       lca  gm,000&x2                                                                           2888:  2979 top       lca  gm,000&x2
 2884: 2980           sbr  x2                                                                                  2889:  2980           sbr  x2
 2885: 2981           mcw  work1-3,test&7                                                                      2890:  2981           mcw  work1-3,test&7
 2886: 2982 test      bce  worry,@wt65upldegk@,0                                                               2891:  2982 test      bce  worry,@wt65upldegk@,0
 2887: 2983           chain10                                                                                  2892:  2983           chain10
 2888: 2984           bce  kill,work1-3,/                                                                      2893:  2984           bce  kill,work1-3,/
 2889: 2985 botm      mvdwnx1,x2                                                                               2894:  2985 botm      mvdwnx1,x2
 2890: 2986           b    start                                                                               2895:  2986           b    start
 2891: 2987 kill      c    0&x1                                                                                2896:  2987 kill      c    0&x1
 2892: 2988           sar  x1                                                                                  2897:  2988           sar  x1
 2893: 2989           mcm  4&x2                                                                                2898:  2989           mcm  4&x2
 2894: 2990           mn                                                                                       2899:  2990           mn
 2895: 2991           mn                                                                                       2900:  2991           mn
 2896: 2992           sar  x2                                                                                  2901:  2992           sar  x2
 2897: 2993           b    start                                                                               2902:  2993           b    start
 2898: 2994 label     lca  work1-4,state#6                                                                     2903:  2994 label     lca  work1-4,state#6
 2899: 2995           sbr  x3                                                                                  2904:  2995           sbr  x3
 2900: 2996           sw   002&x3                                                                              2905:  2996           sw   002&x3
 2901: 2997           b    alpha                                                                               2906:  2997           b    alpha
 2902: 2998           b    top                                                                                 2907:  2998           b    top
 2903: 2999 worry     b    ifexp,work1-3,e                                                                     2908:  2999 worry     b    ifexp,work1-3,e
 2904: 3000           bce  do,work1-3,d                                                                        2909:  3000           bce  do,work1-3,d
 2905: 3001           bce  inout,work1-3,5                                                                     2910:  3001           bce  inout,work1-3,5
 2906: 3002           bce  inout,work1-3,6                                                                     2911:  3002           bce  inout,work1-3,6
 2907: 3003           bce  pute,work1-3,t                                                                      2912:  3003           bce  pute,work1-3,t
 2908: 3004           bce  sense,work1-3,w                                                                     2913:  3004           bce  sense,work1-3,w
 2909: 3005           bce  sense,work1-3,k                                                                     2914:  3005           bce  sense,work1-3,k
 2910: 3006           b    grab1                                                                               2915:  3006           b    grab1
 2911: 3007           b    botm                                                                                2916:  3007           b    botm
 2912: 3008 pute      b    grab1                                                                               2917:  3008 pute      b    grab1
 2913: 3009           bce  over,000&x1,)        rt paren                                                       2918:  3009           bce  over,000&x1,)        rt paren
 2914: 3010           bce  syner,0&x1,}                   gm                                                   2919:  3010           bce  syner,0&x1,}                   gm
 2915: 3011           sbr  x1                                                                                  2920:  3011           sbr  x1
 2916: 3012           b    pute                                                                                2921:  3012           b    pute
 2917: 3013 over      mn   000&x1                                                                              2922:  3013 over      mn   000&x1
 2918: 3014           sar  x1                                                                                  2923:  3014           sar  x1
 2919: 3015           b    botm                                                                                2924:  3015           b    botm
 2920: 3016 inout     mcw  x1,load&3                                                                           2925:  3016 inout     mcw  x1,load&3
 2921: 3017 find      bce  tpnam,000&x1,,       comma                                                          2926:  3017 find      bce  tpnam,000&x1,,       comma
 2922: 3018           bce  syner,0&x1,}                   gm                                                   2927:  3018           bce  syner,0&x1,}                   gm
 2923: 3019           sbr  x1                                                                                  2928:  3019           sbr  x1
 2924: 3020           b    find                                                                                2929:  3020           b    find
 2925: 3021 tpnam     sw   001&x1                                                                              2930:  3021 tpnam     sw   001&x1
 2926: 3022           mn                                                                                       2931:  3022           mn
 2927: 3023           sar  x1                                                                                  2932:  3023           sar  x1
 2928: 3024           b    grab1                                                                               2933:  3024           b    grab1
 2929: 3025 load      lca  000,000&x2                                                                          2934:  3025 load      lca  000,000&x2
 2930: 3026           sbr  x2                                                                                  2935:  3026           sbr  x2
 2931: 3027           cw   001&x2                                                                              2936:  3027           cw   001&x2
 2932: 3028           b    botm                                                                                2937:  3028           b    botm
 2933: 3029 sense     mcw  x1,load&3                                                                           2938:  3029 sense     mcw  x1,load&3
 2934: 3030 find2     bce  witch,000&x1,)       rt paren                                                       2939:  3030 find2     bce  witch,000&x1,)       rt paren
 2935: 3031           bce  syner,0&x1,}                   gm                                                   2940:  3031           bce  syner,0&x1,}                   gm
 2936: 3032           sbr  x1                                                                                  2941:  3032           sbr  x1
 2937: 3033           b    find2                                                                               2942:  3033           b    find2
 2938: 3034 witch     sw   001&x1                                                                              2943:  3034 witch     sw   001&x1
 2939: 3035           mn                                                                                       2944:  3035           mn
 2940: 3036           sar  x1                                                                                  2945:  3036           sar  x1
 2941: 3037           b    grab1                                                                               2946:  3037           b    grab1
 2942: 3038           mn   000&x1                                                                              2947:  3038           mn   000&x1
 2943: 3039           sar  x1                                                                                  2948:  3039           sar  x1
 2944: 3040           bce  syner,0&x1,}                   gm                                                   2949:  3040           bce  syner,0&x1,}                   gm
 2945: 3041           b    grab1                                                                               2950:  3041           b    grab1
 2946: 3042 comma     lca  @,@,000&x2                                                                          2951:  3042 comma     lca  @,@,000&x2
 2947: 3043           sbr  x2                                                                                  2952:  3043           sbr  x2
 2948: 3044           cw   001&x2                                                                              2953:  3044           cw   001&x2
 2949: 3045           b    load                                                                                2954:  3045           b    load
 2950: 3046 do        mcw  x1,x3                                                                               2955:  3046 do        mcw  x1,x3
 2951: 3047 varbl     bce  back2,0&x3,#                                                                        2956:  3047 varbl     bce  back2,0&x3,#
 2952: 3048           sbr  x3                                                                                  2957:  3048           sbr  x3
 2953: 3049           b    varbl                                                                               2958:  3049           b    varbl
 2954: 3050 back2     mcw  3&x3,svzn#1                                                                         2959:  3050 back2     mcw  3&x3,svzn#1
 2955: 3051           mcw  @,@,3&x3                                                                            2960:  3051           mcw  @,@,3&x3
 2956: 3052           sbr  hex3#3,3&x3                                                                         2961:  3052           sbr  hex3#3,3&x3
 2957: 3053           b    grab1                                                                               2962:  3053           b    grab1
 2958: 3054           c    hex3,x1                                                                             2963:  3054           c    hex3,x1
 2959: 3055           bu   syner                                                                               2964:  3055           bu   syner
 2960: 3056           mcw  svzn,0&x1                                                                           2965:  3056           mcw  svzn,0&x1
 2961: 3057           lca  @,@,000&x2                                                                          2966:  3057           lca  @,@,000&x2
 2962: 3058           sbr  x2                                                                                  2967:  3058           sbr  x2
 2963: 3059           cw   001&x2                                                                              2968:  3059           cw   001&x2
 2964: 3060           b    botm                                                                                2969:  3060           b    botm
 2965: 3061 ifexp     mcw  x1,load&3                                                                           2970:  3061 ifexp     mcw  x1,load&3
 2966: 3062 rtpar     bce  nozo,000&x1,)                                                                       2971:  3062 rtpar     bce  nozo,000&x1,)
 2967: 3063           bce  syner,0&x1,}                   gm                                                   2972:  3063           bce  syner,0&x1,}                   gm
 2968: 3064           sbr  x1                                                                                  2973:  3064           sbr  x1
 2969: 3065           b    rtpar                                                                               2974:  3065           b    rtpar
 2970: 3066 nozo      mn   000&x1                                                                              2975:  3066 nozo      mn   000&x1
 2971: 3067           sar  x1                                                                                  2976:  3067           sar  x1
 2972: 3068           bwz  yeah,000&x1,2        no zone                                                        2977:  3068           bwz  yeah,000&x1,2        no zone
 2973: 3069           b    rtpar                                                                               2978:  3069           b    rtpar
 2974: 3070 yeah      bce  rtpar,0&x1,@                                                                        2979:  3070 yeah      bce  rtpar,0&x1,@
 2975: 3071           sw   1&x1                                                                                2980:  3071           sw   1&x1
 2976: 3072           b    grab1                                                                               2981:  3072           b    grab1
 2977: 3073           mn   000&x1                                                                              2982:  3073           mn   000&x1
 2978: 3074           sar  x1                                                                                  2983:  3074           sar  x1
 2979: 3075           bce  syner,0&x1,}                   gm                                                 | 2984:  30754          bce  badst,0&x1,}                   gm               v3m4
 2980: 3076           b    grab1                                                                             | 2985:  30764          mn   0&x1                                            v3m4
 2981: 3077           mn   000&x1                                                                            | 2986:  30774          sar  x1                                              v3m4
 2982: 3078           sar  x1                                                                                | 2987:  30784          b    grab1                                           v3m4
 2983: 3079           bce  syner,0&x1,}                   gm                                                 | 2988:  30794          bce  badst,0&x1,}                   gm               v3m4
 2984: 3080           b    grab1                                                                               2989:  3080           b    grab1
 2985: 3081           b    comma                                                                               2990:  3081           b    comma
 2986: 3082 grab1     sbr  exit2&3                                                                             2991:  3082 grab1     sbr  exit2&3
 2987: 3083           mcw  x1,take&3                                                                           2992:  3083           mcw  x1,take&3
 2988: 3084           bwz  loop,000&x1,2        no zone                                                        2993:  3084           bwz  loop,000&x1,2        no zone
 2989: 3085           b    badst                                                                               2994:  3085           b    badst
 2990: 3086 loop      mn   000&x1                                                                              2995:  3086 loop      mn   000&x1
 2991: 3087           sar  x1                                                                                  2996:  3087           sar  x1
 2992: 3088           bwz  loop,000&x1,2         no zone                                                       2997:  3088           bwz  loop,000&x1,2         no zone
 2993: 3089           fbceqsetwm,0&x1,,,},)                 comma,gm                                           2998:  3089           fbceqsetwm,0&x1,,,},)                 comma,gm
 2994: 3090           b    badst                                                                               2999:  3090           b    badst
 2995: 3091 setwm     sw   1&x1                                                                                3000:  3091 setwm     sw   1&x1
                                                                                                             > 3001:  30911          sw   mktst&1                                         v3m4
                                                                                                             > 3002:  30912          mlc  take&3,mktst&3                                  v3m4
                                                                                                             > 3003:  30913          cw   mktst&1                                         v3m4
                                                                                                             > 3004:  30914mktst     mlc  0,test                                          v3m4
                                                                                                             > 3005:  30915          b    take,test5-5,:       5-8                        v3m4
                                                                                                             > 3006:  30916          mlc  @:@,test5-5          5-8                        v3m4
                                                                                                             > 3007:  30917          b    badst                                           v3m4
                                                                                                             > 3008:  30918test5     dcw  @:     @             5-8, blank....             v3m4
 2996: 3092 take      lca  000,state                                                                           3009:  3092 take      lca  000,state
 2997: 3093           cw   001&x1                                                                              3010:  3093           cw   001&x1
 2998: 3094           b    alpha                                                                               3011:  3094           b    alpha
 2999: 3095 exit2     b    000                                                                                 3012:  3095 exit2     b    000
 3000: 3096 alpha     sbr  exit1&3                                                                             3013:  3096 alpha     sbr  exit1&3
 3001: 3097           lca  six0,place                                                                          3014:  3097           lca  six0,place
 3002: 3098           c    six0,state                                                                          3015:  3098           c    six0,state
 3003: 3099           bu   norm                                                                                3016:  3099           bu   norm
 3004: 3100           b    set3                                                                                3017:  3100           b    set3
 3005: 3101 norm      sbr  x3,state&1                                                                          3018:  3101 norm      sbr  x3,state&1
 3006: 3102 zero      mn   000&x3                                                                              3019:  3102 zero      mn   000&x3
 3007: 3103           sar  x3                                                                                  3020:  3103           sar  x3
 3008: 3104           bce  zero,000&x3,0                                                                       3021:  3104           bce  zero,000&x3,0
 3009: 3105           mcw  000&x3,place                                                                        3022:  3105           mcw  000&x3,place
 3010: 3106           mcw  @1@                                                                                 3023:  3106           mcw  @1@
 3011: 3107 set3      sw   place-1                                                                             3024:  3107 set3      sw   place-1
 3012: 3108           cw                                                                                       3025:  3108           cw
 3013: 3109           sw                                                                                       3026:  3109           sw
 3014: 3110           cw                                                                                       3027:  3110           cw
 3015: 3111           sw                                                                                       3028:  3111           sw
 3016: 3112           s    @5050@,place                                                                        3029:  3112           s    @5050@,place
 3017: 3113           s                                                                                        3030:  3113           s
 3018: 3114           bwz  try2,place,k        b-bit                                                           3031:  3114           bwz  try2,place,k        b-bit
 3019: 3115           a    @1@,place-5                                                                         3032:  3115           a    @1@,place-5
 3020: 3116 try2      bwz  strip,place-2,k     b-bit                                                           3033:  3116 try2      bwz  strip,place-2,k     b-bit
 3021: 3117           a    @2@,place-5                                                                         3034:  3117           a    @2@,place-5
 3022: 3118 strip     mz   @z z z @,place      set up for gener                                                3035:  3118 strip     mz   @z z z @,place      set up for gener
 3023: 3119           chain5                                                                                   3036:  3119           chain5
 3024: 3120           mcw  x1,hex1                                                                             3037:  3120           mcw  x1,hex1
 3025: 3121           mcw  &table-49,x1                                                                        3038:  3121           mcw  &table-49,x1
 3026: 3122           mcw  &place,x3                                                                           3039:  3122           mcw  &place,x3
 3027: 3123 cool      mcw  000&x3,gener&3                                                                      3040:  3123 cool      mcw  000&x3,gener&3
 3028: 3124           sar  x3                                                                                  3041:  3124           sar  x3
 3029: 3125 gener     mcw  000,box    modified and indexed by x1                                               3042:  3125 gener     mcw  000,box    modified and indexed by x1
 3030: 3126           lca  box,000&x2                                                                          3043:  3126           lca  box,000&x2
 3031: 3127           sbr  x2                                                                                  3044:  3127           sbr  x2
 3032: 3128           cw   001&x2                                                                              3045:  3128           cw   001&x2
 3033: 3129           bwz  cool,000&x3,2  no zone                                                              3046:  3129           bwz  cool,000&x3,2  no zone
 3034: 3130           mcw  hex1,x1                                                                             3047:  3130           mcw  hex1,x1
 3035: 3131 exit1     b    000                                                                                 3048:  3131 exit1     b    000
 3036: 3132 syner     ftmsg13,statement number syntax,work1,25                                                 3049:  3132 syner     ftmsg13,statement number syntax,work1,25
 3037: 3133           bw   pmov,badsw                                                                          3050:  3133           bw   pmov,badsw
 3038: 3134           b    err                                                                                 3051:  3134           b    err
 3039: 3135 badst     sw   badsw                                                                               3052:  3135 badst     sw   badsw
 3040: 3136           b    syner                                                                               3053:  3136           b    syner
 3041: 3137 pmov      mcm  1&x2                                                                                3054:  3137 pmov      mcm  1&x2
 3042: 3138           mn                                                                                       3055:  3138           mn
 3043: 3139           sar  x2                                                                                  3056:  3139           sar  x2
 3044: 3140           bce  pmov,0&x2,|                                                                         3057:  3140           bce  pmov,0&x2,|
 3045: 3141           cw   badsw                                                                               3058:  3141           cw   badsw
 3046: 3142 err       mcm  4&x2                                                                                3059:  3142 err       mcm  4&x2
 3047: 3143           mn                                                                                       3060:  3143           mn
 3048: 3144           mn                                                                                       3061:  3144           mn
 3049: 3145           sar  x2                                                                                  3062:  3145           sar  x2
 3050: 3146           c    0&x1                                                                                3063:  3146           c    0&x1
 3051: 3147           sar  x1                                                                                  3064:  3147           sar  x1
 3052: 3148           b    start                                                                               3065:  3148           b    start
 3053: 3149 out       fendxc,,,,tamrof,,tamr1t,tamrof one                                                      3066:  3149 out       fendxc,,,,tamrof,,tamr1t,tamrof one
 3054: 3150           dcw  @ @                                                                                 3067:  3150           dcw  @ @
 3055: 3151 gm        dc   @}@                           g-m                                                   3068:  3151 gm        dc   @}@                           g-m
 3056: 3152           dc   @.@                                                                                 3069:  3152           dc   @.@
 3057: 3153 place     dcw  @      @                                                                            3070:  3153 place     dcw  @      @
 3058: 3154 box       dcw  @ @                                                                                 3071:  3154 box       dcw  @ @
 3059: 3155 hex1      dcw  @   @                                                                               3072:  3155 hex1      dcw  @   @
 3060: 3156 badsw     dc   #1                                                                                  3073:  3156 badsw     dc   #1
 3061: 3157 table     dc   @.")&$*-%#@?abcdefghi!jklmnopqr_/stuvwxyz0123456789@                                3074:  3157 table     dc   @.")&$*-%#@?abcdefghi!jklmnopqr_/stuvwxyz0123456789@
 3062: 3158           dc   @.@                                                                                 3075:  3158           dc   @.@
 3063: 3159 six0      dcw  @000000@                                                                            3076:  3159 six0      dcw  @000000@
 3064: 3160 *              & is 12-0 punch, - 11-0 punch   .,0-7-8  r,11-7-8                                   3077:  3160 *              & is 12-0 punch, - 11-0 punch   .,0-7-8  r,11-7-8
 3065: 3161 *              no comma, record mark, or group mark in table                                       3078:  3161 *              no comma, record mark, or group mark in table
 3066: 3162           ltorg*                                                                                   3079:  3162           ltorg*
 3067: 3163           dcw  @}@                           system group mark                                     3080:  3163           dcw  @}@                           system group mark
 3068: 3164           xfr  initl                                                                               3081:  3164           xfr  initl
 3069: 3165           job  1401 Fortran   tamrof phase one  format specs          50233                        3082:  3165           job  1401 Fortran   tamrof phase one  format specs          50233
 3070: 3166           fbegntamrof one,x1,r,x2,,x3,r,t,xxx                                                      3083:  3166           fbegntamrof one,x1,r,x2,,x3,r,t,xxx
 3071: 3167 *                                                                                                  3084:  3167 *
 3072: 3168 nxbtm     equ  83                                                                                  3085:  3168 nxbtm     equ  83
 3073: 3169 *                                                                                                  3086:  3169 *
 3074: 3170           org  xbegin                                                                              3087:  3170           org  xbegin
 3075: 3171 klobr     fquit                                                                                    3088:  3171 klobr     fquit
 3076: 3172 ckbit     dcw  @;@   11-6-8                                                                        3089:  3172 ckbit     dcw  @;@   11-6-8
 3077: 3173 hex3      dcw  #3                                                                                  3090:  3173 hex3      dcw  #3
 3078: 3174 code      dcw  #4                                                                                  3091:  3174 code      dcw  #4
 3079: 3175 *                                          error message routine                                   3092:  3175 *                                          error message routine
 3080: 3176 *                                                                                                  3093:  3176 *
 3081: 3177 error     equ  206                                                                                 3094:  3177 error     equ  206
 3082: 3178 prntn     equ  250                                                                                 3095:  3178 prntn     equ  250
 3083: 3179 *                                                                                                  3096:  3179 *
 3084: 3180 getst     sbr  gstxt&3                                                                             3097:  3180 getst     sbr  gstxt&3
 3085: 3181           forms                                                                                    3098:  3181           forms
 3086: 3182           cs   332                                                                                 3099:  3182           cs   332
 3087: 3183           cs                                                                                       3100:  3183           cs
 3088: 3184           sw   failsw                                                                              3101:  3184           sw   failsw
 3089: 3185           mn   code,prntn                                                                          3102:  3185           mn   code,prntn
 3090: 3186           chain2                                                                                   3103:  3186           chain2
 3091: 3187           mcw  @statement  @                                                                       3104:  3187           mcw  @statement  @
 3092: 3188           mcw  @error@, error-1                                                                    3105:  3188           mcw  @error@, error-1
 3093: 3189 gstxt     b    xxx                                                                                 3106:  3189 gstxt     b    xxx
 3094: 3190 *                                                                                                  3107:  3190 *
 3095: 3191           ltorg*                                                                                   3108:  3191           ltorg*
 3096: 3192 *                                                                                                  3109:  3192 *
 3097: 3193 tamrof    cs   1&x2                                                                                3110:  3193 tamrof    cs   1&x2
 3098: 3194           sbr  x1                                                                                  3111:  3194           sbr  x1
 3099: 3195           sw   gm1                                                                                 3112:  3195           sw   gm1
 3100: 3196 clr       cs   0&x1                                                                                3113:  3196 clr       cs   0&x1
 3101: 3197           sbr  x1                                                                                  3114:  3197           sbr  x1
 3102: 3198           c    x1, &tamr1                                                                          3115:  3198           c    x1, &tamr1
 3103: 3199           bu   clr                                                                                 3116:  3199           bu   clr
 3104: 3200           lca  gm1, tamax&1                                                                        3117:  3200           lca  gm1, tamax&1
 3105: 3201           sbr  x1, tamax&2                                                                         3118:  3201           sbr  x1, tamax&2
 3106: 3202           sbr  x2, 2&x2                                                                            3119:  3202           sbr  x2, 2&x2
 3107: 3203           mcw  @.@, 96                                                                             3120:  3203           mcw  @.@, 96
 3108: 3204           sw   iosw#1                                                                              3121:  3204           sw   iosw#1
 3109: 3205 chknd     mcw  nxbtm, x3                                                                           3122:  3205 chknd     mcw  nxbtm, x3
 3110: 3206           sbr  x3, 1&x3                                                                            3123:  3206           sbr  x3, 1&x3
 3111: 3207           c    x3,x2                                                                               3124:  3207           c    x3,x2
 3112: 3208           be   fini                                                                                3125:  3208           be   fini
 3113: 3209           cw   dblsw#1                                                                             3126:  3209           cw   dblsw#1
 3114: 3210           mn   0&x2                                                                                3127:  3210           mn   0&x2
 3115: 3211           sar  x3                                                                                  3128:  3211           sar  x3
 3116: 3212           mcw  ckbit                                                                               3129:  3212           mcw  ckbit
 3117: 3213 mvup2     movupx2,x1,,,|                                                                           3130:  3213 mvup2     movupx2,x1,,,|
 3118: 3214           bw   both,dblsw                                                                          3131:  3214           bw   both,dblsw
 3119: 3215           sw   dblsw                                                                               3132:  3215           sw   dblsw
 3120: 3216           b    mvup2                                                                               3133:  3216           b    mvup2
 3121: 3217 both      mn   0&x1                                                                                3134:  3217 both      mn   0&x1
 3122: 3218           mn                                                                                       3135:  3218           mn
 3123: 3219           sar  x3                                                                                  3136:  3219           sar  x3
 3124: 3220           sbr  mkfmt&6                                                                             3137:  3220           sbr  mkfmt&6
 3125: 3221           mcw  0&x3, code                                                                          3138:  3221           mcw  0&x3, code
 3126: 3222           sar  x3                                                                                  3139:  3222           sar  x3
 3127: 3223           b    ckfmt, code-3, f                                                                    3140:  3223           b    ckfmt, code-3, f
 3128: 3224           mcw  code-3, *&8                                                                         3141:  3224           mcw  code-3, *&8
 3129: 3225           bce  yesio, @56ulp@, x                                                                   3142:  3225           bce  yesio, @56ulp@, x
 3130: 3226           chain4                                                                                   3143:  3226           chain4
 3131: 3227           b    chknd                                                                               3144:  3227           b    chknd
 3132: 3228 fini      mn   0&x1                                                                                3145:  3228 fini      mn   0&x1
 3133: 3229           mn                                                                                       3146:  3229           mn
 3134: 3230           sar  x1                                                                                  3147:  3230           sar  x1
 3135: 3231           mcw  lstio, x2                                                                           3148:  3231           mcw  lstio, x2
 3136: 3232           mcw  nxbtm, x3                                                                           3149:  3232           mcw  nxbtm, x3
 3137: 3233           mcw  @ @, 0&x3                                                                           3150:  3233           mcw  @ @, 0&x3
 3138: 3234           mcw  0&x3                                                                                3151:  3234           mcw  0&x3
 3139: 3235           mcw  ckbit, 0&x3                                                                         3152:  3235           mcw  ckbit, 0&x3
 3140: 3236           fendxc,gm1,,tamrof,,tamrof,tamax,tamrof 2                                                3153:  3236           fendxc,gm1,,tamrof,,tamrof,tamax,tamrof 2
 3141: 3237 *                                                                                                  3154:  3237 *
 3142: 3238 yesio     mz   @a@, 3&x3                                                                           3155:  3238 yesio     mz   @a@, 3&x3
 3143: 3239           cw   iosw                                                                                3156:  3239           cw   iosw
 3144: 3240           mn   0&x1                                                                                3157:  3240           mn   0&x1
 3145: 3241           mn                                                                                       3158:  3241           mn
 3146: 3242           sar  lstio#3                                                                             3159:  3242           sar  lstio#3
 3147: 3243           b    chknd                                                                               3160:  3243           b    chknd
 3148: 3244 *                                                                                                  3161:  3244 *
 3149: 3245 ckfmt     mcw  @ @, 96                                                                             3162:  3245 ckfmt     mcw  @ @, 96
 3150: 3246           bw   unref, iosw                                                                         3163:  3246           bw   unref, iosw
 3151: 3247           bce  unref, 0&x3,}       gmwm                                                            3164:  3247           bce  unref, 0&x3,}       gmwm
 3152: 3248           mcw  0&x3, fbox#3                                                                        3165:  3248           mcw  0&x3, fbox#3
 3153: 3249           mcw  lstio, x3                                                                           3166:  3249           mcw  lstio, x3
 3154: 3250 ruio      bwz  iotyp, 0&x3, b                                                                      3167:  3250 ruio      bwz  iotyp, 0&x3, b
 3155: 3251           bwz                                                                                      3168:  3251           bwz
 3156: 3252 unref     ftmsg14,unreferenced format,code,21,nofail                                               3169:  3252 unref     ftmsg14,unreferenced format,code,21,nofail
 3157: 3253 mkfmt     mz   @a@, xxx                                                                            3170:  3253 mkfmt     mz   @a@, xxx
 3158: 3254           b    chknd                                                                               3171:  3254           b    chknd
 3159: 3255 iotyp     c    0&x3                                                                                3172:  3255 iotyp     c    0&x3
 3160: 3256           sar  x3                                                                                  3173:  3256           sar  x3
 3161: 3257           c    0&x3, fbox                                                                          3174:  3257           c    0&x3, fbox
 3162: 3258           be   chknd                                                                               3175:  3258           be   chknd
 3163: 3259           c    0&x3                                                                                3176:  3259           c    0&x3
 3164: 3260           sar  x3                                                                                  3177:  3260           sar  x3
 3165: 3261           b    ruio                                                                                3178:  3261           b    ruio
 3166: 3262 *                                                                                                  3179:  3262 *
 3167: 3263           ltorg*                                                                                   3180:  3263           ltorg*
 3168: 3264 gm1       dcw  @}@                            system and work gm                                   3181:  3264 gm1       dcw  @}@                            system and work gm
 3169: 3265           org  *&x00                                                                               3182:  3265           org  *&x00
 3170: 3266 tamr1     equ  *                                                                                   3183:  3266 tamr1     equ  *
 3171: 3267           xfr  tamrof                                                                              3184:  3267           xfr  tamrof
 3172: 3268           job  1401 Fortran   tamrof two                              50243                        3185:  3268           job  1401 Fortran   tamrof two                              50243
 3173: 3269 110       dcw  @tamrof 2@                                                                          3186:  3269 110       dcw  @tamrof 2@
 3174: 3270 *                                                                                                  3187:  3270 *
 3175: 3271 xl2       equ  x2                                                                                  3188:  3271 xl2       equ  x2
 3176: 3272 xl3       equ  x3                                                                                  3189:  3272 xl3       equ  x3
 3177: 3273           org  tamrof                                                                              3190:  3273           org  tamrof
 3178: 3274 *                                                                                                  3191:  3274 *
 3179: 3275 phse2     bce  end2, 96, .                                                                         3192:  3275 phse2     bce  end2, 96, .
 3180: 3276           mcw  x2, iobgn&6                                                                         3193:  3276           mcw  x2, iobgn&6
 3181: 3277 retrn     sbr  x2, 2&x1                                                                            3194:  3277 retrn     sbr  x2, 2&x1
 3182: 3278           lca  @ @                                                                                 3195:  3278           lca  @ @
 3183: 3279           mcw  0&x1, code                                                                          3196:  3279           mcw  0&x1, code
 3184: 3280           bce  mor, code-3, f                                                                      3197:  3280           bce  mor, code-3, f
 3185: 3281 end2      fendxc,gm2,,xbegin,phse1x,xbegin,sys2,listr1                                             3198:  3281 end2      fendxc,gm2,,xbegin,phse1x,xbegin,sys2,listr1
 3186: 3282 mor       c    0&x1                                                                                3199:  3282 mor       c    0&x1
 3187: 3283           sar  x1                                                                                  3200:  3283           sar  x1
 3188: 3284           sbr  compl&6                                                                             3201:  3284           sbr  compl&6
 3189: 3285           mcw  4&x1, fmtno#3                                                                       3202:  3285           mcw  4&x1, fmtno#3
 3190: 3286           sw   sw1#1                                                                               3203:  3286           sw   sw1#1
 3191: 3287           cw   parsw#1                                                                             3204:  3287           cw   parsw#1
 3192: 3288           za   &1, nctr                                                                            3205:  3288           za   &1, nctr
 3193: 3289           bce  ersig, 0&x1, )     q. first char right paren                                        3206:  3289           bce  ersig, 0&x1, )     q. first char right paren
 3194: 3290           mcw  x2,scnbx#3                                                                          3207:  3290           mcw  x2,scnbx#3
 3195: 3291           b    bgin                                                                                3208:  3291           b    bgin
 3196: 3292 *                                                                                                  3209:  3292 *
 3197: 3293 compl     sbr  x1, xxx                                                                             3210:  3293 compl     sbr  x1, xxx
 3198: 3294 setn      za   &1, nctr#3                                                                          3211:  3294 setn      za   &1, nctr#3
 3199: 3295 comrt     bce  rtpar,0&x1, )                                                                       3212:  3295 comrt     bce  rtpar,0&x1, )
 3200: 3296           sbr  compl&6                                                                             3213:  3296           sbr  compl&6
 3201: 3297           bce  lfpar, 0&x1,%                                                                       3214:  3297           bce  lfpar, 0&x1,%
 3202: 3298           fbceqarit, 0&x1,i,f,e                                                                    3215:  3298           fbceqarit, 0&x1,i,f,e
 3203: 3299           bce  arit,0&x1,a                                                                         3216:  3299           bce  arit,0&x1,a
 3204: 3300           fbceqpget, 0&x1, &,-                                                                     3217:  3300           fbceqpget, 0&x1, &,-
 3205: 3301           bce  slash,0&x1,@                                                                        3218:  3301           bce  slash,0&x1,@
 3206: 3302           c    0&x1, @z@                                                                           3219:  3302           c    0&x1, @z@
 3207: 3303           bl   mv2n                                                                                3220:  3303           bl   mv2n
 3208: 3304           bl   putn                                                                                3221:  3304           bl   putn
 3209: 3305           bw   ersig, sw1                                                                          3222:  3305           bw   ersig, sw1
 3210: 3306           bce  hnot, 0&x1, h                                                                       3223:  3306           bce  hnot, 0&x1, h
 3211: 3307           sbr  x1                                                                                  3224:  3307           sbr  x1
 3212: 3308           bce  xnot, 1&x1, x                                                                       3225:  3308           bce  xnot, 1&x1, x
 3213: 3309           bce  pnot, 1&x1, p                                                                       3226:  3309           bce  pnot, 1&x1, p
 3214: 3310 *                                                                                                  3227:  3310 *
 3215: 3311 ersig     b    getst                                                                               3228:  3311 ersig     b    getst
 3216: 3312           mcw  @15 - format syntax@,error&17                                                       3229:  3312           mcw  @15 - format syntax@,error&17
 3217: 3313 errwt     w                                                                                        3230:  3313 errwt     w
 3218: 3314           mz   @a@,code                                                                            3231:  3314           mz   @a@,code
 3219: 3315           b    finis                                                                               3232:  3315           b    finis
 3220: 3316 *                                                                                                  3233:  3316 *
 3221: 3317 xnot      sw   8&x2                                                                                3234:  3317 xnot      sw   8&x2
 3222: 3318           sbr  x2                                                                                  3235:  3318           sbr  x2
 3223: 3319           lca  kx                                                                                  3236:  3319           lca  kx
 3224: 3320           mn   nctr, 0&x2                                                                          3237:  3320           mn   nctr, 0&x2
 3225: 3321           mn                                                                                       3238:  3321           mn
 3226: 3322           mn                                                                                       3239:  3322           mn
 3227: 3323           b    mknd                                                                                3240:  3323           b    mknd
 3228: 3324 *                                                                                                  3241:  3324 *
 3229: 3325 hnot      sw   5&x2                                                                                3242:  3325 hnot      sw   5&x2
 3230: 3326           cw                                                                                       3243:  3326           cw
 3231: 3327           sbr  x2                                                                                  3244:  3327           sbr  x2
 3232: 3328           lca  kh, 1&x2                                                                            3245:  3328           lca  kh, 1&x2
 3233: 3329           s    &1, nctr                                                                            3246:  3329           s    &1, nctr
 3234: 3330           bm   ersig, nctr                                                                         3247:  3330           bm   ersig, nctr
 3235: 3331           mn   0&x1                                                                                3248:  3331           mn   0&x1
 3236: 3332           sar  x1                                                                                  3249:  3332           sar  x1
 3237: 3333 flip      mn   0&x1, 2&x2                                                                          3250:  3333 flip      mn   0&x1, 2&x2
 3238: 3334           sbr  x2                                                                                  3251:  3334           sbr  x2
 3239: 3335           mz   0&x1, 1&x2                                                                          3252:  3335           mz   0&x1, 1&x2
 3240: 3336           sar  x1                                                                                  3253:  3336           sar  x1
 3241: 3337           sbr  compl&6                                                                             3254:  3337           sbr  compl&6
 3242: 3338           cw   2&x2                                                                                3255:  3338           cw   2&x2
 3243: 3339           s    &1, nctr                                                                            3256:  3339           s    &1, nctr
 3244: 3340           bce  hlerr,0&x1,}          gm                                                            3257:  3340           bce  hlerr,0&x1,}          gm
 3245: 3341           bwz  flip, nctr, b                                                                       3258:  3341           bwz  flip, nctr, b
 3246: 3342 bx2b2     sbr  x2,1&x2                                                                             3259:  3342 bx2b2     sbr  x2,1&x2
 3247: 3343           b    mknd                                                                                3260:  3343           b    mknd
 3248: 3344 hlerr     b    getst                                                                               3261:  3344 hlerr     b    getst
 3249: 3345           mcw  @45 - hollerith count@,error &25                                                    3262:  3345           mcw  @45 - hollerith count@,error &25
 3250: 3346           w    bx2b2                                                                               3263:  3346           w    bx2b2
 3251: 3347 *                                                                                                  3264:  3347 *
 3252: 3348 pget      mz   0&x1, nctr                                                                          3265:  3348 pget      mz   0&x1, nctr
 3253: 3349           sar  x1                                                                                  3266:  3349           sar  x1
 3254: 3350           b    mv2n                                                                                3267:  3350           b    mv2n
 3255: 3351           c    x3,@020@                                                                            3268:  3351           c    x3,@020@
 3256: 3352           bl   ersig                                                                               3269:  3352           bl   ersig
 3257: 3353           mn   x3, nctr                                                                            3270:  3353           mn   x3, nctr
 3258: 3354           mn                                                                                       3271:  3354           mn
 3259: 3355           c    0&x1, @p@                                                                           3272:  3355           c    0&x1, @p@
 3260: 3356           sar  compl&6                                                                             3273:  3356           sar  compl&6
 3261: 3357           sbr  x1                                                                                  3274:  3357           sbr  x1
 3262: 3358           bu   ersig                                                                               3275:  3358           bu   ersig
 3263: 3359 *                                                                                                  3276:  3359 *
 3264: 3360 pnot      sbr  x2, 7&x2                                                                            3277:  3360 pnot      sbr  x2, 7&x2
 3265: 3361           lca  nctr                                                                                3278:  3361           lca  nctr
 3266: 3362           lca  kp                                                                                  3279:  3362           lca  kp
 3267: 3363           b    mknd                                                                                3280:  3363           b    mknd
 3268: 3364 *                                                                                                  3281:  3364 *
 3269: 3365 lfpar     bw   parer, parsw                                                                        3282:  3365 lfpar     bw   parer, parsw
 3270: 3366           sw   parsw                                                                               3283:  3366           sw   parsw
 3271: 3367 bgin      sw   8&x2                                                                                3284:  3367 bgin      sw   8&x2
 3272: 3368           sbr  x2                                                                                  3285:  3368           sbr  x2
 3273: 3369           cw   urfsw                                                                               3286:  3369           cw   urfsw
 3274: 3370           lca  nctr,0&x2                                                                           3287:  3370           lca  nctr,0&x2
 3275: 3371           lca  kleft                                                                               3288:  3371           lca  kleft
 3276: 3372 set1      sw   sw1                                                                                 3289:  3372 set1      sw   sw1
 3277: 3373           b    compl                                                                               3290:  3373           b    compl
 3278: 3374 *                                                                                                  3291:  3374 *
 3279: 3375 rtpar     mn   0&x1                                                                                3292:  3375 rtpar     mn   0&x1
 3280: 3376           sar  compl&6                                                                             3293:  3376           sar  compl&6
 3281: 3377           sbr  *&7                                                                                 3294:  3377           sbr  *&7
 3282: 3378           bce  eostm, xxx, }     gmwm                                                              3295:  3378           bce  eostm, xxx, }     gmwm
 3283: 3379           bw   parok, parsw                                                                        3296:  3379           bw   parok, parsw
 3284: 3380 parer     b    getst                                                                               3297:  3380 parer     b    getst
 3285: 3381           mcw  @16 - parenthesis error@,error&22                                                   3298:  3381           mcw  @16 - parenthesis error@,error&22
 3286: 3382           b    errwt                                                                               3299:  3382           b    errwt
 3287: 3383 *                                                                                                  3300:  3383 *
 3288: 3384 parok     cw   parsw                                                                               3301:  3384 parok     cw   parsw
 3289: 3385           sw   5&x2                                                                                3302:  3385           sw   5&x2
 3290: 3386           sbr  x2                                                                                  3303:  3386           sbr  x2
 3291: 3387           lca  krite                                                                               3304:  3387           lca  krite
 3292: 3388           mn   0&x1                                                                                3305:  3388           mn   0&x1
 3293: 3389           sar  x1                                                                                  3306:  3389           sar  x1
 3294: 3390           b    mknd                                                                                3307:  3390           b    mknd
 3295: 3391 *                                                                                                  3308:  3391 *
 3296: 3392 eostm     cw   5&x2                                                                                3309:  3392 eostm     cw   5&x2
 3297: 3393           sbr  x2                                                                                  3310:  3393           sbr  x2
 3298: 3394           lca  keoj                                                                                3311:  3394           lca  keoj
 3299: 3395           bw   parer, parsw                                                                        3312:  3395           bw   parer, parsw
 3300: 3396           b    finis                                                                               3313:  3396           b    finis
 3301: 3397 *                                                                                                  3314:  3397 *
 3302: 3398 slash     bw   *&5,sw1                                                                             3315:  3398 slash     bw   *&5,sw1
 3303: 3399           b    ersig                                                                               3316:  3399           b    ersig
 3304: 3400           sw   5&x2                                                                                3317:  3400           sw   5&x2
 3305: 3401           sbr  x2                                                                                  3318:  3401           sbr  x2
 3306: 3402           lca  kline                                                                               3319:  3402           lca  kline
 3307: 3403           b    compl                                                                               3320:  3403           b    compl
 3308: 3404 *                                                                                                  3321:  3404 *
 3309: 3405 arit      sw   5&x2                                                                                3322:  3405 arit      sw   5&x2
 3310: 3406           lca  karit                                                                               3323:  3406           lca  karit
 3311: 3407 mvrpt     lca  nctr,8&x2                                                                           3324:  3407 mvrpt     lca  nctr,8&x2
 3312: 3408           mcw  0&x1                                                                                3325:  3408           mcw  0&x1
 3313: 3409           sar  x1                                                                                  3326:  3409           sar  x1
 3314: 3410           b    mv2n                                                                                3327:  3410           b    mv2n
 3315: 3411           za   xl3, wctr#3                                                                         3328:  3411           za   xl3, wctr#3
 3316: 3412           sw   iexit&4                                                                             3329:  3412           sw   iexit&4
 3317: 3413           bce  clri, 5&x2, f                                                                       3330:  3413           bce  clri, 5&x2, f
 3318: 3314           fbceqnosub, 5&x2, i, a                                                                   3331:  3314           fbceqnosub, 5&x2, i, a
 3319: 3315           s    &4, wctr                                                                            3332:  3315           s    &4, wctr
 3320: 3316 clri      cw   iexit&4                                                                             3333:  3316 clri      cw   iexit&4
 3321: 3417           c    0&x1, @.@                                                                           3334:  3417           c    0&x1, @.@
 3322: 3418           sar  x1                                                                                  3335:  3418           sar  x1
 3323: 3419           bu   ersig                                                                               3336:  3419           bu   ersig
 3324: 3420           b    mv2n                                                                                3337:  3420           b    mv2n
 3325: 3421           s    xl3, wctr                                                                           3338:  3421           s    xl3, wctr
 3326: 3422           bm   einpt,wctr                                                                        | 3339:  34224          bm   teste,wctr                                      v3m4
 3327: 3423 nosub     bce  *&8, 5&x2, f                                                                        3340:  3423 nosub     bce  *&8, 5&x2, f
 3328: 3424           a    &4, x3                                                                              3341:  3424           a    &4, x3
 3329: 3425 here      sbr  x2,11&x2                                                                            3342:  3425 here      sbr  x2,11&x2
 3330: 3426           mz   *-4,wctr                                                                            3343:  3426           mz   *-4,wctr
 3331: 3427           lca  wctr,0&x2                                                                           3344:  3427           lca  wctr,0&x2
 3332: 3428 iexit     bce  ckzro, *-7, c                                                                       3345:  3428 iexit     bce  ckzro, *-7, c
 3333: 3429           sbr  xl2, 3&x2                                                                           3346:  3429           sbr  xl2, 3&x2
 3334: 3430           lca  xl3                                                                                 3347:  3430           lca  xl3
 3335: 3431 ckzro     bm   ersig,wctr                                                                          3348:  3431 ckzro     bm   ersig,wctr
 3336: 3432 mknd      sw   sw1                                                                                 3349:  3432 mknd      sw   sw1
 3337: 3433 lk4cm     c    0&x1,@,@                                                                            3350:  3433 lk4cm     c    0&x1,@,@
 3338: 3434           sar  compl&6                                                                             3351:  3434           sar  compl&6
 3339: 3435           sbr  x1                                                                                  3352:  3435           sbr  x1
 3340: 3436           be   lk4cm                                                                               3353:  3436           be   lk4cm
 3341: 3437           sbr  x1,1&x1                                                                             3354:  3437           sbr  x1,1&x1
 3342: 3438           b    setn                                                                                3355:  3438           b    setn
 3343: 3439 einpt     a    xl3,wctr                                                                            3356:  3439 einpt     a    xl3,wctr
 3344: 3440           a    @4@,wctr                                                                            3357:  3440           a    @4@,wctr
 3345: 3441           mn   wctr,xl3                                                                            3358:  3441           mn   wctr,xl3
 3346: 3442           mn                                                                                       3359:  3442           mn
 3347: 3443           mn                                                                                       3360:  3443           mn
 3348: 3444           mcw  @000@,wctr                                                                          3361:  3444           mcw  @000@,wctr
 3349: 3445           b    here                                                                                3362:  3445           b    here
 3350: 3446 *                                                                                                  3363:  3446 *
 3351: 3447 mv2n      sbr  mv2xt&3                                                                             3364:  3447 mv2n      sbr  mv2xt&3
 3352: 3448           s    xl3&1                                                                               3365:  3448           s    xl3&1
 3353: 3449           c    0&x1, @0@                                                                           3366:  3449           c    0&x1, @0@
 3354: 3450           bh   ersig                                                                               3367:  3450           bh   ersig
 3355: 3451 mvdig     mn   0&x1, xl3                                                                           3368:  3451 mvdig     mn   0&x1, xl3
 3356: 3452           sar  x1                                                                                  3369:  3452           sar  x1
 3357: 3453           c    0&x1, @0@                                                                           3370:  3453           c    0&x1, @0@
 3358: 3454           bh   chkn                                                                                3371:  3454           bh   chkn
 3359: 3455           c    xl3,@133@                                                                           3372:  3455           c    xl3,@133@
 3360: 3456           bl   ersig                                                                               3373:  3456           bl   ersig
 3361: 3457           mn   xl3-1, xl3-2                                                                        3374:  3457           mn   xl3-1, xl3-2
 3362: 3458           mn   xl3, xl3-1                                                                          3375:  3458           mn   xl3, xl3-1
 3363: 3459           b    mvdig                                                                               3376:  3459           b    mvdig
 3364: 3460 *                                                                                                  3377:  3460 *
 3365: 3461 chkn      c    @134@, xl3                                                                          3378:  3461 chkn      c    @134@, xl3
 3366: 3462           bh   ersig                                                                               3379:  3462           bh   ersig
 3367: 3463           be   ersig                                                                               3380:  3463           be   ersig
 3368: 3464 mv2xt     b    xxx                                                                                 3381:  3464 mv2xt     b    xxx
 3369: 3465 *                                                                                                  3382:  3465 *
 3370:      *teste    bce  einpt, 5&x2, e                                                                    | 3383:  34651teste     bce  einpt, 5&x2, e                                  v3m4
 3371:      *         b    ersig                                                                             | 3384:  34652          b    ersig                                           v3m4
 3372: 3466 *                                                                                                  3385:  3466 *
 3373: 3467 putn      za   xl3, nctr                                                                           3386:  3467 putn      za   xl3, nctr
 3374: 3468           sw   bceq&7                                                                              3387:  3468           sw   bceq&7
 3375: 3469           mcw  0&x1, bceq&7                                                                        3388:  3469           mcw  0&x1, bceq&7
 3376: 3470           cw   bceq&7, sw1                                                                         3389:  3470           cw   bceq&7, sw1
 3377: 3471 bceq      bce  comrt, @paxhife%@, x                                                                3390:  3471 bceq      bce  comrt, @paxhife%@, x
 3378: 3472           chain7                                                                                   3391:  3472           chain7
 3379: 3473           b    ersig                                                                               3392:  3473           b    ersig
 3380: 3474 *                                                                                                  3393:  3474 *
 3381: 3475 finis     mcw  nxbtm, x3                                                                           3394:  3475 finis     mcw  nxbtm, x3
 3382: 3476           bwz  setx2, code, b                                                                      3395:  3476           bwz  setx2, code, b
 3383: 3477           c    0&x3,ckbit                                                                          3396:  3477           c    0&x3,ckbit
 3384: 3478           bu   klobr                                                                               3397:  3478           bu   klobr
 3385: 3479 mvdwn     lca  0&x2,0&x3                                                                           3398:  3479 mvdwn     lca  0&x2,0&x3
 3386: 3480           sar  x2                                                                                  3399:  3480           sar  x2
 3387: 3481           c    0&x3                                                                                3400:  3481           c    0&x3
 3388: 3482           sar  x3                                                                                  3401:  3482           sar  x3
 3389: 3483           cw   1&x2                                                                                3402:  3483           cw   1&x2
 3390: 3484           c    x2,scnbx                                                                            3403:  3484           c    x2,scnbx
 3391: 3485           bu   mvdwn                                                                               3404:  3485           bu   mvdwn
 3392: 3486           sbr  hex3, 0&x3                                                                          3405:  3486           sbr  hex3, 0&x3
 3393: 3487           cw   0&x2                                                                                3406:  3487           cw   0&x2
 3394: 3488           cw                                                                                       3407:  3488           cw
 3395: 3489           mcw                                                                                      3408:  3489           mcw
 3396: 3490           sar  x2                                                                                  3409:  3490           sar  x2
 3397: 3491           cw   1&x2                                                                                3410:  3491           cw   1&x2
 3398: 3492           bw   mv2gm,urfsw                                                                         3411:  3492           bw   mv2gm,urfsw
 3399: 3493           bce  mv2gm,iobgn&5,               blank                                                  3412:  3493           bce  mv2gm,iobgn&5,               blank
 3400: 3494 iobgn     sbr  x2, xxx                                                                             3413:  3494 iobgn     sbr  x2, xxx
 3401: 3495           cw   refsw#1                                                                             3414:  3495           cw   refsw#1
 3402: 3496           sbr  mvadr&6, 1&x3                                                                       3415:  3496           sbr  mvadr&6, 1&x3
 3403: 3497 repls     mn   0&x2                                                                                3416:  3497 repls     mn   0&x2
 3404: 3498           chain2                                                                                   3417:  3498           chain2
 3405: 3499           sar  x3                                                                                  3418:  3499           sar  x3
 3406: 3500           mn   0&x3, *&15                                                                          3419:  3500           mn   0&x3, *&15
 3407: 3501           mz   0&x3, *&8                                                                           3420:  3501           mz   0&x3, *&8
 3408: 3502           bce  iowk, @56ulp@, x                                                                    3421:  3502           bce  iowk, @56ulp@, x
 3409: 3503           chain4                                                                                   3422:  3503           chain4
 3410: 3504           bw   ndrpl, refsw                                                                        3423:  3504           bw   ndrpl, refsw
 3411: 3505           b    getst                                                                               3424:  3505           b    getst
 3412: 3506           mcw  @17 - doubly defined format@,error&26                                               3425:  3506           mcw  @17 - doubly defined format@,error&26
 3413: 3507           w                                                                                        3426:  3507           w
 3414: 3508           b    fbad                                                                                3427:  3508           b    fbad
 3415: 3509 ndrpl     mcw  hex3, x3                                                                            3428:  3509 ndrpl     mcw  hex3, x3
 3416: 3510           bwz  fbad, code, b                                                                       3429:  3510           bwz  fbad, code, b
 3417: 3511 fokay     mcw  x3, nxbtm                                                                           3430:  3511 fokay     mcw  x3, nxbtm
 3418: 3512           mcw  ckbit, 0&x3                                                                         3431:  3512           mcw  ckbit, 0&x3
 3419: 3513 mv2gm     c    0&x1                                                                                3432:  3513 mv2gm     c    0&x1
 3420: 3514           sar  x1                                                                                  3433:  3514           sar  x1
 3421: 3515           b    retrn                                                                               3434:  3515           b    retrn
 3422: 3516 setx2     mcw  x2, x3                                                                              3435:  3516 setx2     mcw  x2, x3
 3423: 3517           sw   urfsw#1                                                                             3436:  3517           sw   urfsw#1
 3424: 3518           b    mvdwn                                                                               3437:  3518           b    mvdwn
 3425: 3519 fbad      mcw  nxbtm, x3                                                                           3438:  3519 fbad      mcw  nxbtm, x3
 3426: 3520           lca  @.@,0&x3                                                                            3439:  3520           lca  @.@,0&x3
 3427: 3521           sbr  x3                                                                                  3440:  3521           sbr  x3
 3428: 3522           b    fokay                                                                               3441:  3522           b    fokay
 3429: 3523 iowk      c    0&x3                                                                                3442:  3523 iowk      c    0&x3
 3430: 3524           sar  x2                                                                                  3443:  3524           sar  x2
 3431: 3525           bwz  *&5, 2&x3, b                                                                        3444:  3525           bwz  *&5, 2&x3, b
 3432: 3526           b    noswt                                                                               3445:  3526           b    noswt
 3433: 3527           c    0&x2, fmtno                                                                         3446:  3527           c    0&x2, fmtno
 3434: 3528           bu   noswt                                                                               3447:  3528           bu   noswt
 3435: 3529           sw   refsw                                                                               3448:  3529           sw   refsw
 3436: 3530           ma   macfls,mvadr&6                                                                      3449:  3530           ma   macfls,mvadr&6
 3437: 3531 mvadr     sbr  0&x2, xxx                                                                           3450:  3531 mvadr     sbr  0&x2, xxx
 3438: 3532           mz   @ @, 2&x3                                                                           3451:  3532           mz   @ @, 2&x3
 3439: 3533           ma   plusdf,mvadr&6                                                                      3452:  3533           ma   plusdf,mvadr&6
 3440: 3534 noswt     c    0&x2                                                                                3453:  3534 noswt     c    0&x2
 3441: 3535           sar  x2                                                                                  3454:  3535           sar  x2
 3442: 3536           b    repls                                                                               3455:  3536           b    repls
 3443: 3537 *                                                                                                  3456:  3537 *
 3444: 3538 kh        dcw  @bl28@  hollr  change if obj format reassembled                                     3457:  3538 kh        dcw  @bl28@  hollr  change if obj format reassembled
 3445: 3539 kx        dcw  @h0990&0@                                                                           3458:  3539 kx        dcw  @h0990&0@
 3446: 3540 kleft     dcw  @bj52@  openr  change if obj format reassembled                                     3459:  3540 kleft     dcw  @bj52@  openr  change if obj format reassembled
 3447: 3541 krite     dcw  @bj85@  clspr  change if obj format reassembled                                     3460:  3541 krite     dcw  @bj85@  clspr  change if obj format reassembled
 3448: 3542 kline     dcw  @bk08@  ndlin  change if obj format reassembled                                     3461:  3542 kline     dcw  @bk08@  ndlin  change if obj format reassembled
 3449: 3543 karit     dcw  @bl85@  getw   change if obj format reassembled                                     3462:  3543 karit     dcw  @bl85@  getw   change if obj format reassembled
 3450: 3544 keoj      dcw  @bk23@  eoj1   change if obj format reassembled                                     3463:  3544 keoj      dcw  @bk23@  eoj1   change if obj format reassembled
 3451: 3545 kp        dcw  @bl10@  scale  change if obj format reassembled                                     3464:  3545 kp        dcw  @bl10@  scale  change if obj format reassembled
 3452: 3546           ltorg*                                                                                   3465:  3546           ltorg*
 3453: 3547           org  *&x00                                                                               3466:  3547           org  *&x00
 3454: 3548           org  *-1                                                                                 3467:  3548           org  *-1
 3455: 3549 sys2      dcw  @}@                           system group mark                                     3468:  3549 sys2      dcw  @}@                           system group mark
 3456: 3550 tamax     dcw  #1                                                                                  3469:  3550 tamax     dcw  #1
 3457: 3551           xfr  phse2                                                                               3470:  3551           xfr  phse2
 3458: 3552           job  1401 Fortran  lists phase one                          50253                        3471:  3552           job  1401 Fortran  lists phase one                          50253
 3459: 3553           fbegnlistr1,x1,,x2,r,x3,r,x                                                              3472:  3553           fbegnlistr1,x1,,x2,r,x3,r,x
 3460: 3554 nxbtm     equ  083                                                                                 3473:  3554 nxbtm     equ  083
 3461: 3555 *  checks for duplicate lists                                                                      3474:  3555 *  checks for duplicate lists
 3462: 3556           org  xbegin                                                                              3475:  3556           org  xbegin
 3463: 3557 code      dcw  #4                                                                                  3476:  3557 code      dcw  #4
 3464: 3558 abotm     dcw  #3                                                                                  3477:  3558 abotm     dcw  #3
 3465: 3559 phse1     mcw  x1,abotm                                                                            3478:  3559 phse1     mcw  x1,abotm
 3466: 3560           mcw  nxbtm,x2                                                                            3479:  3560           mcw  nxbtm,x2
 3467: 3561           lca  @.@,0&x2                                                                            3480:  3561           lca  @.@,0&x2
 3468: 3562           cw   0&x2                                                                                3481:  3562           cw   0&x2
 3469: 3563           sbr  nxbtm                                                                               3482:  3563           sbr  nxbtm
 3470: 3564           sbr  period,0&x2                                                                         3483:  3564           sbr  period,0&x2
 3471: 3565           ma   macfls,period                                                                       3484:  3565           ma   macfls,period
 3472: 3566 start     bce  dun,000&x1,      blank                                                              3485:  3566 start     bce  dun,000&x1,      blank
 3473: 3567           mcw  000&x1,code                                                                         3486:  3567           mcw  000&x1,code
 3474: 3568           mcw  x1,alter&6                                                                          3487:  3568           mcw  x1,alter&6
 3475: 3569           mcw  code-3,*&8                                                                          3488:  3569           mcw  code-3,*&8
 3476: 3570           bce  list,@5613lup@,0                                                                    3489:  3570           bce  list,@5613lup@,0
 3477: 3571           chain6                                                                                   3490:  3571           chain6
 3478: 3572           b    dun                                                                                 3491:  3572           b    dun
 3479: 3573 list      c    000&x1                                                                              3492:  3573 list      c    000&x1
 3480: 3574           sar  x1                                                                                  3493:  3574           sar  x1
 3481: 3575           b    comma                                                                               3494:  3575           b    comma
 3482: 3576           cw   xdoini                                                                              3495:  3576           cw   xdoini
 3483: 3577           bce  next1,parama&10,l                                                                   3496:  3577           bce  next1,parama&10,l
 3484: 3578           cw   xoblst                                                                              3497:  3578           cw   xoblst
 3485: 3579 next1     sw   000&x1                                                                              3498:  3579 next1     sw   000&x1
 3486: 3580           sar  x1                                                                                  3499:  3580           sar  x1
 3487: 3581           mcw  abotm,x3                                                                            3500:  3581           mcw  abotm,x3
 3488: 3582 rudup     c    0&x3                                                                                3501:  3582 rudup     c    0&x3
 3489: 3583           c                                                                                        3502:  3583           c
 3490: 3584           sar  x3                                                                                  3503:  3584           sar  x3
 3491: 3585           bce  rudup,1&x3,}                  gm                                                    3504:  3585           bce  rudup,1&x3,}                  gm
 3492: 3586           c    x1,x3                                                                               3505:  3586           c    x1,x3
 3493: 3587           bu   comp                                                                                3506:  3587           bu   comp
 3494: 3588 pass      c    000&x1                                                                              3507:  3588 pass      c    000&x1
 3495: 3589           sar  x1                                                                                  3508:  3589           sar  x1
 3496: 3590           b    start                                                                               3509:  3590           b    start
 3497: 3591 comp      c    000&x1,000&x3                                                                       3510:  3591 comp      c    000&x1,000&x3
 3498: 3592           bu   reset                                                                               3511:  3592           bu   reset
 3499: 3593           c    000&x3,000&x1                                                                       3512:  3593           c    000&x3,000&x1
 3500: 3594           bu   reset                                                                               3513:  3594           bu   reset
 3501: 3595           bwz  wrong,0&x1,1                                                                        3514:  3595           bwz  wrong,0&x1,1
 3502: 3596           bwz                                                                                      3515:  3596           bwz
 3503: 3597           bwz                                                                                      3516:  3597           bwz
 3504: 3598           lca  x3,000&x1                                                                           3517:  3598           lca  x3,000&x1
 3505: 3599           sbr  x1                                                                                  3518:  3599           sbr  x1
 3506: 3600           b    pass                                                                                3519:  3600           b    pass
 3507: 3601 reset     c    000&x3                                                                              3520:  3601 reset     c    000&x3
 3508: 3602           sar  x3                                                                                  3521:  3602           sar  x3
 3509: 3603           bce  rudup,1&x3,}                  gm                                                    3522:  3603           bce  rudup,1&x3,}                  gm
 3510: 3604           b    reset                                                                               3523:  3604           b    reset
 3511: 3605 comma     sbr  excma&3                                                                             3524:  3605 comma     sbr  excma&3
 3512: 3606 ckng      bw   pass,0&x1                                                                           3525:  3606 ckng      bw   pass,0&x1
 3513: 3607 excma     bce  000,000&x1,,                                                                        3526:  3607 excma     bce  000,000&x1,,
 3514: 3608           sbr  x1                                                                                  3527:  3608           sbr  x1
 3515: 3609           b    ckng                                                                                3528:  3609           b    ckng
 3516: 3610 wrong     ftmsg18,list syntax,code,13                                                              3529:  3610 wrong     ftmsg18,list syntax,code,13
 3517: 3611           mcw  @/@,code-3                                                                          3530:  3611           mcw  @/@,code-3
 3518: 3612 alter     mcw  code,000                                                                            3531:  3612 alter     mcw  code,000
 3519: 3613           b    pass                                                                                3532:  3613           b    pass
 3520: 3614 dun       sw   000&x1                                                                              3533:  3614 dun       sw   000&x1
 3521: 3615           mcw  abotm,x1                                                                            3534:  3615           mcw  abotm,x1
 3522: 3616           fendxc,,,phse1,,phse1,sys1,listr two                                                     3535:  3616           fendxc,,,phse1,,phse1,sys1,listr two
 3523: 3617           ltorg*                                                                                   3536:  3617           ltorg*
 3524: 3618 sys1      dcw  @}@                           system group mark                                     3537:  3618 sys1      dcw  @}@                           system group mark
 3525: 3619           xfr  phse1                                                                               3538:  3619           xfr  phse1
 3526: 3620           job  1401 Fortran  lists phase two                          50263                        3539:  3620           job  1401 Fortran  lists phase two                          50263
 3527: 3621 *  reorders, squeezes, error checks, and stores list                                               3540:  3621 *  reorders, squeezes, error checks, and stores list
 3528: 3622 110       dcw  @listr two@                                                                         3541:  3622 110       dcw  @listr two@
 3529: 3623           org  phse1                                                                               3542:  3623           org  phse1
 3530: 3624 phse2     mcw  nxbtm,x2                                                                            3543:  3624 phse2     mcw  nxbtm,x2
 3531: 3625 go        bwz  out,000&x1,1                                                                        3544:  3625 go        bwz  out,000&x1,1
 3532: 3626           mcw  x2,hex2#3                                                                           3545:  3626           mcw  x2,hex2#3
 3533: 3627           mcw  000&x1,code                                                                         3546:  3627           mcw  000&x1,code
 3534: 3628           mcw  x1,emasq&6                                                                          3547:  3628           mcw  x1,emasq&6
 3535: 3629           c    000&x1                                                                              3548:  3629           c    000&x1
 3536: 3630           sar  x1                                                                                  3549:  3630           sar  x1
 3537: 3631           sbr  x3                                                                                  3550:  3631           sbr  x3
 3538: 3632 slip      c    0&x3                                                                                3551:  3632 slip      c    0&x3
 3539: 3633           sar  x3                                                                                  3552:  3633           sar  x3
 3540: 3634           bce  *&5,1&x3,}         gm                                                               3553:  3634           bce  *&5,1&x3,}         gm
 3541: 3635           b    slip                                                                                3554:  3635           b    slip
 3542: 3636           sbr  nxguy&6,0&x3                                                                        3555:  3636           sbr  nxguy&6,0&x3
 3543: 3637           c    000&x1                                                                              3556:  3637           c    000&x1
 3544: 3638           c                                                                                        3557:  3638           c
 3545: 3639           sar  hex1#3                                                                              3558:  3639           sar  hex1#3
 3546: 3640           bce  hex1x,0&x1,,                                                                        3559:  3640           bce  hex1x,0&x1,,
 3547: 3641           chain6                                                                                   3560:  3641           chain6
 3548: 3642           b    cktyp                                                                               3561:  3642           b    cktyp
 3549: 3643 hex1x     mcw  hex1,x1                                                                             3562:  3643 hex1x     mcw  hex1,x1
 3550: 3644           bce  new,001&x1,}     group mk                                                           3563:  3644           bce  new,001&x1,}     group mk
 3551: 3645           mcw  003&x1,x3        duplicates were chained                                            3564:  3645           mcw  003&x1,x3        duplicates were chained
 3552: 3646           bwz  error,001&x3,1     duplicate was bad statement                                      3565:  3646           bwz  error,001&x3,1     duplicate was bad statement
 3553: 3647           lca  001&x3,004&x1                                                                       3566:  3647           lca  001&x3,004&x1
 3554: 3648           cw                                                                                       3567:  3648           cw
 3555: 3649           b    nxguy                                                                               3568:  3649           b    nxguy
 3556: 3650 new       bce  cklst,2&x3,,     allow last char of comma                                           3569:  3650 new       bce  cklst,2&x3,,     allow last char of comma
 3557: 3651           sbr  x3                                                                                  3570:  3651           sbr  x3
 3558: 3652 sndpt     lca  @.@,000&x2                                                                          3571:  3652 sndpt     lca  @.@,000&x2
 3559: 3653           sbr  x2                                                                                  3572:  3653           sbr  x2
 3560: 3654           cw   001&x2                                                                              3573:  3654           cw   001&x2
 3561: 3655           s    count#1                                                                             3574:  3655           s    count#1
 3562: 3656 main      sbr  x3,001&x3                                                                           3575:  3656 main      sbr  x3,001&x3
 3563: 3657           bce  rtpar,000&x3,)                                                                      3576:  3657           bce  rtpar,000&x3,)
 3564: 3658           bce  dollr,000&x3,$                                                                      3577:  3658           bce  dollr,000&x3,$
 3565: 3659           b    ruadr                                                                               3578:  3659           b    ruadr
 3566: 3660           lca  adrss,000&x2                                                                        3579:  3660           lca  adrss,000&x2
 3567: 3661           sbr  x2                                                                                  3580:  3661           sbr  x2
 3568: 3662           bce  ckwmk,0&x3,,                                                                        3581:  3662           bce  ckwmk,0&x3,,
 3569: 3663           bce  lfpar,0&x3,%                                                                        3582:  3663           bce  lfpar,0&x3,%
 3570: 3664           b    ruadr                                                                               3583:  3664           b    ruadr
 3571: 3665           lca  adrss,000&x2                                                                        3584:  3665           lca  adrss,000&x2
 3572: 3666           lca  @,@                                                                                 3585:  3666           lca  @,@
 3573: 3667           sbr  x2                                                                                  3586:  3667           sbr  x2
 3574: 3668           cw   5&x2                                                                                3587:  3668           cw   5&x2
 3575: 3669           cw   001&x2                                                                              3588:  3669           cw   001&x2
 3576: 3670           mz   3&x2,svzn#1                                                                         3589:  3670           mz   3&x2,svzn#1
 3577: 3671           mcw  x1,sv1#3                                                                            3590:  3671           mcw  x1,sv1#3
 3578: 3672           za   parama&4,hold5                                                                      3591:  3672           za   parama&4,hold5
 3579: 3673           bwz  dun2,3&x2,k                                                                         3592:  3673           bwz  dun2,3&x2,k
 3580: 3674           mcw  parama&6,hold5#5                                                                    3593:  3674           mcw  parama&6,hold5#5
 3581: 3675 dun2      s    &16000,hold5                                                                        3594:  3675 dun2      s    &16000,hold5
 3582: 3676           fpackhold5,hold3,x1                                                                      3595:  3676           fpackhold5,hold3,x1
 3583: 3677           mcw  hold3#3,x1                                                                          3596:  3677           mcw  hold3#3,x1
 3584: 3678           mcw  4&x2,sbr4&6                                                                         3597:  3678           mcw  4&x2,sbr4&6
 3585: 3679           mz   *-6,sbr4&5                                                                          3598:  3679           mz   *-6,sbr4&5
 3586: 3680 sbr4      sbr  4&x2,0                                                                              3599:  3680 sbr4      sbr  4&x2,0
 3587: 3681           mz   svzn,3&x2                                                                           3600:  3681           mz   svzn,3&x2
 3588: 3682           mcw  sv1,x1                                                                              3601:  3682           mcw  sv1,x1
 3589: 3683           mz   *-4,6&x2                                                                            3602:  3683           mz   *-4,6&x2
 3590: 3684 cklfp     bce  lfpar,0&x3,%                                                                        3603:  3684 cklfp     bce  lfpar,0&x3,%
 3591: 3685 ckcom     c    000&x3,@,@                                                                          3604:  3685 ckcom     c    000&x3,@,@
 3592: 3686           bu   error                                                                               3605:  3686           bu   error
 3593: 3687 ckwmk     bwz  fnliz,000&x3,1      word mk                                                         3606:  3687 ckwmk     bwz  fnliz,000&x3,1      word mk
 3594: 3688           b    main                                                                                3607:  3688           b    main
 3595: 3689 rtpar     bce  setup,count,?      plus zero                                                        3608:  3689 rtpar     bce  setup,count,?      plus zero
 3596: 3690 puts      mcw  x1,save1#3                                                                          3609:  3690 puts      mcw  x1,save1#3
 3597: 3691           lca  @.@,000&x1                                                                          3610:  3691           lca  @.@,000&x1
 3598: 3692           sbr  x1                                                                                  3611:  3692           sbr  x1
 3599: 3693           a    &1,count                                                                            3612:  3693           a    &1,count
 3600: 3694           bce  error,count,d     allow for nest three deep                                         3613:  3694           bce  error,count,d     allow for nest three deep
 3601: 3695           b    putmi                                                                               3614:  3695           b    putmi
 3602: 3696           c    000&x3,@,@                                                                          3615:  3696           c    000&x3,@,@
 3603: 3697           bu   error                                                                               3616:  3697           bu   error
 3604: 3698           b    putmi                                                                               3617:  3698           b    putmi
 3605: 3699           bce  putmi,000&x3,,                                                                      3618:  3699           bce  putmi,000&x3,,
 3606: 3700           c    000&x3,@#@                                                                          3619:  3700           c    000&x3,@#@
 3607: 3701           bu   error                                                                               3620:  3701           bu   error
 3608: 3702           b    putmi                                                                               3621:  3702           b    putmi
 3609: 3703           sbr  000&x1,001&x2                                                                       3622:  3703           sbr  000&x1,001&x2
 3610: 3704           cw   000&x1                                                                              3623:  3704           cw   000&x1
 3611: 3705           cw                                                                                       3624:  3705           cw
 3612: 3706           sw                                                                                       3625:  3706           sw
 3613: 3707           sar  x1                                                                                  3626:  3707           sar  x1
 3614: 3708           mcw  x3,hex3#3                                                                           3627:  3708           mcw  x3,hex3#3
 3615: 3709           mn   000&x3                                                                              3628:  3709           mn   000&x3
 3616: 3710           sar  x3                                                                                  3629:  3710           sar  x3
 3617: 3711 loopy     bce  inner,002&x3,%     lfpar                                                            3630:  3711 loopy     bce  inner,002&x3,%     lfpar
 3618: 3712           bce  outer,002&x3,)       rtpar                                                          3631:  3712           bce  outer,002&x3,)       rtpar
 3619: 3713           bwz  error,002&x3,1                                                                      3632:  3713           bwz  error,002&x3,1
 3620: 3714           sbr  x3                                                                                  3633:  3714           sbr  x3
 3621: 3715           b    loopy                                                                               3634:  3715           b    loopy
 3622: 3716 inner     lca  @)@,000&x2                                                                          3635:  3716 inner     lca  @)@,000&x2
 3623: 3717           sbr  x2                                                                                  3636:  3717           sbr  x2
 3624: 3718           cw   001&x2                                                                              3637:  3718           cw   001&x2
 3625: 3719           b    restr                                                                               3638:  3719           b    restr
 3626: 3720 outer     lca  @#   @,000&x2    3 blanks                                                           3639:  3720 outer     lca  @#   @,000&x2    3 blanks
 3627: 3721           sbr  x2                                                                                  3640:  3721           sbr  x2
 3628: 3722           sw   002&x2                                                                              3641:  3722           sw   002&x2
 3629: 3723           cw                                                                                       3642:  3723           cw
 3630: 3724 restr     mcw  hex3,x3                                                                             3643:  3724 restr     mcw  hex3,x3
 3631: 3725           b    ckcom                                                                               3644:  3725           b    ckcom
 3632: 3726 lfpar     s    &1,count                                                                            3645:  3726 lfpar     s    &1,count
 3633: 3727           bwz  error,count,k                                                                       3646:  3727           bwz  error,count,k
 3634: 3728           ma   macfls,3&x1                                                                         3647:  3728           ma   macfls,3&x1
 3635: 3729           lca  003&x1,000&x2                                                                       3648:  3729           lca  003&x1,000&x2
 3636: 3730           lca  6&x1                                                                                3649:  3730           lca  6&x1
 3637: 3731           sbr  x2                                                                                  3650:  3731           sbr  x2
 3638: 3732           bce  m3is1,013&x1,.                                                                      3651:  3732           bce  m3is1,013&x1,.
 3639: 3733           lca  015&x1,000&x2                                                                       3652:  3733           lca  015&x1,000&x2
 3640: 3734           sbr  x2                                                                                  3653:  3734           sbr  x2
 3641: 3735 sndm2     lca  012&x1,000&x2                                                                       3654:  3735 sndm2     lca  012&x1,000&x2
 3642: 3736           lca                                                                                      3655:  3736           lca
 3643: 3737           lca  @%@                                                                                 3656:  3737           lca  @%@
 3644: 3738           sbr  x2                                                                                  3657:  3738           sbr  x2
 3645: 3739           cw   001&x2                                                                              3658:  3739           cw   001&x2
 3646: 3740 swtch     nop  swoff                                                                               3659:  3740 swtch     nop  swoff
 3647: 3741           mcw  003&x1,x1                                                                           3660:  3741           mcw  003&x1,x1
 3648: 3742           mn   000&x1                                                                              3661:  3742           mn   000&x1
 3649: 3743           sar  x1                                                                                  3662:  3743           sar  x1
 3650: 3744           ma   plusdf,x1                                                                           3663:  3744           ma   plusdf,x1
 3651: 3745           ma   macfls,x2                                                                           3664:  3745           ma   macfls,x2
 3652: 3746           sbr  0&x1,1&x2                                                                           3665:  3746           sbr  0&x1,1&x2
 3653: 3747           ma   plusdf,x2                                                                           3666:  3747           ma   plusdf,x2
 3654: 3748 bump      sbr  x3,001&x3                                                                           3667:  3748 bump      sbr  x3,001&x3
 3655: 3749           mcw  save1,x1                                                                            3668:  3749           mcw  save1,x1
 3656: 3750           b    cklfp                                                                               3669:  3750           b    cklfp
 3657: 3751 swoff     mcw  @n@,swtch                                                                           3670:  3751 swoff     mcw  @n@,swtch
 3658: 3752           b    bump                                                                                3671:  3752           b    bump
 3659: 3753 m3is1     lca  adone,000&x2      obj time addr of fix pt one                                       3672:  3753 m3is1     lca  adone,000&x2      obj time addr of fix pt one
 3660: 3754           sbr  x2                                                                                  3673:  3754           sbr  x2
 3661: 3755           b    sndm2                                                                               3674:  3755           b    sndm2
 3662: 3756 setup     sbr  x1,space#48                                                                         3675:  3756 setup     sbr  x1,space#48
 3663: 3757           mcw  @b@,swtch                                                                           3676:  3757           mcw  @b@,swtch
 3664: 3758           b    puts                                                                                3677:  3758           b    puts
 3665: 3759 putmi     sbr  expmi&3                                                                             3678:  3759 putmi     sbr  expmi&3
 3666: 3760           sbr  x3,001&x3                                                                           3679:  3760           sbr  x3,001&x3
 3667: 3761           b    ruadr                                                                               3680:  3761           b    ruadr
 3668: 3762           lca  adrss,000&x1                                                                        3681:  3762           lca  adrss,000&x1
 3669: 3763           sbr  x1                                                                                  3682:  3763           sbr  x1
 3670: 3764           mz   *-4,2&x1                                                                            3683:  3764           mz   *-4,2&x1
 3671: 3765           bwz  error,000&x3,1                                                                      3684:  3765           bwz  error,000&x3,1
 3672: 3766 expmi     b    000                                                                                 3685:  3766 expmi     b    000
 3673: 3767 fnliz     c    count,@?@            plus zero                                                      3686:  3767 fnliz     c    count,@?@            plus zero
 3674: 3768           bu   error                                                                               3687:  3768           bu   error
 3675: 3769           cw   000&x3                                                                              3688:  3769           cw   000&x3
 3676: 3770           cw                                                                                       3689:  3770           cw
 3677: 3771           sw                                                                                       3690:  3771           sw
 3678: 3772           sar  x3                                                                                  3691:  3772           sar  x3
 3679: 3773           sbr  003&x3,001&x2                                                                       3692:  3773           sbr  003&x3,001&x2
 3680: 3774           ma   macfls,3&x3                                                                         3693:  3774           ma   macfls,3&x3
 3681: 3775           b    nxguy                                                                               3694:  3775           b    nxguy
 3682: 3776 dollr     sw   0&x3                                                                                3695:  3776 dollr     sw   0&x3
 3683: 3777           sar  x3                                                                                  3696:  3777           sar  x3
 3684: 3778           sbr  cw&3,1&x3                                                                           3697:  3778           sbr  cw&3,1&x3
 3685: 3779 loop      bce  ndolr,2&x3,$                                                                        3698:  3779 loop      bce  ndolr,2&x3,$
 3686: 3780           sbr  x3                                                                                  3699:  3780           sbr  x3
 3687: 3781           b    loop                                                                                3700:  3781           b    loop
 3688: 3782 ndolr     lca  2&x3,0&x2                                                                           3701:  3782 ndolr     lca  2&x3,0&x2
 3689: 3783           sbr  x2                                                                                  3702:  3783           sbr  x2
 3690: 3784           cw   1&x2                                                                                3703:  3784           cw   1&x2
 3691: 3785           sbr  x3,3&x3                                                                             3704:  3785           sbr  x3,3&x3
 3692: 3786 cw        cw   0                                                                                   3705:  3786 cw        cw   0
 3693: 3787           b    cklfp                                                                               3706:  3787           b    cklfp
 3694: 3788 cklst     bwz  rmvcm,2&x3,1                                                                        3707:  3788 cklst     bwz  rmvcm,2&x3,1
 3695: 3789           sbr  x3,2&x3                                                                             3708:  3789           sbr  x3,2&x3
 3696: 3790           b    sndpt                                                                               3709:  3790           b    sndpt
 3697: 3791 rmvcm     sw   3&x3                                                                                3710:  3791 rmvcm     sw   3&x3
 3698: 3792           cw                                                                                       3711:  3792           cw
 3699: 3793 cktyp     fbceqerror,code-3,1,3                                                                    3712:  3793 cktyp     fbceqerror,code-3,1,3
 3700: 3794           b    emasq                                                                               3713:  3794           b    emasq
 3701: 3795 ruadr     sbr  exrua&3                                                                             3714:  3795 ruadr     sbr  exrua&3
 3702: 3796           mn   002&x3,exruk&7                                                                      3715:  3796           mn   002&x3,exruk&7
 3703: 3797           b    ruok                                                                                3716:  3797           b    ruok
 3704: 3798           mn   001&x3,exruk&7                                                                      3717:  3798           mn   001&x3,exruk&7
 3705: 3799           b    ruok                                                                                3718:  3799           b    ruok
 3706: 3800           mn   000&x3,exruk&7                                                                      3719:  3800           mn   000&x3,exruk&7
 3707: 3801           b    ruok                                                                                3720:  3801           b    ruok
 3708: 3802           mcw  002&x3,adrss#3                                                                      3721:  3802           mcw  002&x3,adrss#3
 3709: 3803           sbr  x3,003&x3                                                                           3722:  3803           sbr  x3,003&x3
 3710: 3804 exrua     b    000                                                                                 3723:  3804 exrua     b    000
 3711: 3805 ruok      sbr  exruk&3                                                                             3724:  3805 ruok      sbr  exruk&3
 3712: 3806 exruk     bce  000,@0123456789@,0                                                                  3725:  3806 exruk     bce  000,@0123456789@,0
 3713: 3807           chain9                                                                                   3726:  3807           chain9
 3714: 3808           b    error                                                                               3727:  3808           b    error
 3715: 3809 error     ftmsg47,bad list,code,10                                                                 3728:  3809 error     ftmsg47,bad list,code,10
 3716: 3810           mcw  @/@,code-3                                                                          3729:  3810           mcw  @/@,code-3
 3717: 3811 emasq     mcw  code,000                                                                            3730:  3811 emasq     mcw  code,000
 3718: 3812           mcw  hex2,x2                                                                             3731:  3812           mcw  hex2,x2
 3719: 3813 nxguy     sbr  x1,0                                                                                3732:  3813 nxguy     sbr  x1,0
 3720: 3814           b    go                                                                                  3733:  3814           b    go
 3721: 3815 out       mcw  abotm,x1                                                                            3734:  3815 out       mcw  abotm,x1
 3722: 3816           fendxc,,,,,,sys2,listr tri                                                               3735:  3816           fendxc,,,,,,sys2,listr tri
 3723: 3817           org  *                                                                                   3736:  3817           org  *
 3724:                ltorg*    WVS: Autocoder shouldn't load incld at org                                     3737:                 ltorg*    WVS: Autocoder shouldn't load incld at org
 3725: 3818 sys2      dcw  @}@                           system group mark                                     3738:  3818 sys2      dcw  @}@                           system group mark
 3726: 3819 adone     equ  oneadr                                                                              3739:  3819 adone     equ  oneadr
 3727: 3820           xfr  phse2                                                                               3740:  3820           xfr  phse2
 3728: 3821           job  1401 Fortran   lists phase three                       50273                        3741:  3821           job  1401 Fortran   lists phase three                       50273
 3729: 3822 110       dcw  @listr tri@                                                                         3742:  3822 110       dcw  @listr tri@
 3730: 3823 *    moves down program                                                                            3743:  3823 *    moves down program
 3731: 3824           org  phse2                                                                               3744:  3824           org  phse2
 3732: 3825 phse3     mcw  x2,nxbtm                                                                            3745:  3825 phse3     mcw  x2,nxbtm
 3733: 3826           sw   gm                                                                                  3746:  3826           sw   gm
 3734: 3827           lca  gm,0&x2                                                                             3747:  3827           lca  gm,0&x2
 3735: 3828           sbr  x2                                                                                  3748:  3828           sbr  x2
 3736: 3829 begin     bwz  nolst,000&x1,1                                                                      3749:  3829 begin     bwz  nolst,000&x1,1
 3737: 3830           b    slide                                                                               3750:  3830           b    slide
 3738: 3831           b    slide                                                                               3751:  3831           b    slide
 3739: 3832           bce  begin,1&x2,}                  gm                                                    3752:  3832           bce  begin,1&x2,}                  gm
 3740: 3833           cw   001&x2                                                                              3753:  3833           cw   001&x2
 3741: 3834           c    0&x1                                                                                3754:  3834           c    0&x1
 3742: 3835           sar  x1                                                                                  3755:  3835           sar  x1
 3743: 3836           sbr  x1,001&x1                                                                           3756:  3836           sbr  x1,001&x1
 3744: 3837           b    slide                                                                               3757:  3837           b    slide
 3745: 3838           b    begin                                                                               3758:  3838           b    begin
 3746: 3839 nolst     cw   000&x1                                                                              3759:  3839 nolst     cw   000&x1
 3747: 3840 rudun     bce  exph3,000&x1,         blank                                                         3760:  3840 rudun     bce  exph3,000&x1,         blank
 3748: 3841           b    slide                                                                               3761:  3841           b    slide
 3749: 3842           b    slide                                                                               3762:  3842           b    slide
 3750: 3843           b    rudun                                                                               3763:  3843           b    rudun
 3751: 3844 slide     sbr  exsld&3                                                                             3764:  3844 slide     sbr  exsld&3
 3752: 3845           mvdwnx1,x2                                                                               3765:  3845           mvdwnx1,x2
 3753: 3846 exsld     b    000                                                                                 3766:  3846 exsld     b    000
 3754: 3847 exph3     fendxd,,,xbegin,phse2n,xbegin,sys3,stnum2                                                3767:  3847 exph3     fendxd,,,xbegin,phse2n,xbegin,sys3,stnum2
 3755: 3848           dcw  @ @       blank                                                                     3768:  3848           dcw  @ @       blank
 3756: 3849 gm        dc   @}@                           group mark                                            3769:  3849 gm        dc   @}@                           group mark
 3757: 3850           ltorg*                                                                                   3770:  3850           ltorg*
 3758: 3851 sys3      dcw  @}@                           system group mark                                     3771:  3851 sys3      dcw  @}@                           system group mark
 3759: 3852           xfr  phse3                                                                               3772:  3852           xfr  phse3
 3760: 3853           job  1401 Fortran   statement number definer two            50283                        3773:  3853           job  1401 Fortran   statement number definer two            50283
 3761: 3854           fbegnstnum two,x1,,x2,,x3,r,n                                                            3774:  3854           fbegnstnum two,x1,,x2,,x3,r,n
 3762: 3855           org  xbegin                                                                              3775:  3855           org  xbegin
 3763: 3856 base      dcw  #3                                                                                  3776:  3856 base      dcw  #3
 3764: 3857 max       dcw  #4                                                                                  3777:  3857 max       dcw  #4
 3765: 3858           dc   #2                                                                                  3778:  3858           dc   #2
 3766: 3859 uplim     dcw  #3                                                                                  3779:  3859 uplim     dcw  #3
 3767: 3860 nomo      dcw  #3                                                                                  3780:  3860 nomo      dcw  #3
 3768: 3861 mvup      sbr  exmvp&3                                                                             3781:  3861 mvup      sbr  exmvp&3
 3769: 3862           movupx2,x1,nomo,all,|                                                                    3782:  3862           movupx2,x1,nomo,all,|
 3770: 3863           mn   000&x1                                                                              3783:  3863           mn   000&x1
 3771: 3864           sar  x1                                                                                  3784:  3864           sar  x1
 3772: 3865           sbr  x2                                                                                  3785:  3865           sbr  x2
 3773: 3866 exmvp     b    000                                                                                 3786:  3866 exmvp     b    000
 3774: 3867 nxbtm     equ  083                                                                                 3787:  3867 nxbtm     equ  083
 3775: 3868 phse2     mcw  nxbtm,x3                                                                            3788:  3868 phse2     mcw  nxbtm,x3
 3776: 3869           sbr  nomo,1&x3                                                                           3789:  3869           sbr  nomo,1&x3
 3777: 3870           mcw  x2,x3                                                                               3790:  3870           mcw  x2,x3
 3778: 3871 clr1      cs   000&x3                                                                              3791:  3871 clr1      cs   000&x3
 3779: 3872           sbr  x3                                                                                  3792:  3872           sbr  x3
 3780: 3873           c    x3,&sauce-1                                                                         3793:  3873           c    x3,&sauce-1
 3781: 3874           bu   clr1                                                                                3794:  3874           bu   clr1
 3782: 3875           sbr  x1,sauce-1                                                                          3795:  3875           sbr  x1,sauce-1
 3783: 3876 *  shift source program up to compiler program                                                     3796:  3876 *  shift source program up to compiler program
 3784: 3877           b    mvup                                                                                3797:  3877           b    mvup
 3785: 3878           sbr  base,5&x1                                                                           3798:  3878           sbr  base,5&x1
 3786: 3879           mn   two9,base                                                                           3799:  3879           mn   two9,base
 3787: 3880           mn                                                                                       3800:  3880           mn
 3788: 3881           mcw  nxbtm,x3                                                                            3801:  3881           mcw  nxbtm,x3
 3789: 3882 *  clear balance of core                                                                           3802:  3882 *  clear balance of core
 3790: 3883 clr2      cs   000&x3                                                                              3803:  3883 clr2      cs   000&x3
 3791: 3884           sbr  x3                                                                                  3804:  3884           sbr  x3
 3792: 3885           c    x3,base                                                                             3805:  3885           c    x3,base
 3793: 3886           bu   clr2                                                                                3806:  3886           bu   clr2
 3794: 3887           mcw  @<@,0&x3                  12-6-8                                                    3807:  3887           mcw  @<@,0&x3                  12-6-8
 3795: 3888 *  divide rest of core for tables   ratio 3 to 7                                                   3808:  3888 *  divide rest of core for tables   ratio 3 to 7
 3796: 3889           mcw  nxbtm,loc                                                                           3809:  3889           mcw  nxbtm,loc
 3797: 3890           b    unpak                                                                               3810:  3890           b    unpak
 3798: 3891           mcw  num#5,max&2                                                                         3811:  3891           mcw  num#5,max&2
 3799: 3892           mcw  base,loc                                                                            3812:  3892           mcw  base,loc
 3800: 3893           b    unpak                                                                               3813:  3893           b    unpak
 3801: 3894           s    num,max&2                                                                           3814:  3894           s    num,max&2
 3802: 3895           a    max&2                                                                               3815:  3895           a    max&2
 3803: 3896           a    max&2                                                                               3816:  3896           a    max&2
 3804: 3897           a    max&2                                                                               3817:  3897           a    max&2
 3805: 3898           a    max&2                                                                               3818:  3898           a    max&2
 3806: 3899           a    max,accum#6                                                                         3819:  3899           a    max,accum#6
 3807: 3900           a    accum                                                                               3820:  3900           a    accum
 3808: 3901           a    max,accum        3*max in accum                                                     3821:  3901           a    max,accum        3*max in accum
 3809: 3902           a    num,accum                                                                           3822:  3902           a    num,accum
 3810: 3903           mcw  accum-3,x3                                                                          3823:  3903           mcw  accum-3,x3
 3811: 3904           a    x3                                                                                  3824:  3904           a    x3
 3812: 3905           mz   zones&x3,accum-2                                                                    3825:  3905           mz   zones&x3,accum-2
 3813: 3906           mz   zones&1&x3,accum                                                                    3826:  3906           mz   zones&1&x3,accum
 3814: 3907           mcw  accum,x3                                                                            3827:  3907           mcw  accum,x3
 3815: 3908           sw   002&x3                                                                              3828:  3908           sw   002&x3
 3816: 3909           mcw  @<@       12-6-8                                                                    3829:  3909           mcw  @<@       12-6-8
 3817: 3910           sbr  uplim                                                                               3830:  3910           sbr  uplim
 3818: 3911           fendxc,,,phse2,phse3,phse2,sauce-1,stnum tri                                             3831:  3911           fendxc,,,phse2,phse3,phse2,sauce-1,stnum tri
 3819: 3912 unpak     sbr  exit&3                                                                              3832:  3912 unpak     sbr  exit&3
 3820: 3913           mn   loc,num                                                                             3833:  3913           mn   loc,num
 3821: 3914           mn                                                                                       3834:  3914           mn
 3822: 3915           mn                                                                                       3835:  3915           mn
 3823: 3916           mcw                                                                                      3836:  3916           mcw
 3824: 3917           mz   loc,two9                                                                            3837:  3917           mz   loc,two9
 3825: 3918           mz   loc-2,two9-1                                                                        3838:  3918           mz   loc-2,two9-1
 3826: 3919           sbr  x3,zones-3                                                                          3839:  3919           sbr  x3,zones-3
 3827: 3920 comp      c    004&x3,two9                                                                         3840:  3920 comp      c    004&x3,two9
 3828: 3921           sar  x3                                                                                  3841:  3921           sar  x3
 3829: 3922           a    &1,num-3                                                                            3842:  3922           a    &1,num-3
 3830: 3923           bu   comp                                                                                3843:  3923           bu   comp
 3831: 3924           mz   @ @,num-3                                                                           3844:  3924           mz   @ @,num-3
 3832: 3925 exit      b    0                                                                                   3845:  3925 exit      b    0
 3833: 3926 loc       dcw  @0j   @                                                                             3846:  3926 loc       dcw  @0j   @
 3834: 3927 two9      dcw  @99@                                                                                3847:  3927 two9      dcw  @99@
 3835: 3928 zones     dc   @9@                                                                                 3848:  3928 zones     dc   @9@
 3836: 3929           dc   @9z9r9i99zzzrziz9rzrrrir9iziriii@                                                   3849:  3929           dc   @9z9r9i99zzzrziz9rzrrrir9iziriii@
 3837: 3930           ltorg*                                                                                   3850:  3930           ltorg*
 3838: 3931           dcw  @}@                           system group mark                                     3851:  3931           dcw  @}@                           system group mark
 3839: 3932           xfr  phse2                                                                               3852:  3932           xfr  phse2
 3840: 3933           job  1401 Fortran   statement number phase three            50293                        3853:  3933           job  1401 Fortran   statement number phase three            50293
 3841: 3934 110       dcw  @stnum tri@                                                                         3854:  3934 110       dcw  @stnum tri@
 3842: 3935           org  phse2                                                                               3855:  3935           org  phse2
 3843: 3936 slide     sbr  exsld&3                                                                             3856:  3936 slide     sbr  exsld&3
 3844: 3937           mvdwnx1,x2                                                                               3857:  3937           mvdwnx1,x2
 3845: 3938 exsld     b    000                                                                                 3858:  3938 exsld     b    000
 3846: 3939 randm     sbr  exrdm&3                                                                             3859:  3939 randm     sbr  exrdm&3
 3847: 3940           mcw  000&x1,alph                                                                         3860:  3940           mcw  000&x1,alph
 3848: 3941           sar  hex1                                                                                3861:  3941           sar  hex1
 3849: 3942           mn   alph,mod                                                                            3862:  3942           mn   alph,mod
 3850: 3943           chain3     blank in alph-3 implies 3 digit no. in mod                                    3863:  3943           chain3     blank in alph-3 implies 3 digit no. in mod
 3851: 3944 subtr     s    max,mod                                                                             3864:  3944 subtr     s    max,mod
 3852: 3945           bwz  subtr,mod,b                                                                         3865:  3945           bwz  subtr,mod,b
 3853: 3946           a    max,mod                                                                             3866:  3946           a    max,mod
 3854: 3947           mz   *-4,mod                                                                             3867:  3947           mz   *-4,mod
 3855: 3948           mcw  mod,x1                                                                              3868:  3948           mcw  mod,x1
 3856: 3949           a    x1                                                                                  3869:  3949           a    x1
 3857: 3950           a    mod,x1                                                                              3870:  3950           a    mod,x1
 3858: 3951 bump      nop  000      initialized by phse3                                                       3871:  3951 bump      nop  000      initialized by phse3
 3859: 3952           sar  x1                                                                                  3872:  3952           sar  x1
 3860: 3953 exrdm     b    000                                                                                 3873:  3953 exrdm     b    000
 3861: 3954           dcw  #1                                                                                  3874:  3954           dcw  #1
 3862: 3955 alph      dcw  #3                                                                                  3875:  3955 alph      dcw  #3
 3863: 3956 hex1      dcw  #3                                                                                  3876:  3956 hex1      dcw  #3
 3864: 3957 mod       dcw  #4                                                                                  3877:  3957 mod       dcw  #4
 3865: 3958 code      dcw  #4                                                                                  3878:  3958 code      dcw  #4
 3866: 3959 next      dcw  #3                                                                                  3879:  3959 next      dcw  #3
 3867: 3960 full      fquit                                                                                    3880:  3960 full      fquit
 3868: 3961 out       mcw  save1,x1                                                                            3881:  3961 out       mcw  save1,x1
 3869: 3962           fendxc,,,phse3,,phse3,sys3,stnum 4                                                       3882:  3962           fendxc,,,phse3,,phse3,sys3,stnum 4
 3870: 3963 save1     dcw  #3                                                                                  3883:  3963 save1     dcw  #3
 3871: 3964           ltorg*                                                                                   3884:  3964           ltorg*
 3872: 3965 phse3     mcw  nxbtm,next                                                                          3885:  3965 phse3     mcw  nxbtm,next
 3873: 3966           mcw  nxbtm,adtbll                                                                        3886:  3966           mcw  nxbtm,adtbll
 3874: 3967           mcw  base,bump&3                                                                         3887:  3967           mcw  base,bump&3
 3875: 3968           mz   @s@,bump&2                                                                          3888:  3968           mz   @s@,bump&2
 3876: 3969           sbr  nomo,2&x2                                                                           3889:  3969           sbr  nomo,2&x2
 3877: 3970           mcw  x1,save1                                                                            3890:  3970           mcw  x1,save1
 3878: 3971 rucgt     mcw  000&x1,code                                                                         3891:  3971 rucgt     mcw  000&x1,code
 3879: 3972           bce  cgoto,code-3,t                                                                      3892:  3972           bce  cgoto,code-3,t
 3880: 3973           mcw  @b@,swch                                                                            3893:  3973           mcw  @b@,swch
 3881: 3974           mcw  next,nxbtm                                                                          3894:  3974           mcw  next,nxbtm
 3882: 3975           c    x1,x2                                                                               3895:  3975           c    x1,x2
 3883: 3976           be   *&5                                                                                 3896:  3976           be   *&5
 3884: 3977           b    mvup                                                                                3897:  3977           b    mvup
 3885: 3978 norml     bce  out,000&x1,     blank                                                               3898:  3978 norml     bce  out,000&x1,     blank
 3886: 3979           mcw  000&x1,code                                                                         3899:  3979           mcw  000&x1,code
 3887: 3980           b    slide                                                                               3900:  3980           b    slide
 3888: 3981           mcw  code-3,*&8                                                                          3901:  3981           mcw  code-3,*&8
 3889: 3982           bce  worry,@wtdegk@,0                                                                    3902:  3982           bce  worry,@wtdegk@,0
 3890: 3983           chain5                                                                                   3903:  3983           chain5
 3891: 3984 btmnl     b    slide                                                                               3904:  3984 btmnl     b    slide
 3892: 3985           b    norml                                                                               3905:  3985           b    norml
 3893: 3986 worry     b    randm                                                                               3906:  3986 worry     b    randm
 3894: 3987           b    chain                                                                               3907:  3987           b    chain
 3895: 3988           mcw  x3,000&x2                                                                           3908:  3988           mcw  x3,000&x2
 3896: 3989           sbr  x2                                                                                  3909:  3989           sbr  x2
 3897: 3990           mcw  hex1,x1                                                                             3910:  3990           mcw  hex1,x1
 3898: 3991           bce  btmnl,000&x1,}        group mk                                                      3911:  3991           bce  btmnl,000&x1,}        group mk
 3899: 3992           bce  btmnl,000&x1,,                                                                      3912:  3992           bce  btmnl,000&x1,,
 3900: 3993           b    worry                                                                               3913:  3993           b    worry
 3901: 3994 cgoto     c    0&x1                                                                                3914:  3994 cgoto     c    0&x1
 3902: 3995           mn                                                                                       3915:  3995           mn
 3903: 3996           sar  x3                                                                                  3916:  3996           sar  x3
 3904: 3997           s    count#3                                                                             3917:  3997           s    count#3
 3905: 3998 rtlft     mn   000&x3                                                                              3918:  3998 rtlft     mn   000&x3
 3906: 3999           mn                                                                                       3919:  3999           mn
 3907: 4000           mn                                                                                       3920:  4000           mn
 3908: 4001           sar  x3                                                                                  3921:  4001           sar  x3
 3909: 4002           a    @1@,count                                                                           3922:  4002           a    @1@,count
 3910: 4003           bce  fork,001&x3,,                                                                       3923:  4003           bce  fork,001&x3,,
 3911: 4004           b    rtlft                                                                               3924:  4004           b    rtlft
 3912: 4005 fork      s    &11,count                                                                           3925:  4005 fork      s    &11,count
 3913: 4006           bwz  big,count,b     plus                                                                3926:  4006           bwz  big,count,b     plus
 3914: 4007           b    slide                                                                               3927:  4007           b    slide
 3915: 4008 btmcg     b    slide                                                                               3928:  4008 btmcg     b    slide
 3916: 4009           b    rucgt                                                                               3929:  4009           b    rucgt
 3917: 4010 big       mn   000&x1                                                                              3930:  4010 big       mn   000&x1
 3918: 4011           mn                                                                                       3931:  4011           mn
 3919: 4012           mn                                                                                       3932:  4012           mn
 3920: 4013           mcw  @h@                                                                                 3933:  4013           mcw  @h@
 3921: 4014           b    slide                                                                               3934:  4014           b    slide
 3922: 4015           mcw  x3,hex3#3                                                                           3935:  4015           mcw  x3,hex3#3
 3923: 4016           mn   000&x3                                                                              3936:  4016           mn   000&x3
 3924: 4017           mn                                                                                       3937:  4017           mn
 3925: 4018           sar  x1                                                                                  3938:  4018           sar  x1
 3926: 4019           a    &9,count                                                                            3939:  4019           a    &9,count
 3927: 4020 loop      sbr  x1,6&x1                                                                             3940:  4020 loop      sbr  x1,6&x1
 3928: 4021           b    randm                                                                               3941:  4021           b    randm
 3929: 4022           b    chain                                                                               3942:  4022           b    chain
 3930: 4023           mcw  hex1,x1                                                                             3943:  4023           mcw  hex1,x1
 3931: 4024           bce  headr,004&x1,}        group mk                                                      3944:  4024           bce  headr,004&x1,}        group mk
 3932: 4025           b    loop                                                                                3945:  4025           b    loop
 3933: 4026 headr     mcw  next,000&x2                                                                         3946:  4026 headr     mcw  next,000&x2
 3934: 4027           mcw  count                                                                               3947:  4027           mcw  count
 3935: 4028           sbr  x2                                                                                  3948:  4028           sbr  x2
 3936: 4029           mcw  hex3,x1                                                                             3949:  4029           mcw  hex3,x1
 3937: 4030           b    btmcg                                                                               3950:  4030           b    btmcg
 3938: 4031 chain     sbr  exchn&3                                                                             3951:  4031 chain     sbr  exchn&3
 3939: 4032           mcw  @n@,ovflw                                                                           3952:  4032           mcw  @n@,ovflw
 3940: 4033 again     mcw  000&x1,x3                                                                           3953:  4033 again     mcw  000&x1,x3
 3941: 4034           sar  x1                                                                                  3954:  4034           sar  x1
 3942: 4035           bce  new,003&x1,      blank                                                              3955:  4035           bce  new,003&x1,      blank
 3943: 4036           bce  ovflw,003&x1,<     12-6-8   alter stnum phse 1                                      3956:  4036           bce  ovflw,003&x1,<     12-6-8   alter stnum phse 1
 3944: 4037           c    000&x3,alph                                                                         3957:  4037           c    000&x3,alph
 3945: 4038           bu   again                                                                               3958:  4038           bu   again
 3946: 4039 swch      nop  exchn                                                                               3959:  4039 swch      nop  exchn
 3947: 4040           mcw  next,000&x3                                                                         3960:  4040           mcw  next,000&x3
 3948: 4041           sbr  x3                                                                                  3961:  4041           sbr  x3
 3949: 4042           mz   @ A@,002&x3     blank                                                               3962:  4042           mz   @ A@,002&x3     blank
 3950: 4043           cw     dummy on A-oper, effective on B-oper                                              3963:  4043           cw     dummy on A-oper, effective on B-oper
 3951: 4044 new       lca  next,003&x1                                                                         3964:  4044 new       lca  next,003&x1
 3952: 4045           mcw  next,x3                                                                             3965:  4045           mcw  next,x3
 3953: 4046           bce  full,000&x3,<      12-6-8                                                           3966:  4046           bce  full,000&x3,<      12-6-8
 3954: 4047           b                                                                                        3967:  4047           b
 3955: 4048           b                                                                                        3968:  4048           b
 3956: 4049           lca  alph,000&x3                                                                         3969:  4049           lca  alph,000&x3
 3957: 4050           sbr  next                                                                                3970:  4050           sbr  next
 3958: 4051 exchn     b    000                                                                                 3971:  4051 exchn     b    000
 3959: 4052 ovflw     nop  full                                                                                3972:  4052 ovflw     nop  full
 3960: 4053           mcw  @b@,ovflw                                                                           3973:  4053           mcw  @b@,ovflw
 3961: 4054           mcw  uplim,x1                                                                            3974:  4054           mcw  uplim,x1
 3962: 4055           b    again                                                                               3975:  4055           b    again
 3963: 4056           ltorg*                                                                                   3976:  4056           ltorg*
 3964: 4057 sys3      dcw  @}@                           system group mark                                     3977:  4057 sys3      dcw  @}@                           system group mark
 3965: 4058           org  ndrith&x00                                                                          3978:  4058           org  ndrith&x00
 3966: 4059           org  *-5                                                                                 3979:  4059           org  *-5
 3967: 4060           dcw  #5                                                                                  3980:  4060           dcw  #5
 3968: 4061 sauce     equ  *&1                                                                                 3981:  4061 sauce     equ  *&1
 3969: 4062           xfr  phse3                                                                               3982:  4062           xfr  phse3
 3970: 4063           job  1401 Fortran   statement number phase four             50303                        3983:  4063           job  1401 Fortran   statement number phase four             50303
 3971: 4064 110       dcw  @stnum for@                                                                         3984:  4064 110       dcw  @stnum for@
 3972: 4065           org  phse3                                                                               3985:  4065           org  phse3
 3973: 4066 phse4     lca  @ @,000&x2      blank                                                               3986:  4066 phse4     lca  @ @,000&x2      blank
 3974: 4067           sw   gm                                                                                  3987:  4067           sw   gm
 3975: 4068           mcw  x1,x2                                                                               3988:  4068           mcw  x1,x2
 3976: 4069 start     bce  out1,0&x1,                     blank                                                3989:  4069 start     bce  out1,0&x1,                     blank
 3977: 4070           mcw  000&x1,code                                                                         3990:  4070           mcw  000&x1,code
 3978: 4071           sar  x1                                                                                  3991:  4071           sar  x1
 3979: 4072           bce  nonum,000&x1,}     group  mk                                                        3992:  4072           bce  nonum,000&x1,}     group  mk
 3980: 4073           b    randm                                                                               3993:  4073           b    randm
 3981: 4074           mcw  @n@,wrap                                                                            3994:  4074           mcw  @n@,wrap
 3982: 4075 nothr     mcw  000&x1,x3                                                                           3995:  4075 nothr     mcw  000&x1,x3
 3983: 4076           sar  x1                                                                                  3996:  4076           sar  x1
 3984: 4077           bwz  notyt,001&x1,1       word mk                                                        3997:  4077           bwz  notyt,001&x1,1       word mk
 3985: 4078           bce  wrap,003&x1,<        12-6-8                                                         3998:  4078           bce  wrap,003&x1,<        12-6-8
 3986: 4079           bce  unref,1&x1,                    blank                                                3999:  4079           bce  unref,1&x1,                    blank
 3987: 4080           c    003&x1,alph                                                                         4000:  4080           c    003&x1,alph
 3988: 4081           bu   nothr                                                                               4001:  4081           bu   nothr
 3989: 4082           b    multy                                                                               4002:  4082           b    multy
 3990: 4083 notyt     c    000&x3,alph                                                                         4003:  4083 notyt     c    000&x3,alph
 3991: 4084           bu   nothr                                                                               4004:  4084           bu   nothr
 3992: 4085           mz   code-1,zone#1                                                                       4005:  4085           mz   code-1,zone#1
 3993: 4086           mz   *-4,code-1                                                                          4006:  4086           mz   *-4,code-1
 3994: 4087           mcw  code,000&x3                                                                         4007:  4087           mcw  code,000&x3
 3995: 4088           sbr  x3                                                                                  4008:  4088           sbr  x3
 3996: 4089           cw   001&x3                                                                              4009:  4089           cw   001&x3
 3997: 4090           mcw  003&x1,code                                                                         4010:  4090           mcw  003&x1,code
 3998: 4091           mz   zone,code-1                                                                         4011:  4091           mz   zone,code-1
 3999: 4092           mcw  alph,003&x1                                                                         4012:  4092           mcw  alph,003&x1
 4000: 4093           cw   001&x1                                                                              4013:  4093           cw   001&x1
 4001: 4094 hex2x     mcw  hex1,x1                                                                             4014:  4094 hex2x     mcw  hex1,x1
 4002: 4095 botm      sbr  x1,4&x1                                                                             4015:  4095 botm      sbr  x1,4&x1
 4003: 4096           mcw  code                                                                                4016:  4096           mcw  code
 4004: 4097           b    slide                                                                               4017:  4097           b    slide
 4005: 4098           b    slide                                                                               4018:  4098           b    slide
 4006: 4099           b    start                                                                               4019:  4099           b    start
 4007: 4100 wrap      nop  unref                                                                               4020:  4100 wrap      nop  unref
 4008: 4101           mcw  @b@,wrap                                                                            4021:  4101           mcw  @b@,wrap
 4009: 4102           mcw  uplim,x1                                                                            4022:  4102           mcw  uplim,x1
 4010: 4103           b    nothr                                                                               4023:  4103           b    nothr
 4011: 4104 unref     ftmsg19,unreferenced stmt number,code,26,nofail                                          4024:  4104 unref     ftmsg19,unreferenced stmt number,code,26,nofail
 4012: 4105           b    prnum                                                                               4025:  4105           b    prnum
 4013: 4106 multy     ftmsg20,doubly defined stmt,code,21                                                      4026:  4106 multy     ftmsg20,doubly defined stmt,code,21
 4014: 4107           b    hex2x                                                                               4027:  4107           b    hex2x
 4015: 4108 out1      mcw  next,x3                                                                             4028:  4108 out1      mcw  next,x3
 4016: 4109           lca  gm,0&x3                                                                             4029:  4109           lca  gm,0&x3
 4017: 4110           sbr  x3                                                                                  4030:  4110           sbr  x3
 4018: 4111           sbr  bsauce                                                                              4031:  4111           sbr  bsauce
 4019: 4112           cs   0&x2                                                                                4032:  4112           cs   0&x2
 4020: 4113           mcw  save1,x1                                                                            4033:  4113           mcw  save1,x1
 4021: 4114           sw   0&x2                                                                                4034:  4114           sw   0&x2
 4022: 4115           fendxc,gm,,xbegin,xbegin,xbegin,sys4,stnum 5                                             4035:  4115           fendxc,gm,,xbegin,xbegin,xbegin,sys4,stnum 5
 4023: 4116 prnum     mcw  hex1,x1                                                                             4036:  4116 prnum     mcw  hex1,x1
 4024: 4117 nonum     bce  psudo,code-3,d                                                                      4037:  4117 nonum     bce  psudo,code-3,d
 4025: 4118           b    botm                                                                                4038:  4118           b    botm
 4026: 4119 psudo     mcw  next,x3                                                                             4039:  4119 psudo     mcw  next,x3
 4027: 4120           mcw  code,000&x3                                                                         4040:  4120           mcw  code,000&x3
 4028: 4121           sbr  x3                                                                                  4041:  4121           sbr  x3
 4029: 4122           bce  full,000&x3,<     12-6-8                                                            4042:  4122           bce  full,000&x3,<     12-6-8
 4030: 4123           mcw  next,code                                                                           4043:  4123           mcw  next,code
 4031: 4124           sbr  next,1&x3                                                                           4044:  4124           sbr  next,1&x3
 4032: 4125           b    botm                                                                                4045:  4125           b    botm
 4033: 4126           ltorg*                                                                                   4046:  4126           ltorg*
 4034: 4127 gm        dc   @}@               gm                                                                4047:  4127 gm        dc   @}@               gm
 4035: 4128 sys4      dcw  @}@                           system group mark                                     4048:  4128 sys4      dcw  @}@                           system group mark
 4036: 4129           xfr  phse4                                                                               4049:  4129           xfr  phse4
 4037: 4130           job  1401 Fortran   statement number phase five             50313                        4050:  4130           job  1401 Fortran   statement number phase five             50313
 4038: 4131           fbegnstnum 5,x1,,x2,r,x3,,l                                                              4051:  4131           fbegnstnum 5,x1,,x2,r,x3,,l
 4039: 4132           org  xbegin                                                                              4052:  4132           org  xbegin
 4040: 4133 initl     mcw  x3,hex3#3                                                                           4053:  4133 initl     mcw  x3,hex3#3
 4041: 4134           mcw  x1,hex1#3                                                                           4054:  4134           mcw  x1,hex1#3
 4042: 4135           c    0&x3                                                                                4055:  4135           c    0&x3
 4043: 4136           sar  x3                                                                                  4056:  4136           sar  x3
 4044: 4137           cw   1&x3                                                                                4057:  4137           cw   1&x3
 4045: 4138           mcw  adtbl,x2                                                                            4058:  4138           mcw  adtbl,x2
 4046: 4139           c    000&x2                                                                              4059:  4139           c    000&x2
 4047: 4140           sar  x2                                                                                  4060:  4140           sar  x2
 4048: 4141           c    x2,hex3                                                                             4061:  4141           c    x2,hex3
 4049: 4142           be   out                                                                                 4062:  4142           be   out
 4050: 4143           mcw  adtbl,cgbtm#3                                                                       4063:  4143           mcw  adtbl,cgbtm#3
 4051: 4144 start     bwz  out,000&x1,1                                                                        4064:  4144 start     bwz  out,000&x1,1
 4052: 4145           mcw  000&x1,code#4                                                                       4065:  4145           mcw  000&x1,code#4
 4053: 4146           c    000&x1                                                                              4066:  4146           c    000&x1
 4054: 4147           sar  x1                                                                                  4067:  4147           sar  x1
 4055: 4148           mcw  @   @,count#3                                                                       4068:  4148           mcw  @   @,count#3
 4056: 4149           bce  worry,code-3,h                                                                      4069:  4149           bce  worry,code-3,h
 4057: 4150           mcw  code-3,*&8                                                                          4070:  4150           mcw  code-3,*&8
 4058: 4151           bce  rubad,@twedgk@,0        check                                                       4071:  4151           bce  rubad,@twedgk@,0        check
 4059: 4152           chain5                                                                                   4072:  4152           chain5
 4060: 4153 skip      c    000&x1                                                                              4073:  4153 skip      c    000&x1
 4061: 4154           sar  x1                                                                                  4074:  4154           sar  x1
 4062: 4155           b    start                                                                               4075:  4155           b    start
 4063: 4156 worry     mcw  cgbtm,x3                                                                            4076:  4156 worry     mcw  cgbtm,x3
 4064: 4157 ckext     c    000&x1,x3                                                                           4077:  4157 ckext     c    000&x1,x3
 4065: 4158           be   thru                                                                                4078:  4158           be   thru
 4066: 4159           mn   000&x3                                                                              4079:  4159           mn   000&x3
 4067: 4160           mn                                                                                       4080:  4160           mn
 4068: 4161           mn                                                                                       4081:  4161           mn
 4069: 4162           sar  x3                                                                                  4082:  4162           sar  x3
 4070: 4163           sbr  x2                                                                                  4083:  4163           sbr  x2
 4071: 4164 chain     bwz  add1,001&x2,1                                                                       4084:  4164 chain     bwz  add1,001&x2,1
 4072: 4165           bwz  ckext,002&x2,2                                                                      4085:  4165           bwz  ckext,002&x2,2
 4073: 4166           mcw  003&x2,x2                                                                           4086:  4166           mcw  003&x2,x2
 4074: 4167           mz   @ @,x2-1       blank                                                                4087:  4167           mz   @ @,x2-1       blank
 4075: 4168           mn   000&x2                                                                              4088:  4168           mn   000&x2
 4076: 4169           mn                                                                                       4089:  4169           mn
 4077: 4170           mn                                                                                       4090:  4170           mn
 4078: 4171           sar  x2                                                                                  4091:  4171           sar  x2
 4079: 4172           b    chain                                                                               4092:  4172           b    chain
 4080: 4173 thru      mcw  x3,cgbtm                                                                            4093:  4173 thru      mcw  x3,cgbtm
 4081: 4174 dun       bce  skip,count,      blank                                                              4094:  4174 dun       bce  skip,count,      blank
 4082: 4175           bwz  *&5,code,2                                                                          4095:  4175           bwz  *&5,code,2
 4083: 4176           b    zone                                                                                4096:  4176           b    zone
 4084: 4177           bwz  print,code-2,2                                                                      4097:  4177           bwz  print,code-2,2
 4085: 4178 zone      mcw  code,x3                                                                             4098:  4178 zone      mcw  code,x3
 4086: 4179           mcw  000&x3,code                                                                         4099:  4179           mcw  000&x3,code
 4087: 4180 print     cs   299                                                                                 4100:  4180 print     cs   299
 4088: 4181           sw   failsw                                                                              4101:  4181           sw   failsw
 4089: 4182           mcw  @error 21 -@,210                                                                    4102:  4182           mcw  @error 21 -@,210
 4090: 4183           mcw  @undefined statement numbers, statement@,253                                        4103:  4183           mcw  @undefined statement numbers, statement@,253
 4091: 4184           mn   code,257                                                                            4104:  4184           mn   code,257
 4092: 4185           mn                                                                                       4105:  4185           mn
 4093: 4186           mn                                                                                       4106:  4186           mn
 4094: 4187           mcs  count,214                                                                           4107:  4187           mcs  count,214
 4095: 4188           c    count,@001@                                                                         4108:  4188           c    count,@001@
 4096: 4189           bu   *&8                                                                                 4109:  4189           bu   *&8
 4097: 4190           mcw  @, @,243                                                                            4110:  4190           mcw  @, @,243
 4098: 4191           w                                                                                        4111:  4191           w
 4099: 4192           forms                                                                                    4112:  4192           forms
 4100: 4193           b    skip                                                                                4113:  4193           b    skip
 4101: 4194 add1      a    @1@,count                                                                           4114:  4194 add1      a    @1@,count
 4102: 4195           b    ckext                                                                               4115:  4195           b    ckext
 4103: 4196 rubad     bwz  dun,000&x1,1                                                                        4116:  4196 rubad     bwz  dun,000&x1,1
 4104: 4197           bce  dun,000&x1,,                                                                        4117:  4197           bce  dun,000&x1,,
 4105: 4198           mcw  000&x1,x3                                                                           4118:  4198           mcw  000&x1,x3
 4106: 4199           sar  x1                                                                                  4119:  4199           sar  x1
 4107: 4200           mn   000&x3                                                                              4120:  4200           mn   000&x3
 4108: 4201           mn                                                                                       4121:  4201           mn
 4109: 4202           sar  x3                                                                                  4122:  4202           sar  x3
 4110: 4203           bwz  plus1,000&x3,1                                                                      4123:  4203           bwz  plus1,000&x3,1
 4111: 4204           b    rubad                                                                               4124:  4204           b    rubad
 4112: 4205 plus1     a    @1@,count                                                                           4125:  4205 plus1     a    @1@,count
 4113: 4206           b    rubad                                                                               4126:  4206           b    rubad
 4114: 4207 out       mcw  hex1,x1                                                                             4127:  4207 out       mcw  hex1,x1
 4115: 4208           mcw  hex3,x3                                                                             4128:  4208           mcw  hex3,x3
 4116: 4209           fendxe,,,,,,sys5,i/o one                                                                 4129:  4209           fendxe,,,,,,sys5,i/o one
 4117: 4210           ltorg*                                                                                   4130:  4210           ltorg*
 4118: 4211 sys5      dcw  @}@                           system group mark                                     4131:  4211 sys5      dcw  @}@                           system group mark
 4119: 4212           xfr  initl                                                                               4132:  4212           xfr  initl
 4120: 4213           job  1401 Fortran  input/output phase one                   50323                        4133:  4213           job  1401 Fortran  input/output phase one                   50323
 4121: 4214           fbegni/o one,x1,,x2,r,x3,,9                                                              4134:  4214           fbegni/o one,x1,,x2,r,x3,,9
 4122: 4215           org  xbegin                                                                              4135:  4215           org  xbegin
 4123: 4216 begin     sw   gm1                                                                                 4136:  4216 begin     sw   gm1
 4124: 4217 start     bce  out2,0&x1,                    blank                                                 4137:  4217 start     bce  out2,0&x1,                    blank
 4125: 4218           lca  0&x1,code#5                                                                         4138:  4218           lca  0&x1,code#5
 4126: 4219           cw   xtpsw                                                                               4139:  4219           cw   xtpsw
 4127: 4220           sw   code-3                                                                              4140:  4220           sw   code-3
 4128: 4221           mcw  code-3,*&8                                                                          4141:  4221           mcw  code-3,*&8
 4129: 4222           bce  iotyp,@1356lpu@,0                                                                   4142:  4222           bce  iotyp,@1356lpu@,0
 4130: 4223           chain6                                                                                   4143:  4223           chain6
 4131: 4224 out2      sbr  x1,1&x1                                                                             4144:  4224 out2      sbr  x1,1&x1
 4132: 4225           mz   x3,all9                                                                             4145:  4225           mz   x3,all9
 4133: 4226           mz                                                                                       4146:  4226           mz
 4134: 4227           mcw                                                                                      4147:  4227           mcw
 4135: 4228           mz   x1,all91                                                                            4148:  4228           mz   x1,all91
 4136: 4229           mz                                                                                       4149:  4229           mz
 4137: 4230           mcw                                                                                      4150:  4230           mcw
 4138: 4231           c    all9,all91                                                                          4151:  4231           c    all9,all91
 4139: 4232           be   sngl                                                                                4152:  4232           be   sngl
 4140: 4233 clr       cs   0&x3                                                                                4153:  4233 clr       cs   0&x3
 4141: 4234           sbr  clr&3                                                                               4154:  4234           sbr  clr&3
 4142: 4235           c    clr&3,all91                                                                         4155:  4235           c    clr&3,all91
 4143: 4236           bu   clr                                                                                 4156:  4236           bu   clr
 4144: 4237 sngl      mcw  all91,x2                                                                            4157:  4237 sngl      mcw  all91,x2
 4145: 4238 back3     c    x2,x1                                                                               4158:  4238 back3     c    x2,x1
 4146: 4239           be   out3                                                                                4159:  4239           be   out3
 4147: 4240           lca  blank,0&x2                                                                          4160:  4240           lca  blank,0&x2
 4148: 4241           cw   0&x2                                                                                4161:  4241           cw   0&x2
 4149: 4242           sar  x2                                                                                  4162:  4242           sar  x2
 4150: 4243           b    back3                                                                               4163:  4243           b    back3
 4151: 4244 out3      mn   0&x1                                                                                4164:  4244 out3      mn   0&x1
 4152: 4245           sar  x1                                                                                  4165:  4245           sar  x1
 4153: 4246           fendxc,gm1,,,,,sys1,arith one                                                            4166:  4246           fendxc,gm1,,,,,sys1,arith one
 4154: 4247 iotyp     sw   code-2                                                                              4167:  4247 iotyp     sw   code-2
 4155: 4248           mcw  @<@,2&x1                   12-6-8                                                   4168:  4248           mcw  @<@,2&x1                   12-6-8
 4156: 4249           sbr  klobr&6,2&x1                                                                        4169:  4249           sbr  klobr&6,2&x1
 4157: 4250           c    0&x1                                                                                4170:  4250           c    0&x1
 4158: 4251           sar  x1                                                                                  4171:  4251           sar  x1
 4159: 4252           lca  code,0&x3                                                                           4172:  4252           lca  code,0&x3
 4160: 4253           lca  gm1                                                                                 4173:  4253           lca  gm1
 4161: 4254           sbr  x3                                                                                  4174:  4254           sbr  x3
 4162: 4255           cw   2&x3                                                                                4175:  4255           cw   2&x3
 4163: 4256           bwz  nofmt,code-1,b                                                                      4176:  4256           bwz  nofmt,code-1,b
 4164: 4257           fbceqdolst,code-3,1,3                                                                    4177:  4257           fbceqdolst,code-3,1,3
 4165: 4258           fbceqdospc,code-3,l,p,u                                                                  4178:  4258           fbceqdospc,code-3,l,p,u
 4166: 4259           mcw  0&x1,spec                                                                           4179:  4259           mcw  0&x1,spec
 4167: 4260           sar  x1                                                                                  4180:  4260           sar  x1
 4168: 4261 dolst     mcw  0&x1,tuno                                                                           4181:  4261 dolst     mcw  0&x1,tuno
 4169: 4262           sar  x1                                                                                  4182:  4262           sar  x1
 4170: 4263           mcw  0&x1,tuno-3                                                                         4183:  4263           mcw  0&x1,tuno-3
 4171: 4264           bce  actl,tuno-4,}               gm                                                      4184:  4264           bce  actl,tuno-4,}               gm
 4172: 4265           bce  actl,tuno-1,}               gm                                                      4185:  4265           bce  actl,tuno-1,}               gm
 4173: 4266           mn   @1@,tape                                                                            4186:  4266           mn   @1@,tape
 4174: 4267           bce  othr2,tuno-3,}              gm                                                      4187:  4267           bce  othr2,tuno-3,}              gm
 4175: 4268 xxx       mcw  0&x1,list                                                                           4188:  4268 xxx       mcw  0&x1,list
 4176: 4269           sar  x1                                                                                  4189:  4269           sar  x1
 4177: 4270 retrn     lca  list,0&x3                                                                           4190:  4270 retrn     lca  list,0&x3
 4178: 4271           sbr  x3                                                                                  4191:  4271           sbr  x3
 4179: 4272           lca  spec,0&x3                                                                           4192:  4272           lca  spec,0&x3
 4180: 4273           sbr  x3                                                                                  4193:  4273           sbr  x3
 4181: 4274           lca  tape,0&x3                                                                           4194:  4274           lca  tape,0&x3
 4182: 4275           lca  branch                                                                              4195:  4275           lca  branch
 4183: 4276           sbr  x3                                                                                  4196:  4276           sbr  x3
 4184: 4277           fbceqtlgm,code-3,l,p,u,1                                                                 4197:  4277           fbceqtlgm,code-3,l,p,u,1
 4185: 4278           mz   @s@,5&x3                                                                            4198:  4278           mz   @s@,5&x3
 4186: 4279           bce  tlgm,code-3,3                                                                       4199:  4279           bce  tlgm,code-3,3
 4187: 4280           mz   @k@,5&x3                                                                            4200:  4280           mz   @k@,5&x3
 4188: 4281           bce  tlgm,code-3,5                                                                       4201:  4281           bce  tlgm,code-3,5
 4189: 4282           mz   @b@,5&x3                                                                            4202:  4282           mz   @b@,5&x3
 4190: 4283 tlgm      bw   lgm,xtpsw                                                                           4203:  4283 tlgm      bw   lgm,xtpsw
 4191: 4284           bwz  lgm,tuno-1,2                                                                        4204:  4284           bwz  lgm,tuno-1,2
 4192: 4285           mcw  tuno,mask1-3                                                                        4205:  4285           mcw  tuno,mask1-3
 4193: 4286           mz   blank,mask1-4                                                                       4206:  4286           mz   blank,mask1-4
 4194: 4287           lca  mask1,0&x3                                                                          4207:  4287           lca  mask1,0&x3
 4195: 4288           sbr  x3                                                                                  4208:  4288           sbr  x3
 4196: 4289           mcw  blnk#3,tuno                                                                       | 4209:  42894lgm       mcw  blnk#3,tuno-3                                   v3m4
 4197: 4290 lgm       lca  gm1,0&x3                                                                          | 4210:  42904          lca  gm1,0&x3                                        v3m4
 4198: 4291           sbr  x3                                                                                  4211:  4291           sbr  x3
 4199: 4292           c    0&x1                                                                                4212:  4292           c    0&x1
 4200: 4293           sar  x1                                                                                  4213:  4293           sar  x1
 4201: 4294 klobr     bce  start,0,<                    12-6-8                                                 4214:  4294 klobr     bce  start,0,<                    12-6-8
 4202: 4295           fquit                                                                                    4215:  4295           fquit
 4203: 4296 actl      mn   tuno,tape#1                                                                         4216:  4296 actl      mn   tuno,tape#1
 4204: 4297           sw   xtpsw                                                                               4217:  4297           sw   xtpsw
 4205: 4298           bce  other,tuno-1,}               gm                                                     4218:  4298           bce  other,tuno-1,}               gm
 4206: 4299           sbr  x1,2&x1                                                                             4219:  4299           sbr  x1,2&x1
 4207: 4300           b    xxx                                                                                 4220:  4300           b    xxx
 4208: 4301 other     sbr  x1,1&x1                                                                             4221:  4301 other     sbr  x1,1&x1
 4209: 4302 othr2     mcw  period,list                                                                         4222:  4302 othr2     mcw  period,list
 4210: 4303           b    retrn                                                                               4223:  4303           b    retrn
 4211: 4304 nofmt     mz   blank#1,3&x3                                                                        4224:  4304 nofmt     mz   blank#1,3&x3
 4212: 4305           mcw  4&x3,adr#3                                                                          4225:  4305           mcw  4&x3,adr#3
 4213: 4306           bwz  *&5,adr,2                                                                           4226:  4306           bwz  *&5,adr,2
 4214: 4307           b    gtadr                                                                               4227:  4307           b    gtadr
 4215: 4308           bwz  err,adr-2,2                                                                         4228:  4308           bwz  err,adr-2,2
 4216: 4309 gtadr     mcw  adr,*&4                                                                             4229:  4309 gtadr     mcw  adr,*&4
 4217: 4310           mcw  0,adr                                                                               4230:  4310           mcw  0,adr
 4218: 4311 err       ftmsg22,undefined format,adr,18                                                          4231:  4311 err       ftmsg22,undefined format,adr,18
 4219: 4312           mz   *-4,code-1                                                                          4232:  4312           mz   *-4,code-1
 4220: 4313           b    dolst                                                                               4233:  4313           b    dolst
 4221: 4314 dospc     mcw  0&x1,spec                                                                           4234:  4314 dospc     mcw  0&x1,spec
 4222: 4315           sar  x1                                                                                  4235:  4315           sar  x1
 4223: 4316           mcw  period,list                                                                         4236:  4316           mcw  period,list
 4224: 4317           bce  here,0&x1,}                  gm                                                     4237:  4317           bce  here,0&x1,}                  gm
 4225: 4318           mcw  0&x1,list                                                                           4238:  4318           mcw  0&x1,list
 4226: 4319           sar  x1                                                                                  4239:  4319           sar  x1
 4227: 4320 here      mcw  @&@,tape                                                                            4240:  4320 here      mcw  @&@,tape
 4228: 4321           bce  setp,code-3,l                                                                       4241:  4321           bce  setp,code-3,l
 4229: 4322           mcw  @-@,tape                                                                            4242:  4322           mcw  @-@,tape
 4230: 4323           bce  setp,code-3,u                                                                       4243:  4323           bce  setp,code-3,u
 4231: 4324           mcw  @*@,tape                                                                            4244:  4324           mcw  @*@,tape
 4232: 4325 setp      sw   xtpsw#1                                                                             4245:  4325 setp      sw   xtpsw#1
 4233: 4326           b    retrn                                                                               4246:  4326           b    retrn
 4234: 4327 all9      dcw  999                                                                                 4247:  4327 all9      dcw  999
 4235: 4328 all91     dcw  999                                                                                 4248:  4328 all91     dcw  999
 4236: 4329 mask1     dcw  @dxxx0?5@           plus zero                                                       4249:  4329 mask1     dcw  @dxxx0?5@           plus zero
 4237: 4330 gm1       dc   @}@            group mark                                                           4250:  4330 gm1       dc   @}@            group mark
 4238: 4331 branch    dcw  @bw97@         change on reassm of obj format                                       4251:  4331 branch    dcw  @bw97@         change on reassm of obj format
 4239: 4332           dcw  #4                                                                                  4252:  4332           dcw  #4
 4240: 4333 tuno      dcw  #3                                                                                  4253:  4333 tuno      dcw  #3
 4241: 4334 list      dcw  000                                                                                 4254:  4334 list      dcw  000
 4242: 4335 spec      dcw  000                                                                                 4255:  4335 spec      dcw  000
 4243: 4336           ltorg*                                                                                   4256:  4336           ltorg*
 4244: 4337 sys1      dcw  @}@                           system group mark                                     4257:  4337 sys1      dcw  @}@                           system group mark
 4245: 4338           xfr  begin                                                                               4258:  4338           xfr  begin
 4246: 4339           job  arith phase one                                        50333                        4259:  4339           job  arith phase one                                        50333
 4247: 4340           fbegnarith 1, x1,,x2,r,x3,,<       12-6-8 suffix                                         4260:  4340           fbegnarith 1, x1,,x2,r,x3,,<       12-6-8 suffix
 4248: 4341           org  xbegin                                                                              4261:  4341           org  xbegin
 4249: 4342 *                                                                                                  4262:  4342 *
 4250: 4343 * arith phase one error checking algorithm                                                         4263:  4343 * arith phase one error checking algorithm
 4251: 4344 *                                                                                                  4264:  4344 *
 4252: 4345 *                   previous character                                                             4265:  4345 *                   previous character
 4253: 4346 *                                                                                                  4266:  4346 *
 4254: 4347 *              opnd  &*/.    -  gm   f%   #  %   )   neg                                           4267:  4347 *              opnd  &*/.    -  gm   f%   #  %   )   neg
 4255: 4348 *                                                                                                  4268:  4348 *
 4256: 4349 *         &     ok    dd    dd  ls  kl   kl  kl  ok   dd                                           4269:  4349 *         &     ok    dd    dd  ls  kl   kl  kl  ok   dd
 4257: 4350 *     c   -     ok    dd    dd  ls  ng   ng  ng  ok   dd                                           4270:  4350 *     c   -     ok    dd    dd  ls  ng   ng  ng  ok   dd
 4258: 4351 *   c h   */    ok    dd    dd  ls  sy   sy  sy  ok   dd                                           4271:  4351 *   c h   */    ok    dd    dd  ls  sy   sy  sy  ok   dd
 4259: 4352 *   u a   #     ok    a2    a2  ls  a2   a2  a2  a2   a2                                           4272:  4352 *   u a   #     ok    a2    a2  ls  a2   a2  a2  a2   a2
 4260: 4353 *   r r   %     sy    ok    ok  ls  ok   ok  ok  sy   ok                                           4273:  4353 *   r r   %     sy    ok    ok  ls  ok   ok  ok  sy   ok
 4261: 4354 *   r a   )     ok    sy    sy  ls  a2   sy  a2  ok   sy                                           4274:  4354 *   r a   )     ok    sy    sy  ls  a2   sy  a2  ok   sy
 4262: 4355 *   e c   gm    ok    sy    sy  ls  a2   sy  sy  ok  sy                                            4275:  4355 *   e c   gm    ok    sy    sy  ls  a2   sy  sy  ok  sy
 4263: 4356 *   n t   .     ok    dd    dd  ls  sy   sy  sy  ok  dd                                            4276:  4356 *   n t   .     ok    dd    dd  ls  sy   sy  sy  ok  dd
 4264: 4357 *   t e   neg   --    --    --  ls  ok   ok  ok  --  dd                                            4277:  4357 *   t e   neg   --    --    --  ls  ok   ok  ok  --  dd
 4265: 4358 *     r   f%    sy    ok    ok  ls  ok   ok  ok  sy  ok                                            4278:  4358 *     r   f%    sy    ok    ok  ls  ok   ok  ok  sy  ok
 4266: 4359 *         oprnd --    ok    ok  ls  ok   ok  ok  sy  ok                                            4279:  4359 *         oprnd --    ok    ok  ls  ok   ok  ok  sy  ok
 4267: 4360 *                                                                                                  4280:  4360 *
 4268: 4361 *  ok-  valid                                                                                      4281:  4361 *  ok-  valid
 4269: 4362 *  dd-  double operators                                                                           4282:  4362 *  dd-  double operators
 4270: 4363 *  sy-  syntax error                                                                               4283:  4363 *  sy-  syntax error
 4271: 4364 *  a2-  error noted in arith phase two                                                             4284:  4364 *  a2-  error noted in arith phase two
 4272: 4365 *  ls-  left side invalid                                                                          4285:  4365 *  ls-  left side invalid
 4273: 4366 *  ng-  generate negate function                                                                   4286:  4366 *  ng-  generate negate function
 4274: 4367 *  ---  syntactically inadmissible                                                                 4287:  4367 *  ---  syntactically inadmissible
 4275: 4368 *  kl-  delete unary plus operator                                                                 4288:  4368 *  kl-  delete unary plus operator
 4276: 4369 *                                                                                                  4289:  4369 *
 4277: 4370 *                                                                                                  4290:  4370 *
 4278: 4371 start     sbr  nomo,2&x3                                                                           4291:  4371 start     sbr  nomo,2&x3
 4279: 4372           sw   gm1                                                                                 4292:  4372           sw   gm1
 4280: 4373           mcw  0&x1,code                                                                           4293:  4373           mcw  0&x1,code
 4281: 4374           fbceqdocod,code-3,r,e                                                                  | 4294:  43744          fbceqnustm,code-3,r,e                                v3m4
 4282: 4375           mcw  @.@,x2                                                                              4295:  4375           mcw  @.@,x2
 4283: 4376           b    fendx                                                                               4296:  4376           b    fendx
 4284: 4377 nustm     mcw  0&x1,code#4                                                                         4297:  4377 nustm     mcw  0&x1,code#4
 4285: 4378           sbr  kill#3,0&x3                                                                         4298:  4378           sbr  kill#3,0&x3
 4286: 4379           fbceqdocod,code-3,r,e                                                                    4299:  4379           fbceqdocod,code-3,r,e
 4287: 4380           mcw  nomo#3,x2                                                                           4300:  4380           mcw  nomo#3,x2
 4288: 4381 fendx     fendxc,,,,,,sysgm,arith two                                                              4301:  4381 fendx     fendxc,,,,,,sysgm,arith two
 4289: 4382 docod     mvdwnx1,x3                                                                               4302:  4382 docod     mvdwnx1,x3
 4290: 4383           bwz  *&5, code,2                                                                         4303:  4383           bwz  *&5, code,2
 4291: 4384           b    indir                                                                               4304:  4384           b    indir
 4292: 4385           bwz  main,code-2,2                                                                       4305:  4385           bwz  main,code-2,2
 4293: 4386 indir     mcw  code,x2                                                                             4306:  4386 indir     mcw  code,x2
 4294: 4387           mn   0&x2,code                                                                           4307:  4387           mn   0&x2,code
 4295: 4388           mn                                                                                       4308:  4388           mn
 4296: 4389           mn                                                                                       4309:  4389           mn
 4297: 4390 main      c    0&x1                                                                                4310:  4390 main      c    0&x1
 4298: 4391           sar  next#3                                                                              4311:  4391           sar  next#3
 4299: 4392           bce  artyp,code-3,r                                                                      4312:  4392           bce  artyp,code-3,r
 4300: 4393           c    0&x1,blk10#10                                                                       4313:  4393           c    0&x1,blk10#10
 4301: 4394           sar  x1                                                                                  4314:  4394           sar  x1
 4302: 4395           sw   1&x1                                                                                4315:  4395           sw   1&x1
 4303: 4396           lca  10&x1,0&x3                                                                          4316:  4396           lca  10&x1,0&x3
 4304: 4397           sar  x1                                                                                  4317:  4397           sar  x1
 4305: 4398           c    0&x3                                                                                4318:  4398           c    0&x3
 4306: 4399           sar  x3                                                                                  4319:  4399           sar  x3
 4307: 4400           cw   1&x1,1&x3                                                                           4320:  4400           cw   1&x1,1&x3
 4308: 4401           lca  gm1                                                                                 4321:  4401           lca  gm1
 4309: 4402           lca  @#<99@              12-6-8                                                          4322:  4402           lca  @#<99@              12-6-8
 4310: 4403           sbr  x3                                                                                  4323:  4403           sbr  x3
 4311: 4404           cw   1&x3,5&x3                                                                           4324:  4404           cw   1&x3,5&x3
 4312: 4405           sbr  last,0&x1                                                                           4325:  4405           sbr  last,0&x1
 4313: 4406           b    loop3                                                                               4326:  4406           b    loop3
 4314: 4407 artyp     sbr  x2,1&x1                                                                             4327:  4407 artyp     sbr  x2,1&x1
 4315: 4408           bce  cdint,0&x1,#                                                                        4328:  4408           bce  cdint,0&x1,#
 4316: 4409           sbr  last#3,0&x1                                                                         4329:  4409           sbr  last#3,0&x1
 4317: 4410 eqscn     bce  goteq,0&x1,#                                                                        4330:  4410 eqscn     bce  goteq,0&x1,#
 4318: 4411           bce  cdint,0&x1,}        g-m                                                             4331:  4411           bce  cdint,0&x1,}        g-m
 4319: 4412           sbr  x1                                                                                  4332:  4412           sbr  x1
 4320: 4413           b    eqscn                                                                               4333:  4413           b    eqscn
 4321: 4414 goteq     b    mesur                                                                               4334:  4414 goteq     b    mesur
 4322: 4415 loop1     mn   0&x1                                                                                4335:  4415 loop1     mn   0&x1
 4323: 4416           sar  x1                                                                                  4336:  4416           sar  x1
 4324: 4417 loop3     sbr  x2,1&x1                                                                             4337:  4417 loop3     sbr  x2,1&x1
 4325: 4418           sbr  funbx#3                                                                             4338:  4418           sbr  funbx#3
 4326: 4419 loop2     mn   0&x1,tst1&7                                                                         4339:  4419 loop2     mn   0&x1,tst1&7
 4327: 4420           mz   0&x1,tst1&7                                                                         4340:  4420           mz   0&x1,tst1&7
 4328: 4421           sar  x1                                                                                  4341:  4421           sar  x1
 4329: 4422 tst1      bce  gotop,@&-@*#%)}@,0            g-m                                                   4342:  4422 tst1      bce  gotop,@&-@*#%)}@,0            g-m
 4330: 4423           chain7                                                                                   4343:  4423           chain7
 4331: 4424           b    loop2                                                                               4344:  4424           b    loop2
 4332: 4425 gotop     sbr  x1,1&x1                                                                             4345:  4425 gotop     sbr  x1,1&x1
 4333: 4426           bce  ckng,0&x1,-                                                                         4346:  4426           bce  ckng,0&x1,-
 4334: 4427           bce  ckfun,0&x1,%                                                                        4347:  4427           bce  ckfun,0&x1,%
 4335: 4428           bce  ckxp,0&x1,*                                                                         4348:  4428           bce  ckxp,0&x1,*
 4336: 4429           bce  plus,0&x1,&                                                                         4349:  4429           bce  plus,0&x1,&
 4337: 4430           bce  div,0&x1,@                                                                          4350:  4430           bce  div,0&x1,@
 4338: 4431           bce  loop1,0&x1,#                                                                        4351:  4431           bce  loop1,0&x1,#
 4339: 4432           bce  close,0&x1,)                                                                        4352:  4432           bce  close,0&x1,)
 4340: 4433           mn   1&x1,ckgm&7        ergo group mark                                                  4353:  4433           mn   1&x1,ckgm&7        ergo group mark
 4341: 4434           mz   1&x1,ckgm&7                                                                         4354:  4434           mz   1&x1,ckgm&7
 4342: 4435 ckgm      bce  syner,@&-*@.#,@,0                                                                   4355:  4435 ckgm      bce  syner,@&-*@.#,@,0
 4343: 4436           chain6                                                                                   4356:  4436           chain6
 4344: 4437           bce  eostm,1&x1,                                                                         4357:  4437           bce  eostm,1&x1,
 4345: 4438           bce  eostm,1&x1,%                                                                        4358:  4438           bce  eostm,1&x1,%
 4346: 4439           bce  eostm,1&x1,)                                                                        4359:  4439           bce  eostm,1&x1,)
 4347: 4440           b    mesur                                                                               4360:  4440           b    mesur
 4348: 4441 eostm     mcw  last,x2                                                                             4361:  4441 eostm     mcw  last,x2
 4349: 4442           lca  0&x2,0&x3                                                                           4362:  4442           lca  0&x2,0&x3
 4350: 4443           sbr  x3                                                                                  4363:  4443           sbr  x3
 4351: 4444           mcw  next,x1                                                                             4364:  4444           mcw  next,x1
 4352: 4445           b    nustm                                                                               4365:  4445           b    nustm
 4353: 4446 close     mlc  0&x1,box#2                                                                          4366:  4446 close     mlc  0&x1,box#2
 4354: 4447           mlc  box-1,*&8                                                                           4367:  4447           mlc  box-1,*&8
 4355: 4448           bce  clzok,@&*@-})@,0            g-m,)                                                   4368:  4448           bce  clzok,@&*@-})@,0            g-m,)
 4356: 4449           chain5                                                                                   4369:  4449           chain5
 4357: 4450           bce  clzok,box-1,#                                                                       4370:  4450           bce  clzok,box-1,#
 4358: 4451           b    syner                                                                               4371:  4451           b    syner
 4359: 4452 clzok     mn   1&x1,clsck&7                                                                        4372:  4452 clzok     mn   1&x1,clsck&7
 4360: 4453           mz   1&x1,clsck&7                                                                        4373:  4453           mz   1&x1,clsck&7
 4361: 4454 clsck     bce  syner,@&-*.@ %,@,0                                                                  4374:  4454 clsck     bce  syner,@&-*.@ %,@,0
 4362: 4455           chain7                                                                                   4375:  4455           chain7
 4363: 4456           bce  loop1,1&x1,#                                                                        4376:  4456           bce  loop1,1&x1,#
 4364: 4457           bce  loop1,1&x1,)                                                                        4377:  4457           bce  loop1,1&x1,)
 4365: 4458           b    mesur                                                                               4378:  4458           b    mesur
 4366: 4459           b    loop1                                                                               4379:  4459           b    loop1
 4367: 4460 ckxp      mcw  0&x1,box2#2                                                                         4380:  4460 ckxp      mcw  0&x1,box2#2
 4368: 4461           bce  isxp,box2-1,*                                                                       4381:  4461           bce  isxp,box2-1,*
 4369: 4462 div       fbceqsyner,1&x1,#,%                                                                      4382:  4462 div       fbceqsyner,1&x1,#,%
 4370: 4463           bce  syner,1&x1,                                                                         4383:  4463           bce  syner,1&x1,
 4371: 4464 div2      mn   1&x1,divck&7                                                                        4384:  4464 div2      mn   1&x1,divck&7
 4372: 4465           mz   1&x1,divck&7                                                                        4385:  4465           mz   1&x1,divck&7
 4373: 4466 divck     bce  dblop,@&-@*.,@,0                                                                    4386:  4466 divck     bce  dblop,@&-@*.,@,0
 4374: 4467           chain5                                                                                   4387:  4467           chain5
 4375: 4468           bce  loop1,1&x1,)                                                                        4388:  4468           bce  loop1,1&x1,)
 4376: 4469           b    mesur                                                                               4389:  4469           b    mesur
 4377: 4470           b    loop1                                                                               4390:  4470           b    loop1
 4378: 4471 isxp      mn   0&x1                                                                                4391:  4471 isxp      mn   0&x1
 4379: 4472           mn                                                                                       4392:  4472           mn
 4380: 4473           sar  x1                                                                                  4393:  4473           sar  x1
 4381: 4474           mcw  @.@,2&x1                                                                            4394:  4474           mcw  @.@,2&x1
 4382: 4475           lca  0&x1                                                                                4395:  4475           lca  0&x1
 4383: 4476           sbr  x1,2&x1                                                                             4396:  4476           sbr  x1,2&x1
 4384: 4477           b    div                                                                                 4397:  4477           b    div
 4385: 4478 plus      fbceqsquoz,1&x1,#,%                                                                      4398:  4478 plus      fbceqsquoz,1&x1,#,%
 4386: 4479           bce  squoz,1&x1,                                                                         4399:  4479           bce  squoz,1&x1,
 4387: 4480           b    div2                                                                                4400:  4480           b    div2
 4388: 4481 squoz     mn   0&x1                                                                                4401:  4481 squoz     mn   0&x1
 4389: 4482           sar  x1                                                                                  4402:  4482           sar  x1
 4390: 4483           lca  0&x1,1&x1                                                                           4403:  4483           lca  0&x1,1&x1
 4391: 4484           sbr  x1,1&x1                                                                             4404:  4484           sbr  x1,1&x1
 4392: 4485           b    loop3                                                                               4405:  4485           b    loop3
 4393: 4486 ckng      fbceqnegat,1&x1,#,%                                                                      4406:  4486 ckng      fbceqnegat,1&x1,#,%
 4394: 4487           bce  negat,1&x1,                                                                         4407:  4487           bce  negat,1&x1,
 4395: 4488           b    div2                                                                                4408:  4488           b    div2
 4396: 4489 negat     mcw  @,@,0&x1                                                                            4409:  4489 negat     mcw  @,@,0&x1
 4397: 4490           cw   xnegtf                                                                              4410:  4490           cw   xnegtf
 4398: 4491           b    loop1                                                                               4411:  4491           b    loop1
 4399: 4492 ckfun     bce  isfun,1&x1,f                                                                        4412:  4492 ckfun     bce  isfun,1&x1,f
 4400: 4493           mn   1&x1,opnck&7                                                                        4413:  4493           mn   1&x1,opnck&7
 4401: 4494           mz   1&x1,opnck&7                                                                        4414:  4494           mz   1&x1,opnck&7
 4402: 4495 opnck     bce  loop1,@&-*@ #%,.@,0                                                                 4415:  4495 opnck     bce  loop1,@&-*@ #%,.@,0
 4403: 4496           chain8                                                                                   4416:  4496           chain8
 4404: 4497           b    syner                                                                               4417:  4497           b    syner
 4405: 4498 isfun     mcw  x2,hex2#3                                                                           4418:  4498 isfun     mcw  x2,hex2#3
 4406: 4499           mcw  funbx,x2                                                                            4419:  4499           mcw  funbx,x2
 4407: 4500           mn   0&x2                                                                                4420:  4500           mn   0&x2
 4408: 4501           sar  x2                                                                                  4421:  4501           sar  x2
 4409: 4502           sw   0&x1                                                                                4422:  4502           sw   0&x1
 4410: 4503           sbr  funbx,2&x1                                                                          4423:  4503           sbr  funbx,2&x1
 4411: 4504           c    funbx,x2                                                                            4424:  4504           c    funbx,x2
 4412: 4505           be   syner                                                                               4425:  4505           be   syner
 4413: 4506           sbr  funbx,3&x1                                                                          4426:  4506           sbr  funbx,3&x1
 4414: 4507           c    funbx,x2                                                                            4427:  4507           c    funbx,x2
 4415: 4508           be   syner                                                                               4428:  4508           be   syner
 4416: 4509           mcw  x3,hex3#3                                                                           4429:  4509           mcw  x3,hex3#3
 4417: 4510           mcw  x1,hex1#3                                                                           4430:  4510           mcw  x1,hex1#3
 4418: 4511           sbr  x1,xsinfu                                                                           4431:  4511           sbr  x1,xsinfu
 4419: 4512           sbr  x3,ftbl1-1                                                                          4432:  4512           sbr  x3,ftbl1-1
 4420: 4513 fscan     bce  nofun,0&x3,*                                                                        4433:  4513 fscan     bce  nofun,0&x3,*
 4421: 4514           sbr  x3                                                                                  4434:  4514           sbr  x3
 4422: 4515           c    0&x3,0&x2                                                                           4435:  4515           c    0&x3,0&x2
 4423: 4516           be   gotfn                                                                               4436:  4516           be   gotfn
 4424: 4517           c    0&x3                                                                                4437:  4517           c    0&x3
 4425: 4518           sar  x3                                                                                  4438:  4518           sar  x3
 4426: 4519           sbr  x1,1&x1                                                                             4439:  4519           sbr  x1,1&x1
 4427: 4520           b    fscan                                                                               4440:  4520           b    fscan
 4428: 4521 nofun     ftmsg29,undefined function name,code,25                                                  4441:  4521 nofun     ftmsg29,undefined function name,code,25
 4429: 4522           b    zonch                                                                               4442:  4522           b    zonch
 4430: 4523 comfn     cw   xcomf1                                                                              4443:  4523 comfn     cw   xcomf1
 4431: 4524           b    mov                                                                                 4444:  4524           b    mov
 4432: 4525 cosin     cw   xsinfu                                                                              4445:  4525 cosin     cw   xsinfu
 4433: 4526           b    comfn                                                                               4446:  4526           b    comfn
 4434: 4527 absvl     cw   xabsva,xnegtf                                                                       4447:  4527 absvl     cw   xabsva,xnegtf
 4435: 4528           b    mov                                                                                 4448:  4528           b    mov
 4436: 4529 gotfn     sw   1&x3                                                                                4449:  4529 gotfn     sw   1&x3
 4437: 4530           bce  cosin,1&x3,c                                                                        4450:  4530           bce  cosin,1&x3,c
 4438: 4531           bce  absvl,1&x3,a                                                                        4451:  4531           bce  absvl,1&x3,a
 4439: 4532           cw   0&x1                                                                                4452:  4532           cw   0&x1
 4440: 4533           mcw  1&x3,*&8                                                                            4453:  4533           mcw  1&x3,*&8
 4441: 4534           bce  comfn,@sgect@,0                                                                     4454:  4534           bce  comfn,@sgect@,0
 4442: 4535           chain4                                                                                   4455:  4535           chain4
 4443: 4536 mov       bce  keepx,0&x2,x                                                                        4456:  4536 mov       bce  keepx,0&x2,x
 4444: 4537           mcw  1&x3,0&x2                                                                           4457:  4537           mcw  1&x3,0&x2
 4445: 4538           mcw  blnk1#1                                                                             4458:  4538           mcw  blnk1#1
 4446: 4539           sbr  x2                                                                                  4459:  4539           sbr  x2
 4447: 4540           mcw  hex3,x3                                                                             4460:  4540           mcw  hex3,x3
 4448: 4541           mcw  hex1,x1                                                                             4461:  4541           mcw  hex1,x1
 4449: 4542           cw   0&x1                                                                                4462:  4542           cw   0&x1
 4450: 4543           sar  x1                                                                                  4463:  4543           sar  x1
 4451: 4544           lca  0&x1,0&x2                                                                           4464:  4544           lca  0&x1,0&x2
 4452: 4545           sbr  x1,0&x2                                                                             4465:  4545           sbr  x1,0&x2
 4453: 4546           b    loop3                                                                               4466:  4546           b    loop3
 4454: 4547 keepx     mn   0&x2                                                                                4467:  4547 keepx     mn   0&x2
 4455: 4548           sar  x2                                                                                  4468:  4548           sar  x2
 4456: 4549           b    mov&8                                                                               4469:  4549           b    mov&8
 4457: 4550 cdint     ftmsg23,coding unintelligible,code,23                                                    4470:  4550 cdint     ftmsg23,coding unintelligible,code,23
 4458: 4551 zonch     mcw  kill,x3                                                                             4471:  4551 zonch     mcw  kill,x3
 4459: 4552           mcw  next,x1                                                                             4472:  4552           mcw  next,x1
 4460: 4553           b    nustm                                                                               4473:  4553           b    nustm
 4461: 4554 mesur     sbr  mesxt&3                                                                             4474:  4554 mesur     sbr  mesxt&3
 4462: 4555           bce  subsc,1&x1,$                                                                        4475:  4555           bce  subsc,1&x1,$
 4463: 4556           sbr  mesbx#3,4&x1                                                                        4476:  4556           sbr  mesbx#3,4&x1
 4464: 4557 mescm     c    mesbx,x2                                                                            4477:  4557 mescm     c    mesbx,x2
 4465: 4558 mesxt     be   0                                                                                   4478:  4558 mesxt     be   0
 4466: 4559           ftmsg25,left side invalid,code,19                                                        4479:  4559           ftmsg25,left side invalid,code,19
 4467: 4560           b    zonch                                                                               4480:  4560           b    zonch
 4468: 4561 syner     ftmsg27,arithmetic syntax error,code,25                                                  4481:  4561 syner     ftmsg27,arithmetic syntax error,code,25
 4469: 4562           b    zonch                                                                               4482:  4562           b    zonch
 4470: 4563 gm1       dc   @}@        g-m                                                                      4483:  4563 gm1       dc   @}@        g-m
 4471: 4564 dblop     ftmsg31,double operators,code,18                                                         4484:  4564 dblop     ftmsg31,double operators,code,18
 4472: 4565           b    zonch                                                                               4485:  4565           b    zonch
 4473: 4566 subsc     sbr  mesbx,12&x1                                                                         4486:  4566 subsc     sbr  mesbx,12&x1
 4474: 4567           bce  mescm,11&x1,$                                                                       4487:  4567           bce  mescm,11&x1,$
 4475: 4568           sbr  mesbx,18&x1                                                                         4488:  4568           sbr  mesbx,18&x1
 4476: 4569           b    mescm                                                                               4489:  4569           b    mescm
 4477: 4570 *                                                                                                  4490:  4570 *
 4478: 4571 *              table of fortran functions                                                          4491:  4571 *              table of fortran functions
 4479: 4572 *                                                                                                  4492:  4572 *
 4480: 4573           dcw  @*@             signals end of table                                                4493:  4573           dcw  @*@             signals end of table
 4481: 4574 *                                                                                                  4494:  4574 *
 4482: 4575           dcw  @   %fsocc@                                                                         4495:  4575           dcw  @   %fsocc@
 4483: 4576           dcw  @  %fsbaxa@                                                                         4496:  4576           dcw  @  %fsbaxa@
 4484: 4577           dcw  @ %fknilxi@                                                                         4497:  4577           dcw  @ %fknilxi@
 4485: 4578 *                          user functions                                                          4498:  4578 *                          user functions
 4486: 4579           dcw  @        h@    user fn 12                                                           4499:  4579           dcw  @        h@    user fn 12
 4487: 4580           dcw  @        d@    user fn 11                                                           4500:  4580           dcw  @        d@    user fn 11
 4488: 4581           dcw  @        m@    user fn 10                                                           4501:  4581           dcw  @        m@    user fn 10
 4489: 4582           dcw  @        l@    user fn  9                                                           4502:  4582           dcw  @        l@    user fn  9
 4490: 4583           dcw  @        k@    user fn  8                                                           4503:  4583           dcw  @        k@    user fn  8
 4491: 4584           dcw  @        j@    user fn  7                                                           4504:  4584           dcw  @        j@    user fn  7
 4492: 4585           dcw  @        z@    user fn  6                                                           4505:  4585           dcw  @        z@    user fn  6
 4493: 4586           dcw  @        y@    user fn  5                                                           4506:  4586           dcw  @        y@    user fn  5
 4494: 4587           dcw  @        w@    user fn  4                                                           4507:  4587           dcw  @        w@    user fn  4
 4495: 4588           dcw  @        p@    user fn  3                                                           4508:  4588           dcw  @        p@    user fn  3
 4496: 4589           dcw  @        u@    user fn  2                                                           4509:  4589           dcw  @        u@    user fn  2
 4497: 4590           dcw  @        r@    user fn  1                                                           4510:  4590           dcw  @        r@    user fn  1
 4498: 4591           dcw  @  %ftrqsq@                                                                         4511:  4591           dcw  @  %ftrqsq@
 4499: 4592           dcw  @ %ftaolff@                                                                         4512:  4592           dcw  @ %ftaolff@
 4500: 4593           dcw  @  %fxifxx@                                                                         4513:  4593           dcw  @  %fxifxx@
 4501: 4594           dcw  #9                                                                                  4514:  4594           dcw  #9
 4502: 4595           dcw  @   %fsbaa@                                                                         4515:  4595           dcw  @   %fsbaa@
 4503: 4596           dcw  @  %fnatat@                                                                         4516:  4596           dcw  @  %fnatat@
 4504: 4597           dcw  @   %fpxee@                                                                         4517:  4597           dcw  @   %fpxee@
 4505: 4598           dcw  @   %fgolg@                                                                         4518:  4598           dcw  @   %fgolg@
 4506: 4599           dcw  @   %fniss@                                                                         4519:  4599           dcw  @   %fniss@
 4507: 4600 ftbl1     dcw  #1                                                                                  4520:  4600 ftbl1     dcw  #1
 4508: 4601           ltorg*                                                                                   4521:  4601           ltorg*
 4509: 4602 sysgm     dcw  @}@        system group mark                                                        4522:  4602 sysgm     dcw  @}@        system group mark
 4510: 4603           xfr  start                                                                               4523:  4603           xfr  start
 4511: 4604           job  arith phase two                                        50343                        4524:  4604           job  arith phase two                                        50343
 4512: 4605           fbegnarith 2,x1,,x2,,x3,,0                                                               4525:  4605           fbegnarith 2,x1,,x2,,x3,,0
 4513: 4606           org  xbegin                                                                              4526:  4606           org  xbegin
 4514: 4607 initl     bce  out,x2,.                                                                            4527:  4607 initl     bce  out,x2,.
 4515: 4608           sw   gm                                                                                  4528:  4608           sw   gm
 4516: 4609           mcw  x2,nomo#3                                                                           4529:  4609           mcw  x2,nomo#3
 4517: 4610           sbr  x3,2&x3                                                                             4530:  4610           sbr  x3,2&x3
 4518: 4611           sbr  x1,2&x1                                                                             4531:  4611           sbr  x1,2&x1
 4519: 4612           mcw  x1,x2                                                                               4532:  4612           mcw  x1,x2
 4520: 4613 clr1      mn   x2,tail#2                                                                           4533:  4613 clr1      mn   x2,tail#2
 4521: 4614           mn                                                                                       4534:  4614           mn
 4522: 4615           c    tail,@00@                                                                           4535:  4615           c    tail,@00@
 4523: 4616           be   sto                                                                                 4536:  4616           be   sto
 4524: 4617           cw   0&x2                                                                                4537:  4617           cw   0&x2
 4525: 4618           sbr  x2,1&x2                                                                             4538:  4618           sbr  x2,1&x2
 4526: 4619           b    clr1                                                                                4539:  4619           b    clr1
 4527: 4620 sto       mn   0&x2                                                                                4540:  4620 sto       mn   0&x2
 4528: 4621           sar  last#3                                                                              4541:  4621           sar  last#3
 4529: 4622           mn   0&x3                                                                                4542:  4622           mn   0&x3
 4530: 4623           sar  x2                                                                                  4543:  4623           sar  x2
 4531: 4624 clr2      c    x2,last                                                                             4544:  4624 clr2      c    x2,last
 4532: 4625           be   mvup                                                                                4545:  4625           be   mvup
 4533: 4626           cs   0&x2                                                                                4546:  4626           cs   0&x2
 4534: 4627           sbr  x2                                                                                  4547:  4627           sbr  x2
 4535: 4628           b    clr2                                                                                4548:  4628           b    clr2
 4536: 4629 mvup      movupx3,x1,nomo,all,|                                                                    4549:  4629 mvup      movupx3,x1,nomo,all,|
 4537: 4630           mn   0&x1                                                                                4550:  4630           mn   0&x1
 4538: 4631           sar  x1                                                                                  4551:  4631           sar  x1
 4539: 4632           mn   0&x3                                                                                4552:  4632           mn   0&x3
 4540: 4633           sbr  nxbtm#3                                                                             4553:  4633           sbr  nxbtm#3
 4541: 4634           bce  start,0&x3,}        group mk                                                        4554:  4634           bce  start,0&x3,}        group mk
 4542: 4635           sbr  x3                                                                                  4555:  4635           sbr  x3
 4543: 4636           lca  gm                                                                                  4556:  4636           lca  gm
 4544: 4637           sbr  nxbtm                                                                               4557:  4637           sbr  nxbtm
 4545: 4638           mcw  x3,nomo                                                                             4558:  4638           mcw  x3,nomo
 4546: 4639 start     mcw  nxbtm,hex2#3                                                                        4559:  4639 start     mcw  nxbtm,hex2#3
 4547: 4640           mcw  0&x1,x3                                                                             4560:  4640           mcw  0&x1,x3
 4548: 4641           bwz  *&5,x3,2                                                                            4561:  4641           bwz  *&5,x3,2
 4549: 4642           b    *&9                                                                                 4562:  4642           b    *&9
 4550: 4643           bwz  *&8,x3-2,2                                                                          4563:  4643           bwz  *&8,x3-2,2
 4551: 4644           mcw  0&x3,x3                                                                             4564:  4644           mcw  0&x3,x3
 4552: 4645           mcw  x3,code#3                                                                           4565:  4645           mcw  x3,code#3
 4553: 4646           mcw  blnks,cntr                                                                          4566:  4646           mcw  blnks,cntr
 4554: 4647           mcw  @]@,40&x1        11-5-8                                                             4567:  4647           mcw  @]@,40&x1        11-5-8
 4555: 4648           sbr  klobr&6,40&x1                                                                       4568:  4648           sbr  klobr&6,40&x1
 4556: 4649           b    mvdwn                                                                               4569:  4649           b    mvdwn
 4557: 4650           bce  if,2&x1,e                                                                           4570:  4650           bce  if,2&x1,e
 4558: 4651           c    2&x1,@r@                                                                            4571:  4651           c    2&x1,@r@
 4559: 4652           bu   dun                                                                                 4572:  4652           bu   dun
 4560: 4653 arith     mcw  x1,x3                                                                               4573:  4653 arith     mcw  x1,x3
 4561: 4654           sbr  tukit&3,0&x1                                                                        4574:  4654           sbr  tukit&3,0&x1
 4562: 4655           c    0&x3                                                                                4575:  4655           c    0&x3
 4563: 4656           sar  next#3                                                                              4576:  4656           sar  next#3
 4564: 4657           b    getlf                                                                               4577:  4657           b    getlf
 4565: 4658 klobr     bce  cntrl,0,]        11-5-8                                                             4578:  4658 klobr     bce  cntrl,0,]        11-5-8
 4566: 4659           fquit                                                                                    4579:  4659           fquit
 4567: 4660 if        mcw  x1,x3                                                                               4580:  4660 if        mcw  x1,x3
 4568: 4661 rucom     bce  pass,0&x3,,                                                                         4581:  4661 rucom     bce  pass,0&x3,,
 4569: 4662           sbr  x3                                                                                  4582:  4662           sbr  x3
 4570: 4663           b    rucom                                                                               4583:  4663           b    rucom
 4571: 4664 pass      mn   0&x3                                                                                4584:  4664 pass      mn   0&x3
 4572: 4665           sw                                                                                       4585:  4665           sw
 4573: 4666           b    mvdwn                                                                               4586:  4666           b    mvdwn
 4574: 4667           b    arith                                                                               4587:  4667           b    arith
 4575: 4668 mvdwn     sbr  exmvd&3                                                                             4588:  4668 mvdwn     sbr  exmvd&3
 4576: 4669           mcw  nxbtm,x2                                                                            4589:  4669           mcw  nxbtm,x2
 4577: 4670           lca  0&x1,0&x2                                                                           4590:  4670           lca  0&x1,0&x2
 4578: 4671           sbr  nxbtm                                                                               4591:  4671           sbr  nxbtm
 4579: 4672           c    0&x1                                                                                4592:  4672           c    0&x1
 4580: 4673           sar  x1                                                                                  4593:  4673           sar  x1
 4581: 4674 exmvd     b    0                                                                                   4594:  4674 exmvd     b    0
 4582: 4675 getlf     sbr  exgtl&3                                                                             4595:  4675 getlf     sbr  exgtl&3
 4583: 4676           bce  sbscr,0&x3,$                                                                        4596:  4676           bce  sbscr,0&x3,$
 4584: 4677 loop      mcw  0&x3,philf                                                                          4597:  4677 loop      mcw  0&x3,philf
 4585: 4678           sar  x3                                                                                  4598:  4678           sar  x3
 4586: 4679           mcw  philf,*&8                                                                           4599:  4679           mcw  philf,*&8
 4587: 4680           bce  exgtl,ops,0                                                                         4600:  4680           bce  exgtl,ops,0
 4588: 4681           chain10                                                                                  4601:  4681           chain10
 4589: 4682           b    loop                                                                                4602:  4682           b    loop
 4590: 4683 exgtl     b    0                                                                                   4603:  4683 exgtl     b    0
 4591: 4684 sbscr     c    0&x3,blnks#12                                                                       4604:  4684 sbscr     c    0&x3,blnks#12
 4592: 4685           sar  x3                                                                                  4605:  4685           sar  x3
 4593: 4686           bce  exgtl,2&x3,$                                                                        4606:  4686           bce  exgtl,2&x3,$
 4594: 4687           c    0&x3,blnks-6                                                                        4607:  4687           c    0&x3,blnks-6
 4595: 4688           sar  x3                                                                                  4608:  4688           sar  x3
 4596: 4689           b    exgtl                                                                               4609:  4689           b    exgtl
 4597: 4690 cntrl     mcw  1&x3,philf#1                                                                        4610:  4690 cntrl     mcw  1&x3,philf#1
 4598: 4691           mcw  1&x1,phirt#1                                                                        4611:  4691           mcw  1&x1,phirt#1
 4599: 4692           mcw  phirt,ckop&7                                                                        4612:  4692           mcw  phirt,ckop&7
 4600: 4693           mcw  blnks,units#3                                                                       4613:  4693           mcw  blnks,units#3
 4601: 4694           b    gtnum                                                                               4614:  4694           b    gtnum
 4602: 4695           mn   num#1,units-1                                                                       4615:  4695           mn   num#1,units-1
 4603: 4696           mcw  philf,ckop&7                                                                        4616:  4696           mcw  philf,ckop&7
 4604: 4697           b    gtnum                                                                               4617:  4697           b    gtnum
 4605: 4698           mn   num,units                                                                           4618:  4698           mn   num,units
 4606: 4699           mcw  units,x2                                                                            4619:  4699           mcw  units,x2
 4607: 4700           mn   matrx&x2,x2                                                                         4620:  4700           mn   matrx&x2,x2
 4608: 4701           mcw  blnks                                                                               4621:  4701           mcw  blnks
 4609: 4702           bwz  err5,x2,s                                                                           4622:  4702           bwz  err5,x2,s
 4610: 4703           a    x2                                                                                  4623:  4703           a    x2
 4611: 4704           a    x2                                                                                  4624:  4704           a    x2
 4612: 4705           b    *&1&x2                                                                              4625:  4705           b    *&1&x2
 4613: 4706           b    skip                                                                                4626:  4706           b    skip
 4614: 4707           b    paren                                                                               4627:  4707           b    paren
 4615: 4708           b    force                                                                               4628:  4708           b    force
 4616: 4709           b    eoj                                                                                 4629:  4709           b    eoj
 4617: 4710           b    neg                                                                                 4630:  4710           b    neg
 4618: 4711           b    fun                                                                                 4631:  4711           b    fun
 4619: 4712           b    err1                                                                                4632:  4712           b    err1
 4620: 4713           b    err2                                                                                4633:  4713           b    err2
 4621: 4714           b    err3                                                                                4634:  4714           b    err3
 4622: 4715           b    err4                                                                                4635:  4715           b    err4
 4623: 4716 gtnum     sbr  ckop&3                                                                              4636:  4716 gtnum     sbr  ckop&3
 4624: 4717           bce  gotum,ckop&7,-                                                                      4637:  4717           bce  gotum,ckop&7,-
 4625: 4718 nish      s    num                                                                                 4638:  4718 nish      s    num
 4626: 4719           mcw  &ops,ckop&6                                                                         4639:  4719           mcw  &ops,ckop&6
 4627: 4720 ckop      bce  0,0,0                                                                               4640:  4720 ckop      bce  0,0,0
 4628: 4721           sbr  ckop&6                                                                              4641:  4721           sbr  ckop&6
 4629: 4722           a    @1@,num                                                                             4642:  4722           a    @1@,num
 4630: 4723           b    ckop                                                                                4643:  4723           b    ckop
 4631: 4724 gotum     mcw  @&@,ckop&7                                                                          4644:  4724 gotum     mcw  @&@,ckop&7
 4632: 4725           b    nish                                                                                4645:  4725           b    nish
 4633: 4726 gntmp     sbr  exgtp&3                                                                             4646:  4726 gntmp     sbr  exgtp&3
 4634: 4727           a    @1@,cntr#3                                                                          4647:  4727           a    @1@,cntr#3
 4635: 4728           mz   cntr-1,temp                                                                         4648:  4728           mz   cntr-1,temp
 4636: 4729           mn   cntr,temp                                                                           4649:  4729           mn   cntr,temp
 4637: 4730           mn                                                                                       4650:  4730           mn
 4638: 4731 exgtp     b    0                                                                                   4651:  4731 exgtp     b    0
 4639: 4732 skip      mcw  x3,x1                                                                               4652:  4732 skip      mcw  x3,x1
 4640: 4733           b    getlf                                                                               4653:  4733           b    getlf
 4641: 4734           b    cntrl                                                                               4654:  4734           b    cntrl
 4642: 4735 paren     sw   2&x3                                                                                4655:  4735 paren     sw   2&x3
 4643: 4736           lca  0&x1,1&x1                                                                           4656:  4736           lca  0&x1,1&x1
 4644: 4737           cw   3&x3                                                                                4657:  4737           cw   3&x3
 4645: 4738           cw                                                                                       4658:  4738           cw
 4646: 4739           lca  0&x3,2&x3                                                                           4659:  4739           lca  0&x3,2&x3
 4647: 4740           sbr  x1,1&x1                                                                             4660:  4740           sbr  x1,1&x1
 4648: 4741           sbr  x3,1&x3                                                                             4661:  4741           sbr  x3,1&x3
 4649: 4742           b    cntrl                                                                               4662:  4742           b    cntrl
 4650: 4743 force     mcw  nxbtm,x2                                                                            4663:  4743 force     mcw  nxbtm,x2
 4651: 4744           mz   4&x3,zone#1                                                                         4664:  4744           mz   4&x3,zone#1
 4652: 4745           bce  *&8,2&x3,$                                                                          4665:  4745           bce  *&8,2&x3,$
 4653: 4746           mz   3&x3,zone                                                                           4666:  4746           mz   3&x3,zone
 4654: 4747           sw   2&x3                                                                                4667:  4747           sw   2&x3
 4655: 4748           lca  0&x1,0&x2                                                                           4668:  4748           lca  0&x1,0&x2
 4656: 4749           sbr  x2                                                                                  4669:  4749           sbr  x2
 4657: 4750           cw   1&x2                                                                                4670:  4750           cw   1&x2
 4658: 4751           sw   2&x1                                                                                4671:  4751           sw   2&x1
 4659: 4752           sw                                                                                       4672:  4752           sw
 4660: 4753           lca  1&x1,0&x2                                                                           4673:  4753           lca  1&x1,0&x2
 4661: 4754           sbr  x2                                                                                  4674:  4754           sbr  x2
 4662: 4755           sbr  nxbtm                                                                               4675:  4755           sbr  nxbtm
 4663: 4756           cw   1&x2                                                                                4676:  4756           cw   1&x2
 4664: 4757           bce  sbvrt,2&x1,$                                                                        4677:  4757           bce  sbvrt,2&x1,$
 4665: 4758           lca  4&x1,0&x2                                                                           4678:  4758           lca  4&x1,0&x2
 4666: 4759           sbr  nxbtm                                                                               4679:  4759           sbr  nxbtm
 4667: 4760           mz   3&x1,temp-1                                                                         4680:  4760           mz   3&x1,temp-1
 4668: 4761           sar  x1                                                                                  4681:  4761           sar  x1
 4669: 4762 fnish     b    gntmp                                                                               4682:  4762 fnish     b    gntmp
 4670: 4763           lca  temp,2&x1                                                                           4683:  4763           lca  temp,2&x1
 4671: 4764           lca  1&x3                                                                                4684:  4764           lca  1&x3
 4672: 4765           cw   0&x1                                                                                4685:  4765           cw   0&x1
 4673: 4766           mn                                                                                       4686:  4766           mn
 4674: 4767           sar  x3                                                                                  4687:  4767           sar  x3
 4675: 4768           sbr  x1,2&x1                                                                             4688:  4768           sbr  x1,2&x1
 4676: 4769           bwz  ruint,temp-1,s                                                                      4689:  4769           bwz  ruint,temp-1,s
 4677: 4770           bwz  ruint,temp-1,k                                                                      4690:  4770           bwz  ruint,temp-1,k
 4678: 4771           bwz  klobr,zone,2                                                                        4691:  4771           bwz  klobr,zone,2
 4679: 4772           bwz  klobr,zone,b                                                                        4692:  4772           bwz  klobr,zone,b
 4680: 4773           bce  klobr,phirt,.                                                                       4693:  4773           bce  klobr,phirt,.
 4681: 4774           b    err46                                                                               4694:  4774           b    err46
 4682: 4775 ruint     bwz  klobr,zone,s                                                                        4695:  4775 ruint     bwz  klobr,zone,s
 4683: 4776           bwz  klobr,zone,k                                                                        4696:  4776           bwz  klobr,zone,k
 4684: 4777 err46     ftmsg46,mixing in arith,code,17                                                          4697:  4777 err46     ftmsg46,mixing in arith,code,17
 4685: 4778           b    kill                                                                                4698:  4778           b    kill
 4686: 4779 sbvrt     sbr  x2,10&x1                                                                            4699:  4779 sbvrt     sbr  x2,10&x1
 4687: 4780           bce  send,2&x2,$                                                                         4700:  4780           bce  send,2&x2,$
 4688: 4781           sbr  x2,6&x2                                                                             4701:  4781           sbr  x2,6&x2
 4689: 4782 send      mcw  nxbtm,*&7                                                                           4702:  4782 send      mcw  nxbtm,*&7
 4690: 4783           lca  2&x2,0                                                                              4703:  4783           lca  2&x2,0
 4691: 4784           sbr  nxbtm                                                                               4704:  4784           sbr  nxbtm
 4692: 4785           mz   4&x1,temp-1                                                                         4705:  4785           mz   4&x1,temp-1
 4693: 4786           mcw  x2,x1                                                                               4706:  4786           mcw  x2,x1
 4694: 4787           b    fnish                                                                               4707:  4787           b    fnish
 4695: 4788 neg       mcw  @n@,1&x1                                                                            4708:  4788 neg       mcw  @n@,1&x1
 4696: 4789           mz   4&x3,temp-1                                                                         4709:  4789           mz   4&x3,temp-1
 4697: 4790           bce  funy,2&x3,$                                                                         4710:  4790           bce  funy,2&x3,$
 4698: 4791           mz   3&x3,temp-1                                                                         4711:  4791           mz   3&x3,temp-1
 4699: 4792           b    funy                                                                                4712:  4792           b    funy
 4700: 4793 fun       mcw  3&x1,type#2                                                                         4713:  4793 fun       mcw  3&x1,type#2
 4701: 4794           bce  fxmod,3&x1,x                                                                        4714:  4794           bce  fxmod,3&x1,x
 4702: 4795           mz   *-4,temp-1                                                                          4715:  4795           mz   *-4,temp-1
 4703: 4796 ckusr     sw   2&x1                                                                                4716:  4796 ckusr     sw   2&x1
 4704: 4797           mcw  2&x1,*&8                                                                            4717:  4797           mcw  2&x1,*&8
 4705: 4798           bce  okay,@rupwyzkjlmdh@,0                                                               4718:  4798           bce  okay,@rupwyzkjlmdh@,0
 4706: 4799           chain11                                                                                  4719:  4799           chain11
 4707: 4800           mz   4&x3,zone                                                                           4720:  4800           mz   4&x3,zone
 4708: 4801           bce  *&8,2&x3,$                                                                          4721:  4801           bce  *&8,2&x3,$
 4709: 4802           mz   3&x3,zone                                                                           4722:  4802           mz   3&x3,zone
 4710: 4803           bce  rufix,2&x1,f                                                                        4723:  4803           bce  rufix,2&x1,f
 4711: 4804           bce  rufix,2&x1,i                                                                        4724:  4804           bce  rufix,2&x1,i
 4712: 4805           c    type,@ax@                                                                           4725:  4805           c    type,@ax@
 4713: 4806           be   rufix                                                                               4726:  4806           be   rufix
 4714: 4807           bwz  err6,zone,s                                                                         4727:  4807           bwz  err6,zone,s
 4715: 4808           bwz  err6,zone,k                                                                         4728:  4808           bwz  err6,zone,k
 4716: 4809 okay      mcw  2&x1,1&x1                                                                           4729:  4809 okay      mcw  2&x1,1&x1
 4717: 4810           mcw  @%@,2&x1                                                                            4730:  4810           mcw  @%@,2&x1
 4718: 4811           cw   2&x1                                                                                4731:  4811           cw   2&x1
 4719: 4812 funy      mcw  nxbtm,x2                                                                            4732:  4812 funy      mcw  nxbtm,x2
 4720: 4813           sw   2&x3                                                                                4733:  4813           sw   2&x3
 4721: 4814           lca  1&x1,0&x2                                                                           4734:  4814           lca  1&x1,0&x2
 4722: 4815           sbr  nxbtm                                                                               4735:  4815           sbr  nxbtm
 4723: 4816           b    gntmp                                                                               4736:  4816           b    gntmp
 4724: 4817           lca  temp,1&x1                                                                           4737:  4817           lca  temp,1&x1
 4725: 4818           lca  1&x3                                                                                4738:  4818           lca  1&x3
 4726: 4819           mn   0&x1                                                                                4739:  4819           mn   0&x1
 4727: 4820           cw                                                                                       4740:  4820           cw
 4728: 4821           mn                                                                                       4741:  4821           mn
 4729: 4822           sar  x3                                                                                  4742:  4822           sar  x3
 4730: 4823           sbr  x1,1&x1                                                                             4743:  4823           sbr  x1,1&x1
 4731: 4824           b    klobr                                                                               4744:  4824           b    klobr
 4732: 4825 fxmod     mz   *-6,temp-1                                                                          4745:  4825 fxmod     mz   *-6,temp-1
 4733: 4826           lca  2&x1,3&x1                                                                           4746:  4826           lca  2&x1,3&x1
 4734: 4827           sbr  x1,1&x1                                                                             4747:  4827           sbr  x1,1&x1
 4735: 4828           sbr  x3,1&x3                                                                             4748:  4828           sbr  x3,1&x3
 4736: 4829           b    ckusr                                                                               4749:  4829           b    ckusr
 4737: 4830 rufix     bwz  okay,zone,s                                                                         4750:  4830 rufix     bwz  okay,zone,s
 4738: 4831           bwz  okay,zone,k                                                                         4751:  4831           bwz  okay,zone,k
 4739: 4832 err6      cs   332                                                                                 4752:  4832 err6      cs   332
 4740: 4833           cs                                                                                       4753:  4833           cs
 4741: 4834           sw   failsw                                                                              4754:  4834           sw   failsw
 4742: 4835           mn   code,224&37                                                                         4755:  4835           mn   code,224&37
 4743: 4836           mn                                                                                       4756:  4836           mn
 4744: 4837           mn                                                                                       4757:  4837           mn
 4745: 4838           mcw  bgmsg                                                                               4758:  4838           mcw  bgmsg
 4746: 4839           w                                                                                        4759:  4839           w
 4747: 4840           bcv  *&5                                                                                 4760:  4840           bcv  *&5
 4748: 4841           b    *&3                                                                                 4761:  4841           b    *&3
 4749: 4842           cc   1                                                                                   4762:  4842           cc   1
 4750: 4843           b    kill                                                                                4763:  4843           b    kill
 4751: 4844 err5      ftmsg24,system error,code,14                                                             4764:  4844 err5      ftmsg24,system error,code,14
 4752: 4845           b    kill                                                                                4765:  4845           b    kill
 4753: 4846 err4      ftmsg26,excess of # signs,code,19                                                        4766:  4846 err4      ftmsg26,excess of # signs,code,19
 4754: 4847           b    kill                                                                                4767:  4847           b    kill
 4755: 4848 err3      ftmsg32,multiple exponent,code,19                                                        4768:  4848 err3      ftmsg32,multiple exponent,code,19
 4756: 4849           b    kill                                                                                4769:  4849           b    kill
 4757: 4850 err2      ftmsg16,parenthesis error,code,19                                                        4770:  4850 err2      ftmsg16,parenthesis error,code,19
 4758: 4851           b    kill                                                                                4771:  4851           b    kill
 4759: 4852 err1      ftmsg25,left side invalid,code,19                                                        4772:  4852 err1      ftmsg25,left side invalid,code,19
 4760: 4853 kill      mcw  hex2,nxbtm                                                                          4773:  4853 kill      mcw  hex2,nxbtm
 4761: 4854           b    reset                                                                               4774:  4854           b    reset
 4762: 4855 eoj       mcw  nxbtm,x2                                                                            4775:  4855 eoj       mcw  nxbtm,x2
 4763: 4856           sw   2&x3                                                                                4776:  4856           sw   2&x3
 4764: 4857           lca  0&x1,0&x2                                                                           4777:  4857           lca  0&x1,0&x2
 4765: 4858           lca  @#@                                                                                 4778:  4858           lca  @#@
 4766: 4859           sbr  x2                                                                                  4779:  4859           sbr  x2
 4767: 4860           cw   2&x2                                                                                4780:  4860           cw   2&x2
 4768: 4861           cw                                                                                       4781:  4861           cw
 4769: 4862           sw   2&x1                                                                                4782:  4862           sw   2&x1
 4770: 4863 tukit     lca  0,0&x2                                                                              4783:  4863 tukit     lca  0,0&x2
 4771: 4864           lca  gm                                                                                  4784:  4864           lca  gm
 4772: 4865           sbr  nxbtm                                                                               4785:  4865           sbr  nxbtm
 4773: 4866 reset     mcw  next,x1                                                                             4786:  4866 reset     mcw  next,x1
 4774: 4867           b    start                                                                               4787:  4867           b    start
 4775: 4868 dun       sbr  x1,5&x1                                                                             4788:  4868 dun       sbr  x1,5&x1
 4776: 4869           mcw  nxbtm,x3                                                                            4789:  4869           mcw  nxbtm,x3
 4777: 4870           sbr  x2,5&x3                                                                             4790:  4870           sbr  x2,5&x3
 4778: 4871           mcw  nomo,x3                                                                             4791:  4871           mcw  nomo,x3
 4779: 4872 out       fendxc,,,,,,sysgm,arith tri                                                              4792:  4872 out       fendxc,,,,,,sysgm,arith tri
 4780: 4873           dcw  @<@        delta   12-6-8                                                           4793:  4873           dcw  @<@        delta   12-6-8
 4781: 4874 temp      dc   @  @      blanks                                                                    4794:  4874 temp      dc   @  @      blanks
 4782: 4875 gm        dc   @}@      group mk                                                                   4795:  4875 gm        dc   @}@      group mk
 4783: 4876           dcw  @error 28 - incorrect mode of function argument, st@                                4796:  4876           dcw  @error 28 - incorrect mode of function argument, st@
 4784: 4877 bgmsg     dc   @atement @                                                                          4797:  4877 bgmsg     dc   @atement @
 4785: 4878           dcw  @-@                                                                                 4798:  4878           dcw  @-@
 4786: 4879 ops       dcw  @, .@&}#%)*@        plus, g-m, equal                                                4799:  4879 ops       dcw  @, .@&}#%)*@        plus, g-m, equal
 4787: 4880 matrx     equ  *&1                                                                                 4800:  4880 matrx     equ  *&1
 4788: 4881           dc   @220922200sssssssssss010970000007093000006660s66666@                                4801:  4881           dc   @220922200sssssssssss010970000007093000006660s66666@
 4789: 4882           dc   @020922000s220922200s220922280s0509700000440944400s@                                4802:  4882           dc   @020922000s220922200s220922280s0509700000440944400s@
 4790: 4883 *                                                                                                  4803:  4883 *
 4791: 4884 *                                                                                                  4804:  4884 *
 4792: 4885 *    arith algorithm                                                                               4805:  4885 *    arith algorithm
 4793: 4886 *                                                                                                  4806:  4886 *
 4794: 4887 *                                                                                                  4807:  4887 *
 4795: 4888 *                                                                                                  4808:  4888 *
 4796: 4889 *                      phi left                                                                    4809:  4889 *                      phi left
 4797: 4890 *                                                                                                  4810:  4890 *
 4798: 4891 *                                 -                                                                4811:  4891 *                                 -
 4799: 4892 *             *   )   %   #  gm   &   /  **  f%  ng                                                4812:  4892 *             *   )   %   #  gm   &   /  **  f%  ng
 4800: 4893 *                                                                                                  4813:  4893 *
 4801: 4894 *   p     *   2   2   0   9   2   2   2   0   0   s                                                4814:  4894 *   p     *   2   2   0   9   2   2   2   0   0   s
 4802: 4895 *   h     )   s   s   s   s   s   s   s   s   s   s                                                4815:  4895 *   h     )   s   s   s   s   s   s   s   s   s   s
 4803: 4896 *   i     %   0   1   0   9   7   0   0   0   0   0                                                4816:  4896 *   i     %   0   1   0   9   7   0   0   0   0   0
 4804: 4897 *         #   0   7   0   9   3   0   0   0   0   0                                                4817:  4897 *         #   0   7   0   9   3   0   0   0   0   0
 4805: 4898 *   r    gm   6   6   6   0   s   6   6   6   6   6                                                4818:  4898 *   r    gm   6   6   6   0   s   6   6   6   6   6
 4806: 4899 *   i    -&   0   2   0   9   2   2   0   0   0   s                                                4819:  4899 *   i    -&   0   2   0   9   2   2   0   0   0   s
 4807: 4900 *   g     /   2   2   0   9   2   2   2   0   0   s                                                4820:  4900 *   g     /   2   2   0   9   2   2   2   0   0   s
 4808: 4901 *   h   .**   2   2   0   9   2   2   2   8   0   s                                                4821:  4901 *   h   .**   2   2   0   9   2   2   2   8   0   s
 4809: 4902 *   t    f%   0   5   0   9   7   0   0   0   0   0                                                4822:  4902 *   t    f%   0   5   0   9   7   0   0   0   0   0
 4810: 4903 *       ,ng   4   4   0   9   4   4   4   0   0   s                                                4823:  4903 *       ,ng   4   4   0   9   4   4   4   0   0   s
 4811: 4904 *                                                                                                  4824:  4904 *
 4812: 4905 *                                                                                                  4825:  4905 *
 4813: 4906 *          0  skip to next op                                                                      4826:  4906 *          0  skip to next op
 4814: 4907 *          1  delete parens                                                                        4827:  4907 *          1  delete parens
 4815: 4908 *          2  force binary op                                                                      4828:  4908 *          2  force binary op
 4816: 4909 *          3  eoj                                                                                  4829:  4909 *          3  eoj
 4817: 4910 *          4  negate fn                                                                            4830:  4910 *          4  negate fn
 4818: 4911 *          5  other fn                                                                             4831:  4911 *          5  other fn
 4819: 4912 *          6  left side invalid                                                                    4832:  4912 *          6  left side invalid
 4820: 4913 *          7  paren error                                                                          4833:  4913 *          7  paren error
 4821: 4914 *          8  double exponentiation                                                                4834:  4914 *          8  double exponentiation
 4822: 4915 *          9  multiple # signs                                                                     4835:  4915 *          9  multiple # signs
 4823: 4916 *          s  compiler error                                                                       4836:  4916 *          s  compiler error
 4824: 4917 *                                                                                                  4837:  4917 *
 4825: 4918 *                                                                                                  4838:  4918 *
 4826: 4919           ltorg*                                                                                   4839:  4919           ltorg*
 4827: 4920 sysgm     dcw  @}@      system group mk                                                            4840:  4920 sysgm     dcw  @}@      system group mk
 4828: 4921           xfr  initl                                                                               4841:  4921           xfr  initl
 4829: 4922           job  arith phase three                                      50353                        4842:  4922           job  arith phase three                                      50353
 4830: 4923           sfx  [         12-5-8                                                                    4843:  4923           sfx  [         12-5-8
 4831: 4924 110       dcw  @arith 3@                                                                           4844:  4924 110       dcw  @arith 3@
 4832: 4925           org  xbegin                                                                              4845:  4925           org  xbegin
 4833: 4926 start     fendxc,,,,,,sysgm,arith 4                                                                4846:  4926 start     fendxc,,,,,,sysgm,arith 4
 4834: 4927           org  *&200                                                                               4847:  4927           org  *&200
 4835: 4928           ltorg*                                                                                   4848:  4928           ltorg*
 4836: 4929 sysgm     dcw  @}@           system gm                                                             4849:  4929 sysgm     dcw  @}@           system gm
 4837: 4930           xfr  start                                                                               4850:  4930           xfr  start
 4838: 4931           job  arith phase four                                       50363                        4851:  4931           job  arith phase four                                       50363
 4839: 4932           fbegnarith 4,  x1,,x2,,x3,,7                                                             4852:  4932           fbegnarith 4,  x1,,x2,,x3,,7
 4840: 4933           org  xbegin                                                                              4853:  4933           org  xbegin
 4841: 4934 *  start - initialization                                                                          4854:  4934 *  start - initialization
 4842: 4935 start     bce  fendx,x2,.                                                                          4855:  4935 start     bce  fendx,x2,.
 4843: 4936           sw   gm1                                                                                 4856:  4936           sw   gm1
 4844: 4937           sbr  savx3#3,0&x3                                                                        4857:  4937           sbr  savx3#3,0&x3
 4845: 4938           sbr  x1,1&x1                                                                             4858:  4938           sbr  x1,1&x1
 4846: 4939           sbr  x2,1&x2                                                                             4859:  4939           sbr  x2,1&x2
 4847: 4940 *  start of every statement                                                                        4860:  4940 *  start of every statement
 4848: 4941 nustm     s    tblr                                                                                4861:  4941 nustm     s    tblr
 4849: 4942           c    x2, savx3                                                                           4862:  4942           c    x2, savx3
 4850: 4943           be   fendx                                                                               4863:  4943           be   fendx
 4851: 4944           mcw  blk4,maxdl                                                                          4864:  4944           mcw  blk4,maxdl
 4852: 4945           sbr  hex1#3,0&x1                                                                         4865:  4945           sbr  hex1#3,0&x1
 4853: 4946 *  start of every delta string                                                                     4866:  4946 *  start of every delta string
 4854: 4947 blkop     mcw  blk4, hldop#1                                                                       4867:  4947 blkop     mcw  blk4, hldop#1
 4855: 4948 cwprt     cw   prtsw                                                                               4868:  4948 cwprt     cw   prtsw
 4856: 4949           b    fix          x2 at high order minus one                                             4869:  4949           b    fix          x2 at high order minus one
 4857: 4950           bce  delt1,left-2,<    12-6-8    x2 at units pos                                         4870:  4950           bce  delt1,left-2,<    12-6-8    x2 at units pos
 4858: 4951 ckdl2     bce  delt2,right-2,<   12-6-8                                                            4871:  4951 ckdl2     bce  delt2,right-2,<   12-6-8
 4859: 4952           bce  outpt,1&x2,}      gm                                                                4872:  4952           bce  outpt,1&x2,}      gm
 4860: 4953           bw   big,prtsw                                                                           4873:  4953           bw   big,prtsw
 4861: 4954 add3      a    @i99@,curdl#3                                                                       4874:  4954 add3      a    @i99@,curdl#3
 4862: 4955           mcw  curdl,x3                                                                            4875:  4955           mcw  curdl,x3
 4863: 4956           bce  add3,table&x3,1                                                                     4876:  4956           bce  add3,table&x3,1
 4864: 4957           b    blkop                                                                               4877:  4957           b    blkop
 4865: 4958 *   delta is left operand                                                                          4878:  4958 *   delta is left operand
 4866: 4959 delt1     bce  ckdl2,op,#                                                                          4879:  4959 delt1     bce  ckdl2,op,#
 4867: 4960           bce  tuf,op,.                                                                            4880:  4960           bce  tuf,op,.
 4868: 4961           b    cvtdl                                                                               4881:  4961           b    cvtdl
 4869: 4962           dcw  left                                                                                4882:  4962           dcw  left
 4870: 4963 d2        b    getdl             cvt3 has delta no of sought temp                                  4883:  4963 d2        b    getdl             cvt3 has delta no of sought temp
 4871: 4964           mn   &1,table&x1       mark delta deleted                                                4884:  4964           mn   &1,table&x1       mark delta deleted
 4872: 4965           lca  0&x3,hld35#35                                                                       4885:  4965           lca  0&x3,hld35#35
 4873: 4966           sar  x1                                                                                  4886:  4966           sar  x1
 4874: 4967 *   delete temp                                                                                    4887:  4967 *   delete temp
 4875: 4968 cmp3      c    x1,x2                                                                               4888:  4968 cmp3      c    x1,x2
 4876: 4969           be   hlft                                                                                4889:  4969           be   hlft
 4877: 4970           mvdwnx1,x3                                                                               4890:  4970           mvdwnx1,x3
 4878: 4971           b    cmp3                                                                                4891:  4971           b    cmp3
 4879: 4972 *  x1 # x2 units posn of temp to be optimized                                                      4892:  4972 *  x1 # x2 units posn of temp to be optimized
 4880: 4973 * x3 # units of insertion of optimized temp                                                        4893:  4973 * x3 # units of insertion of optimized temp
 4881: 4974 *  insert temp in string                                                                           4894:  4974 *  insert temp in string
 4882: 4975 hlft      c    0&x2                                                                                4895:  4975 hlft      c    0&x2
 4883: 4976           sar  x1               x1 at hi ord of old temp                                           4896:  4976           sar  x1               x1 at hi ord of old temp
 4884: 4977           bw   cw2,prtsw                                                                           4897:  4977           bw   cw2,prtsw
 4885: 4978 ckrt      bce  nort,right,*                                                                        4898:  4978 ckrt      bce  nort,right,*
 4886: 4979           bce  fst1,op,#                                                                           4899:  4979           bce  fst1,op,#
 4887: 4980           lca  right,0&x3                                                                          4900:  4980           lca  right,0&x3
 4888: 4981           sbr  x3                                                                                  4901:  4981           sbr  x3
 4889: 4982           cw   1&x3                                                                                4902:  4982           cw   1&x3
 4890: 4983 nort      lca  op,0&x3                                                                             4903:  4983 nort      lca  op,0&x3
 4891: 4984           sbr  x3                                                                                  4904:  4984           sbr  x3
 4892: 4985           cw   1&x3                                                                                4905:  4985           cw   1&x3
 4893: 4986           lca  hld35,0&x3                                                                          4906:  4986           lca  hld35,0&x3
 4894: 4987           sbr  x3                                                                                  4907:  4987           sbr  x3
 4895: 4988           sbr  x2               x2 noa at new loc of temp                                          4908:  4988           sbr  x2               x2 noa at new loc of temp
 4896: 4989 *   shift rest of statement                                                                        4909:  4989 *   shift rest of statement
 4897: 4990 load2     lca  0&x1,0&x3                                                                           4910:  4990 load2     lca  0&x1,0&x3
 4898: 4991           sar  x1                                                                                  4911:  4991           sar  x1
 4899: 4992           c    0&x3                                                                                4912:  4992           c    0&x3
 4900: 4993           sar  x3                                                                                  4913:  4993           sar  x3
 4901: 4994           bce  *&5,1&x1,}    gm                                                                    4914:  4994           bce  *&5,1&x1,}    gm
 4902: 4995           b    load2                                                                               4915:  4995           b    load2
 4903: 4996           b    blkop                                                                               4916:  4996           b    blkop
 4904: 4997 *   delta is right operand                                                                         4917:  4997 *   delta is right operand
 4905: 4998 delt2     bce  *&5,hldop,       blank                                                              4918:  4998 delt2     bce  *&5,hldop,       blank
 4906: 4999           b    canu                                                                                4919:  4999           b    canu
 4907: 5000           bce  first,op,#                                                                          4920:  5000           bce  first,op,#
 4908: 5001           fbceqcomut,op,&,*                                                                        4921:  5001           fbceqcomut,op,&,*
 4909: 5002           bce  negat,op,-                                                                          4922:  5002           bce  negat,op,-
 4910: 5003           b    cknd                                                                                4923:  5003           b    cknd
 4911: 5004 comut     lca  left,hld35                                                                          4924:  5004 comut     lca  left,hld35
 4912: 5005           lca  right,left                                                                          4925:  5005           lca  right,left
 4913: 5006           lca  hld35,right                                                                         4926:  5006           lca  hld35,right
 4914: 5007           b    delt1                                                                               4927:  5007           b    delt1
 4915: 5008 negat     bw   kwm,prtsw                                                                           4928:  5008 negat     bw   kwm,prtsw
 4916: 5009           lca  left,0&x2                                                                           4929:  5009           lca  left,0&x2
 4917: 5010           lca  @&@                                                                                 4930:  5010           lca  @&@
 4918: 5011           sbr  x2                                                                                  4931:  5011           sbr  x2
 4919: 5012           cw   2&x2,xnegtf                                                                         4932:  5012           cw   2&x2,xnegtf
 4920: 5013 neg3      lca  right,left                                                                          4933:  5013 neg3      lca  right,left
 4921: 5014           lca  @***@,right                                                                         4934:  5014           lca  @***@,right
 4922: 5015           mcw  @n@,op                                                                              4935:  5015           mcw  @n@,op
 4923: 5016           cw   xnegtf                                                                              4936:  5016           cw   xnegtf
 4924: 5017           sw   prtsw                                                                               4937:  5017           sw   prtsw
 4925: 5018           b    delt1                                                                               4938:  5018           b    delt1
 4926: 5019 *   in the middle of partially optimized temp                                                      4939:  5019 *   in the middle of partially optimized temp
 4927: 5020 big       bce  tuf,right,*                                                                         4940:  5020 big       bce  tuf,right,*
 4928: 5021           mcw  op,bce1&7                                                                           4941:  5021           mcw  op,bce1&7
 4929: 5022 bce1      bce  maybe,@&-*@@, 0                                                                     4942:  5022 bce1      bce  maybe,@&-*@@, 0
 4930: 5023           chain3                                                                                   4943:  5023           chain3
 4931: 5024 tuf       bw   *&5,prtsw                                                                           4944:  5024 tuf       bw   *&5,prtsw
 4932: 5025           b    add3                                                                                4945:  5025           b    add3
 4933: 5026           b    kwm                                                                                 4946:  5026           b    kwm
 4934: 5027 tuf2      bw   adjst,2&x2                                                                          4947:  5027 tuf2      bw   adjst,2&x2
 4935: 5028           sbr  x2                                                                                  4948:  5028           sbr  x2
 4936: 5029           b    tuf2                                                                                4949:  5029           b    tuf2
 4937: 5030 adjst     sbr  x2,1&x2                                                                             4950:  5030 adjst     sbr  x2,1&x2
 4938: 5031           bce  outpt,1&x2,}          gm                                                            4951:  5031           bce  outpt,1&x2,}          gm
 4939: 5032           b    add3                                                                                4952:  5032           b    add3
 4940: 5033 kwm       sbr  kwmxt&3                                                                             4953:  5033 kwm       sbr  kwmxt&3
 4941: 5034           cw   1&x2                                                                                4954:  5034           cw   1&x2
 4942: 5035 kwmxt     b    0                                                                                   4955:  5035 kwmxt     b    0
 4943: 5036 maybe     bce  *&5,hldop,            blank                                                         4956:  5036 maybe     bce  *&5,hldop,            blank
 4944: 5037           b    adnl                                                                                4957:  5037           b    adnl
 4945: 5038           mcw  op,hldop                                                                            4958:  5038           mcw  op,hldop
 4946: 5039 mesur     cw   1&x2                                                                                4959:  5039 mesur     cw   1&x2
 4947: 5040           lca  right,0&x2                                                                          4960:  5040           lca  right,0&x2
 4948: 5041           sbr  x2                                                                                  4961:  5041           sbr  x2
 4949: 5042           cw   midsw#1                                                                             4962:  5042           cw   midsw#1
 4950: 5043           sbr  cw5&3,1&x2                                                                          4963:  5043           sbr  cw5&3,1&x2
 4951: 5044           b    cwprt                                                                               4964:  5044           b    cwprt
 4952: 5045 adnl      fbceqhope,hldop,&,-                                                                      4965:  5045 adnl      fbceqhope,hldop,&,-
 4953: 5046           fbceqmesur,op,*,/                                                                        4966:  5046           fbceqmesur,op,*,/
 4954: 5047           b    tuf                                                                                 4967:  5047           b    tuf
 4955: 5048 hope      fbceqmesur,op,&,-                                                                        4968:  5048 hope      fbceqmesur,op,&,-
 4956: 5049           b    tuf                                                                                 4969:  5049           b    tuf
 4957: 5050 *  delta found in middle of large string                                                           4970:  5050 *  delta found in middle of large string
 4958: 5051 canu      mcw  op,*&8                                                                              4971:  5051 canu      mcw  op,*&8
 4959: 5052           bce  swap,hldop,0                                                                        4972:  5052           bce  swap,hldop,0
 4960: 5053           fbceqhope2,hldop,&,-                                                                     4973:  5053           fbceqhope2,hldop,&,-
 4961: 5054 cknd      bce  outpt,1&x2,}          gm                                                            4974:  5054 cknd      bce  outpt,1&x2,}          gm
 4962: 5055           bw   tuf,prtsw                                                                           4975:  5055           bw   tuf,prtsw
 4963: 5056           bw   add3,1&x2                                                                           4976:  5056           bw   add3,1&x2
 4964: 5057           b    tuf                                                                                 4977:  5057           b    tuf
 4965: 5058 hope2     fbceqswap,op,&,-                                                                         4978:  5058 hope2     fbceqswap,op,&,-
 4966: 5059           b    cknd                                                                                4979:  5059           b    cknd
 4967: 5060 *  shift middle delta to front of string                                                           4980:  5060 *  shift middle delta to front of string
 4968: 5061 swap      bce  tuf,op,@                                                                            4981:  5061 swap      bce  tuf,op,@
 4969: 5062           bw   kwm,prtsw                                                                           4982:  5062           bw   kwm,prtsw
 4970: 5063           c    0&x2,blk4                                                                           4983:  5063           c    0&x2,blk4
 4971: 5064           sar  x3                                                                                  4984:  5064           sar  x3
 4972: 5065           mcw  0&x3,0&x2                                                                           4985:  5065           mcw  0&x3,0&x2
 4973: 5066           sbr  x2                                                                                  4986:  5066           sbr  x2
 4974: 5067           bce  neg2,op,-                                                                           4987:  5067           bce  neg2,op,-
 4975: 5068           mcw  op,0&x2                                                                             4988:  5068           mcw  op,0&x2
 4976: 5069           mcw  right                                                                               4989:  5069           mcw  right
 4977: 5070           c    0&x2                                                                                4990:  5070           c    0&x2
 4978: 5071           sbr  x2                  ??? SAR ???                                                     4991:  5071           sbr  x2                  ??? SAR ???
 4979: 5072           b    blkop                                                                               4992:  5072           b    blkop
 4980: 5073 neg2      lca  @&@,0&x2                                                                            4993:  5073 neg2      lca  @&@,0&x2
 4981: 5074           sbr  x2                                                                                  4994:  5074           sbr  x2
 4982: 5075           sw   prtsw                                                                               4995:  5075           sw   prtsw
 4983: 5076           b    neg3                                                                                4996:  5076           b    neg3
 4984: 5077 first     b    cvtdl                                                                               4997:  5077 first     b    cvtdl
 4985: 5078           dcw  right                                                                               4998:  5078           dcw  right
 4986: 5079           mcw  right,maxdl#3                                                                       4999:  5079           mcw  right,maxdl#3
 4987: 5080           mcw  cvt3,curdl                                                                          5000:  5080           mcw  cvt3,curdl
 4988: 5081           a    &1,curdl                                                                            5001:  5081           a    &1,curdl
 4989: 5082           b    d2                                                                                  5002:  5082           b    d2
 4990: 5083 fst1      lca  hld35,0&x3                                                                          5003:  5083 fst1      lca  hld35,0&x3
 4991: 5084           sbr  x2                                                                                  5004:  5084           sbr  x2
 4992: 5085           lca  op                                                                                  5005:  5085           lca  op
 4993: 5086           sbr  x3                                                                                  5006:  5086           sbr  x3
 4994: 5087           cw   1&x3                                                                                5007:  5087           cw   1&x3
 4995: 5088           lca  left,0&x3                                                                           5008:  5088           lca  left,0&x3
 4996: 5089           lca  gm1                                                                                 5009:  5089           lca  gm1
 4997: 5090           b    blkop                                                                               5010:  5090           b    blkop
 4998: 5091 *  all optimization has taken place - output statement                                             5011:  5091 *  all optimization has taken place - output statement
 4999: 5092 outpt     mcw  hex1,x1                                                                             5012:  5092 outpt     mcw  hex1,x1
 5000: 5093           sbr  hex2#3,0&x2                                                                         5013:  5093           sbr  hex2#3,0&x2
 5001: 5094           bce  noptm,2&x2,,       if statement                                                     5014:  5094           bce  noptm,2&x2,,       if statement
 5002: 5095           bce  noptm,maxdl-2,<    12-6-8                                                           5015:  5095           bce  noptm,maxdl-2,<    12-6-8
 5003: 5096           bce  noptm,0&x2,$                                                                        5016:  5096           bce  noptm,0&x2,$
 5004: 5097           bce  noptm,bop,$                                                                         5017:  5097           bce  noptm,bop,$
 5005: 5098           bwz  ckfix,bop-1,k                                                                       5018:  5098           bwz  ckfix,bop-1,k
 5006: 5099           bwz  noptm,aop-1,k                                                                       5019:  5099           bwz  noptm,aop-1,k
 5007: 5100           bwz  noptm,aop-1,s                                                                       5020:  5100           bwz  noptm,aop-1,s
 5008: 5101           b    optm                                                                                5021:  5101           b    optm
 5009: 5102 ckfix     bwz  noptm,aop-1,2                                                                       5022:  5102 ckfix     bwz  noptm,aop-1,2
 5010: 5103           bwz  noptm,aop-1,b                                                                       5023:  5103           bwz  noptm,aop-1,b
 5011: 5104 *  generate inline coding                                                                          5024:  5104 *  generate inline coding
 5012: 5105 optm      b    noptm                                                                               5025:  5105 optm      b    noptm
 5013: 5106           lca  bop                                                                                 5026:  5106           lca  bop
 5014: 5107           lca  aop                                                                                 5027:  5107           lca  aop
 5015: 5108           lca  @l@                                                                                 5028:  5108           lca  @l@
 5016: 5109           sbr  x3                                                                                  5029:  5109           sbr  x3
 5017: 5110           cw   2&x3,5&x3                                                                           5030:  5110           cw   2&x3,5&x3
 5018: 5111           mz   *-4,3&x3                                                                            5031:  5111           mz   *-4,3&x3
 5019: 5112           mz   *-4,6&x3                                                                            5032:  5112           mz   *-4,6&x3
 5020: 5113           sbr  x1,6&x1                                                                             5033:  5113           sbr  x1,6&x1
 5021: 5114           lca  6&x2                                                                                5034:  5114           lca  6&x2
 5022: 5115           lca                                                                                      5035:  5115           lca
 5023: 5116           sbr  x2,6&x2                                                                             5036:  5116           sbr  x2,6&x2
 5024: 5117           b    nustm                                                                               5037:  5117           b    nustm
 5025: 5118 *  cannot generate inline coding                                                                   5038:  5118 *  cannot generate inline coding
 5026: 5119 noptm     mcw  @01@,maxdl                                                                          5039:  5119 noptm     mcw  @01@,maxdl
 5027: 5120           mcw  @001@,x3                                                                            5040:  5120           mcw  @001@,x3
 5028: 5121           mcw  @01@,dl2#2                                                                          5041:  5121           mcw  @01@,dl2#2
 5029: 5122           sbr  x1,4&x1                                                                             5042:  5122           sbr  x1,4&x1
 5030: 5123           lca  @b700@                                                                              5043:  5123           lca  @b700@
 5031: 5124 ckzro     bce  prodl,table&x3,0                                                                    5044:  5124 ckzro     bce  prodl,table&x3,0
 5032: 5125 decr      a    &1,dl2                                                                              5045:  5125 decr      a    &1,dl2
 5033: 5126           mcw  dl2,maxdl                                                                           5046:  5126           mcw  dl2,maxdl
 5034: 5127           mz   dl2-1,maxdl                                                                         5047:  5127           mz   dl2-1,maxdl
 5035: 5128           a    &1,x3                                                                               5048:  5128           a    &1,x3
 5036: 5129           sw   prtsw                                                                               5049:  5129           sw   prtsw
 5037: 5130           b    ckzro                                                                               5050:  5130           b    ckzro
 5038: 5131 prodl     lca  @#@,4&x1                                                                            5051:  5131 prodl     lca  @#@,4&x1
 5039: 5132           lca  maxdl                                                                               5052:  5132           lca  maxdl
 5040: 5133           cw   4&x1                                                                                5053:  5133           cw   4&x1
 5041: 5134           c    0&x1,@b700@                                                                         5054:  5134           c    0&x1,@b700@
 5042: 5135           be   *&5                                                                                 5055:  5135           be   *&5
 5043: 5136           cw   1&x1                                                                                5056:  5136           cw   1&x1
 5044: 5137           lca  gm1,1&x2                                                                            5057:  5137           lca  gm1,1&x2
 5045: 5138 cx2       c    0&x2                                                                                5058:  5138 cx2       c    0&x2
 5046: 5139           sar  x2                                                                                  5059:  5139           sar  x2
 5047: 5140           bce  kwm2,0&x2,#                                                                         5060:  5140           bce  kwm2,0&x2,#
 5048: 5141           bce  sub3,1&x2,$                                                                         5061:  5141           bce  sub3,1&x2,$
 5049: 5142           mz   2&x2,2&x1                                                                           5062:  5142           mz   2&x2,2&x1
 5050: 5143 bmpx1     sbr  x1,4&x1                                                                             5063:  5143 bmpx1     sbr  x1,4&x1
 5051: 5144 *  string to output area                                                                           5064:  5144 *  string to output area
 5052: 5145 pmov      mcm  1&x2,1&x1                                                                           5065:  5145 pmov      mcm  1&x2,1&x1
 5053: 5146           mn                                                                                       5066:  5146           mn
 5054: 5147           sbr  x1                                                                                  5067:  5147           sbr  x1
 5055: 5148           mcm  1&x2                                                                                5068:  5148           mcm  1&x2
 5056: 5149           mn                                                                                       5069:  5149           mn
 5057: 5150           sar  x2                                                                                  5070:  5150           sar  x2
 5058: 5151           bce  pmov,0&x2,|                                                                         5071:  5151           bce  pmov,0&x2,|
 5059: 5152           c    0&x2                                                                                5072:  5152           c    0&x2
 5060: 5153           sar  x2                                                                                  5073:  5153           sar  x2
 5061: 5154           mcw  x3,hex3#3                                                                           5074:  5154           mcw  x3,hex3#3
 5062: 5155           mcw  @|@,0&x1                                                                            5075:  5155           mcw  @|@,0&x1
 5063: 5156           lca  0&x2                                                                                5076:  5156           lca  0&x2
 5064: 5157           sbr  x3                                                                                  5077:  5157           sbr  x3
 5065: 5158           cw   0&x1,1&x3                                                                           5078:  5158           cw   0&x1,1&x3
 5066: 5159           c    0&x2                                                                                5079:  5159           c    0&x2
 5067: 5160           sar  x3                                                                                  5080:  5160           sar  x3
 5068: 5161           bce  eostr,0&x3,}          gm                                                            5081:  5161           bce  eostr,0&x3,}          gm
 5069: 5162           sbr  x2,0&x3                                                                             5082:  5162           sbr  x2,0&x3
 5070: 5163           mcw  hex3,x3                                                                             5083:  5163           mcw  hex3,x3
 5071: 5164           b    decr                                                                                5084:  5164           b    decr
 5072: 5165 kwm2      cw   1&x2                                                                                5085:  5165 kwm2      cw   1&x2
 5073: 5166           b    cx2                                                                                 5086:  5166           b    cx2
 5074: 5167 sub3      mz   3&x2,2&x1                                                                           5087:  5167 sub3      mz   3&x2,2&x1
 5075: 5168           b    bmpx1                                                                               5088:  5168           b    bmpx1
 5076: 5169 *  all of statement to output area                                                                 5089:  5169 *  all of statement to output area
 5077: 5170 eostr     c    0&x1,blk4#4                                                                         5090:  5170 eostr     c    0&x1,blk4#4
 5078: 5171           sar  x1                                                                                  5091:  5171           sar  x1
 5079: 5172           lca  @|@,0&x1                                                                            5092:  5172           lca  @|@,0&x1
 5080: 5173           mcw  0&x2                                                                                5093:  5173           mcw  0&x2
 5081: 5174           mcw  hex2,x2                                                                             5094:  5174           mcw  hex2,x2
 5082: 5175           bw   docod,6&x2                                                                          5095:  5175           bw   docod,6&x2
 5083: 5176           sw   3&x2                                                                                5096:  5176           sw   3&x2
 5084: 5177           sbr  x1,9&x1                                                                             5097:  5177           sbr  x1,9&x1
 5085: 5178           lca  11&x2                                                                               5098:  5178           lca  11&x2
 5086: 5179           sbr  x2,11&x2                                                                            5099:  5179           sbr  x2,11&x2
 5087: 5180 docod     sbr  x1,6&x1                                                                             5100:  5180 docod     sbr  x1,6&x1
 5088: 5181           lca  6&x2                                                                                5101:  5181           lca  6&x2
 5089: 5182           lca                                                                                      5102:  5182           lca
 5090: 5183           sbr  x2,6&x2                                                                             5103:  5183           sbr  x2,6&x2
 5091: 5184           b    nustm                                                                               5104:  5184           b    nustm
 5092: 5185 gm1       dc   @}@          g-m                                                                    5105:  5185 gm1       dc   @}@          g-m
 5093: 5186 table     da   1x332,c                                                                             5106:  5186 table     da   1x332,c
 5094: 5187 tblr      equ  *                                                                                   5107:  5187 tblr      equ  *
 5095: 5188 *  gets operand left, operator, operand right                                                      5108:  5188 *  gets operand left, operator, operand right
 5096: 5189 fix       sbr  fixt&3                                                                              5109:  5189 fix       sbr  fixt&3
 5097: 5190           bce  sub1,1&x2,$                                                                         5110:  5190           bce  sub1,1&x2,$
 5098: 5191           lca  3&x2,left#18                                                                        5111:  5191           lca  3&x2,left#18
 5099: 5192           mcw  4&x2,op#1                                                                           5112:  5192           mcw  4&x2,op#1
 5100: 5193           sbr  x2,4&x2                                                                             5113:  5193           sbr  x2,4&x2
 5101: 5194           bw   *&5,midsw                                                                           5114:  5194           bw   *&5,midsw
 5102: 5195 cw5       cw   0                                                                                   5115:  5195 cw5       cw   0
 5103: 5196           sw   midsw                                                                               5116:  5196           sw   midsw
 5104: 5197           bw   unary,1&x2                                                                          5117:  5197           bw   unary,1&x2
 5105: 5198           sw   1&x2                                                                                5118:  5198           sw   1&x2
 5106: 5199           sbr  cw&3,1&x2                                                                           5119:  5199           sbr  cw&3,1&x2
 5107: 5200           mn   0&x2,bce3&7                                                                         5120:  5200           mn   0&x2,bce3&7
 5108: 5201           mz   0&x2,bce3&7                                                                         5121:  5201           mz   0&x2,bce3&7
 5109: 5202 bce3      bce  istwo,@&-*@.#@,0                                                                    5122:  5202 bce3      bce  istwo,@&-*@.#@,0
 5110: 5203           chain5                                                                                   5123:  5203           chain5
 5111: 5204           sw   prtsw                                                                               5124:  5204           sw   prtsw
 5112: 5205 unary     lca  @***@,right                                                                         5125:  5205 unary     lca  @***@,right
 5113: 5206           b    fixt                                                                                5126:  5206           b    fixt
 5114: 5207 istwo     bce  sub1,1&x2,$                                                                         5127:  5207 istwo     bce  sub1,1&x2,$
 5115: 5208           lca  3&x2,right#18                                                                       5128:  5208           lca  3&x2,right#18
 5116: 5209           sbr  x2,3&x2                                                                             5129:  5209           sbr  x2,3&x2
 5117: 5210           bw   cw,1&x2                                                                             5130:  5210           bw   cw,1&x2
 5118: 5211           sw   1&x2,prtsw                                                                          5131:  5211           sw   1&x2,prtsw
 5119: 5212 cw        cw   0                                                                                   5132:  5212 cw        cw   0
 5120: 5213 fixt      b    0                                                                                   5133:  5213 fixt      b    0
 5121: 5214 sub1      sbr  subxt&3                                                                             5134:  5214 sub1      sbr  subxt&3
 5122: 5215           sbr  x2,8&x2                                                                             5135:  5215           sbr  x2,8&x2
 5123: 5216           bce  subxt,3&x2,$                                                                        5136:  5216           bce  subxt,3&x2,$
 5124: 5217           sbr  x2,6&x2                                                                             5137:  5217           sbr  x2,6&x2
 5125: 5218 subxt     b    0                                                                                   5138:  5218 subxt     b    0
 5126: 5219 *  converts any delta number to three characters                                                   5139:  5219 *  converts any delta number to three characters
 5127: 5220 cvtdl     sbr  x1                                                                                  5140:  5220 cvtdl     sbr  x1
 5128: 5221           sbr  cvtxt&3,3&x1                                                                        5141:  5221           sbr  cvtxt&3,3&x1
 5129: 5222           mcw  2&x1,x1                                                                             5142:  5222           mcw  2&x1,x1
 5130: 5223           mn   0&x1,cvt3#3                                                                         5143:  5223           mn   0&x1,cvt3#3
 5131: 5224           mn                                                                                       5144:  5224           mn
 5132: 5225           mcw  @0@                                                                                 5145:  5225           mcw  @0@
 5133: 5226           bwz  cvtxt,0&x1,2                                                                        5146:  5226           bwz  cvtxt,0&x1,2
 5134: 5227           a    &100,cvt3                                                                           5147:  5227           a    &100,cvt3
 5135: 5228           bwz  cvtxt,0&x1,s                                                                        5148:  5228           bwz  cvtxt,0&x1,s
 5136: 5229           a    &100,cvt3                                                                           5149:  5229           a    &100,cvt3
 5137: 5230           bwz  cvtxt,0&x1,k                                                                        5150:  5230           bwz  cvtxt,0&x1,k
 5138: 5231           a    &100,cvt3                                                                           5151:  5231           a    &100,cvt3
 5139: 5232 cvtxt     b    0                                                                                   5152:  5232 cvtxt     b    0
 5140: 5233 *  finds temp to be optimized                                                                      5153:  5233 *  finds temp to be optimized
 5141: 5234 getdl     sbr  gdlxt&3                                                                             5154:  5234 getdl     sbr  gdlxt&3
 5142: 5235           sbr  x3,0&x2                                                                             5155:  5235           sbr  x3,0&x2
 5143: 5236           mcw  curdl,x1          x1 has current delta                                              5156:  5236           mcw  curdl,x1          x1 has current delta
 5144: 5237           bw   getwm,prtsw                                                                         5157:  5237           bw   getwm,prtsw
 5145: 5238 cmp2      c    x1,cvt3                                                                             5158:  5238 cmp2      c    x1,cvt3
 5146: 5239 gdlxt     be   0                                                                                   5159:  5239 gdlxt     be   0
 5147: 5240           bce  add1,table&x1,1                                                                     5160:  5240           bce  add1,table&x1,1
 5148: 5241           a    @i99@,x1                                                                            5161:  5241           a    @i99@,x1
 5149: 5242 getwm     bw   gotwm,2&x3                                                                          5162:  5242 getwm     bw   gotwm,2&x3
 5150: 5243           sbr  x3                                                                                  5163:  5243           sbr  x3
 5151: 5244           b    getwm                                                                               5164:  5244           b    getwm
 5152: 5245 gotwm     sbr  x3,1&x3                                                                             5165:  5245 gotwm     sbr  x3,1&x3
 5153: 5246           b    cmp2                                                                                5166:  5246           b    cmp2
 5154: 5247 add1      a    @i99@,x1                                                                            5167:  5247 add1      a    @i99@,x1
 5155: 5248           b    cmp2                                                                                5168:  5248           b    cmp2
 5156: 5249 cw2       cw   1&x3                                                                                5169:  5249 cw2       cw   1&x3
 5157: 5250           b    ckrt                                                                                5170:  5250           b    ckrt
 5158: 5251 prtsw     dc   #1                                                                                  5171:  5251 prtsw     dc   #1
 5159: 5252 fendx     fendxc,,,,,,sysgm,  arith 5                                                              5172:  5252 fendx     fendxc,,,,,,sysgm,  arith 5
 5160: 5253           ltorg*                                                                                   5173:  5253           ltorg*
 5161: 5254 aop       equ  right                                                                               5174:  5254 aop       equ  right
 5162: 5255 bop       equ  left                                                                                5175:  5255 bop       equ  left
 5163: 5256 sysgm     dcw  @}@           system group mark                                                     5176:  5256 sysgm     dcw  @}@           system group mark
 5164: 5257           org  *&50                                                                                5177:  5257           org  *&50
 5165: 5258 ndrith    equ  *                                                                                   5178:  5258 ndrith    equ  *
 5166: 5259           xfr  start                                                                               5179:  5259           xfr  start
 5167: 5260           job  arith phase five                                       50373                        5180:  5260           job  arith phase five                                       50373
 5168: 5261           fbegnarith 5,x1,,x2,,x3,,y                                                               5181:  5261           fbegnarith 5,x1,,x2,,x3,,y
 5169: 5262           org  xbegin                                                                              5182:  5262           org  xbegin
 5170: 5263 start     bce  noari,x2,.                                                                          5183:  5263 start     bce  noari,x2,.
 5171: 5264           c    0&x2                                                                                5184:  5264           c    0&x2
 5172: 5265           sar  x2                                                                                  5185:  5265           sar  x2
 5173: 5266           sbr  savx3#3                                                                             5186:  5266           sbr  savx3#3
 5174: 5267           c    0&x1                                                                                5187:  5267           c    0&x1
 5175: 5268           sar  x1                                                                                  5188:  5268           sar  x1
 5176: 5269 *  beginning of processing of each statement                                                       5189:  5269 *  beginning of processing of each statement
 5177: 5270 nustm     mcw  0&x1,code                                                                           5190:  5270 nustm     mcw  0&x1,code
 5178: 5271           mcw                                                                                      5191:  5271           mcw
 5179: 5272           bce  mvdwn,code-3,e                                                                      5192:  5272           bce  mvdwn,code-3,e
 5180: 5273           bce  *&5,code-3,r                                                                        5193:  5273           bce  *&5,code-3,r
 5181: 5274           b    fendx                                                                               5194:  5274           b    fendx
 5182: 5275 mvdwn     mvdwnx1,x2                                                                               5195:  5275 mvdwn     mvdwnx1,x2
 5183: 5276           lca  1&x2,2&x2                                                                           5196:  5276           lca  1&x2,2&x2
 5184: 5277           sbr  x2                                                                                  5197:  5277           sbr  x2
 5185: 5278           cw   modsw#1                                                                             5198:  5278           cw   modsw#1
 5186: 5279           bce  iftyp,2&x1,e                                                                        5199:  5279           bce  iftyp,2&x1,e
 5187: 5280 ckxf      mvdwnx1,x2                                                                               5200:  5280 ckxf      mvdwnx1,x2
 5188: 5281           sbr  x3,0&x1                                                                             5201:  5281           sbr  x3,0&x1
 5189: 5282           sbr  hex3#3                                                                              5202:  5282           sbr  hex3#3
 5190: 5283           bce  eostr,0&x1,}       gm                                                               5203:  5283           bce  eostr,0&x1,}       gm
 5191: 5284 *  generate fix or float function if left side and right                                           5204:  5284 *  generate fix or float function if left side and right
 5192: 5285 *     side are not of same mode                                                                    5205:  5285 *     side are not of same mode
 5193: 5286 next      mn   0&x3,bce5&7                                                                         5206:  5286 next      mn   0&x3,bce5&7
 5194: 5287           mz   0&x3,bce5&7                                                                         5207:  5287           mz   0&x3,bce5&7
 5195: 5288           sar  x3                                                                                  5208:  5288           sar  x3
 5196: 5289 bce5      bce  gotsq,@&-@*.#@,0                                                                    5209:  5289 bce5      bce  gotsq,@&-@*.#@,0
 5197: 5290           chain5                                                                                   5210:  5290           chain5
 5198: 5291           b    next                                                                                5211:  5291           b    next
 5199: 5292 gotsq     bce  worry,1&x3,.                                                                        5212:  5292 gotsq     bce  worry,1&x3,.
 5200: 5293           mz   4&x3,opmd#1                                                                         5213:  5293           mz   4&x3,opmd#1
 5201: 5294           bce  sub5,2&x3,$                                                                         5214:  5294           bce  sub5,2&x3,$
 5202: 5295           mz   3&x3,opmd                                                                           5215:  5295           mz   3&x3,opmd
 5203: 5296 bmp4      sbr  x3,4&x3                                                                             5216:  5296 bmp4      sbr  x3,4&x3
 5204: 5297 cmp5      c    x3,hex3                                                                             5217:  5297 cmp5      c    x3,hex3
 5205: 5298           be   scneq                                                                               5218:  5298           be   scneq
 5206: 5299           sbr  x3,1&x3                                                                             5219:  5299           sbr  x3,1&x3
 5207: 5300           fbceqmodch,0&x3,f,x                                                                      5220:  5300           fbceqmodch,0&x3,f,x
 5208: 5301           b    cmp5                                                                                5221:  5301           b    cmp5
 5209: 5302 modch     bw   cw1,modsw                                                                           5222:  5302 modch     bw   cw1,modsw
 5210: 5303           sw   modsw                                                                               5223:  5303           sw   modsw
 5211: 5304           b    cmp5                                                                                5224:  5304           b    cmp5
 5212: 5305 cw1       cw   modsw                                                                               5225:  5305 cw1       cw   modsw
 5213: 5306           b    cmp5                                                                                5226:  5306           b    cmp5
 5214: 5307 worry     sbr  bmpum&6,0&x3                                                                        5227:  5307 worry     sbr  bmpum&6,0&x3
 5215: 5308           bce  grief,0&x3,$                                                                        5228:  5308           bce  grief,0&x3,$
 5216: 5309           sbr  x3                                                                                  5229:  5309           sbr  x3
 5217: 5310 sndum     mz   0&x3,opmd                                                                           5230:  5310 sndum     mz   0&x3,opmd
 5218: 5311 bmpum     sbr  x3,0                                                                                5231:  5311 bmpum     sbr  x3,0
 5219: 5312           bce  sub5,2&x3,$                                                                         5232:  5312           bce  sub5,2&x3,$
 5220: 5313           b    bmp4                                                                                5233:  5313           b    bmp4
 5221: 5314 grief     c    0&x3,blk8                                                                           5234:  5314 grief     c    0&x3,blk8
 5222: 5315           sar  x3                                                                                  5235:  5315           sar  x3
 5223: 5316           bce  sndum,0&x3,$          dummy                                                         5236:  5316           bce  sndum,0&x3,$          dummy
 5224: 5317           b               dummy                                                                    5237:  5317           b               dummy
 5225: 5318           b                                                                                        5238:  5318           b
 5226: 5319           c    0&x3,blk6                                                                           5239:  5319           c    0&x3,blk6
 5227: 5320           sar  x3                                                                                  5240:  5320           sar  x3
 5228: 5321           b    sndum                                                                               5241:  5321           b    sndum
 5229: 5322 sub5      sbr  x3,12&x3                                                                            5242:  5322 sub5      sbr  x3,12&x3
 5230: 5323           bce  cmp5,0&x3,$                                                                         5243:  5323           bce  cmp5,0&x3,$
 5231: 5324           sbr  x3,6&x3                                                                             5244:  5324           sbr  x3,6&x3
 5232: 5325           b    cmp5                                                                                5245:  5325           b    cmp5
 5233: 5326 scneq     bce  goteq,0&x3,#                                                                        5246:  5326 scneq     bce  goteq,0&x3,#
 5234: 5327           sbr  x3                                                                                  5247:  5327           sbr  x3
 5235: 5328           b    scneq                                                                               5248:  5328           b    scneq
 5236: 5329 goteq     mcw  0&x3,hld18#18                                                                       5249:  5329 goteq     mcw  0&x3,hld18#18
 5237: 5330           bce  sub1,hld18-1,$                                                                      5250:  5330           bce  sub1,hld18-1,$
 5238: 5331           mz   hld18-2,fstmd#1                                                                     5251:  5331           mz   hld18-2,fstmd#1
 5239: 5332 nowop     bwz  ckfix,fstmd,s                                                                       5252:  5332 nowop     bwz  ckfix,fstmd,s
 5240: 5333           bwz  ckfix,fstmd,k                                                                       5253:  5333           bwz  ckfix,fstmd,k
 5241: 5334           bwz  ckswf,opmd,2                                                                        5254:  5334           bwz  ckswf,opmd,2
 5242: 5335           bwz  ckswf,opmd,b                                                                        5255:  5335           bwz  ckswf,opmd,b
 5243: 5336           bw   nocvt,modsw                                                                         5256:  5336           bw   nocvt,modsw
 5244: 5337 mkflt     mcw  @f@,0&x2                                                                            5257:  5337 mkflt     mcw  @f@,0&x2
 5245: 5338           sbr  x2                                                                                  5258:  5338           sbr  x2
 5246: 5339           cw   1&x2,xfltfu                                                                         5259:  5339           cw   1&x2,xfltfu
 5247: 5340           b    nocvt                                                                               5260:  5340           b    nocvt
 5248: 5341 ckswf     bw   mkflt,modsw                                                                         5261:  5341 ckswf     bw   mkflt,modsw
 5249: 5342           b    nocvt                                                                               5262:  5342           b    nocvt
 5250: 5343 ckswx     bw   mkfix,modsw                                                                         5263:  5343 ckswx     bw   mkfix,modsw
 5251: 5344           b    nocvt                                                                               5264:  5344           b    nocvt
 5252: 5345 ckfix     bwz  ckswx,opmd,s                                                                        5265:  5345 ckfix     bwz  ckswx,opmd,s
 5253: 5346           bwz  ckswx,opmd,k                                                                        5266:  5346           bwz  ckswx,opmd,k
 5254: 5347           bw   nocvt,modsw                                                                         5267:  5347           bw   nocvt,modsw
 5255: 5348 mkfix     mcw  @x@,0&x2                                                                            5268:  5348 mkfix     mcw  @x@,0&x2
 5256: 5349           sbr  x2                                                                                  5269:  5349           sbr  x2
 5257: 5350           cw   1&x2,xfixfu                                                                         5270:  5350           cw   1&x2,xfixfu
 5258: 5351 scan      equ  *&1                                                                                 5271:  5351 scan      equ  *&1
 5259: 5352 nocvt     sbr  x3,0&x1                                                                             5272:  5352 nocvt     sbr  x3,0&x1
 5260: 5353 scan2     bce  expn,0&x1,.                                                                         5273:  5353 scan2     bce  expn,0&x1,.
 5261: 5354           bce  div,0&x1,@                                                                          5274:  5354           bce  div,0&x1,@
 5262: 5355           bce  eostr,0&x1,}          gm                                                            5275:  5355           bce  eostr,0&x1,}          gm
 5263: 5356           sbr  x1                                                                                  5276:  5356           sbr  x1
 5264: 5357           b    scan2                                                                               5277:  5357           b    scan2
 5265: 5358 *  end of statement routine                                                                        5278:  5358 *  end of statement routine
 5266: 5359 eostr     mvdwnx3,x2                                                                               5279:  5359 eostr     mvdwnx3,x2
 5267: 5360           bce  *&5,1&x3,}            gm                                                            5280:  5360           bce  *&5,1&x3,}            gm
 5268: 5361           b    eostr                                                                               5281:  5361           b    eostr
 5269: 5362           sbr  x1,0&x3                                                                             5282:  5362           sbr  x1,0&x3
 5270: 5363           b    nustm                                                                               5283:  5363           b    nustm
 5271: 5364 *  substitute / for @ as divide symbol                                                             5284:  5364 *  substitute / for @ as divide symbol
 5272: 5365 div       mcw  @/@,0&x1                                                                            5285:  5365 div       mcw  @/@,0&x1
 5273: 5366           sbr  x1                                                                                  5286:  5366           sbr  x1
 5274: 5367           b    scan2                                                                               5287:  5367           b    scan2
 5275: 5368 fendx     sbr  x1,5&x1                                                                             5288:  5368 fendx     sbr  x1,5&x1
 5276: 5369           mcw  savx3,x3                                                                            5289:  5369           mcw  savx3,x3
 5277: 5370           sbr  x3,2&x3                                                                             5290:  5370           sbr  x3,2&x3
 5278: 5371 noari     fendxc,,,,,,sysgm,arith6                                                                 5291:  5371 noari     fendxc,,,,,,sysgm,arith6
 5279: 5372 *  generate if exits                                                                               5292:  5372 *  generate if exits
 5280: 5373 iftyp     c    0&x1                                                                                5293:  5373 iftyp     c    0&x1
 5281: 5374           sar  x1                                                                                  5294:  5374           sar  x1
 5282: 5375           mcw  9&x1,minus                                                                          5295:  5375           mcw  9&x1,minus
 5283: 5376           mcw  6&x1,zero                                                                           5296:  5376           mcw  6&x1,zero
 5284: 5377           mcw  3&x1,plus                                                                           5297:  5377           mcw  3&x1,plus
 5285: 5378           mz   @k@,minus-1                                                                         5298:  5378           mz   @k@,minus-1
 5286: 5379           mz   @k@,zero-1                                                                          5299:  5379           mz   @k@,zero-1
 5287: 5380           mz   @k@,plus-1                                                                          5300:  5380           mz   @k@,plus-1
 5288: 5381           mcw  plus,else&3                                                                         5301:  5381           mcw  plus,else&3
 5289: 5382           lca  blk20#20,hld20                                                                      5302:  5382           lca  blk20#20,hld20
 5290: 5383           sbr  x3,hld20-20                                                                         5303:  5383           sbr  x3,hld20-20
 5291: 5384           c    plus,zero                                                                           5304:  5384           c    plus,zero
 5292: 5385           be   pz                                                                                  5305:  5385           be   pz
 5293: 5386           c    zero,minus                                                                          5306:  5386           c    zero,minus
 5294: 5387           be   mkpls                                                                               5307:  5387           be   mkpls
 5295: 5388           sbr  x3,8&x3                                                                             5308:  5388           sbr  x3,8&x3
 5296: 5389           mcw  ifzro                                                                               5309:  5389           mcw  ifzro
 5297: 5390           mcw                                                                                      5310:  5390           mcw
 5298: 5391           lca                                                                                      5311:  5391           lca
 5299: 5392           c    plus,minus                                                                          5312:  5392           c    plus,minus
 5300: 5393           be   mvls                                                                                5313:  5393           be   mvls
 5301: 5394 mkpls     sbr  x3,8&x3                                                                             5314:  5394 mkpls     sbr  x3,8&x3
 5302: 5395           mcw  ifpls                                                                               5315:  5395           mcw  ifpls
 5303: 5396           mcw                                                                                      5316:  5396           mcw
 5304: 5397           lca                                                                                      5317:  5397           lca
 5305: 5398           mcw  minus,else&3                                                                        5318:  5398           mcw  minus,else&3
 5306: 5399 mvls      mcw  x3,hex3                                                                             5319:  5399 mvls      mcw  x3,hex3
 5307: 5400           bwz  *&5,code,2                                                                          5320:  5400           bwz  *&5,code,2
 5308: 5401           b    *&9                                                                                 5321:  5401           b    *&9
 5309: 5402           bwz  lsadd,code-2,2                                                                      5322:  5402           bwz  lsadd,code-2,2
 5310: 5403           mcw  code,x3                                                                             5323:  5403           mcw  code,x3
 5311: 5404           mcw  0&x3,code                                                                           5324:  5404           mcw  0&x3,code
 5312: 5405 lsadd     a    &1,code                                                                             5325:  5405 lsadd     a    &1,code
 5313: 5406           mcw  else&3,x3                                                                           5326:  5406           mcw  else&3,x3
 5314: 5407           c    0&x3,code                                                                           5327:  5407           c    0&x3,code
 5315: 5408           mcw  hex3,x3                                                                             5328:  5408           mcw  hex3,x3
 5316: 5409           be   nobr                                                                                5329:  5409           be   nobr
 5317: 5410 all3      sbr  x3,4&x3                                                                             5330:  5410 all3      sbr  x3,4&x3
 5318: 5411           mcw  else&3                                                                              5331:  5411           mcw  else&3
 5319: 5412           lca                                                                                      5332:  5412           lca
 5320: 5413 nobr      mvdwnx3,x2                                                                               5333:  5413 nobr      mvdwnx3,x2
 5321: 5414           bce  ckxf,0&x3,|                                                                         5334:  5414           bce  ckxf,0&x3,|
 5322: 5415           b    nobr                                                                                5335:  5415           b    nobr
 5323: 5416 pz        c    plus,minus                                                                          5336:  5416 pz        c    plus,minus
 5324: 5417           be   all3                                                                                5337:  5417           be   all3
 5325: 5418           sbr  x3,8&x3                                                                             5338:  5418           sbr  x3,8&x3
 5326: 5419           mcw  ifmns                                                                               5339:  5419           mcw  ifmns
 5327: 5420           mcw                                                                                      5340:  5420           mcw
 5328: 5421           lca                                                                                      5341:  5421           lca
 5329: 5422           b    mvls                                                                                5342:  5422           b    mvls
 5330: 5423 *  process exponentiation                                                                          5343:  5423 *  process exponentiation
 5331: 5424 expn      sw   1&x1                                                                                5344:  5424 expn      sw   1&x1
 5332: 5425           bce  xsub,1&x1,$                                                                         5345:  5425           bce  xsub,1&x1,$
 5333: 5426           lca  3&x1,xpon#17                                                                        5346:  5426           lca  3&x1,xpon#17
 5334: 5427           mz   2&x1,xpmod#1                                                                        5347:  5427           mz   2&x1,xpmod#1
 5335: 5428           sbr  hex31#3,3&x1                                                                        5348:  5428           sbr  hex31#3,3&x1
 5336: 5429           c    hex31,x3                                                                            5349:  5429           c    hex31,x3
 5337: 5430           be   skip                                                                                5350:  5430           be   skip
 5338: 5431           sw   4&x1                                                                                5351:  5431           sw   4&x1
 5339: 5432 mvbal     mvdwnx3,x2                                                                               5352:  5432 mvbal     mvdwnx3,x2
 5340: 5433           cw   1&x2                                                                                5353:  5433           cw   1&x2
 5341: 5434 skip      c    0&x1,blk4#4                                                                         5354:  5434 skip      c    0&x1,blk4#4
 5342: 5435           sar  x1                                                                                  5355:  5435           sar  x1
 5343: 5436           bce  bsub,3&x1,$                                                                         5356:  5436           bce  bsub,3&x1,$
 5344: 5437           mz   2&x1,bmod#1                                                                         5357:  5437           mz   2&x1,bmod#1
 5345: 5438           sw   1&x1                                                                                5358:  5438           sw   1&x1
 5346: 5439 load      lca  3&x1,base#17                                                                        5359:  5439 load      lca  3&x1,base#17
 5347: 5440           sar  x1                                                                                  5360:  5440           sar  x1
 5348: 5441           bwz  fixxp,xpmod,s                                                                       5361:  5441           bwz  fixxp,xpmod,s
 5349: 5442           bwz  fixxp,xpmod,k                                                                       5362:  5442           bwz  fixxp,xpmod,k
 5350: 5443           cw   xlogfn,xxpntl                                                                       5363:  5443           cw   xlogfn,xxpntl
 5351: 5444           cw   xcomf1                                                                              5364:  5444           cw   xcomf1
 5352: 5445 *  process floating exponentiation                                                                 5365:  5445 *  process floating exponentiation
 5353: 5446           bwz  flt,bmod,2                                                                          5366:  5446           bwz  flt,bmod,2
 5354: 5447           bwz  flt,bmod,b                                                                          5367:  5447           bwz  flt,bmod,b
 5355: 5448           bwz  *&5,code,2                                                                          5368:  5448           bwz  *&5,code,2
 5356: 5449           b    *&9                                                                                 5369:  5449           b    *&9
 5357: 5450           bwz  ftmsg,code-2,2                                                                      5370:  5450           bwz  ftmsg,code-2,2
 5358: 5451           mcw  code,x3                                                                             5371:  5451           mcw  code,x3
 5359: 5452           mcw  0&x3,code                                                                           5372:  5452           mcw  0&x3,code
 5360: 5453 ftmsg     ftmsg30,fix to float power,code,20                                                       5373:  5453 ftmsg     ftmsg30,fix to float power,code,20
 5361: 5454 flt       lca  @e@,0&x2                                                                            5374:  5454 flt       lca  @e@,0&x2
 5362: 5455           lca  xpon                                                                                5375:  5455           lca  xpon
 5363: 5456           lca  @g*@                                                                                5376:  5456           lca  @g*@
 5364: 5457           sbr  x2                                                                                  5377:  5457           sbr  x2
 5365: 5458           cw   3&x2,1&x1                                                                           5378:  5458           cw   3&x2,1&x1
 5366: 5459           lca  base,0&x2                                                                           5379:  5459           lca  base,0&x2
 5367: 5460           sbr  x2                                                                                  5380:  5460           sbr  x2
 5368: 5461           cw   1&x2                                                                                5381:  5461           cw   1&x2
 5369: 5462           b    scan                                                                                5382:  5462           b    scan
 5370: 5463 *  process fixed point exponentiation                                                              5383:  5463 *  process fixed point exponentiation
 5371: 5464 fixxp     bwz  sweat,xpmod,k                                                                       5384:  5464 fixxp     bwz  sweat,xpmod,k
 5372: 5465           bce  sweat,xpon-2,<    12-6-8                                                            5385:  5465           bce  sweat,xpon-2,<    12-6-8
 5373: 5466           mcw  xpon,x3                                                                             5386:  5466           mcw  xpon,x3
 5374: 5467           ma   plusdf,x3                                                                           5387:  5467           ma   plusdf,x3
 5375: 5468           c    @3@,0&x3                                                                            5388:  5468           c    @3@,0&x3
 5376: 5469           bh   sweat                                                                               5389:  5469           bh   sweat
 5377: 5470           lca  base,0&x2                                                                           5390:  5470           lca  base,0&x2
 5378: 5471           lca  @*@                                                                                 5391:  5471           lca  @*@
 5379: 5472           sbr  x2                                                                                  5392:  5472           sbr  x2
 5380: 5473           sbr  sav2#3                                                                              5393:  5473           sbr  sav2#3
 5381: 5474           cw   1&x2,2&x2                                                                           5394:  5474           cw   1&x2,2&x2
 5382: 5475           lca  base,0&x2                                                                           5395:  5475           lca  base,0&x2
 5383: 5476           sbr  x2                                                                                  5396:  5476           sbr  x2
 5384: 5477           cw   1&x2                                                                                5397:  5477           cw   1&x2
 5385: 5478           bce  huh,0&x3,0                                                                          5398:  5478           bce  huh,0&x3,0
 5386: 5479           bce  huh2,0&x3,1                                                                         5399:  5479           bce  huh2,0&x3,1
 5387: 5480           bce  scan,0&x3,2                                                                         5400:  5480           bce  scan,0&x3,2
 5388: 5481           lca  @*@,0&x2                                                                            5401:  5481           lca  @*@,0&x2
 5389: 5482           sbr  x2                                                                                  5402:  5482           sbr  x2
 5390: 5483           cw   1&x2                                                                                5403:  5483           cw   1&x2
 5391: 5484           lca  base,0&x2                                                                           5404:  5484           lca  base,0&x2
 5392: 5485           sbr  x2                                                                                  5405:  5485           sbr  x2
 5393: 5486           cw   1&x2                                                                                5406:  5486           cw   1&x2
 5394: 5487           b    scan                                                                                5407:  5487           b    scan
 5395: 5488 huh       mcw  sav2,x3                                                                             5408:  5488 huh       mcw  sav2,x3
 5396: 5489           mcw  @/@,1&x3                                                                            5409:  5489           mcw  @/@,1&x3
 5397: 5490           b    scan                                                                                5410:  5490           b    scan
 5398: 5491 huh2      mcw  sav2,x2                                                                             5411:  5491 huh2      mcw  sav2,x2
 5399: 5492           sbr  x2,1&x2                                                                             5412:  5492           sbr  x2,1&x2
 5400: 5493           b    scan                                                                                5413:  5493           b    scan
 5401: 5494 sweat     cw   xlogfn,xxpntl                                                                       5414:  5494 sweat     cw   xlogfn,xxpntl
 5402: 5495           cw   xcomf1,xfltfu                                                                       5415:  5495           cw   xcomf1,xfltfu
 5403: 5496           bwz  ctu1,bmod,2                                                                         5416:  5496           bwz  ctu1,bmod,2
 5404: 5497           bwz  ctu1,bmod,b                                                                         5417:  5497           bwz  ctu1,bmod,b
 5405: 5498           lca  @x@,0&x2                                                                            5418:  5498           lca  @x@,0&x2
 5406: 5499           sbr  x2                                                                                  5419:  5499           sbr  x2
 5407: 5500           cw   0&x2,xfixfu                                                                         5420:  5500           cw   0&x2,xfixfu
 5408: 5501           lca  xexpon,0&x2                                                                         5421:  5501           lca  xexpon,0&x2
 5409: 5502           lca  @&@                                                                                 5422:  5502           lca  @&@
 5410: 5503           sbr  x2                                                                                  5423:  5503           sbr  x2
 5411: 5504           cw   2&x2                                                                                5424:  5504           cw   2&x2
 5412: 5505 ctu1      lca  @e@,0&x2                                                                            5425:  5505 ctu1      lca  @e@,0&x2
 5413: 5506           lca  @f*<4?@          f,*,12-6-8,4,12-0                                                  5426:  5506           lca  @f*<4?@          f,*,12-6-8,4,12-0
 5414: 5507           lca  xpon                                                                                5427:  5507           lca  xpon
 5415: 5508           sbr  x2                                                                                  5428:  5508           sbr  x2
 5416: 5509           cw   1&x2                                                                                5429:  5509           cw   1&x2
 5417: 5510           c    0&x1,blk4                                                                           5430:  5510           c    0&x1,blk4
 5418: 5511           sar  x3                                                                                  5431:  5511           sar  x3
 5419: 5512           bce  fsub,3&x3,$                                                                         5432:  5512           bce  fsub,3&x3,$
 5420: 5513 swm       sw   1&x3                                                                                5433:  5513 swm       sw   1&x3
 5421: 5514           mvdwnx1,x2                                                                               5434:  5514           mvdwnx1,x2
 5422: 5515           cw   1&x2                                                                                5435:  5515           cw   1&x2
 5423: 5516           lca  @g|@                                                                                5436:  5516           lca  @g|@
 5424: 5517           sbr  x2                                                                                  5437:  5517           sbr  x2
 5425: 5518           bwz  bsflt,bmod,2                                                                        5438:  5518           bwz  bsflt,bmod,2
 5426: 5519           bwz  bsflt,bmod,b                                                                        5439:  5519           bwz  bsflt,bmod,b
 5427: 5520           lca  @f@,0&x2                                                                            5440:  5520           lca  @f@,0&x2
 5428: 5521           sbr  x2                                                                                  5441:  5521           sbr  x2
 5429: 5522 bsflt     lca  base,0&x2                                                                           5442:  5522 bsflt     lca  base,0&x2
 5430: 5523           lca  @<4?#@                                                                              5443:  5523           lca  @<4?#@
 5431: 5524           sbr  x2                                                                                  5444:  5524           sbr  x2
 5432: 5525           cw   5&x2                                                                                5445:  5525           cw   5&x2
 5433: 5526           c    0&x1,@b700@                                                                         5446:  5526           c    0&x1,@b700@
 5434: 5527           be   scan                                                                                5447:  5527           be   scan
 5435: 5528           cw   1&x2                                                                                5448:  5528           cw   1&x2
 5436: 5529           b    scan                                                                                5449:  5529           b    scan
 5437: 5530           dcw  @|@                                                                                 5450:  5530           dcw  @|@
 5438: 5531 hld20     dcw  #20                                                                                 5451:  5531 hld20     dcw  #20
 5439: 5532 else      b                                                                                        5452:  5532 else      b
 5440: 5533           dcw  #3                                                                                  5453:  5533           dcw  #3
 5441: 5534           bwz                                                                                      5454:  5534           bwz
 5442: 5535 plus      dcw  #3                                                                                  5455:  5535 plus      dcw  #3
 5443: 5536           dsa  277&x3                                                                              5456:  5536           dsa  277&x3
 5444: 5537 ifpls     dc   @b@                                                                                 5457:  5537 ifpls     dc   @b@
 5445: 5538           bce                                                                                      5458:  5538           bce
 5446: 5539 zero      dcw  #3                                                                                  5459:  5539 zero      dcw  #3
 5447: 5540           dsa  280                                                                                 5460:  5540           dsa  280
 5448: 5541 ifzro     dc   @0@                                                                                 5461:  5541 ifzro     dc   @0@
 5449: 5542           bwz                                                                                      5462:  5542           bwz
 5450: 5543 minus     dcw  #3                                                                                  5463:  5543 minus     dcw  #3
 5451: 5544           dsa  277&x3                                                                              5464:  5544           dsa  277&x3
 5452: 5545 ifmns     dc   @k@                                                                                 5465:  5545 ifmns     dc   @k@
 5453: 5546 xsub      mz   3&x1,xpmod                                                                          5466:  5546 xsub      mz   3&x1,xpmod
 5454: 5547           sbr  x1,11&x1                                                                            5467:  5547           sbr  x1,11&x1
 5455: 5548           bce  gotsb,0&x1,$                                                                        5468:  5548           bce  gotsb,0&x1,$
 5456: 5549           sbr  x1,6&x1                                                                             5469:  5549           sbr  x1,6&x1
 5457: 5550 gotsb     c    x1,x3                                                                               5470:  5550 gotsb     c    x1,x3
 5458: 5551           be   *&5                                                                                 5471:  5551           be   *&5
 5459: 5552           sw   1&x1                                                                                5472:  5552           sw   1&x1
 5460: 5553           lca  0&x1,xpon                                                                           5473:  5553           lca  0&x1,xpon
 5461: 5554           sar  x1                                                                                  5474:  5554           sar  x1
 5462: 5555           be   skip                                                                                5475:  5555           be   skip
 5463: 5556           b    mvbal                                                                               5476:  5556           b    mvbal
 5464: 5557 bsub      c    0&x1,blk8#8                                                                         5477:  5557 bsub      c    0&x1,blk8#8
 5465: 5558           sar  x3                                                                                  5478:  5558           sar  x3
 5466: 5559           bce  gtsub,1&x3,$                                                                        5479:  5559           bce  gtsub,1&x3,$
 5467: 5560           c    0&x3,blk6                                                                           5480:  5560           c    0&x3,blk6
 5468: 5561           sar  x3                                                                                  5481:  5561           sar  x3
 5469: 5562 gtsub     mz   3&x3,bmod                                                                           5482:  5562 gtsub     mz   3&x3,bmod
 5470: 5563           sw   1&x3                                                                                5483:  5563           sw   1&x3
 5471: 5564           b    load                                                                                5484:  5564           b    load
 5472: 5565 fsub      c    0&x3,blk8                                                                           5485:  5565 fsub      c    0&x3,blk8
 5473: 5566           sar  x3                                                                                  5486:  5566           sar  x3
 5474: 5567           bce  swm,1&x3,$                                                                          5487:  5567           bce  swm,1&x3,$
 5475: 5568           c    0&x3,blk6#6                                                                         5488:  5568           c    0&x3,blk6#6
 5476: 5569           sar  x3                                                                                  5489:  5569           sar  x3
 5477: 5570           b    swm                                                                                 5490:  5570           b    swm
 5478: 5571 sub1      mz   hld18-9,fstmd                                                                       5491:  5571 sub1      mz   hld18-9,fstmd
 5479: 5572           bce  nowop,hld18-11,$                                                                    5492:  5572           bce  nowop,hld18-11,$
 5480: 5573           mz   hld18-15,fstmd                                                                      5493:  5573           mz   hld18-15,fstmd
 5481: 5574           b    nowop                                                                               5494:  5574           b    nowop
 5482: 5575           dcw  #1                                                                                  5495:  5575           dcw  #1
 5483: 5576 code      dcw  #3                                                                                  5496:  5576 code      dcw  #3
 5484: 5577           ltorg*                                                                                   5497:  5577           ltorg*
 5485: 5578 sysgm     dcw  @}@           system group mark                                                     5498:  5578 sysgm     dcw  @}@           system group mark
 5486: 5579           xfr  start                                                                               5499:  5579           xfr  start
 5487: 5580           job  Fortran arith phase six                                50383                        5500:  5580           job  Fortran arith phase six                                50383
 5488: 5581           fbegnarith six,x1,,x2,,x3,,s                                                             5501:  5581           fbegnarith six,x1,,x2,,x3,,s
 5489: 5582 nxtop     equ  086                                                                                 5502:  5582 nxtop     equ  086
 5490: 5583           org  xbegin                                                                              5503:  5583           org  xbegin
 5491: 5584 inish     bce  fendx,x2,.                                                                          5504:  5584 inish     bce  fendx,x2,.
 5492: 5585           sbr  hex2#3,0&x2                                                                         5505:  5585           sbr  hex2#3,0&x2
 5493: 5586           mn   0&x3                                                                                5506:  5586           mn   0&x3
 5494: 5587           mn                                                                                       5507:  5587           mn
 5495: 5588           sar  nomo#3                                                                              5508:  5588           sar  nomo#3
 5496: 5589           sbr  hex1#3,0&x1                                                                         5509:  5589           sbr  hex1#3,0&x1
 5497: 5590           mcw  nxtop,mxtmp                                                                         5510:  5590           mcw  nxtop,mxtmp
 5498: 5591           mcw  parama&6,tmpsz#3                                                                    5511:  5591           mcw  parama&6,tmpsz#3
 5499: 5592           mn   &0,tmpsz-2                                                                          5512:  5592           mn   &0,tmpsz-2
 5500: 5593           a    &2,tmpsz                                                                            5513:  5593           a    &2,tmpsz
 5501: 5594           c    tmpsz,parama&4                                                                      5514:  5594           c    tmpsz,parama&4
 5502: 5595           bl   start                                                                               5515:  5595           bl   start
 5503: 5596           mcw  parama&4,tmpsz                                                                      5516:  5596           mcw  parama&4,tmpsz
 5504: 5597 start     c    x2,nomo                                                                             5517:  5597 start     c    x2,nomo
 5505: 5598           be   dun                                                                                 5518:  5598           be   dun
 5506: 5599           mcw  table&165,table&164                                                                 5519:  5599           mcw  table&165,table&164
 5507: 5600 getum     bce  gotum,2&x2,<        delta   12-6-8                                                  5520:  5600 getum     bce  gotum,2&x2,<        delta   12-6-8
 5508: 5601           sbr  x2                                                                                  5521:  5601           sbr  x2
 5509: 5602           bce  nxguy,1&x2,}        gm                                                              5522:  5602           bce  nxguy,1&x2,}        gm
 5510: 5603           b    getum                                                                               5523:  5603           b    getum
 5511: 5604 gotum     mn   4&x2,dlval#3                                                                        5524:  5604 gotum     mn   4&x2,dlval#3
 5512: 5605           mn                                                                                       5525:  5605           mn
 5513: 5606           mcw  @0@                                                                                 5526:  5606           mcw  @0@
 5514: 5607           bwz  bmpum,4&x2,2                                                                        5527:  5607           bwz  bmpum,4&x2,2
 5515: 5608           a    &100,dlval                                                                          5528:  5608           a    &100,dlval
 5516: 5609           bwz  bmpum,4&x2,s                                                                        5529:  5609           bwz  bmpum,4&x2,s
 5517: 5610           a    &100,dlval                                                                          5530:  5610           a    &100,dlval
 5518: 5611           bwz  bmpum,4&x2,k                                                                        5531:  5611           bwz  bmpum,4&x2,k
 5519: 5612           a    &100,dlval                                                                          5532:  5612           a    &100,dlval
 5520: 5613 bmpum     mcw  dlval,x3                                                                            5533:  5613 bmpum     mcw  dlval,x3
 5521: 5614           a    x3                                                                                  5534:  5614           a    x3
 5522: 5615           a    dlval,x3                                                                            5535:  5615           a    dlval,x3
 5523: 5616           bce  assgn,5&x2,#                                                                        5536:  5616           bce  assgn,5&x2,#
 5524: 5617           mcw  matrx-1&x3,x1                                                                       5537:  5617           mcw  matrx-1&x3,x1
 5525: 5618           mcw  @|@,table-1&x1                                                                      5538:  5618           mcw  @|@,table-1&x1
 5526: 5619           b    cmpad                                                                               5539:  5619           b    cmpad
 5527: 5620 assgn     mcm  table                                                                               5540:  5620 assgn     mcm  table
 5528: 5621           sar  x1                                                                                  5541:  5621           sar  x1
 5529: 5622           ma   -table,x1                                                                           5542:  5622           ma   -table,x1
 5530: 5623           mcw  *-6,table-1&x1                                                                      5543:  5623           mcw  *-6,table-1&x1
 5531: 5624           mcw  x1,matrx-1&x3                                                                       5544:  5624           mcw  x1,matrx-1&x3
 5532: 5625 cmpad     za   x1,accum-4                                                                          5545:  5625 cmpad     za   x1,accum-4
 5533: 5626           m    tmpsz,accum#7                                                                       5546:  5626           m    tmpsz,accum#7
 5534: 5627           sw   accum-4                                                                             5547:  5627           sw   accum-4
 5535: 5628           fpackaccum,4&x2,x3                                                                       5548:  5628           fpackaccum,4&x2,x3
 5536: 5629           cw   accum-4                                                                             5549:  5629           cw   accum-4
 5537: 5630           ma   nxtop,4&x2                                                                          5550:  5630           ma   nxtop,4&x2
 5538: 5631           c    x1,hytest#3                                                                         5551:  5631           c    x1,hytest#3
 5539: 5632           bh   gobak                                                                               5552:  5632           bh   gobak
 5540: 5633           mcw  x1,hytest                                                                           5553:  5633           mcw  x1,hytest
 5541: 5634           mcw  4&x2,mxtmp#3                                                                        5554:  5634           mcw  4&x2,mxtmp#3
 5542: 5635           bwz  blwup,mxtmp,2                                                                     | 5555:  56354          bwz  tstzn,mxtmp,2                                   v3m4
 5543: 5636 gobak     sbr  x2,3&x2                                                                             5556:  5636 gobak     sbr  x2,3&x2
 5544: 5637           b    getum                                                                               5557:  5637           b    getum
 5545: 5638 nxguy     sbr  x2,4&x2                                                                             5558:  5638 nxguy     sbr  x2,4&x2
 5546: 5639           b    start                                                                               5559:  5639           b    start
 5547: 5640 dun       mcw  hex2,x3                                                                             5560:  5640 dun       mcw  hex2,x3
 5548: 5641           mcw  hex1,x1                                                                             5561:  5641           mcw  hex1,x1
 5549: 5642           c    0&x1                                                                                5562:  5642           c    0&x1
 5550: 5643           c                                                                                        5563:  5643           c
 5551: 5644           sar  x1                                                                                  5564:  5644           sar  x1
 5552: 5645           mcw  mxtmp,nxtop                                                                         5565:  5645           mcw  mxtmp,nxtop
 5553: 5646 fendx     fendxd,,,,,,sys6,i/o two                                                                 5566:  5646 fendx     fendxd,,,,,,sys6,i/o two
 5554: 5647 blwup     bw   gobak,lgsw                                                                          5567:  5647 blwup     bw   gobak,lgsw
 5555: 5648           cs   332                                                                                 5568:  5648           cs   332
 5556: 5649           cs                                                                                       5569:  5649           cs
 5557: 5650           mlc  @message 2 - object program too large@,270                                          5570:  5650           mlc  @message 2 - object program too large@,270
 5558: 5651           w                                                                                        5571:  5651           w
 5559: 5652           sw   failsw,lgsw                                                                         5572:  5652           sw   failsw,lgsw
 5560: 5653           b    gobak                                                                               5573:  5653           b    gobak
                                                                                                             > 5574:  56531tstzn     bwz  blwup,mxtmp-2,2                                 v3m4
                                                                                                             > 5575:  56532          b    gobak                                           v3m4
 5561: 5654 matrx     da   1x1023                                                                              5576:  5654 matrx     da   1x1023
 5562: 5655 table     da   1x165,|                                                                             5577:  5655 table     da   1x165,|
 5563: 5656 lgsw      dc   #1                                                                                  5578:  5656 lgsw      dc   #1
 5564: 5657           org  *                                                                                   5579:  5657           org  *
 5565:                ltorg*    WVS: Autocoder shouldn't load incld at org                                     5580:                 ltorg*    WVS: Autocoder shouldn't load incld at org
 5566: 5658 sys6      dcw  @}@        system and work group mark                                               5581:  5658 sys6      dcw  @}@        system and work group mark
 5567: 5659           xfr  inish                                                                               5582:  5659           xfr  inish
 5568: 5660           job  1401 Fortran  input/output phase two                   50393                        5583:  5660           job  1401 Fortran  input/output phase two                   50393
 5569: 5661           fbegni/o two,x1,,x2,r,x3,,u                                                              5584:  5661           fbegni/o two,x1,,x2,r,x3,,u
 5570: 5662           org  xbegin                                                                              5585:  5662           org  xbegin
 5571: 5663 start     bce  out,0&x1,                                                                           5586:  5663 start     bce  out,0&x1,
 5572: 5664           mcw  0&x1,code#4                                                                         5587:  5664           mcw  0&x1,code#4
 5573: 5665           mcw  code-3,*&8                                                                          5588:  5665           mcw  code-3,*&8
 5574: 5666           bce  work,@bzn@,0                  d char initialized                                    5589:  5666           bce  work,@bzn@,0                  d char initialized
 5575: 5667           bce                                                                                      5590:  5667           bce
 5576: 5668           bce                                                                                      5591:  5668           bce
 5577: 5669 out       fendxc,,,,,,sys1,cgoto                                                                   5592:  5669 out       fendxc,,,,,,sys1,cgoto
 5578: 5670 work      mcw  @b@,iocw                                                                            5593:  5670 work      mcw  @b@,iocw
 5579: 5671           mcw  @<@,2&x1                      12-6-8                                                5594:  5671           mcw  @<@,2&x1                      12-6-8
 5580: 5672           sbr  klobr&6,2&x1                                                                        5595:  5672           sbr  klobr&6,2&x1
 5581: 5673           bce  ctu1,code-3,b                                                                       5596:  5673           bce  ctu1,code-3,b
 5582: 5674           mcw  @r@,iocw                                                                            5597:  5674           mcw  @r@,iocw
 5583: 5675           bce  ctu1,code-3,z                                                                       5598:  5675           bce  ctu1,code-3,z
 5584: 5676           mcw  @m@,iocw                                                                            5599:  5676           mcw  @m@,iocw
 5585: 5677 ctu1      mvdwnx1,x3                                                                               5600:  5677 ctu1      mvdwnx1,x3
 5586: 5678           lca  1&x1,2&x3                                                                           5601:  5678           lca  1&x1,2&x3
 5587: 5679           sbr  x3                                                                                  5602:  5679           sbr  x3
 5588: 5680           bwz  *&5,code,2                                                                          5603:  5680           bwz  *&5,code,2
 5589: 5681           b    chng                                                                                5604:  5681           b    chng
 5590: 5682           bwz  cknum,code-2,2                                                                      5605:  5682           bwz  cknum,code-2,2
 5591: 5683 chng      mcw  code,x2                                                                             5606:  5683 chng      mcw  code,x2
 5592: 5684           mcw  0&x2,code                                                                           5607:  5684           mcw  0&x2,code
 5593: 5685 cknum     bce  nonum,0&x1,}                  12-7-8                                                5608:  5685 cknum     bce  nonum,0&x1,}                  12-7-8
 5594: 5686           mn   0&x1                                                                                5609:  5686           mn   0&x1
 5595: 5687           sar  x2                                                                                  5610:  5687           sar  x2
 5596: 5688           bce  const,0&x2,}                  12-7-8                                                5611:  5688           bce  const,0&x2,}                  12-7-8
 5597: 5689 symb      mcw  @0@,tuno                                                                            5612:  5689 symb      mcw  @0@,tuno
 5598: 5690           mcw  0&x1,mvmsk-3                                                                        5613:  5690           mcw  0&x1,mvmsk-3
 5599: 5691           mcw  @d@,mvmsk-6                                                                         5614:  5691           mcw  @d@,mvmsk-6
 5600: 5692           mz   *-4,mvmsk-4                                                                         5615:  5692           mz   *-4,mvmsk-4
 5601: 5693           cw   mvsw#1                                                                              5616:  5693           cw   mvsw#1
 5602: 5694 slide     c    0&x1                                                                                5617:  5694 slide     c    0&x1
 5603: 5695           sar  x1                                                                                  5618:  5695           sar  x1
 5604: 5696           lca  iocw,0&x3                                                                           5619:  5696           lca  iocw,0&x3
 5605: 5697           sbr  x3                             to source                                            5620:  5697           sbr  x3                             to source
 5606: 5698           bw   noint,mvsw                                                                          5621:  5698           bw   noint,mvsw
 5607: 5699           sw   mvsw                                                                                5622:  5699           sw   mvsw
 5608: 5700           lca  mvmsk,0&x3                    load initialize                                       5623:  5700           lca  mvmsk,0&x3                    load initialize
 5609: 5701           sbr  x3                                                                                  5624:  5701           sbr  x3
 5610: 5702 noint     lca  1&x1,0&x3                     load gm                                               5625:  5702 noint     lca  1&x1,0&x3                     load gm
 5611: 5703           sbr  x3                                                                                  5626:  5703           sbr  x3
 5612: 5704 klobr     bce  start,0,<                     12-6-8                                                5627:  5704 klobr     bce  start,0,<                     12-6-8
 5613: 5705           fquit                                                                                    5628:  5705           fquit
 5614: 5706 nonum     ftmsg33,no tape unit number,code,21                                                      5629:  5706 nonum     ftmsg33,no tape unit number,code,21
 5615: 5707           mcw  @0@,tuno                                                                            5630:  5707           mcw  @0@,tuno
 5616: 5708           b    symb                                                                                5631:  5708           b    symb
 5617: 5709 const     mn   0&x1,tuno                                                                           5632:  5709 const     mn   0&x1,tuno
 5618: 5710           b    slide                                                                               5633:  5710           b    slide
 5619: 5711 mvmsk     dcw  @mxxx0?4@          0,12-0,4                                                         5634:  5711 mvmsk     dcw  @mxxx0?4@          0,12-0,4
 5620: 5712 iocw      dcw  @u%u0x@                                                                             5635:  5712 iocw      dcw  @u%u0x@
 5621: 5713 tuno      equ  iocw-1                                                                              5636:  5713 tuno      equ  iocw-1
 5622: 5714           ltorg*                                                                                   5637:  5714           ltorg*
 5623: 5715 sys1      dcw  @}@           system group mark                                                     5638:  5715 sys1      dcw  @}@           system group mark
 5624: 5716           xfr  start                                                                               5639:  5716           xfr  start
 5625: 5717           job  1401 Fortran  computed go to phase                     50403                        5640:  5717           job  1401 Fortran  computed go to phase                     50403
 5626: 5718           fbegncgoto,x1,,x2,r,x3,,.                                                                5641:  5718           fbegncgoto,x1,,x2,r,x3,,.
 5627: 5719           org  xbegin                                                                              5642:  5719           org  xbegin
 5628: 5720 initl     sw   gm1,gm2                                                                             5643:  5720 initl     sw   gm1,gm2
 5629: 5721 start     bwz  out,0&x1,1                                                                          5644:  5721 start     bwz  out,0&x1,1
 5630: 5722           mcw  0&x1,id#3                                                                           5645:  5722           mcw  0&x1,id#3
 5631: 5723           mcw  id,mask                                                                             5646:  5723           mcw  id,mask
 5632: 5724           mcw  @]@,1&x1                      11-5-8                                                5647:  5724           mcw  @]@,1&x1                      11-5-8
 5633: 5725           sbr  klobr&6,1&x1                                                                        5648:  5725           sbr  klobr&6,1&x1
 5634: 5726           c    0&x1                                                                                5649:  5726           c    0&x1
 5635: 5727           sar  x1                                                                                  5650:  5727           sar  x1
 5636: 5728           c    2&x1,@t@                                                                            5651:  5728           c    2&x1,@t@
 5637: 5729           bu   dun                                                                                 5652:  5729           bu   dun
 5638: 5730 small     s    max#2                                                                               5653:  5730 small     s    max#2
 5639: 5731 loop      mn   0&x1                                                                                5654:  5731 loop      mn   0&x1
 5640: 5732           mn                                                                                       5655:  5732           mn
 5641: 5733           mn                                                                                       5656:  5733           mn
 5642: 5734           sar  x1                                                                                  5657:  5734           sar  x1
 5643: 5735           a    &1,max                                                                              5658:  5735           a    &1,max
 5644: 5736           c    max,&11                                                                             5659:  5736           c    max,&11
 5645: 5737           be   error                                                                               5660:  5737           be   error
 5646: 5738           c    0&x1,@,@                                                                            5661:  5738           c    0&x1,@,@
 5647: 5739           bu   loop                                                                                5662:  5739           bu   loop
 5648: 5740           mn   0&x1                                                                                5663:  5740           mn   0&x1
 5649: 5741           sar  x1                                                                                  5664:  5741           sar  x1
 5650: 5742           b    ruadr                                                                               5665:  5742           b    ruadr
 5651: 5743           lca  mask,0&x3                                                                           5666:  5743           lca  mask,0&x3
 5652: 5744           lca  trap                                                                                5667:  5744           lca  trap
 5653: 5745           lca                                                                                      5668:  5745           lca
 5654: 5746           lca                                                                                      5669:  5746           lca
 5655: 5747           sbr  x3                                                                                  5670:  5747           sbr  x3
 5656: 5748           sbr  x1,1&x1                                                                             5671:  5748           sbr  x1,1&x1
 5657: 5749 anymo     bw   nomo,4&x1                                                                           5672:  5749 anymo     bw   nomo,4&x1
 5658: 5750           sw   brnch-6                                                                             5673:  5750           sw   brnch-6
 5659: 5751           mn   max,brnch                                                                           5674:  5751           mn   max,brnch
 5660: 5752           mcw  I                                                                                   5675:  5752           mcw  I
 5661: 5753           mcw  6&x1                                                                                5676:  5753           mcw  6&x1
 5662: 5754           sar  x1                                                                                  5677:  5754           sar  x1
 5663: 5755           cw   brnch-6                                                                             5678:  5755           cw   brnch-6
 5664: 5756           mz   @k@,brnch-5                                                                         5679:  5756           mz   @k@,brnch-5
 5665: 5757           mz   *-4,brnch-2                                                                         5680:  5757           mz   *-4,brnch-2
 5666: 5758           lca  brnch,0&x3                                                                          5681:  5758           lca  brnch,0&x3
 5667: 5759           sbr  x3                                                                                  5682:  5759           sbr  x3
 5668: 5760           s    &1,max                                                                              5683:  5760           s    &1,max
 5669: 5761           b    anymo                                                                               5684:  5761           b    anymo
 5670: 5762 nomo      lca  gm1,0&x3                                                                            5685:  5762 nomo      lca  gm1,0&x3
 5671: 5763           sbr  x3                                                                                  5686:  5763           sbr  x3
 5672: 5764 botm      c    0&x1                                                                                5687:  5764 botm      c    0&x1
 5673: 5765           sar  x1                                                                                  5688:  5765           sar  x1
 5674: 5766 klobr     bce  start,0,]                     11-5-8                                                5689:  5766 klobr     bce  start,0,]                     11-5-8
 5675: 5767           fquit                                                                                    5690:  5767           fquit
 5676: 5768 ruadr     sbr  exrua&3                                                                             5691:  5768 ruadr     sbr  exrua&3
 5677: 5769           s    count#1                                                                             5692:  5769           s    count#1
 5678: 5770 ok        mn   0&x1,test&7                                                                         5693:  5770 ok        mn   0&x1,test&7
 5679: 5771           sar  x1                                                                                  5694:  5771           sar  x1
 5680: 5772           bce  rufix,count,b                                                                       5695:  5772           bce  rufix,count,b
 5681: 5773           a    &1,count                                                                            5696:  5773           a    &1,count
 5682: 5774 test      bce  ok,@0123456789@,0                                                                   5697:  5774 test      bce  ok,@0123456789@,0
 5683: 5775           chain9                                                                                   5698:  5775           chain9
 5684: 5776 err1      bce  error,0&x1,}                  12-7-8                                                5699:  5776 err1      bce  error,0&x1,}                  12-7-8
 5685: 5777           sbr  x1                                                                                  5700:  5777           sbr  x1
 5686: 5778           b    err1                                                                                5701:  5778           b    err1
 5687: 5779 rufix     bwz  fixed,2&x1,k                                                                        5702:  5779 rufix     bwz  fixed,2&x1,k
 5688: 5780           b    err1                                                                                5703:  5780           b    err1
 5689: 5781 fixed     mz   blank#1,2&x1                                                                        5704:  5781 fixed     mz   blank#1,2&x1
 5690: 5782           mcw  3&x1,i                                                                              5705:  5782           mcw  3&x1,i
 5691: 5783           c    0&x1,gm1                                                                            5706:  5783           c    0&x1,gm1
 5692: 5784           bu   err1                                                                                5707:  5784           bu   err1
 5693: 5785 exrua     b    0                                                                                   5708:  5785 exrua     b    0
 5694: 5786 error     bwz  *&5,id,2                                                                            5709:  5786 error     bwz  *&5,id,2
 5695: 5787           b    zone                                                                                5710:  5787           b    zone
 5696: 5788           bwz  print,id-2,2                                                                        5711:  5788           bwz  print,id-2,2
 5697: 5789 zone      mcw  id,x2                                                                               5712:  5789 zone      mcw  id,x2
 5698: 5790           mcw  0&x2,id                                                                             5713:  5790           mcw  0&x2,id
 5699: 5791 print     ftmsg34,computed go to syntax,id,23                                                      5714:  5791 print     ftmsg34,computed go to syntax,id,23
 5700: 5792           b    botm                                                                                5715:  5792           b    botm
 5701: 5793 gm1       dc   @}@                           gm                                                    5716:  5793 gm1       dc   @}@                           gm
 5702: 5794           dcw  @t@                                                                                 5717:  5794           dcw  @t@
 5703: 5795           dc   xlinks              inoperative in ver 3                                            5718:  5795           dc   xlinks              inoperative in ver 3
 5704: 5796 i         dcw  #3                                                                                  5719:  5796 i         dcw  #3
 5705: 5797           dcw  #3                            max value of i                                        5720:  5797           dcw  #3                            max value of i
 5706: 5798 base      dcw  #3                            base address of table                                 5721:  5798 base      dcw  #3                            base address of table
 5707: 5799 gm2       dc   @}@                           gm                                                    5722:  5799 gm2       dc   @}@                           gm
 5708: 5800 mask      dc   #3                                                                                  5723:  5800 mask      dc   #3
 5709: 5801 dun       sbr  x1,5&x1                                                                             5724:  5801 dun       sbr  x1,5&x1
 5710: 5802 out       fendxc,,,,,,syscg,gomsk                                                                  5725:  5802 out       fendxc,,,,,,syscg,gomsk
 5711: 5803 brnch     dcw  @bxxxxxxa@                                                                          5726:  5803 brnch     dcw  @bxxxxxxa@
 5712: 5804           nop  1001                                                                                5727:  5804           nop  1001
 5713: 5805           h                                                                                        5728:  5805           h
 5714: 5806 trap      dcw  @biib@                                                                              5729:  5806 trap      dcw  @biib@
 5715: 5807           ltorg*                                                                                   5730:  5807           ltorg*
 5716: 5808 syscg     dcw  @}@                           system group mark                                     5731:  5808 syscg     dcw  @}@                           system group mark
 5717: 5809           xfr  initl                                                                               5732:  5809           xfr  initl
 5718: 5810           job  1401 Fortran  go to mask phase                         50413                        5733:  5810           job  1401 Fortran  go to mask phase                         50413
 5719: 5811           fbegngomsk,x1,,,,x3,,*                                                                   5734:  5811           fbegngomsk,x1,,,,x3,,*
 5720: 5812           org  xbegin                                                                              5735:  5812           org  xbegin
 5721: 5813 start     bce  out,0&x1,                     blank                                                 5736:  5813 start     bce  out,0&x1,                     blank
 5722: 5814           mcw  0&x1,code#4                                                                         5737:  5814           mcw  0&x1,code#4
 5723: 5815           bce  ctu,code-3,g                                                                        5738:  5815           bce  ctu,code-3,g
 5724: 5816 out       fendxc,,,,,,sys1,stop/pause                                                              5739:  5816 out       fendxc,,,,,,sys1,stop/pause
 5725: 5817 ctu       mvdwnx1,x3                                                                               5740:  5817 ctu       mvdwnx1,x3
 5726: 5818           lca  1&x3,2&x3                                                                           5741:  5818           lca  1&x3,2&x3
 5727: 5819           sbr  x3                                                                                  5742:  5819           sbr  x3
 5728: 5820           mvdwnx1,x3                                                                               5743:  5820           mvdwnx1,x3
 5729: 5821           mcw  @b@,1&x3                                                                            5744:  5821           mcw  @b@,1&x3
 5730: 5822           lca  1&x1                                                                                5745:  5822           lca  1&x1
 5731: 5823           sbr  x3                                                                                  5746:  5823           sbr  x3
 5732: 5824           mz   @k@,4&x3                                                                            5747:  5824           mz   @k@,4&x3
 5733: 5825           b    start                                                                               5748:  5825           b    start
 5734: 5826           ltorg*                                                                                   5749:  5826           ltorg*
 5735: 5827 sys1      dcw  @}@                           system group mark                                     5750:  5827 sys1      dcw  @}@                           system group mark
 5736: 5828           xfr  start                                                                               5751:  5828           xfr  start
 5737: 5829           job  1401 Fortran  stop/pause phase                         50423                        5752:  5829           job  1401 Fortran  stop/pause phase                         50423
 5738: 5830           fbegnstop/pause,x1,,x2,,x3,,3                                                            5753:  5830           fbegnstop/pause,x1,,x2,,x3,,3
 5739: 5831           org  xbegin                                                                              5754:  5831           org  xbegin
 5740: 5832 start     cs   299                                                                                 5755:  5832 start     cs   299
 5741: 5833 nutyp     bce  out,0&x1,                     blank                                                 5756:  5833 nutyp     bce  out,0&x1,                     blank
 5742: 5834           mcw  0&x1,code#4                                                                         5757:  5834           mcw  0&x1,code#4
 5743: 5835           fbceqdoit,code-3,a,s                                                                     5758:  5835           fbceqdoit,code-3,a,s
 5744: 5836 out       fendxc,,,,,,sys1,light                                                                   5759:  5836 out       fendxc,,,,,,sys1,light
 5745: 5837 doit      mcw  @<@,2&x1                      12-6-8                                                5760:  5837 doit      mcw  @<@,2&x1                      12-6-8
 5746: 5838           sbr  klobr&6,2&x1                                                                        5761:  5838           sbr  klobr&6,2&x1
 5747: 5839           mvdwnx1,x3                                                                               5762:  5839           mvdwnx1,x3
 5748: 5840           lca  1&x3,2&x3                                                                           5763:  5840           lca  1&x3,2&x3
 5749: 5841           sbr  x3                                                                                  5764:  5841           sbr  x3
 5750: 5842           bce  noad,0&x1,}                   gm                                                    5765:  5842           bce  noad,0&x1,}                   gm
 5751: 5843           cs   work                                                                                5766:  5843           cs   work
 5752: 5844           fflip0&x1,lowk,x1,x2,,wm                                                                 5767:  5844           fflip0&x1,lowk,x1,x2,,wm
 5753: 5845           sw   lowk                                                                                5768:  5845           sw   lowk
 5754: 5846           bce  okay2,lowk&3,                 blank                                                 5769:  5846           bce  okay2,lowk&3,                 blank
 5755: 5847           mcw  msg1,222                                                                            5770:  5847           mcw  msg1,222
 5756: 5848           mcw  msg2,247                                                                            5771:  5848           mcw  msg2,247
 5757: 5849           mcw  lowk&4,228                                                                          5772:  5849           mcw  lowk&4,228
 5758: 5850           mcw  lowk&2,251                                                                          5773:  5850           mcw  lowk&2,251
 5759: 5851 okay2     bce  *&5,lowk&2,                   blank                                                 5774:  5851 okay2     bce  *&5,lowk&2,                   blank
 5760: 5852           b    setup                                                                               5775:  5852           b    setup
 5761: 5853           mcw  lowk&1,lowk&2                                                                       5776:  5853           mcw  lowk&1,lowk&2
 5762: 5854           mcw  @0@                                                                                 5777:  5854           mcw  @0@
 5763: 5855           b    okay2                                                                               5778:  5855           b    okay2
 5764: 5856 noad      lca  @000@,lowk&2                                                                        5779:  5856 noad      lca  @000@,lowk&2
 5765: 5857           c    0&x1                                                                                5780:  5857           c    0&x1
 5766: 5858           sar  x1                                                                                  5781:  5858           sar  x1
 5767: 5859 setup     mcw  lowk&2,save3#3                                                                      5782:  5859 setup     mcw  lowk&2,save3#3
 5768: 5860           a    @0@,lowk&3                                                                          5783:  5860           a    @0@,lowk&3
 5769: 5861           c    lowk&2,save3                                                                        5784:  5861           c    lowk&2,save3
 5770: 5862           be   aok                                                                                 5785:  5862           be   aok
 5771: 5863           bce  nuerr,201,                    blank                                                 5786:  5863           bce  nuerr,201,                    blank
 5772: 5864 rtn       mz   blnk3#3,251                                                                         5787:  5864 rtn       mz   blnk3#3,251
 5773: 5865           mz                                                                                       5788:  5865           mz
 5774: 5866           mz                                                                                       5789:  5866           mz
 5775: 5867           b    aok                                                                                 5790:  5867           b    aok
 5776: 5868 nuerr     mcw  msg1,222                                                                            5791:  5868 nuerr     mcw  msg1,222
 5777: 5869           mcw  msg2,247                                                                            5792:  5869           mcw  msg2,247
 5778: 5870           mcw  lowk&2,226                                                                          5793:  5870           mcw  lowk&2,226
 5779: 5871           mcw  lowk&2,251                                                                          5794:  5871           mcw  lowk&2,251
 5780: 5872           mcw  blank,223                                                                           5795:  5872           mcw  blank,223
 5781: 5873           b    rtn                                                                                 5796:  5873           b    rtn
 5782: 5874 aok       bce  ctu,201,                      blank                                                 5797:  5874 aok       bce  ctu,201,                      blank
 5783: 5875           w                                                                                        5798:  5875           w
 5784: 5876           forms                                                                                    5799:  5876           forms
 5785: 5877           cs   299                                                                                 5800:  5877           cs   299
 5786: 5878 ctu       cw   lowk                                                                                5801:  5878 ctu       cw   lowk
 5787: 5879           bce  pause,code-3,a                                                                      5802:  5879           bce  pause,code-3,a
 5788: 5880           lca  @biib@,0&x3                                                                         5803:  5880           lca  @biib@,0&x3
 5789: 5881           lca  @.@                                                                                 5804:  5881           lca  @.@
 5790: 5882           lca  lowk&2                                                                              5805:  5882           lca  lowk&2
 5791: 5883           lca  1&x1                                                                                5806:  5883           lca  1&x1
 5792: 5884           sbr  x3                                                                                  5807:  5884           sbr  x3
 5793: 5885           b    klobr                                                                               5808:  5885           b    klobr
 5794: 5886 pause     lca  @.@,0&x3                                                                            5809:  5886 pause     lca  @.@,0&x3
 5795: 5887           lca  lowk&2                                                                              5810:  5887           lca  lowk&2
 5796: 5888           lca  1&x1                                                                                5811:  5888           lca  1&x1
 5797: 5889           sbr  x3                                                                                  5812:  5889           sbr  x3
 5798: 5890 klobr     bce  nutyp,0,<                     12-6-8                                                5813:  5890 klobr     bce  nutyp,0,<                     12-6-8
 5799: 5891           fquit                                                                                    5814:  5891           fquit
 5800: 5892 msg1      dcw  @error 35 - halt number@                                                            5815:  5892 msg1      dcw  @error 35 - halt number@
 5801: 5893 msg2      dcw  @to be displayed as@                                                                5816:  5893 msg2      dcw  @to be displayed as@
 5802: 5894           org  *&x00                                                                               5817:  5894           org  *&x00
 5803: 5895           org  *&99                                                                                5818:  5895           org  *&99
 5804: 5896           dcw  @n@                                                                                 5819:  5896           dcw  @n@
 5805: 5897 lowk      ds   1                                                                                   5820:  5897 lowk      ds   1
 5806: 5898 work      ds   98                                                                                  5821:  5898 work      ds   98
 5807: 5899           ltorg*                                                                                   5822:  5899           ltorg*
 5808: 5900 sys1      dcw  @}@                           system group mark                                     5823:  5900 sys1      dcw  @}@                           system group mark
 5809: 5901 blank     equ  blnk3-2                                                                             5824:  5901 blank     equ  blnk3-2
 5810: 5902           xfr  start                                                                               5825:  5902           xfr  start
 5811: 5903           job  1401 Fortran  sense light phase                        50433                        5826:  5903           job  1401 Fortran  sense light phase                        50433
 5812: 5904           fbegnlight,x1,,x2,r,x3,,5                                                                5827:  5904           fbegnlight,x1,,x2,r,x3,,5
 5813: 5905           org  xbegin                                                                              5828:  5905           org  xbegin
 5814: 5906 start     bce  out,0&x1,                     blank                                                 5829:  5906 start     bce  out,0&x1,                     blank
 5815: 5907           mcw  0&x1,code#4                                                                         5830:  5907           mcw  0&x1,code#4
 5816: 5908           bce  doit,code-3,j                                                                       5831:  5908           bce  doit,code-3,j
 5817: 5909 out       fendxc,,,,,,sysl,ifcond                                                                  5832:  5909 out       fendxc,,,,,,sysl,ifcond
 5818: 5910 doit      mvdwnx1,x3                                                                               5833:  5910 doit      mvdwnx1,x3
 5819: 5911           sbr  klobr&6,1&x1                                                                        5834:  5911           sbr  klobr&6,1&x1
 5820: 5912           mcw  @]@,1&x1                      11-5-8                                                5835:  5912           mcw  @]@,1&x1                      11-5-8
 5821: 5913           lca  1&x3,2&x3                                                                           5836:  5913           lca  1&x3,2&x3
 5822: 5914           sbr  x3                                                                                  5837:  5914           sbr  x3
 5823: 5915           mcw  code,hold#3                   mcw  0&x2,hold                                        5838:  5915           mcw  code,hold#3                   mcw  0&x2,hold
 5824: 5916           bwz  *&5,hold,2                                                                          5839:  5916           bwz  *&5,hold,2
 5825: 5917           b    sweat                                                                               5840:  5917           b    sweat
 5826: 5918           bwz  ckgm,hold-2,2                                                                       5841:  5918           bwz  ckgm,hold-2,2
 5827: 5919 sweat     mcw  hold,x2                                                                             5842:  5919 sweat     mcw  hold,x2
 5828: 5920           mcw  0&x2,hold                                                                           5843:  5920           mcw  0&x2,hold
 5829: 5921 ckgm      bce  bad,0&x1,}                    gm                                                    5844:  5921 ckgm      bce  bad,0&x1,}                    gm
 5830: 5922           mcw  0&x1,hld2#2                                                                         5845:  5922           mcw  0&x1,hld2#2
 5831: 5923           bce  *&5,hld2-1,}           gm                                                           5846:  5923           bce  *&5,hld2-1,}           gm
 5832: 5924           b    bad                                                                                 5847:  5924           b    bad
 5833: 5925           mn   0&x1,*&8                                                                            5848:  5925           mn   0&x1,*&8
 5834: 5926           bce  ok,@01234@,0                                                                        5849:  5926           bce  ok,@01234@,0
 5835: 5927           chain4                                                                                   5850:  5927           chain4
 5836: 5928 bad       ftmsg36,illegal sense light,hold,21                                                      5851:  5928 bad       ftmsg36,illegal sense light,hold,21
 5837: 5929           sbr  x3,4&x3                                                                             5852:  5929           sbr  x3,4&x3
 5838: 5930           c    0&x1                                                                                5853:  5930           c    0&x1
 5839: 5931           sar  x1                                                                                  5854:  5931           sar  x1
 5840: 5932           b    start                                                                               5855:  5932           b    start
 5841: 5933 ok        mz   *-4,0&x1                                                                            5856:  5933 ok        mz   *-4,0&x1
 5842: 5934           bce  zero,0&x1,0                                                                         5857:  5934           bce  zero,0&x1,0
 5843: 5935           mn   0&x1,mask1                                                                          5858:  5935           mn   0&x1,mask1
 5844: 5936           lca  mask1,0&x3                                                                          5859:  5936           lca  mask1,0&x3
 5845: 5937           sbr  x3                                                                                  5860:  5937           sbr  x3
 5846: 5938 rtn       c    0&x1                                                                                5861:  5938 rtn       c    0&x1
 5847: 5939           sar  x1                                                                                  5862:  5939           sar  x1
 5848: 5940           lca  1&x1,0&x3                                                                           5863:  5940           lca  1&x1,0&x3
 5849: 5941           sbr  x3                                                                                  5864:  5941           sbr  x3
 5850: 5942 klobr     bce  start,0,]                     11-5-8                                                5865:  5942 klobr     bce  start,0,]                     11-5-8
 5851: 5943           fquit                                                                                    5866:  5943           fquit
 5852: 5944 zero      lca  @,@,0&x3                                                                            5867:  5944 zero      lca  @,@,0&x3
 5853: 5945           lca  @,082084@                                                                           5868:  5945           lca  @,082084@
 5854: 5946           sbr  x3                                                                                  5869:  5946           sbr  x3
 5855: 5947           b    rtn                                                                                 5870:  5947           b    rtn
 5856: 5948 mask1     dcw  @)080@                                                                              5871:  5948 mask1     dcw  @)080@
 5857: 5949           ltorg*                                                                                   5872:  5949           ltorg*
 5858: 5950 sysl      dcw  @}@                           system group mark                                     5873:  5950 sysl      dcw  @}@                           system group mark
 5859: 5951           xfr  start                                                                               5874:  5951           xfr  start
 5860: 5952           job  1401 Fortran  if %hardware) phase                      50443                        5875:  5952           job  1401 Fortran  if %hardware) phase                      50443
 5861: 5953           fbegnifcond,x1,,x2,r,x3,,4                                                               5876:  5953           fbegnifcond,x1,,x2,r,x3,,4
 5862: 5954           org  xbegin                                                                              5877:  5954           org  xbegin
 5863: 5955 start     bce  out,0&x1,          blank                                                            5878:  5955 start     bce  out,0&x1,          blank
 5864: 5956           mcw  0&x1,code                                                                           5879:  5956           mcw  0&x1,code
 5865: 5957           mcw                                                                                      5880:  5957           mcw
 5866: 5958           fbceqdoit,code-3,w,k                                                                     5881:  5958           fbceqdoit,code-3,w,k
 5867: 5959 out       fendxc,,,,,,sys1,continue                                                                5882:  5959 out       fendxc,,,,,,sys1,continue
 5868: 5960 doit      mcw  @<@,2&x1            12-6-8                                                          5883:  5960 doit      mcw  @<@,2&x1            12-6-8
 5869: 5961           sbr  klobr&6,2&x1                                                                        5884:  5961           sbr  klobr&6,2&x1
 5870: 5962           mvdwnx1,x3                                                                               5885:  5962           mvdwnx1,x3
 5871: 5963           lca  1&x3,2&x3                                                                           5886:  5963           lca  1&x3,2&x3
 5872: 5964           sbr  x3                                                                                  5887:  5964           sbr  x3
 5873: 5965           mcw  0&x1,on                                                                             5888:  5965           mcw  0&x1,on
 5874: 5966           mcw                                                                                      5889:  5966           mcw
 5875: 5967           sar  x1                                                                                  5890:  5967           sar  x1
 5876: 5968           mz   @k@,on-1                                                                            5891:  5968           mz   @k@,on-1
 5877: 5969           mz   @k@,off-1                                                                           5892:  5969           mz   @k@,off-1
 5878: 5970           bwz  *&5,code,2                                                                          5893:  5970           bwz  *&5,code,2
 5879: 5971           b    flip                                                                                5894:  5971           b    flip
 5880: 5972           bwz  ckcom,code-2,2                                                                      5895:  5972           bwz  ckcom,code-2,2
 5881: 5973 flip      mcw  code,x2                                                                             5896:  5973 flip      mcw  code,x2
 5882: 5974           mcw  0&x2,code                                                                           5897:  5974           mcw  0&x2,code
 5883: 5975 ckcom     b    aok                                                                                 5898:  5975 ckcom     b    aok
 5884: 5976 kill      c    0&x1                                                                                5899:  5976 kill      c    0&x1
 5885: 5977           sar  x1                                                                                  5900:  5977           sar  x1
 5886: 5978           sbr  x3,4&x3                                                                             5901:  5978           sbr  x3,4&x3
 5887: 5979           b    start                                                                               5902:  5979           b    start
 5888: 5980 aok       mn   0&x1                                                                                5903:  5980 aok       mn   0&x1
 5889: 5981           sar  x1                                                                                  5904:  5981           sar  x1
 5890: 5982           bce  light,code-3,k                                                                      5905:  5982           bce  light,code-3,k
 5891: 5983           mcw  0&x1,box#1                    process if sense                                      5906:  5983           mcw  0&x1,box#1                    process if sense
 5892: 5984           mcw  box,*&8                        switch                                               5907:  5984           mcw  box,*&8                        switch
 5893: 5985           bce  aok2,@0123456@,0                                                                    5908:  5985           bce  aok2,@0123456@,0
 5894: 5986           chain6                                                                                   5909:  5986           chain6
 5895: 5987           ftmsg37,illegal sense switch,code,22                                                     5910:  5987           ftmsg37,illegal sense switch,code,22
 5896: 5988           b    kill                                                                                5911:  5988           b    kill
 5897: 5989 aok2      a    &1,box                                                                              5912:  5989 aok2      a    &1,box
 5898: 5990           mn   box,mask1                                                                           5913:  5990           mn   box,mask1
 5899: 5991           mcw  on,mask1-1                                                                          5914:  5991           mcw  on,mask1-1
 5900: 5992           mcw  off,x2                                                                              5915:  5992           mcw  off,x2
 5901: 5993           mcw  0&x2,x2                                                                             5916:  5993           mcw  0&x2,x2
 5902: 5994           s    &10,x2&1                                                                            5917:  5994           s    &10,x2&1
 5903: 5995           c    code,x2                                                                             5918:  5995           c    code,x2
 5904: 5996           be   noxtr                                                                               5919:  5996           be   noxtr
 5905: 5997           mcw  off,mask2                                                                           5920:  5997           mcw  off,mask2
 5906: 5998           lca  mask2,0&x3                                                                          5921:  5998           lca  mask2,0&x3
 5907: 5999           lca  mask1                                                                               5922:  5999           lca  mask1
 5908: 6000           sbr  x3                                                                                  5923:  6000           sbr  x3
 5909: 6001 retrn     c    0&x1                                                                                5924:  6001 retrn     c    0&x1
 5910: 6002           sar  x1                                                                                  5925:  6002           sar  x1
 5911: 6003           lca  1&x1,0&x3                                                                           5926:  6003           lca  1&x1,0&x3
 5912: 6004           sbr  x3                                                                                  5927:  6004           sbr  x3
 5913: 6005 klobr     bce  start,0,<                     12-6-8                                                5928:  6005 klobr     bce  start,0,<                     12-6-8
 5914: 6006           fquit                                                                                    5929:  6006           fquit
 5915: 6007 noxtr     lca  mask1,0&x3                                                                          5930:  6007 noxtr     lca  mask1,0&x3
 5916: 6008           sbr  x3                                                                                  5931:  6008           sbr  x3
 5917: 6009           b    retrn                                                                               5932:  6009           b    retrn
 5918: 6010 light     mcw  0&x1,box                                                                            5933:  6010 light     mcw  0&x1,box
 5919: 6011           mcw  box,*&8                                                                             5934:  6011           mcw  box,*&8
 5920: 6012           bce  aok3,@1234@,0                                                                       5935:  6012           bce  aok3,@1234@,0
 5921: 6013           chain3                                                                                   5936:  6013           chain3
 5922: 6014           ftmsg36,illegal sense light,code,21                                                      5937:  6014           ftmsg36,illegal sense light,code,21
 5923: 6015           b    kill                                                                                5938:  6015           b    kill
 5924: 6016 aok3      mcw  @080@,work3#3                                                                       5939:  6016 aok3      mcw  @080@,work3#3
 5925: 6017           a    box,work3                                                                           5940:  6017           a    box,work3
 5926: 6018           mcw  work3,mask3-1                                                                       5941:  6018           mcw  work3,mask3-1
 5927: 6019           mcw  off                                                                                 5942:  6019           mcw  off
 5928: 6020           mcw  work3,mask4                                                                         5943:  6020           mcw  work3,mask4
 5929: 6021           mcw  on,x2                                                                               5944:  6021           mcw  on,x2
 5930: 6022           mcw  0&x2,x2                                                                             5945:  6022           mcw  0&x2,x2
 5931: 6023           s    &10,x2&1                                                                            5946:  6023           s    &10,x2&1
 5932: 6024           c    code,x2                                                                             5947:  6024           c    code,x2
 5933: 6025           be   cheap                                                                               5948:  6025           be   cheap
 5934: 6026           mcw  on,mask2                                                                            5949:  6026           mcw  on,mask2
 5935: 6027           lca  mask2,0&x3                                                                          5950:  6027           lca  mask2,0&x3
 5936: 6028           lca  mask4                                                                               5951:  6028           lca  mask4
 5937: 6029           lca  mask3                                                                               5952:  6029           lca  mask3
 5938: 6030           sbr  x3                                                                                  5953:  6030           sbr  x3
 5939: 6031           b    retrn                                                                               5954:  6031           b    retrn
 5940: 6032 cheap     lca  mask4,0&x3                                                                          5955:  6032 cheap     lca  mask4,0&x3
 5941: 6033           lca  mask3                                                                               5956:  6033           lca  mask3
 5942: 6034           sbr  x3                                                                                  5957:  6034           sbr  x3
 5943: 6035           b    retrn                                                                               5958:  6035           b    retrn
 5944: 6036 off       dcw  #3                                                                                  5959:  6036 off       dcw  #3
 5945: 6037 on        dcw  #3                                                                                  5960:  6037 on        dcw  #3
 5946: 6038 mask1     dcw  @b   &@                                                                             5961:  6038 mask1     dcw  @b   &@
 5947: 6039           dcw  #1                                                                                  5962:  6039           dcw  #1
 5948: 6040 code      dcw  #3                                                                                  5963:  6040 code      dcw  #3
 5949: 6041 mask2     dcw  @b   @                                                                              5964:  6041 mask2     dcw  @b   @
 5950: 6042 mask3     dcw  @v      1@                                                                          5965:  6042 mask3     dcw  @v      1@
 5951: 6043 mask4     dcw  @,   @                                                                              5966:  6043 mask4     dcw  @,   @
 5952: 6044           ltorg*                                                                                   5967:  6044           ltorg*
 5953: 6045 sys1      dcw  @}@                           system group mark                                     5968:  6045 sys1      dcw  @}@                           system group mark
 5954: 6046           xfr  start                                                                               5969:  6046           xfr  start
 5955: 6047           job  1401 Fortran  continue phase                           50453                        5970:  6047           job  1401 Fortran  continue phase                           50453
 5956: 6048           fbegncontinue,x1,,,,x3,,&                                                                5971:  6048           fbegncontinue,x1,,,,x3,,&
 5957: 6049           org  xbegin                                                                              5972:  6049           org  xbegin
 5958: 6050 start     bce  out,0&x1,                     blank                                                 5973:  6050 start     bce  out,0&x1,                     blank
 5959: 6051           mcw  0&x1,code#4                                                                         5974:  6051           mcw  0&x1,code#4
 5960: 6052           bce  isctu,code-3,c                                                                      5975:  6052           bce  isctu,code-3,c
 5961: 6053 out       fendxc,,,,,,sys1,domsk                                                                   5976:  6053 out       fendxc,,,,,,sys1,domsk
 5962: 6054 isctu     mvdwnx1,x3                                                                               5977:  6054 isctu     mvdwnx1,x3
 5963: 6055           lca  1&x1,2&x3                                                                           5978:  6055           lca  1&x1,2&x3
 5964: 6056           c    0&x1                                                                                5979:  6056           c    0&x1
 5965: 6057           sar  x1                                                                                  5980:  6057           sar  x1
 5966: 6058           b    start                                                                               5981:  6058           b    start
 5967: 6059           ltorg*                                                                                   5982:  6059           ltorg*
 5968: 6060 sys1      dcw  @}@                           system group mark                                     5983:  6060 sys1      dcw  @}@                           system group mark
 5969: 6061           xfr  start                                                                               5984:  6061           xfr  start
 5970: 6062           job  1401 Fortran  do phase                                 50463                        5985:  6062           job  1401 Fortran  do phase                                 50463
 5971: 6063           fbegndomsk,x1,,x2,r,x3,,%                                                                5986:  6063           fbegndomsk,x1,,x2,r,x3,,%
 5972: 6064 * do phase algorithm                                                                               5987:  6064 * do phase algorithm
 5973: 6065 *                                                                                                  5988:  6065 *
 5974: 6066 *                     outer                                                                        5989:  6066 *                     outer
 5975: 6067 *                                                                                                  5990:  6067 *
 5976: 6068 *                   no   same  diff                                                                5991:  6068 *                   no   same  diff
 5977: 6069 *          i       b xt  b xt  b xt                                                                5992:  6069 *          i       b xt  b xt  b xt
 5978: 6070 *          n                                                                                       5993:  6070 *          n
 5979: 6071 *          n   gm  t bk  t in  t bk                                                                5994:  6071 *          n   gm  t bk  t in  t bk
 5980: 6072 *          e   ez  b bk  b in  b bk                                                                5995:  6072 *          e   ez  b bk  b in  b bk
 5981: 6073 *          r   hd  - bk  - in  - bk                                                                5996:  6073 *          r   hd  - bk  - in  - bk
 5982: 6074 *                                                                                                  5997:  6074 *
 5983: 6075           org  xbegin                                                                              5998:  6075           org  xbegin
 5984: 6076 initl     sw   gm1,gm2                                                                             5999:  6076 initl     sw   gm1,gm2
 5985: 6077           sw   gm3,gm4                                                                             6000:  6077           sw   gm3,gm4
 5986: 6078           mcw  x3,hex3#3                                                                           6001:  6078           mcw  x3,hex3#3
 5987: 6079 start     bwz  out,000&x1,1                                                                        6002:  6079 start     bwz  out,000&x1,1
 5988: 6080           mcw  @<@,2&x1                      12-6-8                                                6003:  6080           mcw  @<@,2&x1                      12-6-8
 5989: 6081           sbr  klobr&6,2&x1                                                                        6004:  6081           sbr  klobr&6,2&x1
 5990: 6082           c    000&x1                                                                              6005:  6082           c    000&x1
 5991: 6083           sar  x1                                                                                  6006:  6083           sar  x1
 5992: 6084           c    002&x1,@d@                                                                          6007:  6084           c    002&x1,@d@
 5993: 6085           bu   dun                                                                                 6008:  6085           bu   dun
 5994: 6086           cw   xdoad1,xdoad2                                                                       6009:  6086           cw   xdoad1,xdoad2
 5995: 6087           cw   xdoad3,xdoini                                                                       6010:  6087           cw   xdoad3,xdoini
 5996: 6088           mcw  005&x1,x2                                                                           6011:  6088           mcw  005&x1,x2
 5997: 6089           mcw  000&x2,top#3                                                                        6012:  6089           mcw  000&x2,top#3
 5998: 6090           mcw  000&x1,x2                                                                           6013:  6090           mcw  000&x1,x2
 5999: 6091           sar  x1                                                                                  6014:  6091           sar  x1
 6000: 6092           mcw  000&x2,botm#3                                                                       6015:  6092           mcw  000&x2,botm#3
 6001: 6093           za   top,accum#3                                                                         6016:  6093           za   top,accum#3
 6002: 6094           s    botm,accum                                                                          6017:  6094           s    botm,accum
 6003: 6095           mcw  @n@,swtch                                                                           6018:  6095           mcw  @n@,swtch
 6004: 6096           bwz  err1,accum,b                                                                        6019:  6096           bwz  err1,accum,b
 6005: 6097           mcw  x1,x2                                                                               6020:  6097           mcw  x1,x2
 6006: 6098           mcw  @   @,exit                                                                          6021:  6098           mcw  @   @,exit
 6007: 6099           mcw  @t@,gobak-3                                                                         6022:  6099           mcw  @t@,gobak-3
 6008: 6100           mcw  @b@,noapx                                                                           6023:  6100           mcw  @b@,noapx
 6009: 6101 loop      c    000&x2                                                                              6024:  6101 loop      c    000&x2
 6010: 6102           c                                                                                        6025:  6102           c
 6011: 6103           sar  x2                                                                                  6026:  6103           sar  x2
 6012: 6104           c    002&x2,@d@                                                                          6027:  6104           c    002&x2,@d@
 6013: 6105           bu   difnt                                                                               6028:  6105           bu   difnt
 6014: 6106           mcw  000&x2,x3                                                                           6029:  6106           mcw  000&x2,x3
 6015: 6107           c    000&x3,top                                                                          6030:  6107           c    000&x3,top
 6016: 6108           bh   loop                                                                                6031:  6108           bh   loop
 6017: 6109           c    000&x3,botm                                                                         6032:  6109           c    000&x3,botm
 6018: 6110           bh   err2                                                                                6033:  6110           bh   err2
 6019: 6111           bce  rudif,1&x2,h                                                                        6034:  6111           bce  rudif,1&x2,h
 6020: 6112           mcw  @e@,1&x2                                                                            6035:  6112           mcw  @e@,1&x2
 6021: 6113 rudif     bl   difnt                                                                               6036:  6113 rudif     bl   difnt
 6022: 6114           mcw  @h@,1&x2                                                                            6037:  6114           mcw  @h@,1&x2
 6023: 6115           mcw  5&x2,exit                                                                           6038:  6115           mcw  5&x2,exit
 6024: 6116 difnt     bce  mdify,4&x1,h                                                                        6039:  6116 difnt     bce  mdify,4&x1,h
 6025: 6117           mcw  @n@,noapx                                                                           6040:  6117           mcw  @n@,noapx
 6026: 6118           bce  mdify,4&x1,}        group mk                                                        6041:  6118           bce  mdify,4&x1,}        group mk
 6027: 6119           mcw  @b@,gobak-3                                                                         6042:  6119           mcw  @b@,gobak-3
 6028: 6120 mdify     mcw  botm,mask                                                                           6043:  6120 mdify     mcw  botm,mask
 6029: 6121           sw   006&x1                                                                              6044:  6121           sw   006&x1
 6030: 6122           mcw  008&x1,mask-9                                                                       6045:  6122           mcw  008&x1,mask-9
 6031: 6123           mcw  008&x1,gobak                                                                        6046:  6123           mcw  008&x1,gobak
 6032: 6124 cksyn     b    test                                                                                6047:  6124 cksyn     b    test
 6033: 6125           dcw  @,@                                                                                 6048:  6125           dcw  @,@
 6034: 6126           dcw  &i                                                                                  6049:  6126           dcw  &i
 6035: 6127           b    test                                                                                6050:  6127           b    test
 6036: 6128           dcw  @#@                                                                                 6051:  6128           dcw  @#@
 6037: 6129           dcw  &m1                                                                                 6052:  6129           dcw  &m1
 6038: 6130           b    test                                                                                6053:  6130           b    test
 6039: 6131           dcw  @,@                                                                                 6054:  6131           dcw  @,@
 6040: 6132           dcw  &m2                                                                                 6055:  6132           dcw  &m2
 6041: 6133           bwz  m3is1,000&x1,1                                                                      6056:  6133           bwz  m3is1,000&x1,1
 6042: 6134           b    test                                                                                6057:  6134           b    test
 6043: 6135           dcw  @,@                                                                                 6058:  6135           dcw  @,@
 6044: 6136           dcw  &m3                                                                                 6059:  6136           dcw  &m3
 6045: 6137           bwz  send,000&x1,1                                                                       6060:  6137           bwz  send,000&x1,1
 6046: 6138           b    error                                                                               6061:  6138           b    error
 6047: 6139 send      mcw  hex3,x3                                                                             6062:  6139 send      mcw  hex3,x3
 6048: 6140           mn   000&x1                                                                              6063:  6140           mn   000&x1
 6049: 6141           sar  x1                                                                                  6064:  6141           sar  x1
 6050: 6142 swtch     nop  klobr                                                                               6065:  6142 swtch     nop  klobr
 6051: 6143 noapx     nop  reg                                                                                 6066:  6143 noapx     nop  reg
 6052: 6144           a    &1,gnstmz                                                                           6067:  6144           a    &1,gnstmz
 6053: 6145           lca  mask,000&x3                                                                         6068:  6145           lca  mask,000&x3
 6054: 6146           chain2                                                                                   6069:  6146           chain2
 6055: 6147           sbr  x3                                                                                  6070:  6147           sbr  x3
 6056: 6148 reg       lca  gm2-1,0&x3                                                                          6071:  6148 reg       lca  gm2-1,0&x3
 6057: 6149           chain8                                                                                   6072:  6149           chain8
 6058: 6150           sbr  hex3                                                                                6073:  6150           sbr  hex3
 6059: 6151 klobr     bce  start,0,<                     12-6-8                                                6074:  6151 klobr     bce  start,0,<                     12-6-8
 6060: 6152           fquit                                                                                    6075:  6152           fquit
 6061: 6153 test      sbr  x2                                                                                  6076:  6153 test      sbr  x2
 6062: 6154           c    000&x1,000&x2                                                                       6077:  6154           c    000&x1,000&x2
 6063: 6155           sar  x1                                                                                  6078:  6155           sar  x1
 6064: 6156           bu   error                                                                               6079:  6156           bu   error
 6065: 6157           mcw  003&x2,*&7                                                                          6080:  6157           mcw  003&x2,*&7
 6066: 6158           mcw  000&x1,000                                                                          6081:  6158           mcw  000&x1,000
 6067: 6159           s    count#1                                                                             6082:  6159           s    count#1
 6068: 6160 ok        a    &1,count                                                                            6083:  6160 ok        a    &1,count
 6069: 6161           bce  004&x2,count,d                                                                      6084:  6161           bce  004&x2,count,d
 6070: 6162           mn   000&x1,ruok&7                                                                       6085:  6162           mn   000&x1,ruok&7
 6071: 6163           sar  x1                                                                                  6086:  6163           sar  x1
 6072: 6164 ruok      bce  ok,@0123456789@,0                                                                   6087:  6164 ruok      bce  ok,@0123456789@,0
 6073: 6165           chain9                                                                                   6088:  6165           chain9
 6074: 6166           b    error                                                                               6089:  6166           b    error
 6075: 6167 m3is1     mcw  oneadr,m3                                                                           6090:  6167 m3is1     mcw  oneadr,m3
 6076: 6168           b    send                                                                                6091:  6168           b    send
 6077: 6169 err1      ftmsg38,illegal range of do,top,21                                                       6092:  6169 err1      ftmsg38,illegal range of do,top,21
 6078: 6170 avoid     mcw  @b@,swtch                                                                           6093:  6170 avoid     mcw  @b@,swtch
 6079: 6171           b    cksyn                                                                               6094:  6171           b    cksyn
 6080: 6172 err2      ftmsg39,illegal nesting,top,17                                                           6095:  6172 err2      ftmsg39,illegal nesting,top,17
 6081: 6173           b    avoid                                                                               6096:  6173           b    avoid
 6082: 6174 error     ftmsg40,do syntax,top,11                                                                 6097:  6174 error     ftmsg40,do syntax,top,11
 6083: 6175           c    001&x1                                                                              6098:  6175           c    001&x1
 6084: 6176           sar  x1                                                                                  6099:  6176           sar  x1
 6085: 6177           b    klobr                                                                               6100:  6177           b    klobr
 6086: 6178 dun       sbr  x1,5&x1                                                                             6101:  6178 dun       sbr  x1,5&x1
 6087: 6179 out       mcw  hex3,x3                                                                             6102:  6179 out       mcw  hex3,x3
 6088: 6180           mn   0&x3                                                                                6103:  6180           mn   0&x3
 6089: 6181           sar  x2                                                                                  6104:  6181           sar  x2
 6090: 6182 klear     cs   0&x2                                                                                6105:  6182 klear     cs   0&x2
 6091: 6183           sbr  x2                                                                                  6106:  6183           sbr  x2
 6092: 6184           c    0&x2,doend                                                                          6107:  6184           c    0&x2,doend
 6093: 6185           bu   klear                                                                               6108:  6185           bu   klear
 6094: 6186           fendxe,gm1,,,beginz,,tabelz,resort 1                                                     6109:  6186           fendxe,gm1,,,beginz,,tabelz,resort 1
 6095: 6187 gm1       dc   @}@        group mk                                                                 6110:  6187 gm1       dc   @}@        group mk
 6096: 6188           dcw  @t@                                                                                 6111:  6188           dcw  @t@
 6097: 6189           dc   doadr1                                                                              6112:  6189           dc   doadr1
 6098: 6190           dcw  @t@                                                                                 6113:  6190           dcw  @t@
 6099: 6191           dc   doadr2                                                                              6114:  6191           dc   doadr2
 6100: 6192 m1        dcw  #3                                                                                  6115:  6192 m1        dcw  #3
 6101: 6193 m2        dcw  #3                                                                                  6116:  6193 m2        dcw  #3
 6102: 6194 m3        dcw  #3                                                                                  6117:  6194 m3        dcw  #3
 6103: 6195 i         dcw  #3                                                                                  6118:  6195 i         dcw  #3
 6104: 6196 exit      dcw  #3                                                                                  6119:  6196 exit      dcw  #3
 6105: 6197 gm4       dc   @}@        group mk                                                                 6120:  6197 gm4       dc   @}@        group mk
 6106: 6198           dc   #3             xyz of internal number                                               6121:  6198           dc   #3             xyz of internal number
 6107: 6199 gm2       dc   @}@       group mk                                                                  6122:  6199 gm2       dc   @}@       group mk
 6108: 6200           dcw  @t@                                                                                 6123:  6200           dcw  @t@
 6109: 6201 gobak     dc   #3                                                                                  6124:  6201 gobak     dc   #3
 6110: 6202 gm3       dc   @}@        group mk                                                                 6125:  6202 gm3       dc   @}@        group mk
 6111: 6203 mask      dc   #3                                                                                  6126:  6203 mask      dc   #3
 6112: 6204           ltorg*                                                                                   6127:  6204           ltorg*
 6113: 6205           dcw  @}@                           system group mark                                     6128:  6205           dcw  @}@                           system group mark
 6114: 6206           org  *&x00                                                                               6129:  6206           org  *&x00
 6115: 6207 doend     equ  *                                                                                   6130:  6207 doend     equ  *
 6116: 6208           xfr  initl                                                                               6131:  6208           xfr  initl
 6117: 6209           job  1401 Fortran  resort phase one                         50473                        6132:  6209           job  1401 Fortran  resort phase one                         50473
 6118: 6210           fbegnresort 1,x1,,x2,,x3,,z                                                              6133:  6210           fbegnresort 1,x1,,x2,,x3,,z
 6119: 6211           org  xbegin                                                                              6134:  6211           org  xbegin
 6120: 6212 three     dcw  0                                                                                   6135:  6212 three     dcw  0
 6121: 6213 count     dcw  000                                                                                 6136:  6213 count     dcw  000
 6122: 6214 aside     dcw  000                                                                                 6137:  6214 aside     dcw  000
 6123: 6215 tbl1      dcw  000                                                                                 6138:  6215 tbl1      dcw  000
 6124: 6216 last      dcw  000                                                                                 6139:  6216 last      dcw  000
 6125: 6217 store     dcw  000                                                                                 6140:  6217 store     dcw  000
 6126: 6218 sauce     dcw  000                                                                                 6141:  6218 sauce     dcw  000
 6127: 6219 diff      dcw  000                                                                                 6142:  6219 diff      dcw  000
 6128: 6220 addin     dcw  000                                                                                 6143:  6220 addin     dcw  000
 6129: 6221 intno     dcw  000                                                                                 6144:  6221 intno     dcw  000
 6130: 6222 fromx     equ  sauce                                                                               6145:  6222 fromx     equ  sauce
 6131: 6223 wkbk1     dcw  00000                                                                               6146:  6223 wkbk1     dcw  00000
 6132: 6224 wkbk2     dcw  00000                                                                               6147:  6224 wkbk2     dcw  00000
 6133: 6225 area1     dcw  00000                                                                               6148:  6225 area1     dcw  00000
 6134: 6226 adres     equ  bsauce                                                                              6149:  6226 adres     equ  bsauce
 6135: 6227 tbl2      dcw  000                                                                                 6150:  6227 tbl2      dcw  000
 6136: 6228 test1     dcw  0                                                                                   6151:  6228 test1     dcw  0
 6137: 6229 zone      dcw  99                                                                                  6152:  6229 zone      dcw  99
 6138: 6230 hold      dcw  @     @                                                                             6153:  6230 hold      dcw  @     @
 6139: 6231 cnvrt     dcw  @     @                                                                             6154:  6231 cnvrt     dcw  @     @
 6140: 6232 table     dcw  9                                                                                   6155:  6232 table     dcw  9
 6141: 6233           dc   9                                                                                   6156:  6233           dc   9
 6142: 6234           dcw  @z9@                                                                                6157:  6234           dcw  @z9@
 6143: 6235           dcw  @r9@                                                                                6158:  6235           dcw  @r9@
 6144: 6236           dcw  @i9@                                                                                6159:  6236           dcw  @i9@
 6145: 6237           dcw  @9z@                                                                                6160:  6237           dcw  @9z@
 6146: 6238           dcw  @zz@                                                                                6161:  6238           dcw  @zz@
 6147: 6239           dcw  @rz@                                                                                6162:  6239           dcw  @rz@
 6148: 6240           dcw  @iz@                                                                                6163:  6240           dcw  @iz@
 6149: 6241           dcw  @9r@                                                                                6164:  6241           dcw  @9r@
 6150: 6242           dcw  @zr@                                                                                6165:  6242           dcw  @zr@
 6151: 6243           dcw  @rr@                                                                                6166:  6243           dcw  @rr@
 6152: 6244           dcw  @ir@                                                                                6167:  6244           dcw  @ir@
 6153: 6245           dcw  @9i@                                                                                6168:  6245           dcw  @9i@
 6154: 6246           dcw  @zi@                                                                                6169:  6246           dcw  @zi@
 6155: 6247           dcw  @ri@                                                                                6170:  6247           dcw  @ri@
 6156: 6248           dcw  @ii@                                                                                6171:  6248           dcw  @ii@
 6157: 6249 k5tok3    sbr  cmbck&3            convert five digit number                                        6172:  6249 k5tok3    sbr  cmbck&3            convert five digit number
 6158: 6250           za   cnvrt-3,x1         to three digit adres                                             6173:  6250           za   cnvrt-3,x1         to three digit adres
 6159: 6251           mz   @ @,x1                        blank                                                 6174:  6251           mz   @ @,x1                        blank
 6160: 6252           a    x1                                                                                  6175:  6252           a    x1
 6161: 6253           mz   table&x1,cnvrt-2                                                                    6176:  6253           mz   table&x1,cnvrt-2
 6162: 6254           mz   table&1&x1,cnvrt                                                                    6177:  6254           mz   table&1&x1,cnvrt
 6163: 6255 cmbck     b    0000                                                                                6178:  6255 cmbck     b    0000
 6164: 6256 expnd     sbr  czone&10           convert three digit adres                                        6179:  6256 expnd     sbr  czone&10           convert three digit adres
 6165: 6257           mlc  @     @,hold       to five digit number                                             6180:  6257           mlc  @     @,hold       to five digit number
 6166: 6258           mn   cnvrt,hold                                                                          6181:  6258           mn   cnvrt,hold
 6167: 6359           mn                                                                                       6182:  6359           mn
 6168: 6260           mn                                                                                       6183:  6260           mn
 6169: 6261           mz   cnvrt,zone                                                                          6184:  6261           mz   cnvrt,zone
 6170: 6262           mz   cnvrt-2,zone-1                                                                      6185:  6262           mz   cnvrt-2,zone-1
 6171: 6263           mlc  &table&1,czone&6                                                                    6186:  6263           mlc  &table&1,czone&6
 6172: 6264           s    cnvrt                                                                               6187:  6264           s    cnvrt
 6173: 6265 czone     c    zone,000                                                                            6188:  6265 czone     c    zone,000
 6174: 6266           be   000                                                                                 6189:  6266           be   000
 6175: 6267           a    @1@,hold-3                                                                          6190:  6267           a    @1@,hold-3
 6176: 6268           sw   czone&4                                                                             6191:  6268           sw   czone&4
 6177: 6269           a    @002@,czone&6                                                                       6192:  6269           a    @002@,czone&6
 6178: 6270           cw   czone&4                                                                             6193:  6270           cw   czone&4
 6179: 6271           b    czone                                                                               6194:  6271           b    czone
 6180: 6272 imvup     sbr  here&3                                                                              6195:  6272 imvup     sbr  here&3
 6181: 6273           mn   0&x3                                                                                6196:  6273           mn   0&x3
 6182: 6274           sar  x3                                                                                  6197:  6274           sar  x3
 6183: 6275 remck     mcm  1&x3                                                                                6198:  6275 remck     mcm  1&x3
 6184: 6276           mn                                                                                       6199:  6276           mn
 6185: 6277           sbr  x3                                                                                  6200:  6277           sbr  x3
 6186: 6278           bce  remck,0&x3,|                                                                        6201:  6278           bce  remck,0&x3,|
 6187: 6279           sbr  x3,1&x3                                                                             6202:  6279           sbr  x3,1&x3
 6188: 6280 here      b    0                                                                                   6203:  6280 here      b    0
 6189: 6281 errms     fquit                                                                                    6204:  6281 errms     fquit
 6190: 6282           ltorg*                                                                                   6205:  6282           ltorg*
 6191: 6283 begin     sbr  sauce,0&x3                                                                          6206:  6283 begin     sbr  sauce,0&x3
 6192: 6284           sbr  x1,end                                                                              6207:  6284           sbr  x1,end
 6193: 6285           sbr  tbl1              equiv to one below tbl1                                           6208:  6285           sbr  tbl1              equiv to one below tbl1
 6194: 6286           mlc  intst,tms3&6                                                                        6209:  6286           mlc  intst,tms3&6
 6195: 6287           mz   @z@,tms3&5                                                                          6210:  6287           mz   @z@,tms3&5
 6196: 6288 tms3      sbr  x1,0                                                                                6211:  6288 tms3      sbr  x1,0
 6197: 6289           a    @1@,three                                                                           6212:  6289           a    @1@,three
 6198: 6290           c    three,@3@                                                                           6213:  6290           c    three,@3@
 6199: 6291           bh   tms3                                                                                6214:  6291           bh   tms3
 6200: 6292           sbr  count,0&x1                                                                          6215:  6292           sbr  count,0&x1
 6201: 6293           sbr  tbl2,1&x1         starting adres of tbl2                                            6216:  6293           sbr  tbl2,1&x1         starting adres of tbl2
 6202: 6294           mlc  @ @,three                                                                           6217:  6294           mlc  @ @,three
 6203: 6295           bce  *&5,gnstm,        do gen stmnts exist, tst blank                                    6218:  6295           bce  *&5,gnstm,        do gen stmnts exist, tst blank
 6204: 6296           b    *&27                                                                                6219:  6296           b    *&27
 6205: 6297           sbr  addin,1&x1                                                                          6220:  6297           sbr  addin,1&x1
 6206: 6298           sbr  cnvrt                                                                               6221:  6298           sbr  cnvrt
 6207: 6299           b    expnd                                                                               6222:  6299           b    expnd
 6208: 6300           mlc  hold,wkbk1                                                                          6223:  6300           mlc  hold,wkbk1
 6209: 6301           b    room                                                                                6224:  6301           b    room
 6210: 6302           mlc  gnstm,wkbk2       starting adres of tbl2                                            6225:  6302           mlc  gnstm,wkbk2       starting adres of tbl2
 6211: 6303           a    wkbk2             multiply by six                                                   6226:  6303           a    wkbk2             multiply by six
 6212: 6304           a    wkbk2                                                                               6227:  6304           a    wkbk2
 6213: 6305           a    gnstm                                                                               6228:  6305           a    gnstm
 6214: 6306           a    gnstm,wkbk2                                                                         6229:  6306           a    gnstm,wkbk2
 6215: 6307           sbr  cnvrt,1&x1                                                                          6230:  6307           sbr  cnvrt,1&x1
 6216: 6308           b    expnd                                                                               6231:  6308           b    expnd
 6217: 6309           mlc  hold,wkbk1                                                                          6232:  6309           mlc  hold,wkbk1
 6218: 6310           a    wkbk2,wkbk1                                                                         6233:  6310           a    wkbk2,wkbk1
 6219: 6311           mlc  wkbk1,cnvrt                                                                         6234:  6311           mlc  wkbk1,cnvrt
 6220: 6312           b    k5tok3                                                                              6235:  6312           b    k5tok3
 6221: 6313           mlc  cnvrt,addin       one pos above tbl2                                                6236:  6313           mlc  cnvrt,addin       one pos above tbl2
 6222: 6314 room      mlc  sauce,cnvrt                                                                         6237:  6314 room      mlc  sauce,cnvrt
 6223: 6315           b    expnd                                                                               6238:  6315           b    expnd
 6224: 6316           mlc  hold,area1                                                                          6239:  6316           mlc  hold,area1
 6225: 6317           c    wkbk1,area1                                                                         6240:  6317           c    wkbk1,area1
 6226: 6318           bh   *&5                                                                                 6241:  6318           bh   *&5
 6227: 6319           b    errms                                                                               6242:  6319           b    errms
 6228: 6320           messg@starting address of statements@,43,1,k                                             6243:  6320           messg@starting address of statements@,43,1,k
 6229: 6321           cs   332                                                                                 6244:  6321           cs   332
 6230: 6322           cs                                                                                       6245:  6322           cs
 6231: 6323           mcw  @seq@,208                                                                           6246:  6323           mcw  @seq@,208
 6232: 6324           mcw  @starting address@,242                                                              6247:  6324           mcw  @starting address@,242
 6233: 6325           mcw  @display@,256                                                                       6248:  6325           mcw  @display@,256
 6234: 6326           w                                                                                        6249:  6326           w
 6235: 6327           cc   j                                                                                   6250:  6327           cc   j
 6236: 6328           cs   332                                                                                 6251:  6328           cs   332
 6237: 6329           cs                                                                                       6252:  6329           cs
 6238: 6330           lca  @000@,208                                                                           6253:  6330           lca  @000@,208
 6239: 6331           mlc  fromx,x1                                                                            6254:  6331           mlc  fromx,x1
 6240: 6332           sbr  x1,2&x1           gmwm1&1   top                                                     6255:  6332           sbr  x1,2&x1           gmwm1&1   top
 6241: 6333           sbr  x3                                                                                  6256:  6333           sbr  x3
 6242: 6334           b    imvup                                                                               6257:  6334           b    imvup
 6243: 6335           mlc  x3,x2                                                                               6258:  6335           mlc  x3,x2
 6244: 6336           fendxc,,,begin,begin,begin,sys1,resort 2                                                 6259:  6336           fendxc,,,begin,begin,begin,sys1,resort 2
 6245: 6337           ltorg*                                                                                   6260:  6337           ltorg*
 6246: 6338 sys1      dcw  @}@                           system group mark                                     6261:  6338 sys1      dcw  @}@                           system group mark
 6247: 6339           xfr  begin                                                                               6262:  6339           xfr  begin
 6248: 6340           job  1401 Fortran  resort phase two                         50483                        6263:  6340           job  1401 Fortran  resort phase two                         50483
 6249: 6341           org  begin                                                                               6264:  6341           org  begin
 6250: 6342 110       dc   2                                                                                   6265:  6342 110       dc   2
 6251: 6343           mlc  tbl2,x3           adres of tbl2 in x3                                               6266:  6343           mlc  tbl2,x3           adres of tbl2 in x3
 6252: 6344           b    save                                                                                6267:  6344           b    save
 6253: 6345 init      sbr  x2,2&x2                                                                             6268:  6345 init      sbr  x2,2&x2
 6254: 6346           mz   x3,aside                                                                            6269:  6346           mz   x3,aside
 6255: 6347           mlc  x2,x3                                                                               6270:  6347           mlc  x2,x3
 6256: 6248           b    imvup                                                                               6271:  6248           b    imvup
 6257: 6249           mlc  x3,x2             pos gmwm2&1 in x2                                                 6272:  6249           mlc  x3,x2             pos gmwm2&1 in x2
 6258: 6250           mlc  aside,x3                                                                            6273:  6250           mlc  aside,x3
 6259: 6351 save      sbr  store,2&x2        pos gmwm3-1 in store                                              6274:  6351 save      sbr  store,2&x2        pos gmwm3-1 in store
 6260: 6352           bwz  *&5,0&x2,2        zone in huns pos of int no                                        6275:  6352           bwz  *&5,0&x2,2        zone in huns pos of int no
 6261: 6353           b    *&9                                                                                 6276:  6353           b    *&9
 6262: 6354           bwz  cntnu,2&x2,2      tst for zn in unts pos of int no                                  6277:  6354           bwz  cntnu,2&x2,2      tst for zn in unts pos of int no
 6263: 6355           mlc  2&x2,x2           pckup intno from tbl put in x2                                    6278:  6355           mlc  2&x2,x2           pckup intno from tbl put in x2
 6264: 6356           mlc  0&x2,x2                                                                             6279:  6356           mlc  0&x2,x2
 6265: 6357           b    *&8                                                                                 6280:  6357           b    *&8
 6266: 6358 cntnu     mlc  2&x2,x2           place intno in x2                                                 6281:  6358 cntnu     mlc  2&x2,x2           place intno in x2
 6267: 6359           sbr  intno,0&x2                                                                          6282:  6359           sbr  intno,0&x2
 6268: 6360           sbr  mlply&6                                                                             6283:  6360           sbr  mlply&6
 6269: 6361           mz   @r@,mlply&5                                                                         6284:  6361           mz   @r@,mlply&5
 6270: 6362 mlply     sbr  x2,0                                                                                6285:  6362 mlply     sbr  x2,0
 6271: 6363           mlc  intno,*&14                                                                          6286:  6363           mlc  intno,*&14
 6272: 6364           mz   @r@,*&6                                                                             6287:  6364           mz   @r@,*&6
 6273: 6365           sbr  x2,0                                                                                6288:  6365           sbr  x2,0
 6274: 6366           c    tabel&x2,@   @    test for filled table-blanks                                      6289:  6366           c    tabel&x2,@   @    test for filled table-blanks
 6275: 6367           bu   gntbl                                                                               6290:  6367           bu   gntbl
 6276: 6368           mlc  x1,tabel&x2       hi ord pos of inst in tbl1                                        6291:  6368           mlc  x1,tabel&x2       hi ord pos of inst in tbl1
 6277: 6369           b    setx1                                                                               6292:  6369           b    setx1
 6278: 6370 gntbl     sw   3&x3                                                                                6293:  6370 gntbl     sw   3&x3
 6279: 6371           mlc  tabel&x2,5&x3     gen branch second in tbl2                                         6294:  6371           mlc  tabel&x2,5&x3     gen branch second in tbl2
 6280: 6372           cw   3&x3                                                                                6295:  6372           cw   3&x3
 6281: 6373           mlc  x1,2&x3           orig inst first in tbl2                                           6296:  6373           mlc  x1,2&x3           orig inst first in tbl2
 6282: 6374           mlc  @1@,test1         swtch for replc tbl                                               6297:  6374           mlc  @1@,test1         swtch for replc tbl
 6283: 6375           sbr  tabel&x2,2&x3     low order pos of entry1, tbl2                                     6298:  6375           sbr  tabel&x2,2&x3     low order pos of entry1, tbl2
 6284: 6376           mz   @z@,tabel-1&x2    a zone in tens pos of tbl1                                        6299:  6376           mz   @z@,tabel-1&x2    a zone in tens pos of tbl1
 6285: 6377           sbr  x3,6&x3                                                                             6300:  6377           sbr  x3,6&x3
 6286: 6378 setx1     mlc  store,x2                                                                            6301:  6378 setx1     mlc  store,x2
 6287: 6379           c    adres,store                                                                         6302:  6379           c    adres,store
 6288: 6380           bu   reset                                                                               6303:  6380           bu   reset
 6289: 6381           bce  ctoal,test1,0                                                                       6304:  6381           bce  ctoal,test1,0
 6290: 6382           mlc  @0@,test1                                                                           6305:  6382           mlc  @0@,test1
 6291: 6383           mlc  x1,x3                                                                               6306:  6383           mlc  x1,x3
 6292: 6384           b    imvup                                                                               6307:  6384           b    imvup
 6293: 6385           mz   @z@,1&x3                                                                            6308:  6385           mz   @z@,1&x3
 6294: 6386 ctoal     mlc  addin,x2                                                                            6309:  6386 ctoal     mlc  addin,x2
 6295: 6387           lca  @:@,0&x2           5-8 with wm above program                                        6310:  6387           lca  @:@,0&x2           5-8 with wm above program
 6296: 6388           mlc  tbl1,x3           adres one pos above table 1                                       6311:  6388           mlc  tbl1,x3           adres one pos above table 1
 6297: 6389           sbr  x3,3&x3                                                                             6312:  6389           sbr  x3,3&x3
 6298: 6390           mlc  86,cnvrt          true starting adres                                               6313:  6390           mlc  86,cnvrt          true starting adres
 6299: 6391           b    expnd                                                                               6314:  6391           b    expnd
 6300: 6392           mlc  hold,wkbk1                                                                          6315:  6392           mlc  hold,wkbk1
 6301: 6393           sbr  cnvrt,0&x2                                                                          6316:  6393           sbr  cnvrt,0&x2
 6302: 6394           b    expnd                                                                               6317:  6394           b    expnd
 6303: 6395           mlc  hold,wkbk2                                                                          6318:  6395           mlc  hold,wkbk2
 6304: 6396           s    wkbk2,wkbk1                                                                         6319:  6396           s    wkbk2,wkbk1
 6305: 6397           bwz  *&5,wkbk1,k                 is diff neg                                             6320:  6397           bwz  *&5,wkbk1,k                 is diff neg
 6306: 6398           b    *&8                                                                                 6321:  6398           b    *&8
 6307: 6399           a    @16000@,wkbk1                                                                       6322:  6399           a    @16000@,wkbk1
 6308: 6400           mlc  wkbk1,cnvrt                                                                         6323:  6400           mlc  wkbk1,cnvrt
 6309: 6401           b    k5tok3                                                                              6324:  6401           b    k5tok3
 6310: 6402           mlc  cnvrt,diff        diff bet act and fixed adres                                      6325:  6402           mlc  cnvrt,diff        diff bet act and fixed adres
 6311: 6403           sbr  x2,1&x2           high ord adres of sorted program                                  6326:  6403           sbr  x2,1&x2           high ord adres of sorted program
 6312: 6404           sbr  intst                                                                               6327:  6404           sbr  intst
 6313: 6405           fendxc,,,,,,sys2,resort 3                                                                6328:  6405           fendxc,,,,,,sys2,resort 3
 6314: 6406 reset     mlc  x3,aside                                                                            6329:  6406 reset     mlc  x3,aside
 6315: 6407           mlc  x1,x3                                                                               6330:  6407           mlc  x1,x3
 6316: 6408           b    imvup             set x1 to gmwm1&1 of nxt instr                                    6331:  6408           b    imvup             set x1 to gmwm1&1 of nxt instr
 6317: 6409           mlc  x3,x1                                                                               6332:  6409           mlc  x3,x1
 6318: 6410           mlc  aside,x3                                                                            6333:  6410           mlc  aside,x3
 6319: 6411           bce  *&15,test1,0                                                                        6334:  6411           bce  *&15,test1,0
 6320: 6412           mlc  @0@,test1                                                                           6335:  6412           mlc  @0@,test1
 6321: 6413           mz   @z@,1&x1                                                                            6336:  6413           mz   @z@,1&x1
 6322: 6414           sbr  x1,4&x1                                                                             6337:  6414           sbr  x1,4&x1
 6323: 6415           b    init                                                                                6338:  6415           b    init
 6324: 6416           ltorg*                                                                                   6339:  6416           ltorg*
 6325: 6417 sys2      dcw  @}@                           system group mark                                     6340:  6417 sys2      dcw  @}@                           system group mark
 6326: 6418           xfr  begin                                                                               6341:  6418           xfr  begin
 6327: 6419           job  1401 Fortran  resort phase three                       50493                        6342:  6419           job  1401 Fortran  resort phase three                       50493
 6328: 6420           org  begin                                                                               6343:  6420           org  begin
 6329: 6421 110       dc   @3@                                                                                 6344:  6421 110       dc   @3@
 6330: 6422           sw   gmwm                                                                                6345:  6422           sw   gmwm
 6331: 6423           b    next&7                                                                              6346:  6423           b    next&7
 6332: 6424 next      sbr  x3,0               re-init x3                                                       6347:  6424 next      sbr  x3,0               re-init x3
 6333: 6425           sbr  last                                                                                6348:  6425           sbr  last
 6334: 6426           bce  adone,0&x3,        tst for blanks in tbl                                            6349:  6426           bce  adone,0&x3,        tst for blanks in tbl
 6335: 6427           sbr  next&6,3&x3                                                                         6350:  6427           sbr  next&6,3&x3
 6336: 6428           mn   0&x3                                                                                6351:  6428           mn   0&x3
 6337: 6429           sar  *&7                                                                                 6352:  6429           sar  *&7
 6338: 6430           bwz  case2,0,s          a zone in tens pos of tbl1                                       6353:  6430           bwz  case2,0,s          a zone in tens pos of tbl1
 6339: 6431           mlc  0&x3,x1            place hi ord pos of inst in x1                                   6354:  6431           mlc  0&x3,x1            place hi ord pos of inst in x1
 6340: 6432           sbr  addin,0&x3                                                                          6355:  6432           sbr  addin,0&x3
 6341: 6433           mlc  x1,prep1#3         save x1                                                          6356:  6433           mlc  x1,prep1#3         save x1
 6342: 6434 space     mlc  x1,x3                                                                               6357:  6434 space     mlc  x1,x3
 6343: 6435           b    imvup                                                                               6358:  6435           b    imvup
 6344: 6436           mlc  x3,cnvrt                                                                            6359:  6436           mlc  x3,cnvrt
 6345: 6437           b    expnd                                                                               6360:  6437           b    expnd
 6346: 6438           mlc  hold,area1                                                                          6361:  6438           mlc  hold,area1
 6347: 6439           a    @1@,area1                                                                           6362:  6439           a    @1@,area1
 6348: 6440           mlc  prep1,cnvrt                                                                         6363:  6440           mlc  prep1,cnvrt
 6349: 6441           b    expnd                                                                               6364:  6441           b    expnd
 6350: 6442           mlc  hold,area2                                                                          6365:  6442           mlc  hold,area2
 6351: 6443           s    area2,area1        lngth of nxt inst to be moved                                    6366:  6443           s    area2,area1        lngth of nxt inst to be moved
 6352: 6444           mlc  x2,cnvrt           nxt avail pos in sorted area                                     6367:  6444           mlc  x2,cnvrt           nxt avail pos in sorted area
 6353: 6445           b    expnd                                                                               6368:  6445           b    expnd
 6354: 6446           mlc  hold,wkbk1                                                                          6369:  6446           mlc  hold,wkbk1
 6355: 6447           b    nufrm                                                                               6370:  6447           b    nufrm
 6356: 6448           bl   squez                                                                               6371:  6448           bl   squez
 6357: 6449 list      mlc  prep1,x1                                                                            6372:  6449 list      mlc  prep1,x1
 6358: 6450           bce  *&12,test2,1       print stmt no, hi ord adres                                      6373:  6450           bce  *&12,test2,1       print stmt no, hi ord adres
 6359: 6451           a    @1@,208                                                                             6374:  6451           a    @1@,208
 6360: 6452           b    addr1                                                                               6375:  6452           b    addr1
 6361: 6453           mlc  @0@,test2          reset indicator                                                  6376:  6453           mlc  @0@,test2          reset indicator
 6362: 6454           mlc  x3,gary&6                                                                           6377:  6454           mlc  x3,gary&6
 6363: 6455           mcw  3&x1,x3                                                                             6378:  6455           mcw  3&x1,x3
 6364: 6456           mcw  0&x3,x3                                                                             6379:  6456           mcw  0&x3,x3
 6365: 6457           sbr  3&x1,4&x3                                                                           6380:  6457           sbr  3&x1,4&x3
 6366: 6458           ma   diff,3&x1                                                                           6381:  6458           ma   diff,3&x1
 6367: 6459           mcw  x1,hex1#3                                                                           6382:  6459           mcw  x1,hex1#3
 6368: 6460 round     mz   *-4,9&x3                                                                            6383:  6460 round     mz   *-4,9&x3
 6369: 6461           mz   *-4,12&x3                                                                           6384:  6461           mz   *-4,12&x3
 6370: 6462           mz   *-4,15&x3                                                                           6385:  6462           mz   *-4,15&x3
 6371: 6463           mz   *-4,18&x3                                                                           6386:  6463           mz   *-4,18&x3
 6372: 6464           bce  outer,22&x3,       blank                                                            6387:  6464           bce  outer,22&x3,       blank
 6373: 6465           mcw  22&x3,x1                                                                            6388:  6465           mcw  22&x3,x1
 6374: 6466           mcw  0&x1,22&x3                                                                          6389:  6466           mcw  0&x1,22&x3
 6375: 6467           ma   @004@,22&x3                                                                         6390:  6467           ma   @004@,22&x3
 6376: 6468           ma   diff,22&x3                                                                          6391:  6468           ma   diff,22&x3
 6377: 6469           mcw  0&x1,x3                                                                             6392:  6469           mcw  0&x1,x3
 6378: 6470           b    round                                                                               6393:  6470           b    round
 6379: 6471 outer     sbr  22&x3,4&x2                                                                          6394:  6471 outer     sbr  22&x3,4&x2
 6380: 6472           ma   diff,22&x3                                                                          6395:  6472           ma   diff,22&x3
 6381: 6473           mcw  hex1,x1                                                                             6396:  6473           mcw  hex1,x1
 6382: 6474           bce  *&8,0&x1,b                                                                          6397:  6474           bce  *&8,0&x1,b
 6383: 6475           sbr  3&x1,doadr3                                                                         6398:  6475           sbr  3&x1,doadr3
 6384: 6476 gary      sbr  x3,0                                                                                6399:  6476 gary      sbr  x3,0
 6385: 6477 addr1     mcw  diff,227                                                                            6400:  6477 addr1     mcw  diff,227
 6386: 6478           ma   x2,227                                                                              6401:  6478           ma   x2,227
 6387: 6479           mcw  227,x3                                                                              6402:  6479           mcw  227,x3
 6388: 6480           mcw  x3,cnvrt                                                                            6403:  6480           mcw  x3,cnvrt
 6389: 6481           b    expnd                                                                               6404:  6481           b    expnd
 6390: 6482           mcs  hold,244                                                                            6405:  6482           mcs  hold,244
 6391: 6483           mcw  x3,256                                                                              6406:  6483           mcw  x3,256
 6392: 6484           ma   @004@,256                                                                           6407:  6484           ma   @004@,256
 6393: 6485           w                                                                                        6408:  6485           w
 6394: 6486           forms                                                                                    6409:  6486           forms
 6395: 6587           mlc  x2,symbl-1                                                                          6410:  6587           mlc  x2,symbl-1
 6396: 6488           bce  cntu2,0&x1,}        duz stmnt exist   12-7-8                                        6411:  6488           bce  cntu2,0&x1,}        duz stmnt exist   12-7-8
 6397: 6489           mn   0&x2                move statement                                                  6412:  6489           mn   0&x2                move statement
 6398: 6490           sar  x2                                                                                  6413:  6490           sar  x2
 6399: 6491 ctnmv     mcm  0&x1                                                                                6414:  6491 ctnmv     mcm  0&x1
 6400: 6492           sar  strx1&6                                                                             6415:  6492           sar  strx1&6
 6401: 6493           mcm  0&x1,1&x2                                                                           6416:  6493           mcm  0&x1,1&x2
 6402: 6494           mn                                                                                       6417:  6494           mn
 6403: 6495           sbr  x2                                                                                  6418:  6495           sbr  x2
 6404: 6496 strx1     sbr  x1,0                                                                                6419:  6496 strx1     sbr  x1,0
 6405: 6497           bce  ctnmv,0&x2,|                                                                      | 6420:  64971          b    *&15                                            v3m4
                                                                                                             > 6421:  64972cntu2     sbr  x1,1&x1                                         v3m4
                                                                                                             > 6422:  64973          mlc  @b@,symbl&7                                     v3m4
 6406: 6498           bwz  *&5,0&x1,2          duz replc tbl need updating                                     6423:  6498           bwz  *&5,0&x1,2          duz replc tbl need updating
 6407: 6499           b    chnge                                                                               6424:  6499           b    chnge
 6408: 6500           bwz  symbl,2&x1,2                                                                        6425:  6500           bwz  symbl,2&x1,2
 6409: 6501           b    chnge                                                                             <
 6410: 6502 cntu2     sbr  x1,1&x1                                                                           <
 6411: 6503           mlc  @b@,symbl&7                                                                       <
 6412: 6504 chnge     mlc  2&x1,x3             update replc table                                              6426:  6504 chnge     mlc  2&x1,x3             update replc table
 6413: 6505           sbr  0&x3,0                                                                              6427:  6505           sbr  0&x3,0
 6414: 6506 symbl     mlc  @:@,0&x1            mv symb into stmnt  5-8                                         6428:  6506 symbl     mlc  @:@,0&x1            mv symb into stmnt  5-8
 6415: 6507           nop  botom               skip trawm for no stmnt                                         6429:  6507           nop  botom               skip trawm for no stmnt
 6416: 6508           mn   0&x1                                                                                6430:  6508           mn   0&x1
 6417: 6509           mn                                                                                       6431:  6509           mn
 6418: 6510           sar  x1                  gmwm2-1 of stmnt just moved                                     6432:  6510           sar  x1                  gmwm2-1 of stmnt just moved
 6419: 6511           mn   0&x2                                                                                6433:  6511           mn   0&x2
 6420: 6512           sar  trawm&6                                                                             6434:  6512           sar  trawm&6
 6421: 6513 trawm     lca  0&x1,0&x2           transfer word marks                                             6435:  6513 trawm     lca  0&x1,0&x2           transfer word marks
 6422: 6514           sbr  trawm&6                                                                             6436:  6514           sbr  trawm&6
 6423: 6515           c    0&x1                                                                                6437:  6515           c    0&x1
 6424: 6516           sar  x1                                                                                  6438:  6516           sar  x1
 6425: 6517           bce  *&5,0&x1,}          12-7-8                                                          6439:  6517           bce  *&5,0&x1,}          12-7-8
 6426: 6518           b    trawm                                                                               6440:  6518           b    trawm
 6427: 6519 botom     mlc  @n@,symbl&7        re-init nop branch                                               6441:  6519 botom     mlc  @n@,symbl&7        re-init nop branch
 6428: 6520           c    last,count                                                                          6442:  6520           c    last,count
 6429: 6521           bu   tstcs                                                                               6443:  6521           bu   tstcs
 6430: 6522 ldsym     lca  @:@,0&x2            5-8                                                             6444:  6522 ldsym     lca  @:@,0&x2            5-8
 6431: 6523           sbr  x3                                                                                  6445:  6523           sbr  x3
 6432: 6524           fendxc,,,,,,sysgm,resort 4                                                               6446:  6524           fendxc,,,,,,sysgm,resort 4
 6433: 6525 tstcs     bce  part2,test1,1      tst for 2nd part of gen int no                                   6447:  6525 tstcs     bce  part2,test1,1      tst for 2nd part of gen int no
 6434: 6526           b    next               sort next statement                                              6448:  6526           b    next               sort next statement
 6435: 6527 case2     mlc  0&x3,x3            low ord adres of tbl2                                            6449:  6527 case2     mlc  0&x3,x3            low ord adres of tbl2
 6436: 6528           mlc  0&x3,x1                                                                             6450:  6528           mlc  0&x3,x1
 6437: 6529           sbr  part2&10,3&x3                                                                       6451:  6529           sbr  part2&10,3&x3
 6438: 6530           mlc  @1@,test1                                                                           6452:  6530           mlc  @1@,test1
 6439: 6531           b    space-14                                                                            6453:  6531           b    space-14
 6440: 6532 part2     mlc  @0@,test1          reset indicator                                                  6454:  6532 part2     mlc  @0@,test1          reset indicator
 6441: 6533           mlc  0,x1                                                                                6455:  6533           mlc  0,x1
 6442: 6534           mlc  part2&10,addin     prepx3 for wmtst                                                 6456:  6534           mlc  part2&10,addin     prepx3 for wmtst
 6443: 6535           mlc  @1@,test2                                                                           6457:  6535           mlc  @1@,test2
 6444: 6536           b    space-7                                                                             6458:  6536           b    space-7
 6445: 6537 nufrm     sbr  streg&3                                                                             6459:  6537 nufrm     sbr  streg&3
 6446: 6538           mlc  fromx,cnvrt                                                                         6460:  6538           mlc  fromx,cnvrt
 6447: 6539           b    expnd                                                                               6461:  6539           b    expnd
 6448: 6540           mlc  hold,wkbk2                                                                          6462:  6540           mlc  hold,wkbk2
 6449: 6541           s    wkbk1,wkbk2        space avail for nxt inst                                         6463:  6541           s    wkbk1,wkbk2        space avail for nxt inst
 6450: 6542           c    area1,wkbk2                                                                         6464:  6542           c    area1,wkbk2
 6451: 6543 streg     b    0                                                                                   6465:  6543 streg     b    0
 6452: 6544 adone     a    @1@,208            add 1 for vanished stmnt                                         6466:  6544 adone     a    @1@,208            add 1 for vanished stmnt
 6453: 6545           c    last,count                                                                          6467:  6545           c    last,count
 6454: 6546           be   ldsym                                                                               6468:  6546           be   ldsym
 6455: 6547           sbr  x3,3&x3                                                                             6469:  6547           sbr  x3,3&x3
 6456: 6548           sbr  last                                                                                6470:  6548           sbr  last
 6457: 6549           b    next&11                                                                             6471:  6549           b    next&11
 6458: 6550 fixit     sbr  fromx,2&x3         new gmwm1-1 if hi ord stmnt                                      6472:  6550 fixit     sbr  fromx,2&x3         new gmwm1-1 if hi ord stmnt
 6459: 6551 squez     mlc  fromx,x3           gmwm1-1 or hiord stmnt                                           6473:  6551 squez     mlc  fromx,x3           gmwm1-1 or hiord stmnt
 6460: 6552           sbr  x3,2&x3            gmwm1&1 of hi ord stmnt                                          6474:  6552           sbr  x3,2&x3            gmwm1&1 of hi ord stmnt
 6461: 6553           b    imvup                                                                               6475:  6553           b    imvup
 6462: 6554           bce  fixit,0&x3,:       tst for used hi ord stmnts 5-8                                   6476:  6554           bce  fixit,0&x3,:       tst for used hi ord stmnts 5-8
 6463: 6555           b    nufrm                                                                               6477:  6555           b    nufrm
 6464: 6556           bl   loop-7                                                                              6478:  6556           bl   loop-7
 6465: 6557           b    list                                                                                6479:  6557           b    list
 6466: 6558           sbr  save1&6,0&x2                                                                        6480:  6558           sbr  save1&6,0&x2
 6467: 6559 loop      c    x3,parama&2                                                                         6481:  6559 loop      c    x3,parama&2
 6468: 6560           be   lopp                                                                                6482:  6560           be   lopp
 6469: 6561           sbr  x1,3&x3            save gmwm3                                                       6483:  6561           sbr  x1,3&x3            save gmwm3
 6470: 6562           bce  mvagn-7,0&x1,}     12-7-8                                                           6484:  6562           bce  mvagn-7,0&x1,}     12-7-8
 6471: 6563 lopp      b    nufrm                                                                               6485:  6563 lopp      b    nufrm
 6472: 6564           bl   errms                                                                               6486:  6564           bl   errms
 6473: 6565           b    save1                                                                               6487:  6565           b    save1
 6474: 6566           sbr  x3,4&x3                                                                             6488:  6566           sbr  x3,4&x3
 6475: 6567 mvagn     b    imvup                                                                               6489:  6567 mvagn     b    imvup
 6476: 6568           c    0&x3,@:@           search for used stmnt  5-8                                       6490:  6568           c    0&x3,@:@           search for used stmnt  5-8
 6477: 6569           bu   loop                                                                                6491:  6569           bu   loop
 6478: 6570           sbr  hold2&6,0&x3                                                                        6492:  6570           sbr  hold2&6,0&x3
 6479: 6571           sbr  store,2&x3                                                                          6493:  6571           sbr  store,2&x3
 6480: 6572           sbr  x3,3&x3            tox adres in x3                                                  6494:  6572           sbr  x3,3&x3            tox adres in x3
 6481: 6573 mvdwn     lca  0&x1,0&x3          overlay used stmnts                                              6495:  6573 mvdwn     lca  0&x1,0&x3          overlay used stmnts
 6482: 6574           sar  x1                                                                                  6496:  6574           sar  x1
 6483: 6575           c    0&x3                                                                                6497:  6575           c    0&x3
 6484: 6576           sar  x3                                                                                  6498:  6576           sar  x3
 6485: 6577           bce  *&5,0&x1,}         12-7-8                                                           6499:  6577           bce  *&5,0&x1,}         12-7-8
 6486: 6578           b    mvdwn                                                                               6500:  6578           b    mvdwn
 6487: 6579           mn   0&x1                                                                                6501:  6579           mn   0&x1
 6488: 6580           sar  aside                                                                               6502:  6580           sar  aside
 6489: 6581 hold2     sbr  x1,0                                                                                6503:  6581 hold2     sbr  x1,0
 6490: 6582           bwz  *&5,1&x1,s         a zone in tens pos of inst                                       6504:  6582           bwz  *&5,1&x1,s         a zone in tens pos of inst
 6491: 6583           b    *&8                                                                                 6505:  6583           b    *&8
 6492: 6584           mlc  @1@,test3                                                                           6506:  6584           mlc  @1@,test3
 6493: 6585           bwz  *&5,0&x1,2         tst for zn in intno st just moved                                6507:  6585           bwz  *&5,0&x1,2         tst for zn in intno st just moved
 6494: 6586           b    *&9                                                                                 6508:  6586           b    *&9
 6495: 6587           bwz  updat,2&x1,2       tst for zn in units pos                                          6509:  6587           bwz  updat,2&x1,2       tst for zn in units pos
 6496: 6588           mlc  2&x1,x1            adres of int no                                                  6510:  6588           mlc  2&x1,x1            adres of int no
 6497: 6589           mlc  0&x1,x2            int no in x2                                                     6511:  6589           mlc  0&x1,x2            int no in x2
 6498: 6590           b    *&8                                                                                 6512:  6590           b    *&8
 6499: 6591 updat     mlc  2&x1,x2             init no in x2                                                   6513:  6591 updat     mlc  2&x1,x2             init no in x2
 6500: 6592           sbr  intno,0&x2         mult int no by 3                                                 6514:  6592           sbr  intno,0&x2         mult int no by 3
 6501: 6593           sbr  mult&6                                                                              6515:  6593           sbr  mult&6
 6502: 6594           mz   @r@,mult&5                                                                          6516:  6594           mz   @r@,mult&5
 6503: 6595 mult      sbr  x2,0                                                                                6517:  6595 mult      sbr  x2,0
 6504: 6596           mlc  intno,*&14                                                                          6518:  6596           mlc  intno,*&14
 6505: 6597           mz   @r@,*&6                                                                             6519:  6597           mz   @r@,*&6
 6506: 6598           sbr  x2,0               entry pos on tbl1                                                6520:  6598           sbr  x2,0               entry pos on tbl1
 6507: 6599           bwz  achck,tabel-1&x2,s                                                                  6521:  6599           bwz  achck,tabel-1&x2,s
 6508: 6600           sbr  tabel&x2,1&x3      new hi ord pos in tbl1                                           6522:  6600           sbr  tabel&x2,1&x3      new hi ord pos in tbl1
 6509: 6601           b    nupos&14                                                                            6523:  6601           b    nupos&14
 6510: 6602 achck     mlc  tabel&x2,x1                                                                         6524:  6602 achck     mlc  tabel&x2,x1
 6511: 6603           bce  nupos,test3,1                                                                       6525:  6603           bce  nupos,test3,1
 6512: 6604           sbr  3&x1,1&x3          new hi ord pos in tbl2, entry2                                   6526:  6604           sbr  3&x1,1&x3          new hi ord pos in tbl2, entry2
 6513: 6605           b    nupos&14                                                                            6527:  6605           b    nupos&14
 6514: 6606 nupos     sbr  0&x1,1&x3          new hi ord pos in tbl2, entry1                                   6528:  6606 nupos     sbr  0&x1,1&x3          new hi ord pos in tbl2, entry1
 6515: 6607           mlc  @0@,test3                                                                           6529:  6607           mlc  @0@,test3
 6516: 6608           c    aside,fromx        was whole top moved down                                         6530:  6608           c    aside,fromx        was whole top moved down
 6517: 6609           be   rtnld                                                                               6531:  6609           be   rtnld
 6518: 6610           mlc  aside,x1                                                                            6532:  6610           mlc  aside,x1
 6519: 6611           mn   0&x3                                                                                6533:  6611           mn   0&x3
 6520: 6612           mn                                                                                       6534:  6612           mn
 6521: 6613           mn                                                                                       6535:  6613           mn
 6522: 6614           sar  hold2&6                                                                             6536:  6614           sar  hold2&6
 6523: 6615           sbr  x1,1&x1                                                                             6537:  6615           sbr  x1,1&x1
 6524: 6616           b    mvdwn                                                                               6538:  6616           b    mvdwn
 6525: 6617 rtnld     lca  gmwm,0&x3                                                                           6539:  6617 rtnld     lca  gmwm,0&x3
 6526: 6618           sbr  fromx              new gmwm1-1 of hi ord unsrt inst                                 6540:  6618           sbr  fromx              new gmwm1-1 of hi ord unsrt inst
 6527: 6619           c    adres,store                                                                         6541:  6619           c    adres,store
 6528: 6620           be   finis                                                                               6542:  6620           be   finis
 6529: 6621           mlc  store,x3                                                                            6543:  6621           mlc  store,x3
 6530: 6622           sbr  x1,1&x3                                                                             6544:  6622           sbr  x1,1&x3
 6531: 6623           sbr  x3,2&x3                                                                             6545:  6623           sbr  x3,2&x3
 6532: 6624           b    mvagn                                                                               6546:  6624           b    mvagn
 6533: 6625 finis     b    nufrm                                                                               6547:  6625 finis     b    nufrm
 6534: 6626           bl   errms                                                                               6548:  6626           bl   errms
 6535: 6627 save1     sbr  x2,0                                                                                6549:  6627 save1     sbr  x2,0
 6536: 6628           mlc  addin,x3                                                                            6550:  6628           mlc  addin,x3
 6537: 6629           mlc  0&x3,prep1                                                                          6551:  6629           mlc  0&x3,prep1
 6538: 6630           b    list                                                                                6552:  6630           b    list
 6539: 6631 area2     dcw  00000                                                                               6553:  6631 area2     dcw  00000
 6540: 6632 test2     dcw  0                                                                                   6554:  6632 test2     dcw  0
 6541: 6633 test3     dcw  0                                                                                   6555:  6633 test3     dcw  0
 6542: 6634           ltorg*                                                                                   6556:  6634           ltorg*
 6543: 6635 gmwm      dc   @}@        work group mk                                                            6557:  6635 gmwm      dc   @}@        work group mk
 6544: 6636 sysgm     dcw  @}@       system group mk                                                           6558:  6636 sysgm     dcw  @}@       system group mk
 6545: 6637           org  *&x00                                                                               6559:  6637           org  *&x00
 6546: 6638 end       equ  *                                                                                   6560:  6638 end       equ  *
 6547: 6639 tabel     equ  end                                                                                 6561:  6639 tabel     equ  end
 6548: 6640           xfr  begin                                                                               6562:  6640           xfr  begin
 6549: 6641           job  1401 Fortran  resort phase four                        5050a                        6563:  6641           job  1401 Fortran  resort phase four                        5050a
 6550: 6642           org  begin                                                                               6564:  6642           org  begin
 6551: 6643 110       dc   4                                                                                   6565:  6643 110       dc   4
 6552: 6644           mlc  bsauce,x1                                                                           6566:  6644           mlc  bsauce,x1
 6553: 6645           sbr  x1,1&x1                                                                             6567:  6645           sbr  x1,1&x1
 6554: 6646           c    adtbll,x1                                                                           6568:  6646           c    adtbll,x1
 6555: 6647           be   endph                                                                               6569:  6647           be   endph
 6556: 6648 const     sbr  x1,3&x1            nxt tbl entry                                                    6570:  6648 const     sbr  x1,3&x1            nxt tbl entry
 6557: 6649           mlc  0&x1,x2            contrnts of tbl in x2                                            6571:  6649           mlc  0&x1,x2            contrnts of tbl in x2
 6558: 6650           bwz  byp4,x2-1,2                                                                         6572:  6650           bwz  byp4,x2-1,2
 6559: 6651           mcw  0&x2,0&x1                                                                           6573:  6651           mcw  0&x2,0&x1
 6560: 6652           b    cmp4                                                                                6574:  6652           b    cmp4
 6561: 6653 byp4      ma   diff,x2                                                                             6575:  6653 byp4      ma   diff,x2
 6562: 6654           mcw  x2,0&x1                                                                             6576:  6654           mcw  x2,0&x1
 6563: 6655 cmp4      c    x1,adtbll                                                                           6577:  6655 cmp4      c    x1,adtbll
 6564: 6656           bu   const                                                                               6578:  6656           bu   const
 6565: 6657 endph     mcw  diff,x1                                                                             6579:  6657 endph     mcw  diff,x1
 6566: 6658           ma   x3,x1                                                                               6580:  6658           ma   x3,x1
 6567: 6659           mcw  x1,rtr&6                                                                            6581:  6659           mcw  x1,rtr&6
 6568: 6660           sbr  cnvrt,0&x3                                                                          6582:  6660           sbr  cnvrt,0&x3
 6569: 6661           b    expnd                                                                               6583:  6661           b    expnd
 6570: 6662           mlc  hold,wkbk1                                                                          6584:  6662           mlc  hold,wkbk1
 6571: 6663           mcw  hold,wkbk3#5                                                                        6585:  6663           mcw  hold,wkbk3#5
 6572: 6664           mlc  diff,cnvrt                                                                          6586:  6664           mlc  diff,cnvrt
 6573: 6665           b    expnd                                                                               6587:  6665           b    expnd
 6574: 6666           a    hold,wkbk1                                                                          6588:  6666           a    hold,wkbk1
 6575: 6667           c    sixtn,wkbk1                                                                         6589:  6667           c    sixtn,wkbk1
 6576: 6668           bl   *&8                                                                                 6590:  6668           bl   *&8
 6577: 6669           s    sixtn,wkbk1                                                                         6591:  6669           s    sixtn,wkbk1
 6578: 6670           mlc  bsauce,cnvrt                                                                        6592:  6670           mlc  bsauce,cnvrt
 6579: 6671           b    expnd                                                                               6593:  6671           b    expnd
 6580: 6672           c    hold,wkbk1                                                                          6594:  6672           c    hold,wkbk1
 6581: 6673           bh   errms                                                                               6595:  6673           bh   errms
 6582: 6674           mz   x1,testa&7                                                                          6596:  6674           mz   x1,testa&7
 6583: 6675           mcw  x1-2,testb&7                                                                        6597:  6675           mcw  x1-2,testb&7
 6584: 6676           mlc  intst,x2                                                                            6598:  6676           mlc  intst,x2
 6585: 6677           ma   diff,intst                                                                          6599:  6677           ma   diff,intst
 6586: 6678           c    wkbk1,wkbk3                                                                         6600:  6678           c    wkbk1,wkbk3
 6587: 6679           bh   wmtst                                                                               6601:  6679           bh   wmtst
 6588: 6680 mvd       lca  0&x3,0&x1                                                                           6602:  6680 mvd       lca  0&x3,0&x1
 6589: 6681           sar  x3                                                                                  6603:  6681           sar  x3
 6590: 6682           c    0&x1                                                                                6604:  6682           c    0&x1
 6591: 6683           sar  x1                                                                                  6605:  6683           sar  x1
 6592: 6684           bce  *&5,0&x3,:         5-8                                                              6606:  6684           bce  *&5,0&x3,:         5-8
 6593: 6685           b    mvd                                                                                 6607:  6685           b    mvd
 6594: 6686 dun       cs   0&x1                                                                                6608:  6686 dun       cs   0&x1
 6595: 6687           sbr  x1                                                                                  6609:  6687           sbr  x1
 6596: 6688           c    x1,@w99@                                                                            6610:  6688           c    x1,@w99@
 6597: 6689           bu   dun                                                                                 6611:  6689           bu   dun
 6598: 6690           cw   0&x1                                                                                6612:  6690           cw   0&x1
 6599: 6691           cw                                                                                       6613:  6691           cw
 6600: 6692           cw                                                                                       6614:  6692           cw
 6601: 6693 rtr       sbr  x3,0                                                                                6615:  6693 rtr       sbr  x3,0
 6602: 6694           sw   0&x1,1&x3                                                                           6616:  6694           sw   0&x1,1&x3
 6603: 6695           mlc  diff,x2                                                                             6617:  6695           mlc  diff,x2
 6604: 6696           fendxd,,,,,,gm50a,shift cfl                                                              6618:  6696           fendxd,,,,,,gm50a,shift cfl
 6605: 6697 add1      a    &1,x2                                                                             | 6619:  66974add1      ma   @001@,x2                                        v3m4
 6606: 6698 wmtst     bw   ldwrd,1&x2                                                                          6620:  6698 wmtst     bw   ldwrd,1&x2
 6607: 6699           b    add1                                                                                6621:  6699           b    add1
 6608: 6700 ldwrd     mlc  x2,x1                                                                               6622:  6700 ldwrd     mlc  x2,x1
 6609: 6701           ma   diff,x1                                                                             6623:  6701           ma   diff,x1
 6610: 6702           lca  0&x2,0&x1                                                                           6624:  6702           lca  0&x2,0&x1
 6611: 6703           c    x2,x3                                                                               6625:  6703           c    x2,x3
 6612: 6704           bu   add1                                                                                6626:  6704           bu   add1
 6613: 6705           lca  @  @,2&x3          blanks                                                           6627:  6705           lca  @  @,2&x3          blanks
 6614: 6706           cw   1&x3                                                                                6628:  6706           cw   1&x3
 6615: 6707 testa     bwz  testb,x3,2                                                                          6629:  6707 testa     bwz  testb,x3,2
 6616: 6708           cs   0&x3                                                                                6630:  6708           cs   0&x3
 6617: 6709           sbr  x3                                                                                  6631:  6709           sbr  x3
 6618: 6710           b    testa                                                                               6632:  6710           b    testa
 6619: 6711 testb     bce  testc,x3-2,0                                                                        6633:  6711 testb     bce  testc,x3-2,0
 6620: 6712           cs   0&x3                                                                                6634:  6712           cs   0&x3
 6621: 6713           sbr  x3                                                                                  6635:  6713           sbr  x3
 6622: 6714           b    testb                                                                               6636:  6714           b    testb
 6623: 6715 testc     c    x3,x1                                                                               6637:  6715 testc     c    x3,x1
 6624: 6716           be   fin1s                                                                               6638:  6716           be   fin1s
 6625: 6717           lca  @ @,0&x3           blank                                                            6639:  6717           lca  @ @,0&x3           blank
 6626: 6718           cw   0&x3                                                                                6640:  6718           cw   0&x3
 6627: 6719           sbr  x3                                                                                  6641:  6719           sbr  x3
 6628: 6720           b    testc                                                                               6642:  6720           b    testc
 6629: 6721 fin1s     mcw  intst,x1                                                                            6643:  6721 fin1s     mcw  intst,x1
 6630: 6722           ma   @i9i@,x1                                                                            6644:  6722           ma   @i9i@,x1
 6631: 6723           b    dun                                                                                 6645:  6723           b    dun
 6632: 6724 sixtn     dcw  @16000@                                                                             6646:  6724 sixtn     dcw  @16000@
 6633: 6725           ltorg*                                                                                   6647:  6725           ltorg*
 6634: 6726 gm50a     dcw  @}@                group mark                                                       6648:  6726 gm50a     dcw  @}@                group mark
 6635: 6727           xfr  begin                                                                               6649:  6727           xfr  begin
 6636: 6728           job  shift constants,formats,and lists                      5050b                        6650:  6728           job  shift constants,formats,and lists                      5050b
 6637: 6729 110       dcw  @shift cfl@                                                                         6651:  6729 110       dcw  @shift cfl@
 6638: 6730 nxbtm     equ  83                                                                                  6652:  6730 nxbtm     equ  83
 6639: 6731           org  beginz                                                                              6653:  6731           org  beginz
 6640: 6732           c    parama&2,conlst                                                                     6654:  6732           c    parama&2,conlst
 6641: 6733           be   exit                                                                                6655:  6733           be   exit
 6642: 6734           mcw  bsauce,x1                                                                           6656:  6734           mcw  bsauce,x1
 6643: 6735           mcw  bsauce,x2                                                                           6657:  6735           mcw  bsauce,x2
 6644: 6736           ma   macfls,x2                                                                           6658:  6736           ma   macfls,x2
 6645: 6737           sbr  rsx3&6,0&x3                                                                         6659:  6737           sbr  rsx3&6,0&x3
 6646: 6738           cw   cnvrt-2                                                                             6660:  6738           cw   cnvrt-2
 6647: 6739           mcw  x2,cnvrt                                                                            6661:  6739           mcw  x2,cnvrt
 6648: 6740           b    expnd                                                                               6662:  6740           b    expnd
 6649: 6741           mcw  hold,x25#5                                                                          6663:  6741           mcw  hold,x25#5
 6650: 6742           mcw  x3,cnvrt                                                                            6664:  6742           mcw  x3,cnvrt
 6651: 6743           b    expnd                                                                               6665:  6743           b    expnd
 6652: 6744           mcw  hold,x35#5                                                                          6666:  6744           mcw  hold,x35#5
 6653: 6745           c    x25,x35                                                                             6667:  6745           c    x25,x35
 6654: 6746           bh   errms                                                                               6668:  6746           bh   errms
 6655: 6747           mcw  bsauce,cnvrt                                                                        6669:  6747           mcw  bsauce,cnvrt
 6656: 6748           b    expnd                                                                               6670:  6748           b    expnd
 6657: 6749           mcw  hold,nxbtm5#5                                                                       6671:  6749           mcw  hold,nxbtm5#5
 6658: 6750           mcw  conlst,cnvrt                                                                        6672:  6750           mcw  conlst,cnvrt
 6659: 6751           b    expnd                                                                               6673:  6751           b    expnd
 6660: 6752           mcw  hold,cnlst5#5                                                                       6674:  6752           mcw  hold,cnlst5#5
 6661: 6753           c    nxbtm5,cnlst5                                                                       6675:  6753           c    nxbtm5,cnlst5
 6662: 6754           bl   wrdmv                                                                             | 6676:  67544          bh   mad                                             v3m4
                                                                                                             > 6677:  67545          b    wrdmv                                           v3m4
 6663: 6755 mad       ma   @001@,x1                                                                            6678:  6755 mad       ma   @001@,x1
 6664: 6756           ma   @001@,x2                                                                            6679:  6756           ma   @001@,x2
 6665: 6757           bw   ldwm,0&x1                                                                           6680:  6757           bw   ldwm,0&x1
 6666: 6758           cw   0&x2                                                                                6681:  6758           cw   0&x2
 6667: 6759           mn   0&x1,0&x2                                                                           6682:  6759           mn   0&x1,0&x2
 6668: 6760           mz   0&x1,0&x2                                                                           6683:  6760           mz   0&x1,0&x2
 6669: 6761 cwx1      cw   0&x1                                                                                6684:  6761 cwx1      cw   0&x1
 6670: 6762           c    x1,conlst                                                                           6685:  6762           c    x1,conlst
 6671: 6763           bu   mad                                                                                 6686:  6763           bu   mad
 6672: 6764           mlc  conlst,x3                                                                           6687:  6764           mlc  conlst,x3
 6673: 6765           b    tstwm                                                                               6688:  6765           b    tstwm
 6674: 6766 ldwm      lca  0&x1,0&x2                                                                           6689:  6766 ldwm      lca  0&x1,0&x2
 6675: 6767           b    cwx1                                                                                6690:  6767           b    cwx1
 6676: 6768 wrdmv     mlc  bsauce,x3                                                                           6691:  6768 wrdmv     mlc  bsauce,x3
 6677: 6769 tstwm     bw   manxb,1&x3         test for word markin test adr&1                                  6692:  6769 tstwm     bw   manxb,1&x3         test for word markin test adr&1
 6678: 6770           cw   wmsw#1                                                                              6693:  6770           cw   wmsw#1
 6679: 6771           sw   1&x3                                                                                6694:  6771           sw   1&x3
 6680: 6772 manxb     mcw  parama&2,x1                                                                         6695:  6772 manxb     mcw  parama&2,x1
 6681: 6773           mcw  conlst,x2                                                                           6696:  6773           mcw  conlst,x2
 6682: 6774 load      lca  0&x1,0&x2                                                                           6697:  6774 load      lca  0&x1,0&x2
 6683: 6775           sbr  x2                                                                                  6698:  6775           sbr  x2
 6684: 6776           sbr  x1                                                                                  6699:  6776           sbr  x1
 6685: 6777           ma   plusdf,x1                                                                           6700:  6777           ma   plusdf,x1
 6686: 6778           c    x1,x3                                                                               6701:  6778           c    x1,x3
 6687: 6779           bu   load                                                                                6702:  6779           bu   load
 6688: 6780           bw   rsx3,wmsw          branch if wm switch is on                                        6703:  6780           bw   rsx3,wmsw          branch if wm switch is on
 6689: 6781           ma   macfls,x3                                                                           6704:  6781           ma   macfls,x3
 6690: 6782           cw   1&x3                                                                                6705:  6782           cw   1&x3
 6691: 6783 rsx3      sbr  x3,0                                                                                6706:  6783 rsx3      sbr  x3,0
 6692: 6784           ma   macfls,nxbtm                                                                        6707:  6784           ma   macfls,nxbtm
 6693: 6785           ma   macfls,adtbll                                                                       6708:  6785           ma   macfls,adtbll
 6694: 6786           ma   macfls,bsauce                                                                       6709:  6786           ma   macfls,bsauce
 6695: 6787           mcw  parama&2,x1                                                                         6710:  6787           mcw  parama&2,x1
 6696: 6788 cx1cn     c    x1,conlst                                                                           6711:  6788 cx1cn     c    x1,conlst
 6697: 6789           be   exit                                                                                6712:  6789           be   exit
 6698: 6790           mcw  @ @,0&x1           move blanks to clear storage.                                    6713:  6790           mcw  @ @,0&x1           move blanks to clear storage.
 6699: 6791           cw   0&x1                                                                                6714:  6791           cw   0&x1
 6700: 6792           sbr  x1                                                                                  6715:  6792           sbr  x1
 6701: 6793           b    cx1cn                                                                               6716:  6793           b    cx1cn
 6702: 6794 exit      fendxc,,,xbegin,xbegin,,gm50c,replace 1                                                  6717:  6794 exit      fendxc,,,xbegin,xbegin,,gm50c,replace 1
 6703: 6795           ltorg*                                                                                   6718:  6795           ltorg*
 6704: 6796 gm50c     dcw  @}@                group mark                                                       6719:  6796 gm50c     dcw  @}@                group mark
 6705: 6797           xfr  begin                                                                               6720:  6797           xfr  begin
 6706: 6798           job  1401 Fortran  replace phase one                        50513                        6721:  6798           job  1401 Fortran  replace phase one                        50513
 6707: 6799           fbegnreplace 1,x1,r,x2,,x3,,v                                                            6722:  6799           fbegnreplace 1,x1,r,x2,,x3,,v
 6708: 6800           org  xbegin                                                                              6723:  6800           org  xbegin
 6709: 6801 init      mcw  x3,gary#3                                                                           6724:  6801 init      mcw  x3,gary#3
 6710: 6802           mcw  bsauce,*&7                                                                          6725:  6802           mcw  bsauce,*&7
 6711: 6803           mcw  @>@,0            6-8 punch                                                          6726:  6803           mcw  @>@,0            6-8 punch
 6712: 6804           mcw  period,x2                                                                           6727:  6804           mcw  period,x2
 6713: 6805           mcw  @>@,1600          6-8 punch                                                         6728:  6805           mcw  @>@,1600          6-8 punch
 6714: 6806 scndl     bce  dolr,0&x2,$                                                                         6729:  6806 scndl     bce  dolr,0&x2,$
 6715: 6807           chain9                                                                                   6730:  6807           chain9
 6716: 6808 ru68      bce  skgbg,0&x2,>      6-8 punch                                                         6731:  6808 ru68      bce  skgbg,0&x2,>      6-8 punch
 6717: 6609           chain9                                                                                   6732:  6609           chain9
 6718: 6610           sbr  x2                                                                                  6733:  6610           sbr  x2
 6719: 6811           b    scndl                                                                               6734:  6811           b    scndl
 6720: 6812 dolr      bce  fnd,0&x2,$                                                                        | 6735:  68114dolr      bce  ru68,0&x2,>       6-8 punch                     v3m4
                                                                                                             > 6736:  68124          bce  fnd,0&x2,$                                      v3m4
 6721: 6813           sbr  x2                                                                                  6737:  6813           sbr  x2
 6722: 6814           b    dolr                                                                                6738:  6814           b    dolr
 6723: 6815 fnd       mn   0&x2                                                                                6739:  6815 fnd       mn   0&x2
 6724: 6816           sar  x2                                                                                  6740:  6816           sar  x2
 6725: 6817           bce  setsw,0&x2,$                                                                        6741:  6817           bce  setsw,0&x2,$
 6726: 6818           chain15                                                                                  6742:  6818           chain15
 6727: 6819           b    scndl                                                                               6743:  6819           b    scndl
 6728: 6820 setsw     cw   xdosbs                                                                              6744:  6820 setsw     cw   xdosbs
 6729: 6821 dloop     mn   0&x2                                                                                6745:  6821 dloop     mn   0&x2
 6730: 6822           chain2                                                                                   6746:  6822           chain2
 6731: 6823           sar  x2                                                                                  6747:  6823           sar  x2
 6732: 6824           sw   1&x2                                                                                6748:  6824           sw   1&x2
 6733: 6825           bce  ndolr,0&x2,$                                                                        6749:  6825           bce  ndolr,0&x2,$
 6734: 6826           mz   *-4,2&x2                                                                            6750:  6826           mz   *-4,2&x2
 6735: 6827           b    dloop                                                                               6751:  6827           b    dloop
 6736: 6828 ndolr     mn   0&x2                                                                                6752:  6828 ndolr     mn   0&x2
 6737: 6829           sar  x2                                                                                  6753:  6829           sar  x2
 6738: 6830           b    scndl                                                                               6754:  6830           b    scndl
 6739: 6831 skgbg     mcw  &test5,ru68&3                                                                       6755:  6831 skgbg     mcw  &test5,ru68&3
 6740: 6832           mcw  x3,x2                                                                               6756:  6832           mcw  x3,x2
 6741: 6833           b    scndl                                                                               6757:  6833           b    scndl
 6742: 6834 test5     bce  exit,0&x3,         blank                                                            6758:  6834 test5     bce  exit,0&x3,         blank
 6743: 6835           mcw  x3,sbr&6                                                                            6759:  6835           mcw  x3,sbr&6
 6744: 6836           c    0&x3       move pointer                                                             6760:  6836           c    0&x3       move pointer
 6745: 6837           sbr  x2                                                                                  6761:  6837           sbr  x2
 6746: 6838           sbr  x3                                                                                  6762:  6838           sbr  x3
 6747: 6839           bce  pskip,1&x3,|                                                                        6763:  6839           bce  pskip,1&x3,|
 6748: 6840 test2     bwz  test5,4&x2,1                                                                        6764:  6840 test2     bwz  test5,4&x2,1
 6749: 6841           bwz                                                                                      6765:  6841           bwz
 6750: 6842           bwz                                                                                      6766:  6842           bwz
 6751: 6843           bm   replc,3&x2                                                                          6767:  6843           bm   replc,3&x2
 6752: 6844           c    4&x2,@2g7@         change on reas. of obj arith                                     6768:  6844           c    4&x2,@2g7@         change on reas. of obj arith
 6753: 6845           be   test5                                                                               6769:  6845           be   test5
 6754: 6846           bwz  addu,3&x2,b                                                                         6770:  6846           bwz  addu,3&x2,b
 6755: 6847 right     sbr  x2,3&x2                                                                             6771:  6847 right     sbr  x2,3&x2
 6756: 6848           b    test2                                                                               6772:  6848           b    test2
 6757: 6849 addu      mcw  4&x2,x1                                                                             6773:  6849 addu      mcw  4&x2,x1
 6758: 6850           mz   *-6,sbr&5                                                                           6774:  6850           mz   *-6,sbr&5
 6759: 6851 sbr       sbr  4&x2,0                                                                              6775:  6851 sbr       sbr  4&x2,0
 6760: 6852           b    right                                                                               6776:  6852           b    right
 6761: 6853 replc     mcw  4&x2,x1                                                                             6777:  6853 replc     mcw  4&x2,x1
 6762: 6854           ma   macfls,x1                                                                           6778:  6854           ma   macfls,x1
 6763: 6855           mcw  0&x1,x1                                                                             6779:  6855           mcw  0&x1,x1
 6764: 6856           mcw  x1,4&x2                                                                             6780:  6856           mcw  x1,4&x2
 6765: 6857           b    right                                                                               6781:  6857           b    right
 6766: 6858 pskip     bw   skip,2&x3                                                                           6782:  6858 pskip     bw   skip,2&x3
 6767: 6859           b    test5                                                                               6783:  6859           b    test5
 6768: 6860 skip      c    0&x3                                                                                6784:  6860 skip      c    0&x3
 6769: 6861           sbr  x3                                                                                  6785:  6861           sbr  x3
 6770: 6862           c    4&x3,@b700@        change on reorigin of obj arith                                  6786:  6862           c    4&x3,@b700@        change on reorigin of obj arith
 6771: 6863           be   test5                                                                               6787:  6863           be   test5
 6772: 6864           b    skip                                                                                6788:  6864           b    skip
 6773: 6865 exit      mcw  gary,x3                                                                             6789:  6865 exit      mcw  gary,x3
 6774: 6866           fendxc,,,,startr,,sys1,load 52b&c                                                        6790:  6866           fendxc,,,,startr,,sys1,load 52b&c
 6775: 6867           ltorg*                                                                                   6791:  6867           ltorg*
 6776: 6868 sys1      dcw  @}@                          system group mark                                      6792:  6868 sys1      dcw  @}@                          system group mark
 6777: 6869           xfr  init                                                                                6793:  6869           xfr  init
 6778: 6870           job  load phase 52-sections b & c                           5052a                        6794:  6870           job  load phase 52-sections b & c                           5052a
 6779: 6871           sfx  r                                                                                   6795:  6871           sfx  r
 6780: 6872 110       dcw  @load 52b&c@                                                                        6796:  6872 110       dcw  @load 52b&c@
 6781: 6873           org  xbegin                                                                              6797:  6873           org  xbegin
 6782: 6874 xlinks    dcw  #3                                                                                  6798:  6874 xlinks    dcw  #3
 6783: 6875 yusr12    dcw  #3                                                                                  6799:  6875 yusr12    dcw  #3
 6784: 6876 yusr11    dcw  #3                                                                                  6800:  6876 yusr11    dcw  #3
 6785: 6877 yusr10    dcw  #3                                                                                  6801:  6877 yusr10    dcw  #3
 6786: 6878 yuser9    dcw  #3                                                                                  6802:  6878 yuser9    dcw  #3
 6787: 6879 yuser8    dcw  #3                                                                                  6803:  6879 yuser8    dcw  #3
 6788: 6880 yuser7    dcw  #3                                                                                  6804:  6880 yuser7    dcw  #3
 6789: 6881 yuser6    dcw  #3                                                                                  6805:  6881 yuser6    dcw  #3
 6790: 6882 yuser5    dcw  #3                                                                                  6806:  6882 yuser5    dcw  #3
 6791: 6883 yuser4    dcw  #3                                                                                  6807:  6883 yuser4    dcw  #3
 6792: 6884 yuser3    dcw  #3                                                                                  6808:  6884 yuser3    dcw  #3
 6793: 6885 yuser2    dcw  #3                                                                                  6809:  6885 yuser2    dcw  #3
 6794: 6886 yuser1    dcw  #3                                                                                  6810:  6886 yuser1    dcw  #3
 6795: 6887 sqrtfn    dcw  #3                                                                                  6811:  6887 sqrtfn    dcw  #3
 6796: 6888 fltfun    dcw  #3                                                                                  6812:  6888 fltfun    dcw  #3
 6797: 6889 fixfun    dcw  #3                                                                                  6813:  6889 fixfun    dcw  #3
 6798: 6890 negtfn    dcw  #3                                                                                  6814:  6890 negtfn    dcw  #3
 6799: 6891 absval    dcw  #3                                                                                  6815:  6891 absval    dcw  #3
 6800: 6892 atanfn    dcw  #3                                                                                  6816:  6892 atanfn    dcw  #3
 6801: 6893 xpnetl    dcw  #3                                                                                  6817:  6893 xpnetl    dcw  #3
 6802: 6894 logfun    dcw  #3                                                                                  6818:  6894 logfun    dcw  #3
 6803: 6895 sinfun    dcw  #3                                                                                  6819:  6895 sinfun    dcw  #3
 6804: 6896 comfn1    dcw  #3                                                                                  6820:  6896 comfn1    dcw  #3
 6805: 6897 dosbsc    dcw  #3                                                                                  6821:  6897 dosbsc    dcw  #3
 6806: 6898 oblist    dcw  @j32@   fmtxt   change if obj format reassembled                                    6822:  6898 oblist    dcw  @j32@   fmtxt   change if obj format reassembled
 6807: 6899 doinit    dcw  #3                                                                                  6823:  6899 doinit    dcw  #3
 6808: 6900 doadr3    dcw  #3                                                                                  6824:  6900 doadr3    dcw  #3
 6809: 6901 doadr2    dcw  #3                                                                                  6825:  6901 doadr2    dcw  #3
 6810: 6902 doadr1    dcw  #3                                                                                  6826:  6902 doadr1    dcw  #3
 6811: 6903 tblad     dcw  doadr1                                                                              6827:  6903 tblad     dcw  doadr1
 6812: 6904 fixwd     dcw  #3                                                                                  6828:  6904 fixwd     dcw  #3
 6813: 6905 fltwd     dcw  #3                                                                                  6829:  6905 fltwd     dcw  #3
 6814: 6906 start     b    exit3                                                                             | 6830:  69064start     b    adjx3                                           v3m4
 6815: 6907 ld52c     fendx,,,start,start1,,gmwm,funload c                                                     6831:  6907 ld52c     fendx,,,start,start1,,gmwm,funload c
 6816: 6908           ltorg*                                                                                   6832:  6908           ltorg*
 6817: 6909 exit3     sbr  initap&6,333                                                                        6833:  6909 exit3     sbr  initap&6,333
 6818: 6910           sbr  bclear,exit3                                                                        6834:  6910           sbr  bclear,exit3
 6819: 6911           fendxc,,,,ld52c,,gmwm,funload b                                                          6835:  6911           fendxc,,,,ld52c,,gmwm,funload b
                                                                                                             > 6836:  69111adjx3     bwz  ckx3,x3,2                                       v3m4
                                                                                                             > 6837:  69112          b    exit3                                           v3m4
                                                                                                             > 6838:  69113ckx3      bwz  chgx3,x3-2,s                                    v3m4
                                                                                                             > 6839:  69114          b    exit3                                           v3m4
                                                                                                             > 6840:  69115chgx3     sbr  x3,2000                                         v3m4
                                                                                                             > 6841:  69116          b    exit3                                           v3m4
 6820: 6912           ltorg*                                                                                   6842:  6912           ltorg*
 6821: 6913           org  1696                                                                                6843:  6913           org  1696
 6822: 6914 gmwm      dcw  @}@                group mark                                                       6844:  6914 gmwm      dcw  @}@                group mark
 6823: 6915           xfr  start                                                                               6845:  6915           xfr  start
 6824: 6916           job  1401 Fortran  function/subroutine loader-b             5052b                        6846:  6916           job  1401 Fortran  function/subroutine loader-b             5052b
 6825: 6917           fbegnfunload b,x1,r,x2,r,x3,,r                                                           6847:  6917           fbegnfunload b,x1,r,x2,r,x3,,r
 6826: 6918 nxbtm     equ  83                                                                                  6848:  6918 nxbtm     equ  83
 6827: 6919           org  333                                                                                 6849:  6919           org  333
 6828: 6920           h    333                                                                                 6850:  6920           h    333
 6829: 6921 start1    cs   080                                                                                 6851:  6921 start1    cs   080
 6830: 6922           mcw  x3,hex3                                                                             6852:  6922           mcw  x3,hex3
 6831: 6923           sbr  x3,1&x3                                                                             6853:  6923           sbr  x3,1&x3
 6832: 6924           sw   1,40                                                                                6854:  6924           sw   1,40
 6833: 6925           sw   47,54                                                                               6855:  6925           sw   47,54
 6834: 6926           sw   61,68                                                                               6856:  6926           sw   61,68
 6835: 6927           sw   72                                                                                  6857:  6927           sw   72
 6836: 6928           mcw  montor,read                                                                         6858:  6928           mcw  montor,read
 6837: 6929           b    get                                                                                 6859:  6929           b    get
 6838: 6930           mcw  nxbtm,x2                                                                            6860:  6930           mcw  nxbtm,x2
 6839: 6931           mn   0&x2                                                                                6861:  6931           mn   0&x2
 6840: 6932           mn                                                                                       6862:  6932           mn
 6841: 6933           sbr  klobr&6                                                                             6863:  6933           sbr  klobr&6
 6842: 6934           mcw  @_@                11-7-8                                                           6864:  6934           mcw  @_@                11-7-8
 6843: 6935           nop                                                                                      6865:  6935           nop
 6844: 6936 loop2     mcw  x3,nop4&3                                                                           6866:  6936 loop2     mcw  x3,nop4&3
 6845: 6937           mz   @b@,nop4&2                                                                          6867:  6937           mz   @b@,nop4&2
 6846: 6938           mcw  dsa,x3                                                                              6868:  6938           mcw  dsa,x3
 6847: 5939 nop4      nop  0                                                                                   6869:  5939 nop4      nop  0
 6848: 5940           sar  x3                                                                                  6870:  5940           sar  x3
 6849: 5941 get2      b    get                                                                                 6871:  5941 get2      b    get
 6850: 5942 aget2     c    005,@____@                   all 11-7-8                                             6872:  5942 aget2     c    005,@____@                   all 11-7-8
 6851: 5943           bu   mvad                                                                                6873:  5943           bu   mvad
 6852: 6944           mcw  x3,hxcmn#3                                                                          6874:  6944           mcw  x3,hxcmn#3
 6853: 6945           b    get2                                                                                6875:  6945           b    get2
 6854: 6946 mvad      mcw  tbad2,x1                                                                            6876:  6946 mvad      mcw  tbad2,x1
 6855: 6947 bmpt2     sbr  tbad2,1&x1                                                                          6877:  6947 bmpt2     sbr  tbad2,1&x1
 6856: 6948 cx1       c    x1,&ndtabl                                                                          6878:  6948 cx1       c    x1,&ndtabl
 6857: 6949           be   out                                                                                 6879:  6949           be   out
 6858: 6950           mcw  @h@,bmpt2                                                                           6880:  6950           mcw  @h@,bmpt2
 6859: 6951           c    tblad,&yuser1                                                                       6881:  6951           c    tblad,&yuser1
 6860: 6952 ckusr     be   stotp                                                                               6882:  6952 ckusr     be   stotp
 6861: 6953           mcw  tblad,x2                                                                            6883:  6953           mcw  tblad,x2
 6862: 6954           c    0&x2                                                                                6884:  6954           c    0&x2
 6863: 6955           sar  tblad                                                                               6885:  6955           sar  tblad
 6864: 6956           bw   nodic,0&x1                                                                          6886:  6956           bw   nodic,0&x1
 6865: 6957 nopsw     mcw  @n@,sw1                                                                             6887:  6957 nopsw     mcw  @n@,sw1
 6866: 6958 ckzn      bwz  pure,42,2                                                                           6888:  6958 ckzn      bwz  pure,42,2
 6867: 6959           mn   46,load&6                                                                           6889:  6959           mn   46,load&6
 6868: 6960           chain5                                                                                   6890:  6960           chain5
 6869: 6961           mz   46,load&6                                                                           6891:  6961           mz   46,load&6
 6870: 6962           mn                                                                                       6892:  6962           mn
 6871: 6963           mz                                                                                       6893:  6963           mz
 6872: 6964 load      lca  0,0&x3                                                                              6894:  6964 load      lca  0,0&x3
 6873: 6965           sbr  x2                                                                                  6895:  6965           sbr  x2
 6874: 6966 sw1       nop  ctu1                                                                                6896:  6966 sw1       nop  ctu1
 6875: 6967           mcw  tblad,x1                                                                            6897:  6967           mcw  tblad,x1
 6876: 6968           sbr  3&x1,1&x2                                                                           6898:  6968           sbr  3&x1,1&x2
 6877: 6969           mcw  @b@,sw1                                                                             6899:  6969           mcw  @b@,sw1
 6878: 6970 ctu1      mz   45,hldzn#1                                                                          6900:  6970 ctu1      mz   45,hldzn#1
 6879: 6971           b    reloc                         field                                                 6901:  6971           b    reloc                         field
 6880: 6972           s    x1&1                                                                                6902:  6972           s    x1&1
 6881: 6973 dowm      c    50&x1,@040@                  process subsequent                                     6903:  6973 dowm      c    50&x1,@040@                  process subsequent
 6882: 6974           be   read2                         data fields if any                                    6904:  6974           be   read2                         data fields if any
 6883: 6975           mcw  50&x1,setwm&3                                                                       6905:  6975           mcw  50&x1,setwm&3
 6884: 6976           mz   @b@,setwm&2                                                                         6906:  6976           mz   @b@,setwm&2
 6885: 6977           bce  setwm,setwm,)                                                                       6907:  6977           bce  setwm,setwm,)
 6886: 6978           mcw  @,@,setwm                                                                           6908:  6978           mcw  @,@,setwm
 6887: 6979 setwm     sw   0&x3                         set word mark in                                       6909:  6979 setwm     sw   0&x3                         set word mark in
 6888: 6980           sar  x2                            storage                                               6910:  6980           sar  x2                            storage
 6889: 6981           b    brelc                                                                               6911:  6981           b    brelc
 6890: 6982           nop  000                                                                                 6912:  6982           nop  000
 6891: 6983 gmk1      dcw  @}@                group mark                                                       6913:  6983 gmk1      dcw  @}@                group mark
 6892: 6984           xfr  ld52cr                                                                              6914:  6984           xfr  ld52cr
 6893: 6985           job  1401 Fortran  function/subroutine loader-c             5052c                        6915:  6985           job  1401 Fortran  function/subroutine loader-c             5052c
 6894: 6986 110       dcw  @funload c@                                                                         6916:  6986 110       dcw  @funload c@
 6895: 6987           org  startr                                                                              6917:  6987           org  startr
 6896: 6988 brelc     mz   49&x1,hldzn                                                                         6918:  6988 brelc     mz   49&x1,hldzn
 6897: 5989           b    reloc                         relocate operands                                     6919:  5989           b    reloc                         relocate operands
 6898: 6990 adds      nop  @4@,x1                                                                              6920:  6990 adds      nop  @4@,x1
 6899: 6991 adds2     a    @3@,x1                                                                              6921:  6991 adds2     a    @3@,x1
 6900: 6992           bce  type1,adds,a                                                                        6922:  6992           bce  type1,adds,a
 6901: 6993           mcw  @a@,adds                                                                            6923:  6993           mcw  @a@,adds
 6902: 6994           mcw  @n@,adds2                                                                           6924:  6994           mcw  @n@,adds2
 6903: 6995           bce  adds,setwm,)                                                                        6925:  6995           bce  adds,setwm,)
 6904: 6996           b    dowm                                                                                6926:  6996           b    dowm
 6905: 6997 type1     mcw  @n@,adds                                                                            6927:  6997 type1     mcw  @n@,adds
 6906: 6998           mcw  @a@,adds2                                                                           6928:  6998           mcw  @a@,adds2
 6907: 6999           b    dowm                                                                                6929:  6999           b    dowm
 6908: 7000 read2     mcw  46,last#3                                                                           6930:  7000 read2     mcw  46,last#3
 6909: 7001           mcw  @n@,adds                                                                            6931:  7001           mcw  @n@,adds
 6910: 7002           mcw  @a@,adds2                                                                           6932:  7002           mcw  @a@,adds2
 6911: 7003           b    get                                                                                 6933:  7003           b    get
 6912: 7004 ckex      bce  end,68,b                                                                            6934:  7004 ckex      bce  end,68,b
 6913: 7005           bce  end,40,/                                                                            6935:  7005           bce  end,40,/
 6914: 7006           b    ckzn                                                                                6936:  7006           b    ckzn
 6915: 7007 end       mcw  last,nop3&3                                                                         6937:  7007 end       mcw  last,nop3&3
 6916: 7008           mz   @b@,nop3&2                                                                          6938:  7008           mz   @b@,nop3&2
 6917: 7009 nop3      nop  0&x3                                                                                6939:  7009 nop3      nop  0&x3
 6918: 7010           sar  x3                                                                                  6940:  7010           sar  x3
 6919: 7011           sbr  hex3                                                                                6941:  7011           sbr  hex3
 6920: 7012           sbr  x3,1&x3                                                                             6942:  7012           sbr  x3,1&x3
 6921: 7013 klobr     bce  loop2,0,_                     11-7-8                                                6943:  7013 klobr     bce  loop2,0,_                     11-7-8
 6922: 7014           cs   332                                                                                 6944:  7014           cs   332
 6923: 7015           cs                                                                                       6945:  7015           cs
 6924: 7016           cc   1                                                                                   6946:  7016           cc   1
 6925: 7017           mcw  @message 2 - object program too large@,270                                          6947:  7017           mcw  @message 2 - object program too large@,270
 6926: 7018           w                                                                                        6948:  7018           w
 6927: 7019           cc   1                                                                                   6949:  7019           cc   1
 6928: 7020           bce  *&6,montor,1                                                                        6950:  7020           bce  *&6,montor,1
 6929: 7021           rwd  1                                                                                   6951:  7021           rwd  1
 6930: 7022           h    *-3                                                                                 6952:  7022           h    *-3
 6931: 7023 pure      sbr  71,read2                                                                            6953:  7023 pure      sbr  71,read2
 6932: 7024           mcw  @b@,68                                                                              6954:  7024           mcw  @b@,68
 6933: 7025           b    40                                                                                  6955:  7025           b    40
 6934: 7026 get       sbr  getxt&3                                                                             6956:  7026 get       sbr  getxt&3
 6935: 7027           mcw  @ @,001                                                                             6957:  7027           mcw  @ @,001
 6936: 7028 read      r    getxt                                                                               6958:  7028 read      r    getxt
 6937: 7029 mvnin     mcw  &9,rdcnt#1                                                                          6959:  7029 mvnin     mcw  &9,rdcnt#1
 6938: 7030 rdtap     rt   1,1                                                                                 6960:  7030 rdtap     rt   1,1
 6939: 7031           ber  tperr                                                                               6961:  7031           ber  tperr
 6940: 7032 getxt     b    0                                                                                   6962:  7032 getxt     b    0
 6941: 7033 tperr     bsp  1                                                                                   6963:  7033 tperr     bsp  1
 6942: 7034           s    &1,rdcnt                                                                            6964:  7034           s    &1,rdcnt
 6943: 7035           bwz  rdtap,rdcnt,b                                                                       6965:  7035           bwz  rdtap,rdcnt,b
 6944: 7036           nop  3333                                                                                6966:  7036           nop  3333
 6945: 7037           h                                                                                        6967:  7037           h
 6946: 7038           b    mvnin                                                                               6968:  7038           b    mvnin
 6947: 7039 reloc     sbr  relxt&3                                                                             6969:  7039 reloc     sbr  relxt&3
 6948: 7040           bwz  relxt,hldzn,2                                                                       6970:  7040           bwz  relxt,hldzn,2
 6949: 7041           bwz  isb,hldzn,s                                                                         6971:  7041           bwz  isb,hldzn,s
 6950: 7042           mcw  x3,hex3#3                                                                           6972:  7042           mcw  x3,hex3#3
 6951: 7043           bwz  sw2x2,4&x2,2                                                                        6973:  7043           bwz  sw2x2,4&x2,2
 6952: 7044           mcw  hxcmn,x3                                                                            6974:  7044           mcw  hxcmn,x3
 6953: 7045           mz   *-4,4&x2                                                                            6975:  7045           mz   *-4,4&x2
 6954: 7046 sw2x2     ma   x3,4&x2                                                                             6976:  7046 sw2x2     ma   x3,4&x2
 6955: 7067           mcw  hex3,x3                                                                             6977:  7067           mcw  hex3,x3
 6956: 7048           bwz  relxt,hldzn,k                                                                       6978:  7048           bwz  relxt,hldzn,k
 6957: 7049 isb       mcw  x3,hex3                                                                             6979:  7049 isb       mcw  x3,hex3
 6958: 7050           bwz  mcwx2,7&x2,2                                                                        6980:  7050           bwz  mcwx2,7&x2,2
 6959: 7051           mcw  hxcmn,x3                                                                            6981:  7051           mcw  hxcmn,x3
 6960: 7052           mz   *-4,7&x2                                                                            6982:  7052           mz   *-4,7&x2
 6961: 7053 mcwx2     ma   x3,7&x2                                                                             6983:  7053 mcwx2     ma   x3,7&x2
 6962: 7054           mcw  hex3,x3                                                                             6984:  7054           mcw  hex3,x3
 6963: 7055 relxt     b    0                                                                                   6985:  7055 relxt     b    0
 6964: 7056 nodic     b    get                                                                                 6986:  7056 nodic     b    get
 6965: 7057           bce  get2,40,/                                                                           6987:  7057           bce  get2,40,/
 6966: 7058           bce  get2,68,b                                                                           6988:  7058           bce  get2,68,b
 6967: 7059           b    nodic                                                                               6989:  7059           b    nodic
 6968: 7060 out       nop  out2                                                                                6990:  7060 out       nop  out2
 6969: 7061           mcw  @b@,out                                                                             6991:  7061           mcw  @b@,out
 6970: 7062           sbr  tbad2,xsinfu                                                                        6992:  7062           sbr  tbad2,xsinfu
 6971: 7063           mcw  hex3,x2                                                                             6993:  7063           mcw  hex3,x2
 6972: 7064           sbr  gotofn,1&x2                                                                         6994:  7064           sbr  gotofn,1&x2
 6973: 7065           mcw  @n@,bmpt2                                                                           6995:  7065           mcw  @n@,bmpt2
 6974: 7066           mcw  @n@,nopsw                                                                           6996:  7066           mcw  @n@,nopsw
 6975: 7067           mcw  @b@,sw1                                                                             6997:  7067           mcw  @b@,sw1
 6976: 7068           mcw  hex3,btm#3                                                                          6998:  7068           mcw  hex3,btm#3
 6977: 7069           b    aget2                                                                               6999:  7069           b    aget2
 6978: 7070 stotp     mcw  hex3,top#3                                                                          7000:  7070 stotp     mcw  hex3,top#3
 6979: 7071           mcw  @n@,ckusr                                                                           7001:  7071           mcw  @n@,ckusr
 6980: 7072           b    ckusr&5                                                                             7002:  7072           b    ckusr&5
 6981: 7073 out2      mcw  hex3,x3                                                                             7003:  7073 out2      mcw  hex3,x3
 6982: 7074           mcw  parama&2,x2                                                                         7004:  7074           mcw  parama&2,x2
 6983: 7075           c    0&x2                                                                                7005:  7075           c    0&x2
 6984: 7076           sar  x2                                                                                  7006:  7076           sar  x2
 6985: 7077           sbr  fltwd                                                                               7007:  7077           sbr  fltwd
 6986: 7078           c    0&x2                                                                                7008:  7078           c    0&x2
 6987: 7079           sar  fixwd                                                                               7009:  7079           sar  fixwd
 6988: 7080           bce  mtpx1,xlinks,        blank                                                          7010:  7080           bce  mtpx1,xlinks,        blank
 6989: 7081           mcw  xlinks,x1                                                                           7011:  7081           mcw  xlinks,x1
 6990: 7082           ma   @013@,x1                                                                            7012:  7082           ma   @013@,x1
 6991: 7083           mlc  conlst,0&x1                                                                         7013:  7083           mlc  conlst,0&x1
 6992: 7084           cw   xlinkw                                                                              7014:  7084           cw   xlinkw
 6993: 7085 mtpx1     mcw  top,x1                                                                              7015:  7085 mtpx1     mcw  top,x1
 6994: 7086           mcw  btm,x2                                                                              7016:  7086           mcw  btm,x2
 6995: 7087           fendx,,,start,start,,1696,reload ss                                                      7017:  7087           fendx,,,start,start,,1696,reload ss
 6996: 7088 dsa       dsa  -2000                                                                               7018:  7088 dsa       dsa  -2000
 6997: 7089 tbad2     dcw  xdoad1                                                                              7019:  7089 tbad2     dcw  xdoad1
 6998: 7090 logsw     dc   #1                                                                                  7020:  7090 logsw     dc   #1
 6999: 7091           ltorg*                                                                                   7021:  7091           ltorg*
 7000: 7092           dcw  @}@                          system group mark                                      7022:  7092           dcw  @}@                          system group mark
 7001: 7093           xfr  start1                                                                              7023:  7093           xfr  start1
 7002: 7094           job  1401 Fortran  Relocatable package                      50533                        7024:  7094           job  1401 Fortran  Relocatable package                      50533
 7003: 7095 110       dcw  @]]]]]@        all 11-5-8     first card of package                                 7025:  7095 110       dcw  @]]]]]@        all 11-5-8     first card of package
 7004: 7096 *                                                                                                  7026:  7096 *
 7005: 7097 *                                                                                                  7027:  7097 *
 7006: 7098 *         relocatable package appears here in system deck                                          7028:  7098 *         relocatable package appears here in system deck
 7007: 7099 *         must manually zone address in oblst to relocate                                          7029:  7099 *         must manually zone address in oblst to relocate
 7008: 7100 *                                                                                                  7030:  7100 *
 7009: 7101 *                                                                                                  7031:  7101 *
 7010: 7102 110       dcw  @;;;;;@        all 11-6-8     last card of package                                  7032:  7102 110       dcw  @;;;;;@        all 11-6-8     last card of package
 7011: 7103           job  1401 Fortran reloading snapshot                        5053r                        7033:  7103           job  1401 Fortran reloading snapshot                        5053r
 7012: 7104           sfx  #                                                                                   7034:  7104           sfx  #
 7013: 7105 110       dcw  @reload ss@                                                                         7035:  7105 110       dcw  @reload ss@
 7014: 7106           org  startr                                                                              7036:  7106           org  startr
 7015: 7107 begin     b    exit1                                                                               7037:  7107 begin     b    exit1
 7016: 7108 retrn     mcw  @d@,word                                                                            7038:  7108 retrn     mcw  @d@,word
 7017: 7109           cw   word                                                                                7039:  7109           cw   word
 7018: 7110           fendxc,,,startr,startr,,gm53s,formatpak                                                  7040:  7110           fendxc,,,startr,startr,,gm53s,formatpak
 7019: 7111           ltorg*                                                                                   7041:  7111           ltorg*
 7020: 7112 exit1     sbr  initap&6,333                                                                        7042:  7112 exit1     sbr  initap&6,333
 7021: 7113           sbr  bclear,exit1                                                                        7043:  7113           sbr  bclear,exit1
 7022: 7114           sbr  initxt&3,retrn                                                                      7044:  7114           sbr  initxt&3,retrn
 7023: 7115           sbr  tclear,gm53s                                                                        7045:  7115           sbr  tclear,gm53s
 7024: 7116           lca  @snapshot53@,110                                                                    7046:  7116           lca  @snapshot53@,110
 7025: 7117           b    monter                                                                              7047:  7117           b    monter
 7026: 7118           ltorg*                                                                                   7048:  7118           ltorg*
 7027: 7119           org  1696                                                                                7049:  7119           org  1696
 7028: 7120 gm53s     dcw  @}@                group mark                                                       7050:  7120 gm53s     dcw  @}@                group mark
 7029: 7121           xfr  begin                                                                               7051:  7121           xfr  begin
 7030: 7122           job  1401 Fortran snapshot 53s                              5053s                        7052:  7122           job  1401 Fortran snapshot 53s                              5053s
 7031: 7123 xxx       equ  0                                                                                   7053:  7123 xxx       equ  0
 7032: 7124 xl1       equ  089                                                                                 7054:  7124 xl1       equ  089
 7033: 7125 xl2       equ  094                                                                                 7055:  7125 xl2       equ  094
 7034: 7126 xl3       equ  099                                                                                 7056:  7126 xl3       equ  099
 7035: 7127           org  333                                                                                 7057:  7127           org  333
 7036: 7128           sbr  prtxt&3                                                                             7058:  7128           sbr  prtxt&3
 7037: 7129           sbr  hldxt&6                                                                             7059:  7129           sbr  hldxt&6
 7038: 7130           mcw  @000@,linct-2                                                                       7060:  7130           mcw  @000@,linct-2
 7039: 7131           mcw  xl3, hld32&6                                                                        7061:  7131           mcw  xl3, hld32&6
 7040: 7132           mcw  xl1, hld31&6                                                                        7062:  7132           mcw  xl1, hld31&6
 7041: 7133           sbr  xl1, 1                                                                              7063:  7133           sbr  xl1, 1
 7042: 7134           sbr  xl3, 202                                                                            7064:  7134           sbr  xl3, 202
 7043: 7135           cs   332                                                                                 7065:  7135           cs   332
 7044: 7136           cs                                                                                       7066:  7136           cs
 7045: 7137           mcw  110,210                                                                             7067:  7137           mcw  110,210
 7046: 7138           bss  only,f                                                                              7068:  7138           bss  only,f
 7047: 7139           cc   1                                                                                   7069:  7139           cc   1
 7048: 7140           mcw  094,250                                                                             7070:  7140           mcw  094,250
 7049: 7141 hldxt     sbr  216,xxx                                                                             7071:  7141 hldxt     sbr  216,xxx
 7050: 7142 hld32     sbr  256,xxx                                                                             7072:  7142 hld32     sbr  256,xxx
 7051: 7143 hld31     sbr  244,xxx                                                                             7073:  7143 hld31     sbr  244,xxx
 7052: 7144           w                                                                                        7074:  7144           w
 7053: 7145           cc   k                                                                                   7075:  7145           cc   k
 7054: 7146           za   &2,pgctr#2                                                                          7076:  7146           za   &2,pgctr#2
 7055: 7147 nulin     cs   332                                                                                 7077:  7147 nulin     cs   332
 7056: 7148           cs                                                                                       7078:  7148           cs
 7057: 7149           cc   j                                                                                   7079:  7149           cc   j
 7058: 7150           mcw  linct,306                                                                           7080:  7150           mcw  linct,306
 7059: 7151           mcw                                                                                      7081:  7151           mcw
 7060: 7152           sbr  mvhed&6                                                                             7082:  7152           sbr  mvhed&6
 7061: 7153           mcw  @9@, ctr-1                                                                          7083:  7153           mcw  @9@, ctr-1
 7062: 7154 mvhed     mcw  ctr-1,xxx                                                                           7084:  7154 mvhed     mcw  ctr-1,xxx
 7063: 7155           mcw  head                                                                                7085:  7155           mcw  head
 7064: 7156           sbr  mvhed&6                                                                             7086:  7156           sbr  mvhed&6
 7065: 7157           a    @i0@, ctr#2                                                                         7087:  7157           a    @i0@, ctr#2
 7066: 7158           bwz  mvhed, ctr-1, 2                                                                     7088:  7158           bwz  mvhed, ctr-1, 2
 7067: 7159           a    &1,linct-2                                                                          7089:  7159           a    &1,linct-2
 7068: 7160           w                                                                                        7090:  7160           w
 7069: 7161 loop      sw   0&x3                                                                                7091:  7161 loop      sw   0&x3
 7070: 7162           mcw  0&x1,0&x3                                                                           7092:  7162           mcw  0&x1,0&x3
 7071: 7163           bw   cmpab,0&x1                                                                          7093:  7163           bw   cmpab,0&x1
 7072: 7164           cw   0&x3                                                                                7094:  7164           cw   0&x3
 7073: 7165 cmpab     c    xl1,parama&2                                                                        7095:  7165 cmpab     c    xl1,parama&2
 7074: 7166           bu   cpl                                                                                 7096:  7166           bu   cpl
 7075: 7167           w                                                                                        7097:  7167           w
 7076: 7168           wm                                                                                       7098:  7168           wm
 7077: 7169 rstrx     mcw  hld31&6,xl1                                                                         7099:  7169 rstrx     mcw  hld31&6,xl1
 7078: 7170           mcw  hld32&6,xl3                                                                         7100:  7170           mcw  hld32&6,xl3
 7079: 7171           cs   332                                                                                 7101:  7171           cs   332
 7080: 7171           cs                                                                                       7102:  7171           cs
 7081: 7173           bss  *&5,g                                                                               7103:  7173           bss  *&5,g
 7082: 7174           b    prtxt                                                                               7104:  7174           b    prtxt
 7083: 7175           h                                                                                        7105:  7175           h
 7084: 7176 prtxt     b    0                                                                                   7106:  7176 prtxt     b    0
 7085: 7177 cpl       sbr  xl1, 1&x1                                                                           7107:  7177 cpl       sbr  xl1, 1&x1
 7086: 7178           bce  inc, xl3-2, 2                                                                       7108:  7178           bce  inc, xl3-2, 2
 7087: 7179           sbr  xl3, 201                                                                            7109:  7179           sbr  xl3, 201
 7088: 7180           w                                                                                        7110:  7180           w
 7089: 7181           wm                                                                                       7111:  7181           wm
 7090: 7182           a    &1,pgctr                                                                            7112:  7182           a    &1,pgctr
 7091: 7183           c    pgctr,&15                                                                           7113:  7183           c    pgctr,&15
 7092: 7184           bu   nulin                                                                               7114:  7184           bu   nulin
 7093: 7185           s    pgctr                                                                               7115:  7185           s    pgctr
 7094: 7186           ccb  nulin,1                                                                             7116:  7186           ccb  nulin,1
 7095: 7187 only      mcw  word,220                                                                            7117:  7187 only      mcw  word,220
 7096: 7188           w    rstrx                                                                               7118:  7188           w    rstrx
 7097: 7189 inc       a    &1,xl3                                                                              7119:  7189 inc       a    &1,xl3
 7098: 7190           b    loop                                                                                7120:  7190           b    loop
 7099: 7191 head      dcw  @9........@                                                                         7121:  7191 head      dcw  @9........@
 7100: 7192           dcw  @9-@                                                                                7122:  7192           dcw  @9-@
 7101: 7193 linct     dcw  00000                                                                               7123:  7193 linct     dcw  00000
 7102: 7194           ltorg*                                                                                   7124:  7194           ltorg*
 7103: 7195           dcw  @execute@                                                                           7125:  7195           dcw  @execute@
 7104: 7196 word      dcw  @}@                group mark in 680                                                7126:  7196 word      dcw  @}@                group mark in 680
 7105: 7197           xfr  retrn                                                                               7127:  7197           xfr  retrn
 7106: 7198           job  1401 Fortran  replace phase two                        50553                        7128:  7198           job  1401 Fortran  replace phase two                        50553
 7107: 7199           sfx  q                                                                                   7129:  7199           sfx  q
 7108: 7200 nxtop     equ  086                                                                                 7130:  7200 nxtop     equ  086
 7109: 7201 nxbtm     equ  083                                                                                 7131:  7201 nxbtm     equ  083
 7110: 7202 x1        equ  089                                                                                 7132:  7202 x1        equ  089
 7111: 7203 x2        equ  094                                                                                 7133:  7203 x2        equ  094
 7112: 7204 x3        equ  099                                                                                 7134:  7204 x3        equ  099
 7113: 7205 fixwd     equ  fixwdr                                                                              7135:  7205 fixwd     equ  fixwdr
 7114: 7206 fltwd     equ  fltwdr                                                                              7136:  7206 fltwd     equ  fltwdr
 7115: 7207           org  startr                                                                              7137:  7207           org  startr
 7116: 7208 init      sbr  gary#3,1&x3                                                                         7138:  7208 init      sbr  gary#3,1&x3
 7117: 7209           sw   1&x3                                                                                7139:  7209           sw   1&x3
 7118: 7210           sbr  limit#3,0&x2                                                                        7140:  7210           sbr  limit#3,0&x2
 7119: 7211           sbr  top#3,0&x1                                                                          7141:  7211           sbr  top#3,0&x1
 7120: 7212           mcw  parama&2,x2                                                                         7142:  7212           mcw  parama&2,x2
 7121: 7213           c    0&x2                                                                                7143:  7213           c    0&x2
 7122: 7214           c                                                                                        7144:  7214           c
 7123: 7215           c                                                                                        7145:  7215           c
 7124: 7216           sbr  ron&6                                                                               7146:  7216           sbr  ron&6
 7125: 7217           mcw  nxtop,x2                                                                            7147:  7217           mcw  nxtop,x2
 7126: 7218           mn   0&x2                                                                                7148:  7218           mn   0&x2
 7127: 7219           sar  top2#3                                                                              7149:  7219           sar  top2#3
 7128: 7220 test5     c    x3,limit                                                                            7150:  7220 test5     c    x3,limit
 7129: 7221 swtch     be   exita                                                                               7151:  7221 swtch     be   exita
 7130: 7222           c    0&x3                                                                                7152:  7222           c    0&x3
 7131: 7223           sbr  x2                                                                                  7153:  7223           sbr  x2
 7132: 7224           sbr  x3                                                                                  7154:  7224           sbr  x3
 7133: 7225           bce  test2,1&x3,t                                                                        7155:  7225           bce  test2,1&x3,t
 7134: 7226 ckfx      mcw  4&x3,box                                                                            7156:  7226 ckfx      mcw  4&x3,box
 7135: 7227           bce  fxflt,box-2,;       11-6-8                                                          7157:  7227           bce  fxflt,box-2,;       11-6-8
 7136: 7228           bce  fxflt,box-2,_       11-7-8                                                          7158:  7228           bce  fxflt,box-2,_       11-7-8
 7137: 7229           bce  ron,box-2,]         11-5-8                                                          7159:  7229           bce  ron,box-2,]         11-5-8
 7138: 7230           mcw  box,4&x3                                                                            7160:  7230           mcw  box,4&x3
 7139: 7231 ckbop     mcw  7&x3,box#3                                                                          7161:  7231 ckbop     mcw  7&x3,box#3
 7140: 7232           bce  fxflt,box-2,;       11-6-8                                                          7162:  7232           bce  fxflt,box-2,;       11-6-8
 7141: 7233           bce  fxflt,box-2,_       11-7-8                                                          7163:  7233           bce  fxflt,box-2,_       11-7-8
 7142: 7234           mcw  box,7&x3                                                                            7164:  7234           mcw  box,7&x3
 7143: 7235           b    test5                                                                               7165:  7235           b    test5
 7144: 7236 test2     bce  test5,4&x3,$                                                                        7166:  7236 test2     bce  test5,4&x3,$
 7145: 7237           c    0&x3,@b700@                                                                         7167:  7237           c    0&x3,@b700@
 7146: 7238           be   test5                                                                               7168:  7238           be   test5
 7147: 7239           bwz  ckfx,4&x2,1                                                                         7169:  7239           bwz  ckfx,4&x2,1
 7148: 7240           bwz                                                                                      7170:  7240           bwz
 7149: 7241           bwz                                                                                      7171:  7241           bwz
 7150: 7242           mcw  @b@,1&x3                                                                            7172:  7242           mcw  @b@,1&x3
 7151: 7243           mcw  4&x2,x1                                                                             7173:  7243           mcw  4&x2,x1
 7152: 7244           mcw  0&x1,x1                                                                             7174:  7244           mcw  0&x1,x1
 7153: 7245           mcw  x1,4&x2                                                                             7175:  7245           mcw  x1,4&x2
 7154: 7246           b    ckfx                                                                                7176:  7246           b    ckfx
 7155: 7247 exita     mcw  &exit,swtch&3                                                                       7177:  7247 exita     mcw  &exit,swtch&3
 7156: 7248           mcw  top,x3                                                                              7178:  7248           mcw  top,x3
 7157: 7249           mcw  @w96@,limit   form-1 chg on reassm of obj format                                    7179:  7249           mcw  @w96@,limit   form-1 chg on reassm of obj format
 7158: 7250           b    test5                                                                               7180:  7250           b    test5
 7159: 7251 exit      mcw  gary,x3                                                                             7181:  7251 exit      mcw  gary,x3
 7160: 7252           sbr  x3,1&x3                                                                             7182:  7252           sbr  x3,1&x3
 7161: 7253           mz   x3,all9                                                                             7183:  7253           mz   x3,all9
 7162: 7254           mz                                                                                       7184:  7254           mz
 7163: 7255           mcw                                                                                      7185:  7255           mcw
 7164: 7256           mz   nxbtm,all91                                                                         7186:  7256           mz   nxbtm,all91
 7165: 7257           mz                                                                                       7187:  7257           mz
 7166: 7258           mcw                                                                                      7188:  7258           mcw
 7167: 7259           c    all9,all91                                                                          7189:  7259           c    all9,all91
 7168: 7260           be   spcl                                                                                7190:  7260           be   spcl
 7169: 7261           mcw  nxbtm,x3                                                                            7191:  7261           mcw  nxbtm,x3
 7170: 7262 cleer     cs   0&x3                                                                                7192:  7262 cleer     cs   0&x3
 7171: 7263           sbr  x3                                                                                  7193:  7263           sbr  x3
 7172: 7264           c    x3,all9                                                                             7194:  7264           c    x3,all9
 7173: 7265           bu   cleer                                                                               7195:  7265           bu   cleer
 7174: 7266 sngl      c    x3,gary                                                                             7196:  7266 sngl      c    x3,gary
 7175: 7267           be   eoj                                                                                 7197:  7267           be   eoj
 7176: 7268           lca  blnk#1,0&x3                                                                         7198:  7268           lca  blnk#1,0&x3
 7177: 7269           sbr  x3                                                                                  7199:  7269           sbr  x3
 7178: 7270           cw   1&x3                                                                                7200:  7270           cw   1&x3
 7179: 7271           b    sngl                                                                                7201:  7271           b    sngl
 7180: 7272 spcl      mcw  nxbtm,x3                                                                            7202:  7272 spcl      mcw  nxbtm,x3
 7181: 7273           b    sngl                                                                                7203:  7273           b    sngl
 7182: 7274 eoj       mcw  nxbtm,x3                                                                            7204:  7274 eoj       mcw  nxbtm,x3
 7183: 7275           mcw  @|@,0&x3                                                                            7205:  7275           mcw  @|@,0&x3
 7184: 7276           sbr  x3                                                                                  7206:  7276           sbr  x3
 7185: 7277           mcw  @]@,0&x3                       11-5-8                                               7207:  7277           mcw  @]@,0&x3                       11-5-8
 7186: 7278           mcw  0&x3                                                                                7208:  7278           mcw  0&x3
 7187: 7279           sbr  x3                                                                                  7209:  7279           sbr  x3
 7188: 7280           lca  blnk,2&x3                                                                           7210:  7280           lca  blnk,2&x3
 7189: 7281           lca  blnk                                                                                7211:  7281           lca  blnk
 7190: 7282           mcw  dosbsc,subscr                                                                       7212:  7282           mcw  dosbsc,subscr
 7191: 7283           fendxc,,,xbegin,xbegin,xbegin,sys2,snapshot                                              7213:  7283           fendxc,,,xbegin,xbegin,xbegin,sys2,snapshot
 7192: 7284 ron       sbr  4&x3,0                                                                              7214:  7284 ron       sbr  4&x3,0
 7193: 7285           b    ckbop                                                                               7215:  7285           b    ckbop
 7194: 7286 fxflt     sbr  fxt&3                                                                               7216:  7286 fxflt     sbr  fxt&3
 7195: 7287           mcw  fixwd,box2                                                                          7217:  7287           mcw  fixwd,box2
 7196: 7288           bce  *&8,box-2,_        11-7-8                                                           7218:  7288           bce  *&8,box-2,_        11-7-8
 7197: 7289           mcw  fltwd,box2                                                                          7219:  7289           mcw  fltwd,box2
 7198: 7290           bce  eofx,box,0                                                                          7220:  7290           bce  eofx,box,0
 7199: 7291           bwz  postv,box,b                                                                         7221:  7291           bwz  postv,box,b
 7200: 7292 box2      equ  x2                                                                                  7222:  7292 box2      equ  x2
 7201: 7293           sw   box-1                                                                               7223:  7293           sw   box-1
 7202: 7294 loop      a    &1,box                                                                              7224:  7294 loop      a    &1,box
 7203: 7295           bwz  dun2,box,b                                                                          7225:  7295           bwz  dun2,box,b
 7204: 7296           mn   0&x2                                                                                7226:  7296           mn   0&x2
 7205: 7297           sar  x2                                                                                  7227:  7297           sar  x2
 7206: 7298           b    loop                                                                                7228:  7298           b    loop
 7207: 7299 dun2      cw   box-1                                                                               7229:  7299 dun2      cw   box-1
 7208: 7300 eofx      mcw  box2,box                                                                            7230:  7300 eofx      mcw  box2,box
 7209: 7301 fxt       b    0                                                                                   7231:  7301 fxt       b    0
 7210: 7302 postv     mn   box,sbr&6                                                                           7232:  7302 postv     mn   box,sbr&6
 7211: 7303           mn                                                                                       7233:  7303           mn
 7212: 7304 sbr       sbr  box,0&x2                                                                            7234:  7304 sbr       sbr  box,0&x2
 7213: 7305           b    fxt                                                                                 7235:  7305           b    fxt
 7214: 7306 all9      dcw  999                                                                                 7236:  7306 all9      dcw  999
 7215: 7307 all91     dcw  999                                                                                 7237:  7307 all91     dcw  999
 7216: 7308           ltorg*                                                                                   7238:  7308           ltorg*
 7217: 7309 sys2      dcw  @}@                           system group mark                                     7239:  7309 sys2      dcw  @}@                           system group mark
 7218: 7310           xfr  init                                                                                7240:  7310           xfr  init
 7219: 7311           job  1401 Fortran  snapshot phase                           50563                        7241:  7311           job  1401 Fortran  snapshot phase                           50563
 7220: 7312           fbegnsnapshot,x1,r,,,x3,r,8,xxx                                                          7242:  7312           fbegnsnapshot,x1,r,,,x3,r,8,xxx
 7221: 7313           org  xbegin                                                                              7243:  7313           org  xbegin
 7222: 7314 start     bce  *&5,parama&8,s                                                                      7244:  7314 start     bce  *&5,parama&8,s
 7223: 7315           b    rstrx                                                                               7245:  7315           b    rstrx
 7224: 7316           bw   nogud,failsw                                                                        7246:  7316           bw   nogud,failsw
 7225: 7317           sbr  x1,4200                                                                             7247:  7317           sbr  x1,4200
 7226: 7318           sbr  x3,201                                                                              7248:  7318           sbr  x3,201
 7227: 7319           bce  noio,parama&10,x                                                                    7249:  7319           bce  noio,parama&10,x
 7228: 7320           bce  lio,parama&10,l                                                                     7250:  7320           bce  lio,parama&10,l
 7229: 7321           bce  aform,parama&10,a                                                                   7251:  7321           bce  aform,parama&10,a
 7230: 7322           b    print                                                                               7252:  7322           b    print
 7231: 7323 noio      sbr  x1,1600                                                                             7253:  7323 noio      sbr  x1,1600
 7232: 7324           mcw  @01600@,linct                                                                       7254:  7324           mcw  @01600@,linct
 7233: 7325           mcw  @1696@,bigms                                                                        7255:  7325           mcw  @1696@,bigms
 7234: 7326           b    print                                                                               7256:  7326           b    print
 7235: 7327 lio       sbr  x1,2000                                                                             7257:  7327 lio       sbr  x1,2000
 7236: 7328           mcw  @02000@,linct                                                                       7258:  7328           mcw  @02000@,linct
 7237: 7329           mcw  @2015@,bigms                                                                        7259:  7329           mcw  @2015@,bigms
 7238: 7330           b    print                                                                               7260:  7330           b    print
 7239: 7331 aform     sbr  x1,4600                                                                             7261:  7331 aform     sbr  x1,4600
 7240: 7332           mcw  @04600@,linct                                                                       7262:  7332           mcw  @04600@,linct
 7241: 7333           mcw  @4616@,bigms                                                                        7263:  7333           mcw  @4616@,bigms
 7242: 7334 print     messg@snapshot of object program@,60,1,j                                                 7264:  7334 print     messg@snapshot of object program@,60,1,j
 7243: 7335           messg@input/output areas located from 001-332@,39,,j                                     7265:  7335           messg@input/output areas located from 001-332@,39,,j
 7244: 7336           messgbigms,48,,k                                                                         7266:  7336           messgbigms,48,,k
 7245: 7337           za   &3,pgctr                                                                            7267:  7337           za   &3,pgctr
 7246: 7338 nulin     cs   332                                                                                 7268:  7338 nulin     cs   332
 7247: 7339           cs                                                                                       7269:  7339           cs
 7248: 7340           cc   j                                                                                   7270:  7340           cc   j
 7249: 7341           mcw  linct,311                                                                           7271:  7341           mcw  linct,311
 7250: 7342           mcw                                                                                      7272:  7342           mcw
 7251: 7343           mcw                                                                                      7273:  7343           mcw
 7252: 7344           sbr  mvhed&6                                                                             7274:  7344           sbr  mvhed&6
 7253: 7345           mcw  @9@,ctr-1                                                                           7275:  7345           mcw  @9@,ctr-1
 7254: 7346 mvhed     mcw  ctr-1,xxx                                                                           7276:  7346 mvhed     mcw  ctr-1,xxx
 7255: 7347           mcw  head                                                                                7277:  7347           mcw  head
 7256: 7348           sbr  mvhed&6                                                                             7278:  7348           sbr  mvhed&6
 7257: 7349           a    @i0@,ctr#2                                                                          7279:  7349           a    @i0@,ctr#2
 7258: 7350           bwz  mvhed,ctr-1,2                                                                       7280:  7350           bwz  mvhed,ctr-1,2
 7259: 7351           a    &1,linct-2                                                                          7281:  7351           a    &1,linct-2
 7260: 7352           w                                                                                        7282:  7352           w
 7261: 7353 loop      sw   0&x3                                                                                7283:  7353 loop      sw   0&x3
 7262: 7354           mcw  0&x1,0&x3                                                                           7284:  7354           mcw  0&x1,0&x3
 7263: 7355           bw   cmpab,0&x1                                                                          7285:  7355           bw   cmpab,0&x1
 7264: 7356           cw   0&x3                                                                                7286:  7356           cw   0&x3
 7265: 7357 cmpab     c    x1,parama&2                                                                         7287:  7357 cmpab     c    x1,parama&2
 7266: 7358           bu   cpl                                                                                 7288:  7358           bu   cpl
 7267: 7359           w                                                                                        7289:  7359           w
 7268: 7360           wm                                                                                       7290:  7360           wm
 7269: 7361 rstrx     fendxc,,,,begin/,,sysg,condeck1                                                          7291:  7361 rstrx     fendxc,,,,begin/,,sysg,condeck1
 7270: 7362 nogud     messg@snapshot deferred due to input errors@,37,j                                        7292:  7362 nogud     messg@snapshot deferred due to input errors@,37,j
 7271: 7363           forms                                                                                    7293:  7363           forms
 7272: 7364           b    rstrx                                                                               7294:  7364           b    rstrx
 7273: 7365 cpl       sbr  x1,1&x1                                                                             7295:  7365 cpl       sbr  x1,1&x1
 7274: 7366           bce  inc,x3-2,2                                                                          7296:  7366           bce  inc,x3-2,2
 7275: 7367           sbr  x3,201                                                                              7297:  7367           sbr  x3,201
 7276: 7368           w                                                                                        7298:  7368           w
 7277: 7369           wm                                                                                       7299:  7369           wm
 7278: 7370           a    &1,pgctr#2                                                                          7300:  7370           a    &1,pgctr#2
 7279: 7371           c    pgctr,&15                                                                           7301:  7371           c    pgctr,&15
 7280: 7372           bu   nulin                                                                               7302:  7372           bu   nulin
 7281: 7373           s    pgctr                                                                               7303:  7373           s    pgctr
 7282: 7374           cc   1                                                                                   7304:  7374           cc   1
 7283: 7375           b    nulin                                                                               7305:  7375           b    nulin
 7284: 7376 inc       a    &1,x3                                                                               7306:  7376 inc       a    &1,x3
 7285: 7377           b    loop                                                                                7307:  7377           b    loop
 7286: 7378 bigms     dcw  @fixed object time routines located from 333-4279@                                  7308:  7378 bigms     dcw  @fixed object time routines located from 333-4279@
 7287: 7379 head      dcw  @9........@                                                                         7309:  7379 head      dcw  @9........@
 7288: 7380           dcw  @9@                                                                                 7310:  7380           dcw  @9@
 7289: 7381           dcw  @-area-@                                                                            7311:  7381           dcw  @-area-@
 7290: 7382 linct     dcw  04200                                                                               7312:  7382 linct     dcw  04200
 7291: 7383           ltorg*                                                                                   7313:  7383           ltorg*
 7292: 7384 sysg      dcw  @}@                           system group mark                                     7314:  7384 sysg      dcw  @}@                           system group mark
 7293: 7385           xfr  start                                                                               7315:  7385           xfr  start
 7294: 7386           job  1401 Fortran  condensed deck phase one                 50573                        7316:  7386           job  1401 Fortran  condensed deck phase one                 50573
 7295: 7387           fbegncondeck1,,,,,,,/                                                                    7317:  7387           fbegncondeck1,,,,,,,/
 7296: 7388 last      equ  conlst                                                                              7318:  7388 last      equ  conlst
 7297: 7389           org  xbegin                                                                              7319:  7389           org  xbegin
 7298: 7390 pchcd     sbr  pxt&3                                                                               7320:  7390 pchcd     sbr  pxt&3
 7299: 7391           a    &1,175                                                                              7321:  7391           a    &1,175
 7300: 7392           bss  mcw18,b                                                                             7322:  7392           bss  mcw18,b
 7301: 7393           p                                                                                        7323:  7393           p
 7302: 7394 pxt       b    0                                                                                   7324:  7394 pxt       b    0
 7303: 7395 mcw18     mcw  180,280                                                                             7325:  7395 mcw18     mcw  180,280
 7304: 7396           mcw                                                                                      7326:  7396           mcw
 7305: 7397           wp                                                                                       7327:  7397           wp
 7306: 7398           forms                                                                                    7328:  7398           forms
 7307: 7399           b    pxt                                                                                 7329:  7399           b    pxt
 7308: 7400           ltorg*                                                                                   7330:  7400           ltorg*
 7309: 7401 begin     bce  gotta,parama&7,p                                                                    7331:  7401 begin     bce  gotta,parama&7,p
 7310: 7402           b    fendx                                                                               7332:  7402           b    fendx
 7311: 7403 gotta     bw   fendx,failsw                                                                        7333:  7403 gotta     bw   fendx,failsw
 7312: 7404           lca  conlst,last                                                                         7334:  7404           lca  conlst,last
 7313: 7405           cs   180                                                                                 7335:  7405           cs   180
 7314: 7406           sw   101                                                                                 7336:  7406           sw   101
 7315: 7407           mcw  parama-1,180                                                                        7337:  7407           mcw  parama-1,180
 7316: 7408           bss  messg,b                                                                             7338:  7408           bss  messg,b
 7317: 7409           b    cddmp                                                                               7339:  7409           b    cddmp
 7318: 7410 messg     messg@condensed deck@,60,1,j                                                             7340:  7410 messg     messg@condensed deck@,60,1,j
 7319: 7411           b    cddmp                                                                               7341:  7411           b    cddmp
 7320: 7412 fendx     fendxc,,,begin,begin,begin,sys1,condeck2                                                 7342:  7412 fendx     fendxc,,,begin,begin,begin,sys1,condeck2
 7321: 7413 cddmp     lca  @0000@,175                                                                          7343:  7413 cddmp     lca  @0000@,175
 7322: 7414           bwz  litcs,parama&2,2                                                                    7344:  7414           bwz  litcs,parama&2,2
 7323: 7415           mcw  cs1a,152                                                                            7345:  7415           mcw  cs1a,152
 7324: 7416           b    pchcd                                                                               7346:  7416           b    pchcd
 7325: 7417           mcw  parama&2,cs2xa                                                                      7347:  7417           mcw  parama&2,cs2xa
 7326: 7418           mcw  cs2a,171                                                                            7348:  7418           mcw  cs2a,171
 7327: 7419           b    pchcd                                                                               7349:  7419           b    pchcd
 7328: 7420           b    dobc1                                                                               7350:  7420           b    dobc1
 7329: 7421 litcs     mcw  cs1,144                                                                             7351:  7421 litcs     mcw  cs1,144
 7330: 7422           b    pchcd                                                                               7352:  7422           b    pchcd
 7331: 7423           mcw  parama&2,cs2x                                                                       7353:  7423           mcw  parama&2,cs2x
 7332: 7424           mcw  cs2, 170                                                                            7354:  7424           mcw  cs2, 170
 7333: 7425           b    pchcd                                                                               7355:  7425           b    pchcd
 7334: 7426 dobc1     mcw  bc1,171                                                                             7356:  7426 dobc1     mcw  bc1,171
 7335: 7427           cs                                                                                       7357:  7427           cs
 7336: 7428           lca  bc2,146                                                                             7358:  7428           lca  bc2,146
 7337: 7429           b    pchcd                                                                               7359:  7429           b    pchcd
 7338: 7430           b    fendx                                                                               7360:  7430           b    fendx
 7339: 7431 cs1       dcw  @,008015,019026,030,034041,045,053,0570571026@                                      7361:  7431 cs1       dcw  @,008015,019026,030,034041,045,053,0570571026@
 7340: 7432 cs2x      dcw  @L068112,102106,113/101099/I99@                                                     7362:  7432 cs2x      dcw  @L068112,102106,113/101099/I99@
 7341: 7433 cs2       dc   @,027a070028)027b0010270b0261,001/001113I0@                                         7363:  7433 cs2       dc   @,027a070028)027b0010270b0261,001/001113I0@
 7342: 7434 bc1       dcw  @,0010011040@                                                                       7364:  7434 bc1       dcw  @,0010011040@
 7343: 7435 bc2       dcw  @,008015,022029,036040,047054,061068,072/061039@                                    7365:  7435 bc2       dcw  @,008015,022029,036040,047054,061068,072/061039@
 7344: 7436           dcw  @,008015,022026,030037,044,049,053053@                                            | 7366:  74364          dcw  @,008015,022026,030037,044,049,053034@          v3m4
 7345: 7437 cs1a      dc   @N000000N00001026@                                                                | 7367:  7437 cs1a      dc   @,035036N00001026@                              v3m4
 7346: 7438 cs2xa     dcw  @L068116,105106,110117B101/I9I@                                                     7368:  7438 cs2xa     dcw  @L068116,105106,110117B101/I9I@
 7347: 7439 cs2a      dc   @#071029C029056B026/B001/0991,001/001117I0?@                                      | 7369:  7439 cs2a      dc   @H029NNNC029056B026/B001/0991,001/001117I0?@    v3m4
 7348: 7440           ltorg*                                                                                   7370:  7440           ltorg*
 7349: 7441 sys1      dcw  @}@                           system group mark                                     7371:  7441 sys1      dcw  @}@                           system group mark
 7350: 7442           xfr  begin                                                                               7372:  7442           xfr  begin
 7351: 7443           job  1401 Fortran  condensed deck phase two                 50583                        7373:  7443           job  1401 Fortran  condensed deck phase two                 50583
 7352: 7444           fbegncondeck2,,,,,,,2                                                                    7374:  7444           fbegncondeck2,,,,,,,2
 7353: 7445           org  begin/                                                                              7375:  7445           org  begin/
 7354: 7446 start     mcw  montor,read                                                                         7376:  7446 start     mcw  montor,read
 7355: 7447           bw   pchts,xlinkw        branch if xlinkf switch off                                     7377:  7447           bw   pchts,xlinkw        branch if xlinkf switch off
 7356: 7448           mcw  montor,skpss        skip snapshot                                                   7378:  7448           mcw  montor,skpss        skip snapshot
 7357: 7449           sbr  tperr&15,rdtps                                                                      7379:  7449           sbr  tperr&15,rdtps
 7358: 7450           sbr  ck4b-1,mvnss                                                                        7380:  7450           sbr  ck4b-1,mvnss
 7359: 7451 skpss     r    endss                                                                               7381:  7451 skpss     r    endss
 7360: 7452 mvnss     mcw  &9,rdcnt                                                                            7382:  7452 mvnss     mcw  &9,rdcnt
 7361: 7453 rdtps     rt   1,1                                                                                 7383:  7453 rdtps     rt   1,1
 7362: 7454           ber  tperr                                                                               7384:  7454           ber  tperr
 7363: 7455 endss     bce  *&5,68,b                                                                            7385:  7455 endss     bce  *&5,68,b
 7364: 7456           b    skpss                                                                               7386:  7456           b    skpss
 7365: 7457           sbr  getxt&3,ck4b        11-5-8 card already read                                        7387:  7457           sbr  getxt&3,ck4b        11-5-8 card already read
 7366: 7458           sbr  tperr&15,rdtap      restore tperr operands                                          7388:  7458           sbr  tperr&15,rdtap      restore tperr operands
 7367: 7459           sbr  ck4b-1,mvnin                                                                        7389:  7459           sbr  ck4b-1,mvnin
 7368: 7460           a    &1,nbrsw                                                                            7390:  7460           a    &1,nbrsw
 7369: 7461 pchts     bce  *&5,parama&7,p                                                                      7391:  7461 pchts     bce  *&5,parama&7,p
 7370: 7462           b    read                                                                                7392:  7462           b    read
 7371: 7463           bw   nopun,failsw                                                                        7393:  7463           bw   nopun,failsw
 7372: 7464           mcw  @1040@,171                                                                          7394:  7464           mcw  @1040@,171
 7373: 7465           mcw  @l014100,092097,081082,083084@                                                      7395:  7465           mcw  @l014100,092097,081082,083084@
 7374: 7466           cs                                                                                       7396:  7466           cs
 7375: 7467           lca  @00000000000000@, 114                                                               7397:  7467           lca  @00000000000000@, 114
 7376: 7468           mcw  @b@,retrn                                                                           7398:  7468           mcw  @b@,retrn
 7377: 7469           nop  pchcd                                                                             | 7399:  7469           b    pchcd                                           v3m4
 7378: 7470           mcw  @1040@,171                                                                          7400:  7470           mcw  @1040@,171
 7379: 7471           mcw  ldfmt-1                                                                             7401:  7471           mcw  ldfmt-1
 7380: 7472           cs                                                                                       7402:  7472           cs
 7381: 7473           mcw  mask,157                                                                            7403:  7473           mcw  mask,157
 7382: 7474           sw   sysc2                                                                               7404:  7474           sw   sysc2
 7383: 7475           mcw  sysc2,108                                                                           7405:  7475           mcw  sysc2,108
 7384: 7576           mcw  parama&6                                                                            7406:  7576           mcw  parama&6
 7385: 7577           mcw                                                                                      7407:  7577           mcw
 7386: 7578           lca                                                                                      7408:  7578           lca
 7387: 7479 retrn     nop  pchcd                                                                               7409:  7479 retrn     nop  pchcd
 7388: 7480 read      r    getxt                                                                               7410:  7480 read      r    getxt
 7389: 7481 mvnin     mcw  &9,rdcnt#1                                                                          7411:  7481 mvnin     mcw  &9,rdcnt#1
 7390: 7482 rdtap     rt   1,1                                                                                 7412:  7482 rdtap     rt   1,1
 7391: 7483           ber  tperr                                                                               7413:  7483           ber  tperr
 7392: 7484 getxt     b    once                                                                                7414:  7484 getxt     b    once
 7393: 7485 tperr     bsp  1                                                                                   7415:  7485 tperr     bsp  1
 7394: 7486           s    &1,rdcnt                                                                            7416:  7486           s    &1,rdcnt
 7395: 7487           bwz  rdtap,rdcnt,b                                                                       7417:  7487           bwz  rdtap,rdcnt,b
 7396: 7488           nop  3333                                                                                7418:  7488           nop  3333
 7397: 7489           h                                                                                        7419:  7489           h
 7398: 7490           b    mvnin                                                                               7420:  7490           b    mvnin
 7399: 7491 ck4b      bce  fendx,68,b                                                                          7421:  7491 ck4b      bce  fendx,68,b
 7400: 7492           mcw  71,171                                                                              7422:  7492           mcw  71,171
 7401: 7493           chain5                                                                                   7423:  7493           chain5
 7402: 7494           b    retrn                                                                               7424:  7494           b    retrn
 7403: 7495 once      sbr  getxt&3,ck4b                                                                        7425:  7495 once      sbr  getxt&3,ck4b
 7404: 7496           b    read                                                                                7426:  7496           b    read
 7405: 7497 nopun     messgmessg,43,,j                                                                         7427:  7497 nopun     messgmessg,43,,j
 7406: 7498           b    read                                                                                7428:  7498           b    read
 7407: 7499 fendx     a    &1,nbrsw#1                                                                          7429:  7499 fendx     a    &1,nbrsw#1
 7408: 7500           bce  exit,nbrsw,3                                                                        7430:  7500           bce  exit,nbrsw,3
 7409: 7501           bce  read,nbrsw,2                                                                        7431:  7501           bce  read,nbrsw,2
 7410: 7502           bw   *&5,xlinkw          branch if xlinkf switch off                                     7432:  7502           bw   *&5,xlinkw          branch if xlinkf switch off
 7411: 7503           b    read                                                                                7433:  7503           b    read
 7412: 7504           mcw  montor,skpxl        skip xlink                                                      7434:  7504           mcw  montor,skpxl        skip xlink
 7413: 7505           sbr  tperr&15,rdtpx                                                                      7435:  7505           sbr  tperr&15,rdtpx
 7414: 7506           sbr  ck4b-1,mvnxl                                                                        7436:  7506           sbr  ck4b-1,mvnxl
 7415: 7507 skpxl     r    endxl                                                                               7437:  7507 skpxl     r    endxl
 7416: 7508 mvnxl     mcw  &9,rdcnt                                                                            7438:  7508 mvnxl     mcw  &9,rdcnt
 7417: 7509 rdtpx     rt   1,1                                                                                 7439:  7509 rdtpx     rt   1,1
 7418: 7510           ber  tperr                                                                               7440:  7510           ber  tperr
 7419: 7511 endxl     bce  *&5,68,b                                                                            7441:  7511 endxl     bce  *&5,68,b
 7420: 7512           b    skpxl                                                                               7442:  7512           b    skpxl
 7421: 7513           sbr  tperr&15,rdtap      restore tperr operands                                          7443:  7513           sbr  tperr&15,rdtap      restore tperr operands
 7422: 7514           sbr  ck4b-1,mvnin                                                                        7444:  7514           sbr  ck4b-1,mvnin
 7423: 7515           b    fendx                                                                               7445:  7515           b    fendx
 7424: 7516 exit      sbr  getxt&3,fend2                                                                       7446:  7516 exit      sbr  getxt&3,fend2
 7425: 7517           b    read                                                                                7447:  7517           b    read
 7426: 7518 fend2     bce  fend3,retrn,n                                                                       7448:  7518 fend2     bce  fend3,retrn,n
 7427: 7519           cs   171                                                                                 7449:  7519           cs   171
 7428: 7520           sw   101                                                                                 7450:  7520           sw   101
 7429: 7521           mcw  @1040@,171                                                                          7451:  7521           mcw  @1040@,171
 7430: 7522           mcw  ldfmt-1                                                                             7452:  7522           mcw  ldfmt-1
 7431: 7523           mcw  @m002v36@,146  change on reasm of ob arith xsize&6                                  7453:  7523           mcw  @m002v36@,146  change on reasm of ob arith xsize&6
 7432: 7524           mcw  parama&4,102                                                                        7454:  7524           mcw  parama&4,102
 7433: 7525           b    pchcd                                                                               7455:  7525           b    pchcd
 7434: 7526           mcw  @837@,146      change on reasm of ob arith fsize&6                                  7456:  7526           mcw  @837@,146      change on reasm of ob arith fsize&6
 7435: 7527           mcw  parama&6,102                                                                        7457:  7527           mcw  parama&6,102
 7436: 7528           b    pchcd                                                                               7458:  7528           b    pchcd
 7437: 7529           mcw  @3t30@,146     change on reasm of ob arith out1-1                                   7459:  7529           mcw  @3t30@,146     change on reasm of ob arith out1-1
 7438: 7530           mcw  gotofn,103                                                                          7460:  7530           mcw  gotofn,103
 7439: 7531           b    pchcd                                                                               7461:  7531           b    pchcd
 7440: 7532           mcw  @s09@,146      change on reasm of ob arith stsub&3                                  7462:  7532           mcw  @s09@,146      change on reasm of ob arith stsub&3
 7441: 7533           mcw  subscr,103                                                                          7463:  7533           mcw  subscr,103
 7442: 7534           b    pchcd                                                                               7464:  7534           b    pchcd
 7443: 7535 fend3     fendxc,,,xbegin,xbegin,xbegin,sysc2,condeck3                                             7465:  7535 fend3     fendxc,,,xbegin,xbegin,xbegin,sysc2,condeck3
 7444: 7536           dcw  @l008@                                                                              7466:  7536           dcw  @l008@
 7445: 7537           dc   parama&7                                                                            7467:  7537           dc   parama&7
 7446: 7538           dc   @,@                                                                                 7468:  7538           dc   @,@
 7447: 7539           dc   parama&3                                                                            7469:  7539           dc   parama&3
 7448: 7540           dc   parama&5                                                                            7470:  7540           dc   parama&5
 7449: 7541           dc   @,@                                                                                 7471:  7541           dc   @,@
 7450: 7542 mask      dc   parama&7                                                                            7472:  7542 mask      dc   parama&7
 7451: 7543 messg     dcw  @condensed deck deferred due to input errors@                                       7473:  7543 messg     dcw  @condensed deck deferred due to input errors@
 7452: 7544 ldfmt     dcw  @l039000,040040,040040,040040$@                                                     7474:  7544 ldfmt     dcw  @l039000,040040,040040,040040$@
 7453: 7545           ltorg*                                                                                   7475:  7545           ltorg*
 7454: 7546 sysc2     dcw  @}@                           system group mark                                     7476:  7546 sysc2     dcw  @}@                           system group mark
 7455: 7547 pchcd     equ  pchcd/                                                                              7477:  7547 pchcd     equ  pchcd/
 7456: 7548           xfr  start                                                                               7478:  7548           xfr  start
 7457: 7549           job  1401 Fortran  fixed routine for condensing routine     50593                        7479:  7549           job  1401 Fortran  fixed routine for condensing routine     50593
 7458: 7550 110       dcw  @]]]]]@     all 11-5-8    first card                                                7480:  7550 110       dcw  @]]]]]@     all 11-5-8    first card
 7459: 7551 *                                                                                                  7481:  7551 *
 7460: 7552 *                                                                                                  7482:  7552 *
 7461: 7553 *         copy of fixed package                                                                    7483:  7553 *         copy of fixed package
 7462: 7554 *         snapshot - xlink - arith                                                                 7484:  7554 *         snapshot - xlink - arith
 7463: 7555 *                                                                                                  7485:  7555 *
 7464: 7556 110       dcw  @;;;;;@     all 11-6-8  last card                                                   7486:  7556 110       dcw  @;;;;;@     all 11-6-8  last card
 7465: 7557           job  1401 Fortran  condensed deck phase three               50603                        7487:  7557           job  1401 Fortran  condensed deck phase three               50603
 7466: 7558           fbegncondeck3,x1,r,x2,r,x3,r,1                                                           7488:  7558           fbegncondeck3,x1,r,x2,r,x3,r,1
 7467: 7559 last      equ  conlst                                                                              7489:  7559 last      equ  conlst
 7468: 7560           org  xbegin                                                                              7490:  7560           org  xbegin
 7469: 7561 begin     mcw  gogogo,x1                                                                           7491:  7561 begin     mcw  gogogo,x1
 7470: 7562           bce  *&5,parama&7,p                                                                      7492:  7562           bce  *&5,parama&7,p
 7471: 7563           b    gary                                                                                7493:  7563           b    gary
 7472: 7564           bw   gary,failsw                                                                         7494:  7564           bw   gary,failsw
 7473: 7565 rest      sbr  wpb&3,reset                                                                         7495:  7565 rest      sbr  wpb&3,reset
 7474: 7566           mcw  con40-11,box1                                                                       7496:  7566           mcw  con40-11,box1
 7475: 7567           mcw  @146@,x3                                                                            7497:  7567           mcw  @146@,x3
 7476: 7568           mcw  @l@,140                                                                             7498:  7568           mcw  @l@,140
 7477: 7569 reset     cs   139                                                                                 7499:  7569 reset     cs   139
 7478: 7570           forms                                                                                    7500:  7570           forms
 7479: 7571           mcw  con40,171                                                                           7501:  7571           mcw  con40,171
 7480: 7572           sw   140                                                                                 7502:  7572           sw   140
 7481: 7573           cs   332                                                                                 7503:  7573           cs   332
 7482: 7574           cs                                                                                       7504:  7574           cs
 7483: 7575           sw   101                                                                                 7505:  7575           sw   101
 7484: 7576           mcw  @001@,x2                                                                            7506:  7576           mcw  @001@,x2
 7485: 7577           mcw  @1@,flip#1                                                                          7507:  7577           mcw  @1@,flip#1
 7486: 7578           mcw  box1#7,153                                                                          7508:  7578           mcw  box1#7,153
 7487: 7579           bw   skip2,skpsw                                                                         7509:  7579           bw   skip2,skpsw
 7488: 7580 move      mn   0&x1,100&x2                                                                         7510:  7580 move      mn   0&x1,100&x2
 7489: 7581           mz   0&x1,100&x2                                                                         7511:  7581           mz   0&x1,100&x2
 7490: 7582 cpar      c    last,x1                                                                             7512:  7582 cpar      c    last,x1
 7491: 7583           be   term                                                                                7513:  7583           be   term
 7492: 7584           sbr  x1,1&x1                                                                             7514:  7584           sbr  x1,1&x1
 7493: 7585           sbr  x2,1&x2                                                                             7515:  7585           sbr  x2,1&x2
 7494: 7586           bce  skip,0&x1,]        11-5-8                                                           7516:  7586           bce  skip,0&x1,]        11-5-8
 7495: 7587           bw   cdful,0&x1                                                                          7517:  7587           bw   cdful,0&x1
 7496: 7588 tbkff     c    @040@,x2                                                                            7518:  7588 tbkff     c    @040@,x2
 7497: 7589           bl   move                                                                                7519:  7589           bl   move
 7498: 7590           c    @160@,x3                                                                            7520:  7590           c    @160@,x3
 7499: 7591           bl   lozng                                                                               7521:  7591           bl   lozng
 7500: 7592           mcw  @040@,167                                                                           7522:  7592           mcw  @040@,167
 7501: 7593           bh   *&8                                                                                 7523:  7593           bh   *&8
 7502: 7594           mcw  @040@, 164                                                                          7524:  7594           mcw  @040@, 164
 7503: 7595           cw   140                                                                                 7525:  7595           cw   140
 7504: 7596 sw        sw   000                                                                                 7526:  7596 sw        sw   000
 7505: 7597           sbr  x2                                                                                  7527:  7597           sbr  x2
 7506: 7598           a    -990,x2&1                                                                           7528:  7598           a    -990,x2&1
 7507: 7599           mcw  239,139                                                                             7529:  7599           mcw  239,139
 7508: 7600 sbr       sbr  x1,000                                                                              7530:  7600 sbr       sbr  x1,000
 7509: 7601 comma     mcw  con40-11,box1                                                                       7531:  7601 comma     mcw  con40-11,box1
 7510: 7602           mcw  @146@,x3                                                                            7532:  7602           mcw  @146@,x3
 7511: 7603 wp        a    @1@,cdno                                                                            7533:  7603 wp        a    @1@,cdno
 7512: 7604           mn   0&x2                                                                                7534:  7604           mn   0&x2
 7513: 7605           sbr  143                                                                                 7535:  7605           sbr  143
 7514: 7606           c    143,@000@                                                                           7536:  7606           c    143,@000@
 7515: 7607           be   end2                                                                              | 7537:  7607           be   end1                                            v3m4
 7516: 7608           mn   0&x1                                                                                7538:  7608           mn   0&x1
 7517: 7609           sbr  146                                                                                 7539:  7609           sbr  146
 7518: 7610           lca  180,280                                                                             7540:  7610           lca  180,280
 7519: 7611           lca                                                                                      7541:  7611           lca
 7520: 7612           lca                                                                                      7542:  7612           lca
 7521: 7613           bss  swlwp,b                                                                             7543:  7613           bss  swlwp,b
 7522: 7614 wpb       p    reset                                                                               7544:  7614 wpb       p    reset
 7523: 7615 swlwp     sw   lwpb&1                                                                              7545:  7615 swlwp     sw   lwpb&1
 7524: 7616           mcw  wpb&3,lwpb&3                                                                        7546:  7616           mcw  wpb&3,lwpb&3
 7525: 7617           cw   lwpb&1                                                                              7547:  7617           cw   lwpb&1
 7526: 7618 lwpb      wp   reset                                                                               7548:  7618 lwpb      wp   reset
 7527: 7619 lozng     mcw  @)@,box1-6                                                                          7549:  7619 lozng     mcw  @)@,box1-6
 7528: 7620           mcw  x1,box1                                                                             7550:  7620           mcw  x1,box1
 7529: 7621           mcw  x1                                                                                  7551:  7621           mcw  x1
 7530: 7622           mcw  @153@,x3                                                                            7552:  7622           mcw  @153@,x3
 7531: 7623           b    wp                                                                                  7553:  7623           b    wp
 7532: 7624 term      sbr  wpb&3,end1                                                                          7554:  7624 term      sbr  wpb&3,end1
 7533: 7625           b    wp                                                                                  7555:  7625           b    wp
 7534: 7626 cdful     mcw  x1,sbr&6                                                                            7556:  7626 cdful     mcw  x1,sbr&6
 7535: 7627           sbr  sw&3,100&x2                                                                         7557:  7627           sbr  sw&3,100&x2
 7536: 7628           c    @040@,x2                                                                            7558:  7628           c    @040@,x2
 7537: 7629           be   comma                                                                               7559:  7629           be   comma
 7538: 7630           c    @167@,x3                                                                            7560:  7630           c    @167@,x3
 7539: 7631           be   comma                                                                               7561:  7631           be   comma
 7540: 7632           sbr  x3,3&x3                                                                             7562:  7632           sbr  x3,3&x3
 7541: 7633           zs   flip                                                                                7563:  7633           zs   flip
 7542: 7634           bm   plus1,flip                                                                          7564:  7634           bm   plus1,flip
 7543: 7625 mcw       mcw  x1,0&x3                                                                             7565:  7625 mcw       mcw  x1,0&x3
 7544: 7636           b    move                                                                                7566:  7636           b    move
 7545: 7637 skip      sw   skpsw                                                                               7567:  7637 skip      sw   skpsw
 7546: 7638           b    comma                                                                               7568:  7638           b    comma
 7547: 7639 skip2     cw   skpsw                                                                               7569:  7639 skip2     cw   skpsw
 7548: 7640           mcm  0&x1                                                                                7570:  7640           mcm  0&x1
 7549: 7641           sbr  x1                                                                                  7571:  7641           sbr  x1
 7550: 7642           bw   move,0&x1                                                                           7572:  7642           bw   move,0&x1
 7551: 7643           mcw  x1,153                                                                              7573:  7643           mcw  x1,153
 7552: 7644           mcw  x1                                                                                  7574:  7644           mcw  x1
 7553: 7645           mcw  @)@                                                                                 7575:  7645           mcw  @)@
 7554: 7646           mcw  @153@,x3                                                                            7576:  7646           mcw  @153@,x3
 7555: 7647           b    move                                                                                7577:  7647           b    move
 7556: 7648 plus1     sbr  x3,1&x3                                                                             7578:  7648 plus1     sbr  x3,1&x3
 7557: 7649           b    mcw                                                                                 7579:  7649           b    mcw
 7558: 7650 end1      sbr  x1,1697     format                                                                  7580:  7650 end1      sbr  x1,1697     format
 7559: 7651           bce  end2,parama&10,x                                                                    7581:  7651           bce  end2,parama&10,x
 7560: 7652           bce  lio,parama&10,l                                                                     7582:  7652           bce  lio,parama&10,l
 7561: 7653           bce  aform,parama&10,a                                                                   7583:  7653           bce  aform,parama&10,a
 7562: 7654 next1     sbr  cpar&3,hifmt                                                                        7584:  7654 next1     sbr  cpar&3,hifmt
 7563: 7655           sbr  wpb&3,reset                                                                       | 7585:  7655           sbr  wp&25,end2                                      v3m4
 7564: 7656           sbr  term&6,end2                                                                         7586:  7656           sbr  term&6,end2
 7565: 7657           b    rest                                                                                7587:  7657           b    rest
 7566: 7658 lio       sbr  hifmt,2016                                                                          7588:  7658 lio       sbr  hifmt,2016
 7567: 7659           b    next1                                                                               7589:  7659           b    next1
 7568: 7660 aform     sbr  hifmt,4617                                                                          7590:  7660 aform     sbr  hifmt,4617
 7569: 7661           b    next1                                                                               7591:  7661           b    next1
 7570: 7662 end2      cs   171                                                                                 7592:  7662 end2      cs   171
 7571: 7663           mcw  @080@,146                                                                           7593:  7663           mcw  @080@,146
 7572: 7664           mcw  gogogo                                                                              7594:  7664           mcw  gogogo
 7573: 7665           lca  @/@                                                                                 7595:  7665           lca  @/@
 7574: 7666           a    @1@,cdno                                                                            7596:  7666           a    @1@,cdno
 7575: 7667           lca  180,280                                                                             7597:  7667           lca  180,280
 7576: 7668           lca                                                                                      7598:  7668           lca
 7577: 7669           cs                                                                                       7599:  7669           cs
 7578: 7670           bss  wpcs,b                                                                              7600:  7670           bss  wpcs,b
 7579: 7671           p                                                                                        7601:  7671           p
 7580: 7672 cs180     cs   180                                                                                 7602:  7672 cs180     cs   180
 7581: 7673           p                                                                                        7603:  7673           p
 7582: 7674           ss   8                                                                                   7604:  7674           ss   8
 7583: 7675 gary      fendxc,,,,,,sys2,gaux one                                                                7605:  7675 gary      fendxc,,,,,,sys2,gaux one
 7584: 7676 wpcs      wp   cs180                                                                               7606:  7676 wpcs      wp   cs180
 7585: 7677 hifmt     dsa  4280     change if arrays donot origin at 4280                                      7607:  7677 hifmt     dsa  4280     change if arrays donot origin at 4280
 7586: 7678 con40     dcw  @,040040,0400401040@                                                                7608:  7678 con40     dcw  @,040040,0400401040@
 7587: 7679 skpsw     dc   #1                                                                                  7609:  7679 skpsw     dc   #1
 7588: 7680           ltorg*                                                                                   7610:  7680           ltorg*
 7589: 7681           dcw  @i99@                                                                               7611:  7681           dcw  @i99@
 7590: 7682 sys2      dcw  @}@                           system group mark                                     7612:  7682 sys2      dcw  @}@                           system group mark
 7591: 7683 cdno      equ  175                                                                                 7613:  7683 cdno      equ  175
 7592: 7684           xfr  begin                                                                               7614:  7684           xfr  begin
 7593: 7685           job  1401 Fortran  geaux phase one                          5061a                        7615:  7685           job  1401 Fortran  geaux phase one                          5061a
 7594: 7686           fbegngeaux 1,x1,r,,,,,6                                                                  7616:  7686           fbegngeaux 1,x1,r,,,,,6
 7595: 7687           org  xbegin                                                                              7617:  7687           org  xbegin
 7596: 7688 start     lca  blnk4#4,84                    initialize sense                                      7618:  7688 start     lca  blnk4#4,84                    initialize sense
 7597: 7689           sw   84                             lights                                               7619:  7689           sw   84                             lights
 7598: 7690           sw                                                                                       7620:  7690           sw
 7599: 7691           sw                                                                                       7621:  7691           sw
 7600: 7692           messg@end of compilation@,18,1                                                           7622:  7692           messg@end of compilation@,18,1
 7601: 7693           mcw  gogogo,x1                                                                           7623:  7693           mcw  gogogo,x1
 7602: 7694           bw   bad,failsw                                                                          7624:  7694           bw   bad,failsw
 7603: 7695           messg@press start to go@,17,j                                                            7625:  7695           messg@press start to go@,17,j
 7604: 7696 out       sw   sys2                                                                                7626:  7696 out       sw   sys2
 7605: 7697           lca  sys2,693                                                                            7627:  7697           lca  sys2,693
 7606: 7698           bce  cdsys,montor,1                                                                      7628:  7698           bce  cdsys,montor,1
 7607: 7699           bw   skpxl,xlinkw                                                                        7629:  7699           bw   skpxl,xlinkw
 7608: 7700           sbr  tperx&15,rtpxl                                                                      7630:  7700           sbr  tperx&15,rtpxl
 7609: 7701 rtpxl     rtw  1,333                                                                               7631:  7701 rtpxl     rtw  1,333
 7610: 7702           ber  tperx                                                                               7632:  7702           ber  tperx
 7611: 7703           b    out33                                                                               7633:  7703           b    out33
 7612: 7704 tperx     bsp  1                                                                                   7634:  7704 tperx     bsp  1
 7613: 7705           h    4444,4444                                                                           7635:  7705           h    4444,4444
 7614: 7706           b    skpxl                                                                               7636:  7706           b    skpxl
 7615: 7707 cdsys     bw   skpxc,xlinkw                                                                        7637:  7707 cdsys     bw   skpxc,xlinkw
 7616: 7708           r    040                                                                                 7638:  7708           r    040
 7617: 7709 skpxc     r                                                                                        7639:  7709 skpxc     r
 7618: 7710           bce  out2,68,b         if b, branch to read arith                                        7640:  7710           bce  out2,68,b         if b, branch to read arith
 7619: 7711           b    skpxc                                                                               7641:  7711           b    skpxc
 7620: 7712 skpxl     rtw  1,sys2                                                                              7642:  7712 skpxl     rtw  1,sys2
 7621: 7713           ber  tperx                                                                               7643:  7713           ber  tperx
 7622: 7714 out2      bss  333,c                                                                               7644:  7714 out2      bss  333,c
 7623: 7715           lca  @n@,381                                                                             7645:  7715           lca  @n@,381
 7624: 7716           lca  @.@,564                                                                             7646:  7716           lca  @.@,564
 7625: 7717 out33     cw   680               return from loading xlink                                         7647:  7717 out33     cw   680               return from loading xlink
 7626: 7718           sbr  tclear,sys2                                                                         7648:  7718           sbr  tclear,sys2
 7627: 7719           sbr  initap&6,201                                                                        7649:  7719           sbr  initap&6,201
 7628: 7720           sbr  initxt&3,201                                                                        7650:  7720           sbr  initxt&3,201
 7629: 7721           sbr  bclear,xbegin                                                                       7651:  7721           sbr  bclear,xbegin
 7630: 7722           b    monter                                                                              7652:  7722           b    monter
 7631: 7723 bad       messg@correct errors and recompile@,28,j                                                 7653:  7723 bad       messg@correct errors and recompile@,28,j
 7632: 7724           b    out                                                                                 7654:  7724           b    out
 7633: 7725           ltorg*                                                                                   7655:  7725           ltorg*
 7634: 7726 sys2      dcw  @}@                           system group mark                                     7656:  7726 sys2      dcw  @}@                           system group mark
 7635: 7727           xfr  start                                                                               7657:  7727           xfr  start
 7636: 7728           job  1401 Fortran fixed xlink routine                       5061b                        7658:  7728           job  1401 Fortran fixed xlink routine                       5061b
 7637: 7729           sfx  #                   as in snapshots                                                 7659:  7729           sfx  #                   as in snapshots
 7638: 7730           org  333                                                                                 7660:  7730           org  333
 7639: 7731           h    333                                                                                 7661:  7731           h    333
 7640: 7732 start     mcw  86,xl2             x2 follows b700                                                  7662:  7732 start     mcw  86,xl2             x2 follows b700
 7641: 7733           cs   80                                                                                  7663:  7733           cs   80
 7642: 7734           bce  array,0&x2,$                                                                        7664:  7734           bce  array,0&x2,$
 7643: 7735 clear     cs   000                                                                                 7665:  7735 clear     cs   000
 7644: 7736           sbr  adr3                                                                                7666:  7736           sbr  adr3
 7645: 7737           c    adr3,@699@                                                                          7667:  7737           c    adr3,@699@
 7646: 7738           bu   clear                                                                               7668:  7738           bu   clear
 7647: 7739           sw   acchi-5&x3                                                                          7669:  7739           sw   acchi-5&x3
 7648: 7740           mz   acchi&x3,field                                                                      7670:  7740           mz   acchi&x3,field
 7649: 7741           c    field,acchi&x3                                                                      7671:  7741           c    field,acchi&x3
 7650: 7742           be   cards                                                                               7672:  7742           be   cards
 7651: 7743           bm   getm,acchi&x3                                                                       7673:  7743           bm   getm,acchi&x3
 7652: 7744           mz   zero,acchi&x3                                                                       7674:  7744           mz   zero,acchi&x3
 7653: 7745           c    699,acchi&x3                                                                        7675:  7745           c    699,acchi&x3
 7654: 7746           be   getm                                                                                7676:  7746           be   getm
 7655: 7747           sw   22                                                                                  7677:  7747           sw   22
 7656: 7748           mcw  gm,22                                                                               7678:  7748           mcw  gm,22
 7657: 7749 serch     rt   1,1                                                                                 7679:  7749 serch     rt   1,1
 7658: 7750           bef  out                                                                                 7680:  7750           bef  out
 7659: 7751           c    10,@lib@                                                                            7681:  7751           c    10,@lib@
 7660: 7752           bu   serch                                                                               7682:  7752           bu   serch
 7661: 7753           c    17,acchi&x3                                                                         7683:  7753           c    17,acchi&x3
 7662: 7754           be   t1                                                                                  7684:  7754           be   t1
 7663: 7755           b    serch                                                                               7685:  7755           b    serch
 7664: 7756 out       nop  cards                                                                               7686:  7756 out       nop  cards
 7665: 7757           mcw  333,out                                                                           | 7687:  7757           mcw  tperm,out                                       v3m4
 7666: 7758           rwd  1                                                                                   7688:  7758           rwd  1
 7667: 7759           b    serch                                                                               7689:  7759           b    serch
 7668: 7760 t1        lca  zeros,101                                                                           7690:  7760 t1        lca  zeros,101
 7669: 7761           lca  zeros                                                                               7691:  7761           lca  zeros
 7670: 7762           lca  zeros                                                                               7692:  7762           lca  zeros
 7671: 7763           rtw  1,333                                                                               7693:  7763           rtw  1,333
 7672: 7764           ber  err                                                                                 7694:  7764           ber  err
 7673: 7765           mcw  zero,ctrr                                                                           7695:  7765           mcw  zero,ctrr
 7674: 7766           sbr  tperm-1,t2                                                                          7696:  7766           sbr  tperm-1,t2
 7675: 7767 t2        rtw  1,700                                                                               7697:  7767 t2        rtw  1,700
 7676: 7768           ber  err                                                                                 7698:  7768           ber  err
 7677: 7769 tboot     b    000                from libed                                                       7699:  7769 tboot     b    000                from libed
 7678: 7770 err       a    one,ctrr                                                                            7700:  7770 err       a    one,ctrr
 7679: 7771           bce  tperm,ctrr,9                                                                        7701:  7771           bce  tperm,ctrr,9
 7680: 7772           bsp  1                                                                                   7702:  7772           bsp  1
 7681: 7773           b    t1                                                                                  7703:  7773           b    t1
 7682: 7774 tperm     h    tperm                                                                               7704:  7774 tperm     h    tperm
 7683: 7775 array     mcw  3&x2,adr3                                                                           7705:  7775 array     mcw  3&x2,adr3
 7684: 7776           mz   zero,adr3-1                                                                         7706:  7776           mz   zero,adr3-1
 7685: 7777           b    clear                                                                               7707:  7777           b    clear
 7686: 7778 cards     sw   1                                                                                   7708:  7778 cards     sw   1
 7687: 7779           r                                                                                        7709:  7779           r
 7688: 7780           bce  1,1,,                                                                               7710:  7780           bce  1,1,,
 7689: 7781           b    cards                                                                               7711:  7781           b    cards
 7690: 7782 getm      rwd  1                                                                                   7712:  7782 getm      rwd  1
 7691: 7783           rtw  1,1                                                                                 7713:  7783           rtw  1,1
 7692: 7784           b    1        execute monitor program                                                    7714:  7784           b    1        execute monitor program
 7693: 7785 adr3      equ  clear&3                                                                             7715:  7785 adr3      equ  clear&3
 7694: 7786 field     dcw  @000000@                                                                            7716:  7786 field     dcw  @000000@
 7695: 7787 zeros     equ  field-1                                                                             7717:  7787 zeros     equ  field-1
 7696: 7788 zero      equ  zeros-4                                                                             7718:  7788 zero      equ  zeros-4
 7697: 7789 ctrr      equ  zeros                                                                               7719:  7789 ctrr      equ  zeros
 7698: 7790 acchi     equ  279                                                                                 7720:  7790 acchi     equ  279
 7699: 7791           ltorg*                                                                                   7721:  7791           ltorg*
 7700: 7792           org  679                                                                                 7722:  7792           org  679
 7701: 7793 one       dcw  @1@                                                                                 7723:  7793 one       dcw  @1@
 7702: 7794 gm        dcw  @}@                 group mark in 680                                               7724:  7794 gm        dcw  @}@                 group mark in 680
 7703: 7795           xfr  out336                                                                              7725:  7795           xfr  out336
 7704: 7796           job  1401 Fortran geaux phase two                           50623                        7726:  7796           job  1401 Fortran geaux phase two                           50623
 7705: 7797           sfx  6                                                                                   7727:  7797           sfx  6
 7706: 7798 110       dcw  @geaux two@                                                                         7728:  7798 110       dcw  @geaux two@
 7707: 7799           org  201                                                                                 7729:  7799           org  201
 7708: 7800 yipee     bce  montor,montor,1                                                                     7730:  7800 yipee     bce  montor,montor,1
 7709: 7801 rtp       rtw  1,monter                                                                            7731:  7801 rtp       rtw  1,monter
 7710: 7802           ber  tperr                                                                               7732:  7802           ber  tperr
 7711: 7803           rwd  1                                                                                   7733:  7803           rwd  1
 7712: 7804 init      mcw  subscr,arsub                                                                        7734:  7804 init      mcw  subscr,arsub
 7713: 7805           cw   1696                                                                                7735:  7805           cw   1696
 7714: 7806           mcw  gotofn,func                                                                         7736:  7806           mcw  gotofn,func
 7715: 7807           mcw  parama&4,fixsz                                                                      7737:  7807           mcw  parama&4,fixsz
 7716: 7808           mcw  parama&6,fltsz                                                                      7738:  7808           mcw  parama&6,fltsz
 7717: 7809           cc   1                                                                                   7739:  7809           cc   1
 7718: 7810           bw   halt,failsw                                                                         7740:  7810           bw   halt,failsw
 7719: 7811           mcw  gogogo,x1                                                                           7741:  7811           mcw  gogogo,x1
 7720: 7812           h    0&x1                                                                                7742:  7812           h    0&x1
 7721: 7813 halt      h    *-3                                                                                 7743:  7813 halt      h    *-3
 7722: 7814 tperr     bsp  1                                                                                   7744:  7814 tperr     bsp  1
 7723: 7815           h    3333,3333                                                                           7745:  7815           h    3333,3333
 7724: 7816           b    rtp                                                                                 7746:  7816           b    rtp
 7725: 7817           dcw  0                                                                                   7747:  7817           dcw  0
 7726: 7818 func      equ  1330           change on reasm of ob arith out1-1                                   7748:  7818 func      equ  1330           change on reasm of ob arith out1-1
 7727: 7819 fixsz     equ  1536           change on reasm of ob arith xsize&6                                  7749:  7819 fixsz     equ  1536           change on reasm of ob arith xsize&6
 7728: 7820 fltsz     equ  837            change on reasm of ob arith fsize&6                                  7750:  7820 fltsz     equ  837            change on reasm of ob arith fsize&6
 7729: 7821 arsub     equ  1209           change on reasm of ob arith stsub&3                                  7751:  7821 arsub     equ  1209           change on reasm of ob arith stsub&3
 7730: 7822           ltorg*                                                                                   7752:  7822           ltorg*
 7731: 7823           dcw  @}@                           system group mark                                     7753:  7823           dcw  @}@                           system group mark
 7732: 7824           xfr  yipee                                                                               7754:  7824           xfr  yipee
 7733: 7825 *                                                                                                  7755:  7825 *
 7734: 7826 *         phase 63 goes here                                                                       7756:  7826 *         phase 63 goes here
 7735: 7827 *                                                                                                  7757:  7827 *
 7736: 7828           end  init                          the deed is done                                      7758:  7828           end  init                          the deed is done
