       5054.s                                                                                                        5054-v3m4.s
       ======                                                                                                        ===========
    1:  101           job  1401 Fortran  format package                           5054a                           1:   101           job  1401 Fortran  format package                           5054a
    2:  102           ctl  645 11                                                                                 2:   102           ctl  645 11
    3:  103           sfx  q                                                                                      3:   103           sfx  q
    4:  104 110       dcw  @formatpak@                                                                            4:   104 110       dcw  @formatpak@
    5:  105 x1        equ  089                                                                                    5:   105 x1        equ  089
    6:  106 x2        equ  094                                                                                    6:   106 x2        equ  094
    7:  107 x3        equ  099                                                                                    7:   107 x3        equ  099
    8:  108 parama    equ  686                                                                                    8:   108 parama    equ  686
    9:  109 monter    equ  700                                                                                    9:   109 monter    equ  700
   10:  110 tclear    equ  710                                                                                   10:   110 tclear    equ  710
   11:  111 montor    equ  769                                                                                   11:   111 montor    equ  769
   12:  112 startr    equ  934                                                                                   12:   112 startr    equ  934
   13:  113           org  startr                                                                                13:   113           org  startr
   14:  114 fomat     sw   gmwm,format                                                                           14:   114 fomat     sw   gmwm,format
   15:  115           bce  tpsys,montor,n      tape or card system                                               15:   115           bce  tpsys,montor,n      tape or card system
   16:  116 cdsys     bce  cdlio,parama&10,l   l#limited i/o                                                     16:   116 cdsys     bce  cdlio,parama&10,l   l#limited i/o
   17:  117 sklio     r                                                                                          17:   117 sklio     r
   18:  118           bce  ntest,68,b                                                                            18:   118           bce  ntest,68,b
   19:  119           b    sklio                                                                                 19:   119           b    sklio
   20:  120 ntest     bce  skfio,parama&10,x        x#no i/o                                                     20:   120 ntest     bce  skfio,parama&10,x        x#no i/o
   21:  121           r    040                                                                                   21:   121           r    040
   22:  122 cwfio     cw   gmk                                                                                   22:   122 cwfio     cw   gmk
   23:  123           c    parama&4,@01@                                                                         23:   123           c    parama&4,@01@
   24:  124           bu   atest                                                                                 24:   124           bu   atest
   25:  125           lca  @n@,cwmks                                                                             25:   125           lca  @n@,cwmks
   26:  126 atest     bce  cdaf,parama&10,a         a#a format                                                   26:   126 atest     bce  cdaf,parama&10,a         a#a format
   27:  127 skaio     r                                                                                          27:   127 skaio     r
   28:  128           bce  exita,68,b                                                                            28:   128           bce  exita,68,b
   29:  129           b    skaio                                                                                 29:   129           b    skaio
   30:  130 cdlio     r    040                                                                                   30:   130 cdlio     r    040
   31:  131 cwlio     cw   gpwdmk                                                                                31:   131 cwlio     cw   gpwdmk
   32:  132 skfio     r                                                                                          32:   132 skfio     r
   33:  133           bce  atest,68,b                                                                            33:   133           bce  atest,68,b
   34:  134           b    skfio                                                                                 34:   134           b    skfio
   35:  135 cdaf      r    040                                                                                   35:   135 cdaf      r    040
   36:  136 cwaf      cw   gm54d                                                                                 36:   136 cwaf      cw   gm54d
   37:  137           b    exita                                                                                 37:   137           b    exita
   38:  138 tpsys     bce  tplio,parama&10,l                                                                     38:   138 tpsys     bce  tplio,parama&10,l
   39:  139 skpl      rtw  1,gmwm                                                                                39:   139 skpl      rtw  1,gmwm
   40:  140           ber  tper                                                                                  40:   140           ber  tper
   41:  141           bce  skpf,parama&10,x                                                                      41:   141           bce  skpf,parama&10,x
   42:  142 fulio     rtw  1,format                                                                              42:   142 fulio     rtw  1,format
   43:  143           ber  tper                                                                                  43:   143           ber  tper
   44:  144           c    parama&4,@01@                                                                         44:   144           c    parama&4,@01@
   45:  145           bu   tstaf                                                                                 45:   145           bu   tstaf
   46:  146           lca  @n@,cwmks                                                                             46:   146           lca  @n@,cwmks
   47:  147 tstaf     bce  tpaf,parama&10,a                                                                      47:   147 tstaf     bce  tpaf,parama&10,a
   48:  148 skpaf     rtw  1,gmwm                                                                                48:   148 skpaf     rtw  1,gmwm
   49:  149           ber  tper                                                                                  49:   149           ber  tper
   50:  150 exita     fendxc,,,,,,gmwm,replace 2                                                                 50:   150 exita     fendxc,,,,,,gmwm,replace 2
   51:  151 tplio     rtw  1,format                                                                              51:   151 tplio     rtw  1,format
   52:  152           ber  tper                                                                                  52:   152           ber  tper
   53:  153 skpf      rtw  1,gmwm                                                                                53:   153 skpf      rtw  1,gmwm
   54:  154           ber  tper                                                                                  54:   154           ber  tper
   55:  155           b    skpaf                                                                                 55:   155           b    skpaf
   56:  156 tpaf      rtw  1,abegn                                                                               56:   156 tpaf      rtw  1,abegn
   57:  157           ber  tper                                                                                  57:   157           ber  tper
   58:  158           b    exita                                                                                 58:   158           b    exita
   59:  159 tper      sbr  bback&3                                                                               59:   159 tper      sbr  bback&3
   60:  160           ma   @i8g@,bback&3                                                                         60:   160           ma   @i8g@,bback&3
   61:  161           bsp  1                                                                                     61:   161           bsp  1
   62:  162           h    3333,3333                                                                             62:   162           h    3333,3333
   63:  163 bback     b    0                                                                                     63:   163 bback     b    0
   64:  164           ltorg*                                                                                     64:   164           ltorg*
   65:  165 gmwm      dcw  @}@                group mark                                                         65:   165 gmwm      dcw  @}@                group mark
   66:  166           xfr  fomat              next comes lio, then full i/o                                      66:   166           xfr  fomat              next comes lio, then full i/o
   67:  167           job  object time format                                     5054b                          67:   167           job  object time format                                     5054b
   68:  168           org  1697                                                                                  68:   168           org  1697
   69:  169 start     sbr  x1                                                                                    69:   169 start     sbr  x1
   70:  170           sw   gpwdmk                                                                                70:   170           sw   gpwdmk
   71:  171           cw   0&x1                                                                                  71:   171           cw   0&x1
   72:  172           mcw  x3,savx3#3         save x3                                                            72:   172           mcw  x3,savx3#3         save x3
   73:  173           lca  @001@,x3                                                                              73:   173           lca  @001@,x3
   74:  174           bwz  wrtap,0&x1,s       go to write tape on zone.                                          74:   174           bwz  wrtap,0&x1,s       go to write tape on zone.
   75:  175           mcw  @r@,io4&7          set read tape D modifier                                           75:   175           mcw  @r@,io4&7          set read tape D modifier
   76:  176 rdtap     mcw  6&x1,loc#3                                                                            76:   176 rdtap     mcw  6&x1,loc#3
   77:  177 io1       mcw  loc,io12&6                                                                            77:   177 io1       mcw  loc,io12&6
   78:  178 io12      bce  ret,000,.          . is end of list, return                                           78:   178 io12      bce  ret,000,.          . is end of list, return
   79:  179           ma   @006@,loc                                                                             79:   179           ma   @006@,loc
   80:  180           mcw  loc,io15&3                                                                            80:   180           mcw  loc,io15&3
   81:  181 io15      mcw  000,addr#6         addr is loc of data addr                                           81:   181 io15      mcw  000,addr#6         addr is loc of data addr
   82:  182           sw   addr-2                                                                                82:   182           sw   addr-2
   83:  183           ma   @001@,addr         addr is now loc of data addr &1                                    83:   183           ma   @001@,addr         addr is now loc of data addr &1
   84:  184           mcw  addr,io2&3                                                                            84:   184           mcw  addr,io2&3
   85:  185 io2       mcw  000,savch#1        save char after data area                                          85:   185 io2       mcw  000,savch#1        save char after data area
   86:  186           mcw  addr,io3&6                                                                            86:   186           mcw  addr,io3&6
   87:  187 io3       lca  gpwdmk,000         move gp mk wd mk to data addr &1                                   87:   187 io3       lca  gpwdmk,000         move gp mk wd mk to data addr &1
   88:  188           mcw  addr-3,io4&6       move first char addr of data                                       88:   188           mcw  addr-3,io4&6       move first char addr of data
   89:  189           mn   0&x1,io4&3         move tape no.                                                      89:   189           mn   0&x1,io4&3         move tape no.
   90:  190           s    count#1,count      clear read-error counter                                           90:   190           s    count#1,count      clear read-error counter
   91:  191           mz   @a@,io4&5                                                                             91:   191           mz   @a@,io4&5
   92:  192 io4       rtw  1,000                                                                                 92:   192 io4       rtw  1,000
   93:  193           bef  rwt78                                                                             <
   94:  194           ber  rwt31                                                                                 93:   194           ber  rwt31
   95:  195           mcw  addr,io5&6                                                                            94:   195           mcw  addr,io5&6
   96:  196 io5       mcw  savch,000          return char after data area                                        95:   196 io5       mcw  savch,000          return char after data area
   97:  197           ma   @001@,loc          step to next variable in list                                      96:   197           ma   @001@,loc          step to next variable in list
   98:  198           cw   addr-2                                                                                97:   198           cw   addr-2
                                                                                                             >   98:   1981          bef  rwt78                                           v3m4
                                                                                                             >   99:   1982          ma   @001@,loc                                       v3m4
   99:  199           b    io1                                                                                  100:   199           b    io1
  100:  200 ret       mcw  savx3,x3           restore x3                                                        101:   200 ret       mcw  savx3,x3           restore x3
  101:  201           sw   0&x1                                                                                 102:   201           sw   0&x1
  102:  202           b    7&x1                                                                                 103:   202           b    7&x1
  103:  203 wrtap     mcw  @w@,io4&7          set write tape D modifier                                         104:   203 wrtap     mcw  @w@,io4&7          set write tape D modifier
  104:  204           b    rdtap                                                                                105:   204           b    rdtap
  105:  205 rwt31     bce  rwt77,count,i      test read-error counter                                           106:   205 rwt31     bce  rwt77,count,i      test read-error counter
  106:  206           mn   io4&3,*&4                                                                            107:   206           mn   io4&3,*&4
  107:  207              ub%u0                backspace                                                         108:   207              ub%u0                backspace
  108:  208           bce  rwt41,io4&7,w                                                                        109:   208           bce  rwt41,io4&7,w
  109:  209           a    @1@,count          increase read-error counter                                       110:   209           a    @1@,count          increase read-error counter
  110:  210           b    io4                                                                                  111:   210           b    io4
  111:  211 rwt41     mn   io4&3,*&4                                                                            112:   211 rwt41     mn   io4&3,*&4
  112:  212              ue%u0                skip and erase                                                    113:   212              ue%u0                skip and erase
  113:  213           b    io4                                                                                  114:   213           b    io4
  114:  214 rwt77     h    *-6,777            tape-error                                                        115:   214 rwt77     h    *-6,777            tape-error
  115:  215 rwt78     h    *-6,888            end-of-file                                                       116:   215 rwt78     h    *-6,888            end-of-file
  116:  216           ltorg*                                                                                    117:   216           ltorg*
  117:  217           dcw  @ @                                                                                  118:   217           dcw  @ @
  118:  218 gpwdmk    dcw  @}@                group mark                                                        119:   218 gpwdmk    dcw  @}@                group mark
  119:  219           xfr  cwlio                                                                                120:   219           xfr  cwlio
  120:  220           job  object time format                                     5054c                         121:   220           job  object time format                                     5054c
  121:  221           org  1697                                                                                 122:   221           org  1697
  122:  222 format    sbr  x1                                                                                   123:   222 format    sbr  x1
  123:  223           mlc  0&x1,fmtzon        save i/o code                                                     124:   223           mlc  0&x1,fmtzon        save i/o code
  124:  224           mlc  *-6,io                                                                               125:   224           mlc  *-6,io
  125:  225           sbr  fmtxt&3, 7&x1           store exit from format routn                                 126:   225           sbr  fmtxt&3, 7&x1           store exit from format routn
  126:  226           mcw  6&x1,list&6                                                                          127:   226           mcw  6&x1,list&6
  127:  227           za   *-6,pctr     set scale factor to zero                                                128:   227           za   *-6,pctr     set scale factor to zero
  128:  228           cw   insw#1                                                                               129:   228           cw   insw#1
  129:  229           sw   gmk                                                                                  130:   229           sw   gmk
  130:  230           mcw  3&x1, xl2               mv addr of spec to x2                                        131:   230           mcw  3&x1, xl2               mv addr of spec to x2
  131:  231           sbr  x3, 200                 initilze wkarea ctr to lft                                   132:   231           sbr  x3, 200                 initilze wkarea ctr to lft
  132:  232           sbr  tumuch#3,334                                                                         133:   232           sbr  tumuch#3,334
  133:  233           bce  readc, 0&x1, &          read card                                                    134:   233           bce  readc, 0&x1, &          read card
  134:  234           bce  punch, 0&x1, -          punch card                                                   135:   234           bce  punch, 0&x1, -          punch card
  135:  235           bce  print, 0&x1, *          print line                                                   136:   235           bce  print, 0&x1, *          print line
  136:  236           bwz  rditp, 0&x1, k          read input tape                                              137:   236           bwz  rditp, 0&x1, k          read input tape
  137:  237           bwz  wt2,0&x1,b         write output tape                                                 138:   237           bwz  wt2,0&x1,b         write output tape
  138:  238           sbr  x2,rdrtb                set retrn for read tape                                      139:   238           sbr  x2,rdrtb                set retrn for read tape
  139:  239           cs   332                     clear wrk area for read tape                                 140:   239           cs   332                     clear wrk area for read tape
  140:  240           cs                           and write tape                                               141:   240           cs                           and write tape
  141:  241           cs                                                                                        142:   241           cs
  142:  242           sbr  x3,100                  set wkarea to 100                                            143:   242           sbr  x3,100                  set wkarea to 100
  143:  243           mlc  ell,io                                                                               144:   243           mlc  ell,io
  144:  244 loop2     sw   0&x3                                                                                 145:   244 loop2     sw   0&x3
  145:  245           b    getad                                                                                146:   245           b    getad
  146:  246           bwz  rditp,fmtzon,2          exit if read tape                                            147:   246           bwz  rditp,fmtzon,2          exit if read tape
  147:  247           sbr  buckt,100                                                                            148:   247           sbr  buckt,100
  148:  248 mvagn     mlc  0&x1,0&x3                                                                            149:   248 mvagn     mlc  0&x1,0&x3
  149:  249           sar  x2                                                                                   150:   249           sar  x2
  150:  250           b    sbrx3                                                                                151:   250           b    sbrx3
  151:  251           bw   *&5,1&x2                                                                             152:   251           bw   *&5,1&x2
  152:  252           b    mvagn                                                                                153:   252           b    mvagn
  153:  253           b    ckovf                   go ck if we are past 332                                     154:   253           b    ckovf                   go ck if we are past 332
  154:  254           sbr  outpt&3,tpcmnd                                                                       155:   254           sbr  outpt&3,tpcmnd
  155:  255           b    loop2                   go get nxt addrs of data                                     156:   255           b    loop2                   go get nxt addrs of data
  156:  256 out       b    ckovf                   go ck if we are past 332                                     157:   256 out       b    ckovf                   go ck if we are past 332
  157:  257           mlcwa0&x3,0&x1               mv data frm wrkarea to strge                                 158:   257           mlcwa0&x3,0&x1               mv data frm wrkarea to strge
  158:  258           b    getad                   go get nxt addr of data                                      159:   258           b    getad                   go get nxt addr of data
  159:  259 rdrtn     b    sbrx3                                                                                160:   259 rdrtn     b    sbrx3
  160:  260 rdrtb     bw   out,1&x3                                                                             161:   260 rdrtb     bw   out,1&x3
  161:  261           b    rdrtn                   no brnch to step ctr                                         162:   261           b    rdrtn                   no brnch to step ctr
  162:  262 fmain     sbr  outpt&3                 retrn fromm rd,pch,prt,rd-wtp                                163:   262 fmain     sbr  outpt&3                 retrn fromm rd,pch,prt,rd-wtp
  163:  263           mlc  x3,buckt#3                                                                           164:   263           mlc  x3,buckt#3
  164:  264           b    0&x2                    go process accrdng to format                                 165:   264           b    0&x2                    go process accrdng to format
  165:  265 getad     sbr  gtxt&3                                                                               166:   265 getad     sbr  gtxt&3
  166:  266           mlc  x2,save2&6              free x2 for list routine                                     167:   266           mlc  x2,save2&6              free x2 for list routine
  167:  267           bw   alrdy,lkhed                                                                          168:   267           bw   alrdy,lkhed
  168:  268 list         t oblist                                                                               169:   268 list         t oblist
  169:  269 mlbox     dcw  #3                                                                                   170:   269 mlbox     dcw  #3
  170:  270           sbr  x2                 end of oblst, array adres                                         171:   270           sbr  x2                 end of oblst, array adres
  171:  271 rmvzn     mz   nozn,x1-1                                                                            172:   271 rmvzn     mz   nozn,x1-1
  172:  272           bce  ntray,x1,.         entire array for write tape                                       173:   272           bce  ntray,x1,.         entire array for write tape
  173:  273           bce  undun,x1,           blank                                                            174:   273           bce  undun,x1,           blank
  174:  274 save2     sbr  x2, xxx                 restore x2                                                   175:   274 save2     sbr  x2, xxx                 restore x2
  175:  275 gtxt      b    xxx                                                                                  176:   275 gtxt      b    xxx
  176:  276 undun     bw   fmtxt,insw                                                                           177:   276 undun     bw   fmtxt,insw
  177:  277           c    buckt,x3                                                                             178:   277           c    buckt,x3
  178:  278           bu   ndlin                                                                                179:   278           bu   ndlin
  179:  279           b    fmtxt                                                                                180:   279           b    fmtxt
  180:  280 alrdy     cw   lkhed                                                                                181:   280 alrdy     cw   lkhed
  181:  281           mlc  save1,x1                                                                             182:   281           mlc  save1,x1
  182:  282           b    rmvzn                                                                                183:   282           b    rmvzn
  183:  283 ntray     mlc  2&x2,x3                 mv lft addr of array-1 to x3                                 184:   283 ntray     mlc  2&x2,x3                 mv lft addr of array-1 to x3
  184:  284           mlc  5&x2,x1                 mv right addr of array to x1                                 185:   284           mlc  5&x2,x1                 mv right addr of array to x1
  185:  285           mlc  1&x1,gmkhd#1            save char at righthand addr                                  186:   285           mlc  1&x1,gmkhd#1            save char at righthand addr
  186:  286           bw   *&5,1&x1                plus one and replace by gmk                                  187:   286           bw   *&5,1&x1                plus one and replace by gmk
  187:  287           cw   gmksw#1                 for reading or writing from                                  188:   287           cw   gmksw#1                 for reading or writing from
  188:  288 ell       mlcwagmk,1&x1                                                                             189:   288 ell       mlcwagmk,1&x1
  189:  289           b    sbrx3                                                                                190:   289           b    sbrx3
  190:  290           sbr  x2,arrtn                set return from i/o routine                                  191:   290           sbr  x2,arrtn                set return from i/o routine
  191:  291           bwz  rditp,fmtzon,2          go read tap e entire array                                   192:   291           bwz  rditp,fmtzon,2          go read tap e entire array
  192:  292           b    tpcmnd                                                                               193:   292           b    tpcmnd
  193:  293 arrtn     mlc  gmkhd,1&x1              return from read or write tp                                 194:   293 arrtn     mlc  gmkhd,1&x1              return from read or write tp
  194:  294           bw   fmtxt,gmksw             entire array- reset charactr                                 195:   294           bw   fmtxt,gmksw             entire array- reset charactr
  195:  295           cw   1&x1                    wheregmk was inserted                                        196:   295           cw   1&x1                    wheregmk was inserted
  196:  296           sw   gmksw                                                                                197:   296           sw   gmksw
  197:  297 fmtxt     b    xxx                egress                                                            198:   297 fmtxt     b    xxx                egress
  198:  298 fmtzon    dcw  @ @                                                                                  199:   298 fmtzon    dcw  @ @
  199:  299 sbrx3     sbr  sbrx3&14                                                                             200:   299 sbrx3     sbr  sbrx3&14
  200:  300           sbr  x3,1&x3                                                                              201:   300           sbr  x3,1&x3
  201:  301           b    0                                                                                    202:   301           b    0
  202:  302 opnpr     sbr  x2                      entry for lft paren in frmat                                 203:   302 opnpr     sbr  x2                      entry for lft paren in frmat
  203:  303           mn   0&x2                                                                                 204:   303           mn   0&x2
  204:  304           mn                                                                                        205:   304           mn
  205:  305           mn                                                                                        206:   305           mn
  206:  306           mn                                                                                        207:   306           mn
  207:  307           sar  repeat&3                                                                             208:   307           sar  repeat&3
  208:  308           mcw  2&x2, rtpa#3            mv nmbr of times routine is                                  209:   308           mcw  2&x2, rtpa#3            mv nmbr of times routine is
  209:  309           sbr  last1&3,3&x2                                                                         210:   309           sbr  last1&3,3&x2
  210:  310           b    decra                   to be executed to hld area                                   211:   310           b    decra                   to be executed to hld area
  211:  311 clspr     sbr  x2                      entry for right paren frm                                    212:   311 clspr     sbr  x2                      entry for right paren frm
  212:  312 decra     s    one,rtpa                                                                             213:   312 decra     s    one,rtpa
  213:  313           bm   0&x2, rtpa              have finished this set of                                    214:   313           bm   0&x2, rtpa              have finished this set of
  214:  314 last1     b    xxx                                                                                  215:   314 last1     b    xxx
  215:  315 ndlin     sbr  x2                      entry for / in format routin                                 216:   315 ndlin     sbr  x2                      entry for / in format routin
  216:  316           mlc  buckt,x3                                                                             217:   316           mlc  buckt,x3
  217:  317 outpt     b    xxx                                                                                  218:   317 outpt     b    xxx
  218:  318 eoj1      bw   nopsw,insw                                                                           219:   318 eoj1      bw   nopsw,insw
  219:  319           c    buckt,x3                                                                             220:   319           c    buckt,x3
  220:  320           bu   ndlin                                                                                221:   320           bu   ndlin
  221:  321 nopsw     mlc  list&6,*&7                                                                           222:   321 nopsw     mlc  list&6,*&7
  222:  322           bce  nopbr,0,,                                                                            223:   322           bce  nopbr,0,,
  223:  323           mlc  list&6,*&7                                                                           224:   323           mlc  list&6,*&7
  224:  324              t oblist                                                                               225:   324              t oblist
  225:  325 ejbox     dcw  #3                                                                                   226:   325 ejbox     dcw  #3
  226:  326           bce  fmtxt,x1,                                                                            227:   326           bce  fmtxt,x1,
  227:  327           mlc  ejbox,mlbox                                                                          228:   327           mlc  ejbox,mlbox
  228:  328           mlc  x1,save1#3                                                                           229:   328           mlc  x1,save1#3
  229:  329           sw   lkhed                                                                                230:   329           sw   lkhed
  230:  330 nopbr     bw   ndlin,insw              go get new rcd if input                                      231:   330 nopbr     bw   ndlin,insw              go get new rcd if input
  231:  331 repeat    b    xxx                                                                                  232:   331 repeat    b    xxx
  232:  332 scale     sbr  x2                                                                                   233:   332 scale     sbr  x2
  233:  333           za   2&x2,pctr               save scaling factor                                          234:   333           za   2&x2,pctr               save scaling factor
  234:  334           b    3&x2                    return to format spec                                        235:   334           b    3&x2                    return to format spec
  235:  335 pctr      dcw  &000                                                                                 236:   335 pctr      dcw  &000
  236:  336 hollr     sbr  x2                                                                                   237:   336 hollr     sbr  x2
  237:  337 testh     bw   holin,insw                                                                           238:   337 testh     bw   holin,insw
  238:  338 hlout     mlc  0&x2,0&x3                                                                            239:   338 hlout     mlc  0&x2,0&x3
  239:  339 holin     mlc  0&x3,0&x2                                                                            240:   339 holin     mlc  0&x3,0&x2
  240:  340           b    sbrx3                                                                                241:   340           b    sbrx3
  241:  341           sbr  x2,1&x2                                                                              242:   341           sbr  x2,1&x2
  242:  342           bw   *&5,0&x2                                                                             243:   342           bw   *&5,0&x2
  243:  343           b    testh                                                                                244:   343           b    testh
  244:  344           b    ckovf                                                                                245:   344           b    ckovf
  245:  345           b    0&x2                                                                                 246:   345           b    0&x2
  246:  346 getw      sbr  x2                                                                                   247:   346 getw      sbr  x2
  247:  347           mcw  3&x2, rptb#3                                                                         248:   347           mcw  3&x2, rptb#3
  248:  348 dcrpb     s    one,rptb                                                                             249:   348 dcrpb     s    one,rptb
  249:  349           bwz  gtrtn,rptb,b                                                                         250:   349           bwz  gtrtn,rptb,b
  250:  350           bce  7&x2,0&x2,i                                                                          251:   350           bce  7&x2,0&x2,i
  251:  351           bce  7&x2,0&x2,a                                                                          252:   351           bce  7&x2,0&x2,a
  252:  352           b    10&x2                                                                                253:   352           b    10&x2
  253:  353 gtrtn     b    getad                                                                                254:   353 gtrtn     b    getad
  254:  354           afixws,fixwd                                                                              255:   354           afixws,fixwd
  255:  355 efntn     afltwsw,fltwd,-1                                                                          256:   355 efntn     afltwsw,fltwd,-1
  256:  356           bw   inefi, insw                                                                          257:   356           bw   inefi, insw
  257:  357           cs   24                                                                                   258:   357           cs   24
  258:  358           sw   0&x3                                                                                 259:   358           sw   0&x3
  259:  359           mn                                                                                        260:   359           mn
  260:  360           sbr  x3                                                                                   261:   360           sbr  x3
  261:  361           sbr  joe4&3,2&x3                                                                          262:   361           sbr  joe4&3,2&x3
  262:  362           sbr  fins&3                                                                               263:   362           sbr  fins&3
  263:  363           sw   001                                                                                  264:   363           sw   001
  264:  364           bce  inotn, 0&x2, i                                                                       265:   364           bce  inotn, 0&x2, i
  265:  365           bce  aout,0&x2,a                                                                          266:   365           bce  aout,0&x2,a
  266:  366 efout     bfltwmlc,@0|0@,fltwd                                                                      267:   366 efout     bfltwmlc,@0|0@,fltwd
  267:  367           mcw                                                                                       268:   367           mcw
  268:  368           sbr  xl1                                                                                  269:   368           sbr  xl1
  269:  369           sw   0&x1                                                                                 270:   369           sw   0&x1
  270:  370           a    wd, xl3                                                                              271:   370           a    wd, xl3
  271:  371           sbr  fins-1,2&x3                                                                          272:   371           sbr  fins-1,2&x3
  272:  372           mlc  @0.0@                                                                                273:   372           mlc  @0.0@
  273:  373           sw   2&x3                                                                                 274:   373           sw   2&x3
  274:  374           bce  efti,1&x1,0                                                                          275:   374           bce  efti,1&x1,0
  275:  375           bfltwbwz,fovfl,fltwd,-2,2                                                                 276:   375           bfltwbwz,fovfl,fltwd,-2,2
  276:  376 efti      bce  *&12,0&x2,e                                                                          277:   376 efti      bce  *&12,0&x2,e
  277:  377           bfltwa,pctr,fltwd                                                                         278:   377           bfltwa,pctr,fltwd
  278:  378           b    *&8                                                                                  279:   378           b    *&8
  279:  379           bfltws,pctr,fltwd                                                                         280:   379           bfltws,pctr,fltwd
  280:  380           afltwmlns,fltwd,,econ                                                                     281:   380           afltwmlns,fltwd,,econ
  281:  381           mn                                                                                        282:   381           mn
  282:  382           afltwmlc,fltwd                                                                            283:   382           afltwmlc,fltwd
  283:  383           bce  ftyp,0&x2,f                                                                          284:   383           bce  ftyp,0&x2,f
  284:  384           c    econ,zero4-2                                                                         285:   384           c    econ,zero4-2
  285:  385           be   *&9                                                                                  286:   385           be   *&9
  286:  386           bwz  *&8,econ-2,k                                                                         287:   386           bwz  *&8,econ-2,k
  287:  387           mlzs nozn,econ-2                                                                          288:   387           mlzs nozn,econ-2
  288:  388           bfltwza,pctr,fltwd                                                                        289:   388           bfltwza,pctr,fltwd
  289:  389 upx1      afltwmlns,fltwd,,*&8                                                                      290:   389 upx1      afltwmlns,fltwd,,*&8
  290:  390           mn                                                                                        291:   390           mn
  291:  391           sbr  x1, xxx&x1                                                                           292:   391           sbr  x1, xxx&x1
  292:  392           za   837,point     change if arith reassembled                                            293:   392           za   837,point     change if arith reassembled
  293:  393           s    doprt,point                                                                          294:   393           s    doprt,point
  294:  394           bfltwc,point,fltwd                                                                        295:   394           bfltwc,point,fltwd
  295:  395           bh   integ                                                                                296:   395           bh   integ
  296:  396           b    ok1                                                                                  297:   396           b    ok1
  297:  397 fovfl     mlc  @ x @,2&x3                                                                           298:   397 fovfl     mlc  @ x @,2&x3
  298:  398           mlc                                                                                       299:   398           mlc
  299:  399           sbr  x3,2&x3                                                                              300:   399           sbr  x3,2&x3
  300:  400           sbr  finsi-1                                                                              301:   400           sbr  finsi-1
  301:  401           a    d, x3                                                                                302:   401           a    d, x3
  302:  402           b    cwmks                                                                                303:   402           b    cwmks
  303:  403 ftyp      bm   negx,econ-2                                                                          304:   403 ftyp      bm   negx,econ-2
  304:  404           c    wd, econ                                                                             305:   404           c    wd, econ
  305:  405           bl   upx1                                                                                 306:   405           bl   upx1
  306:  406           b    fovfl                                                                                307:   406           b    fovfl
  307:  407 integ     s    23                                                                                   308:   407 integ     s    23
  308:  408           afixwmcm,fixwd,&1,001                                                                     309:   408           afixwmcm,fixwd,&1,001
  309:  409           mlc  zero4                                                                                310:   409           mlc  zero4
  310:  410           mz                                                                                        311:   410           mz
  311:  411           mlc  econ,x1                                                                              312:   411           mlc  econ,x1
  312:  412           mlc  zero4-3                                                                              313:   412           mlc  zero4-3
  313:  413           mlc  gmk,3&x1                                                                             314:   413           mlc  gmk,3&x1
  314:  414           b    ok1                                                                                  315:   414           b    ok1
  315:  415 negx      mz   nozn,0&x1                                                                            316:   415 negx      mz   nozn,0&x1
  316:  416           c    d,econ                                                                               317:   416           c    d,econ
  317:  417           bu   brhi                                                                                 318:   417           bu   brhi
  318:  418           afixwc,fixwd,&1,five                                                                      319:   418           afixwc,fixwd,&1,five
  319:  419 brhi      bh   mvdat                                                                                320:   419 brhi      bh   mvdat
  320:  420 ok1       afltwmlzs,fltwd,-2,@0|0@                                                                  321:   420 ok1       afltwmlzs,fltwd,-2,@0|0@
  321:  421           b    mvdat                                                                                322:   421           b    mvdat
  322:  422 ckovf     sbr  ovfex&3                                                                              323:   422 ckovf     sbr  ovfex&3
  323:  423           c    tumuch,x3                                                                            324:   423           c    tumuch,x3
  324:  424           bl   ovfex                                                                                325:   424           bl   ovfex
  325:  425           nop  3700                                                                                 326:   425           nop  3700
  326:  426           h                                                                                         327:   426           h
  327:  427 ovfex     b    xxx                                                                                  328:   427 ovfex     b    xxx
  328:  428 inotn     bfixwmlc,@0|0@,fixwd                                                                      329:   428 inotn     bfixwmlc,@0|0@,fixwd
  329:  429           a    w, xl3                                                                               330:   429           a    w, xl3
  330:  430           mcw  w, xl1                                                                               331:   430           mcw  w, xl1
  331:  431           afixwza,fixwd,,@0|0@                                                                      332:   431           afixwza,fixwd,,@0|0@
  332:  432           b    sbrx3                                                                                333:   432           b    sbrx3
  333:  433 mvdat     mcs  0&x1,0&x3                                                                            334:   433 mvdat     mcs  0&x1,0&x3
  334:  434           sbr  save&6                                                                               335:   434           sbr  save&6
  335:  435           mlns 0&x1,0&x3                                                                            336:   435           mlns 0&x1,0&x3
  336:  436           sbr  mcs&3,0&x3                                                                           337:   436           sbr  mcs&3,0&x3
  337:  437           sbr  finsi-1                                                                              338:   437           sbr  finsi-1
  338:  438 joe4      sw   xxx                                                                                  339:   438 joe4      sw   xxx
  339:  439           bwz  back,0&x1,k                                                                          340:   439           bwz  back,0&x1,k
  340:  440           b    save                                                                                 341:   440           b    save
  341:  441 back      bce  exit,0&x3,       blank                                                               342:   441 back      bce  exit,0&x3,       blank
  342:  442           sbr  x3                                                                                   343:   442           sbr  x3
  343:  443           bw   save,1&x3       no room for sign                                                     344:   443           bw   save,1&x3       no room for sign
  344:  444           b    back                                                                                 345:   444           b    back
  345:  445 exit      mlzs minus,0&x3                                                                           346:   445 exit      mlzs minus,0&x3
  346:  446           sw   1&x3                                                                                 347:   446           sw   1&x3
  347:  447           sbr  finsi-1,1&x3                                                                         348:   447           sbr  finsi-1,1&x3
  348:  448 save      sbr  x3,111   dummy address                                                               349:   448 save      sbr  x3,111   dummy address
  349:  449           bce  fins,0&x2,i                                                                          350:   449           bce  fins,0&x2,i
  350:  450           a    d,x3                                                                                 351:   450           a    d,x3
  351:  451           bce  jumpf,0&x2,f                                                                         352:   451           bce  jumpf,0&x2,f
  352:  452           mlns 0&x3                                                                                 353:   452           mlns 0&x3
  353:  453           mlns                                                                                      354:   453           mlns
  354:  454           mlns                                                                                      355:   454           mlns
  355:  455           mlns                                                                                      356:   455           mlns
  356:  456           sbr  x3                                                                                   357:   456           sbr  x3
  357:  457 jumpf     sbr  ovr1&6,1&x3                                                                          358:   457 jumpf     sbr  ovr1&6,1&x3
  358:  458           s    1&x3                                                                                 359:   458           s    1&x3
  359:  459           mlns                                                                                      360:   459           mlns
  360:  460           sar  x3                                                                                   361:   460           sar  x3
  361:  461           bce  mdig,0&x2,e                                                                          362:   461           bce  mdig,0&x2,e
  362:  462           bwz  mdig,econ-2,b                                                                        363:   462           bwz  mdig,econ-2,b
  363:  463           c    d,econ                                                                               364:   463           c    d,econ
  364:  464           bh   ovr1                                                                                 365:   464           bh   ovr1
  365:  465           a    econ,x3                                                                              366:   465           a    econ,x3
  366:  466 mdig      bce  ovr1,3&x1,}      gmk                                                                 367:   466 mdig      bce  ovr1,3&x1,}      gmk
  367:  467           mlns 1&x1,2&x3                                                                            368:   467           mlns 1&x1,2&x3
  368:  468           sbr  x1,1&x1                                                                              369:   468           sbr  x1,1&x1
  369:  469           bwz  ovr1,2&x3,b                                                                          370:   469           bwz  ovr1,2&x3,b
  370:  470           sbr  x3                                                                                   371:   470           sbr  x3
  371:  471           b    mdig                                                                                 372:   471           b    mdig
  372:  472 ovr1      sbr  x3,xxx                                                                               373:   472 ovr1      sbr  x3,xxx
  373:  473           bav  *&1                                                                                  374:   473           bav  *&1
  374:  474           a    econ-3,0&x3                                                                          375:   474           a    econ-3,0&x3
  375:  475           mlc  nozn,0&x3                                                                            376:   475           mlc  nozn,0&x3
  376:  476           bce  cwmks-5,0&x2,f                                                                       377:   476           bce  cwmks-5,0&x2,f
  377:  477           sbr  x3,4&x3                                                                              378:   477           sbr  x3,4&x3
  378:  478           mlns 0&x3                                                                                 379:   478           mlns 0&x3
  379:  479           mcw  econ                                                                                 380:   479           mcw  econ
  380:  480           mz                                                                                        381:   480           mz
  381:  481           mcw                                                                                       382:   481           mcw
  382:  482           bav  arrav                                                                                383:   482           bav  arrav
  383:  483 cwmks     afixwcw,fixwd                                                                             384:   483 cwmks     afixwcw,fixwd
  384:  484           cw   xxx                                                                                  385:   484           cw   xxx
  385:  485 fins      cw   000                                                                                  386:   485 fins      cw   000
  386:  486           cw   xxx                                                                                  387:   486           cw   xxx
  387:  487 finsi     afixwsw,fixwd,&1                                                                          388:   487 finsi     afixwsw,fixwd,&1
  388:  488           b    ckovf                                                                                389:   488           b    ckovf
  389:  489           b    dcrpb                                                                                390:   489           b    dcrpb
  390:  490 arrav     mlc  fins-1,x1                                                                            391:   490 arrav     mlc  fins-1,x1
  391:  491           mlzs nozn,0&x1                                                                            392:   491           mlzs nozn,0&x1
  392:  492           mlc                                                                                       393:   492           mlc
  393:  493           a                                                                                         394:   493           a
  394:  494           bav  ovr9s                                                                                395:   494           bav  ovr9s
  395:  495 mcs       mcs  0                                                                                    396:   495 mcs       mcs  0
  396:  496           b    cwmks                                                                                397:   496           b    cwmks
  397:  497 ovr9s     mn   0&x1                                                                                 398:   497 ovr9s     mn   0&x1
  398:  498           c                                                                                         399:   498           c
  399:  499           mn                                                                                        400:   499           mn
  400:  500           sbr  x1                                                                                   401:   500           sbr  x1
  401:  501           c    fins&3,x1                                                                            402:   501           c    fins&3,x1
  402:  502           bl   clear                                                                                403:   502           bl   clear
  403:  503           sw   0&x1                                                                                 404:   503           sw   0&x1
  404:  504           mlc  1&x1,0&x1                                                                            405:   504           mlc  1&x1,0&x1
  405:  505           cw                                                                                        406:   505           cw
  406:  506           mcw  one,1&x1                                                                          |  407:   5061          lca  @10@,2&x1                                       v3m4
                                                                                                             >  408:   5062          cw   1&x1                                            v3m4
  407:  507           b    cwmks                                                                                409:   507           b    cwmks
  408:  508 clear     mlc  1&x3,0&x3                                                                            410:   508 clear     mlc  1&x3,0&x3
  409:  509           mlc                                                                                       411:   509           mlc
  410:  510           mlc                                                                                       412:   510           mlc
  411:  511           mlc  @ x @,3&x1                                                                           413:   511           mlc  @ x @,3&x1
  412:  512           b    cwmks                                                                                414:   512           b    cwmks
  413:  513           dcw  1                                                                                    415:   513           dcw  1
  414:  514           dcw  @.@                                                                                  416:   514           dcw  @.@
  415:  515 nozn      dcw  @ @                                                                                  417:   515 nozn      dcw  @ @
  416:  516 zero4     dcw  0000                                                                                 418:   516 zero4     dcw  0000
  417:  517 ini       mlc  x1,x3                                                                                419:   517 ini       mlc  x1,x3
  418:  518           mlzs zaflt,*&8                                                                            420:   518           mlzs zaflt,*&8
  419:  519           bfixwmlns,@0?0@,fixwd,&1                                                                  421:   519           bfixwmlns,@0?0@,fixwd,&1
  420:  520           za                                                                                        422:   520           za
  421:  521           mlc  urzro&6,x1                                                                           423:   521           mlc  urzro&6,x1
  422:  522           afixwmlcwa,fixwd,,@0|0@                                                                   424:   522           afixwmlcwa,fixwd,,@0|0@
  423:  523           b    mrwm                                                                                 425:   523           b    mrwm
  424:  524 hltgo     nop  4002                                                                                 426:   524 hltgo     nop  4002
  425:  525           h                                                                                         427:   525           h
  426:  526 rditp     sw   insw                                                                                 428:   526 rditp     sw   insw
  427:  527 rd2       cs   332                                                                                  429:   527 rd2       cs   332
  428:  528           cs                                                                                        430:   528           cs
  429:  529           b    tpcmnd                                                                               431:   529           b    tpcmnd
  430:  530 cmbck     bef  hltgo                                                                                432:   530 cmbck     bef  hltgo
  431:  531           bce  tpcmnd,12&x3,}      gm                                                               433:   531           bce  tpcmnd,12&x3,}      gm
  432:  532           chain12                                                                                   434:   532           chain12
  433:  533           b    fmain                                                                                435:   533           b    fmain
  434:  534           b    rd2                                                                                  436:   534           b    rd2
  435:  535 wtm       mlns fmtzon,*&4                                                                           437:   535 wtm       mlns fmtzon,*&4
  436:  536           wtm  0                                                                                    438:   536           wtm  0
  437:  537           nop  4003                                                                                 439:   537           nop  4003
  438:  538           h                                                                                         440:   538           h
  439:  539 wt2       cs   332                                                                                  441:   539 wt2       cs   332
  440:  540           cs                                                                                        442:   540           cs
  441:  541           b    fmain                                                                                443:   541           b    fmain
  442:  542 tpcmnd    mlns fmtzon,io&3                                                                          444:   542 tpcmnd    mlns fmtzon,io&3
  443:  543           mlc  @r@,io&7                                                                             445:   543           mlc  @r@,io&7
  444:  544           za   @r@,point                                                                            446:   544           za   @r@,point
  445:  545           bw   svgmk,insw                                                                           447:   545           bw   svgmk,insw
  446:  546           mlc  @w@,io&7                                                                             448:   546           mlc  @w@,io&7
  447:  547           a    &41,point                                                                            449:   547           a    &41,point
  448:  548 svgmk     mlcwagmk,333                                                                              450:   548 svgmk     mlcwagmk,333
  449:  549 io        rt   0,0&x3                                                                               451:   549 io        rt   0,0&x3
  450:  550           mlcwaformat,333                                                                           452:   550           mlcwaformat,333
  451:  551           ber  tperr                                                                                453:   551           ber  tperr
  452:  552           bce  cmbck,io&7,r                                                                         454:   552           bce  cmbck,io&7,r
  453:  553           bef  wtm                                                                                  455:   553           bef  wtm
  454:  554           b    wt2                                                                                  456:   554           b    wt2
  455:  555 print     cs   333                                                                                  457:   555 print     cs   333
  456:  556           cs                                                                                        458:   556           cs
  457:  557           b    fmain                                                                                459:   557           b    fmain
  458:  558 przro     bce  doprt,200,          blank                                                            460:   558 przro     bce  doprt,200,          blank
  459:  559           bce  space, 200, 0                                                                        461:   559           bce  space, 200, 0
  460:  560           mn   200, *&2                                                                             462:   560           mn   200, *&2
  461:  561           cc   0                                                                                    463:   561           cc   0
  462:  562 doprt     w                                                                                         464:   562 doprt     w
  463:  563           bcv  *&5                                                                                  465:   563           bcv  *&5
  464:  564           b    print                                                                                466:   564           b    print
  465:  565           ccb  print,1                                                                              467:   565           ccb  print,1
  466:  566 space     ccb  doprt,j                                                                              468:   566 space     ccb  doprt,j
  467:  567 punch     mlc  @281@,tumuch                                                                         469:   567 punch     mlc  @281@,tumuch
  468:  568           cs   fmain,285                                                                            470:   568           cs   fmain,285
  469:  569           sw   200                                                                                  471:   569           sw   200
  470:  570           lca  279,180                                                                              472:   570           lca  279,180
  471:  571           p                                                                                         473:   571           p
  472:  572           ssb  punch,4                                                                              474:   572           ssb  punch,4
  473:  573 readc     cs   80                                                                                   475:   573 readc     cs   80
  474:  574           mlc  @281@,tumuch                                                                         476:   574           mlc  @281@,tumuch
  475:  575           sw   1, insw                                                                              477:   575           sw   1, insw
  476:  576 one       r                                                                                         478:   576 one       r
  477:  577           lca  80,279                                                                               479:   577           lca  80,279
  478:  578           ssb  fmain,1                                                                              480:   578           ssb  fmain,1
  479:  579           b    readc                                                                                481:   579           b    readc
  480:  580 tperr     mlns fmtzon,bsptp&3                                                                       482:   580 tperr     mlns fmtzon,bsptp&3
  481:  581           mlns fmtzon,skp&3                                                                         483:   581           mlns fmtzon,skp&3
  482:  582 bsptp     bsp  0                                                                                    484:   582 bsptp     bsp  0
  483:  583           bce  *&6,io&7,r                                                                           485:   583           bce  *&6,io&7,r
  484:  584 skp       skp  0                                                                                    486:   584 skp       skp  0
  485:  585           s    one,point                                                                            487:   585           s    one,point
  486:  586           bwz  svgmk,point,b                                                                        488:   586           bwz  svgmk,point,b
  487:  587           nop  1111                                                                                 489:   587           nop  1111
  488:  588           h                                                                                         490:   588           h
  489:  589           b    tpcmnd                                                                               491:   589           b    tpcmnd
  490:  590           dcw  @e@                                                                                  492:   590           dcw  @e@
  491:  591           dcw  @ @                                                                                  493:   591           dcw  @ @
  492:  592 econ      dcw  00                                                                                   494:   592 econ      dcw  00
  493:  593 inefi     sw   0&x3                                                                                 495:   593 inefi     sw   0&x3
  494:  594           mlc  x1,urzro&6                                                                           496:   594           mlc  x1,urzro&6
  495:  595           mlc  x3,x1                                                                                497:   595           mlc  x3,x1
  496:  596           a    wd,x1                                                                                498:   596           a    wd,x1
  497:  597           bce  outq,0&x2,i                                                                          499:   597           bce  outq,0&x2,i
  498:  598           bce  outqa,0&x2,a                                                                         500:   598           bce  outqa,0&x2,a
  499:  599           a    d,x1                                                                                 501:   599           a    d,x1
  500:  600 outq      sw   0&x1                                                                                 502:   600 outq      sw   0&x1
  501:  601           sbr  mrwm&3,0&x1                                                                          503:   601           sbr  mrwm&3,0&x1
  502:  602           afltws,fltwd                                                                              504:   602           afltws,fltwd
  503:  603           s                                                                                         505:   603           s
  504:  604 scnbl     bce  blank, 0&x3,          blank                                                       |  506:   6031          bfltwmlzs,nozn,fltwd,-2                              v3m4
  505:  605           mlzs minus,zaflt                                                                       |  507:   6032scnbl     mlzs plus4,zaflt                                     v3m4
  506:  606           bce  kill,0&x3,-                                                                       |  508:   6044          bce  blank, 0&x3,          blank                     v3m4
  507:  607           bce  kill,0&x3,@                                                                       |  509:   6054          bce  minus,0&x3,-                                    v3m4
  508:  608 minus     zs   zaflt                                                                             |  510:   6064          bce  minus,0&x3,@          4-8                       v3m4
                                                                                                             >  511:   608           zs   zaflt                                           v3m4
  509:  609           bce  kill,0&x3,&                                                                          512:   609           bce  kill,0&x3,&
  510:  610           b    mv2wk                                                                                513:   610           b    mv2wk
  511:  611 blank     bw   urzro-8,1&x3                                                                         514:   611 blank     bw   urzro-8,1&x3
  512:  612           b    sbrx3                                                                                515:   612           b    sbrx3
  513:  613           b    scnbl                                                                                516:   613           b    scnbl
                                                                                                             >  517:   6131minus     zs   zaflt                                           v3m4
  514:  614 kill      sw   1&x3                                                                                 518:   614 kill      sw   1&x3
  515:  615           b    sbrx3                                                                             |  519:   6154plus4     b    sbrx3                                           v3m4
  516:  616 mv2wk     bce  ini, 0&x2, i                                                                         520:   616 mv2wk     bce  ini, 0&x2, i
  517:  617           bfixwsbr,089,fixwd,-1                                                                     521:   617           bfixwsbr,089,fixwd,-1
  518:  618           bfltwmlzs,nozn,fltwd,-2                                                                   522:   618           bfltwmlzs,nozn,fltwd,-2
  519:  619           cw   sigsw#1,swb#1                                                                        523:   619           cw   sigsw#1,swb#1
  520:  620           cw   swa#1                                                                                524:   620           cw   swa#1
  521:  621           s    xpn                                                                                  525:   621           s    xpn
  522:  622           bce  abegn,0&x2,a                                                                         526:   622           bce  abegn,0&x2,a
  523:  623           b    lewp2                                                                                527:   623           b    lewp2
  524:  624 pynt1     sbr  point,0&x3                                                                           528:   624 pynt1     sbr  point,0&x3
  525:  625           sw   swa                                                                                  529:   625           sw   swa
  526:  626           bw   lewp, sigsw        q. data not fractional                                            530:   626           bw   lewp, sigsw        q. data not fractional
  527:  627           sbr  point, 1&x3                                                                          531:   627           sbr  point, 1&x3
  528:  628 lewp      bw   ovr,1&x3                                                                             532:   628 lewp      bw   ovr,1&x3
  529:  629           bce  ovr,1&x3,           blank                                                            533:   629           bce  ovr,1&x3,           blank
  530:  630           b    sbrx3                                                                                534:   630           b    sbrx3
  531:  631 lewp2     bce  pynt1,0&x3,.                                                                         535:   631 lewp2     bce  pynt1,0&x3,.
  532:  632           c    0&x3,zero4-3                                                                         536:   632           c    0&x3,zero4-3
  533:  633           bl   mvdig                                                                                537:   633           bl   mvdig
  534:  634           bh   qftyp                                                                                538:   634           bh   qftyp
  535:  635           bw   mvdig, sigsw       q. significant zero                                               539:   635           bw   mvdig, sigsw       q. significant zero
  536:  636           b    lewp                                                                                 540:   636           b    lewp
  537:  637 qftyp     bce  fhlt,0&x2,f                                                                          541:   637 qftyp     bce  fhlt,0&x2,f
  538:  638           sbr  end,4&x3                                                                             542:   638           sbr  end,4&x3
  539:  639           mlzs plus,zaexp                                                                           543:   639           mlzs plus,zaexp
  540:  640           bce  proce, 0&x3, e                                                                       544:   640           bce  proce, 0&x3, e
  541:  641 zond      mz   0&x3, zaexp                                                                          545:   641 zond      mz   0&x3, zaexp
  542:  642           fbceqgrab, 0&x3, &,-                                                                      546:   642           fbceqgrab, 0&x3, &,-
  543:  643 fhlt      nop  1121                    error halt  data is wrong                                    547:   643 fhlt      nop  1121                    error halt  data is wrong
  544:  644           h                            mode                                                         548:   644           h                            mode
  545:  645 plus      b    fhlt                                                                                 549:   645 plus      b    fhlt
  546:  646 proce     bwz  here,1&x3,2                                                                          550:   646 proce     bwz  here,1&x3,2
  547:  647           b    sbrx3                                                                                551:   647           b    sbrx3
  548:  648           b    zond                                                                                 552:   648           b    zond
  549:  649 here      bce  *&5,1&x3,           blank                                                            553:   649 here      bce  *&5,1&x3,           blank
  550:  650           b    *&5                                                                                  554:   650           b    *&5
  551:  651           b    sbrx3                                                                                555:   651           b    sbrx3
  552:  652 grab      sw   1&x3                                                                                 556:   652 grab      sw   1&x3
  553:  653 mv2wm     bw   zaexp, 2&x3                                                                          557:   653 mv2wm     bw   zaexp, 2&x3
  554:  654           bce  zaexp,2&x3,         blank                                                            558:   654           bce  zaexp,2&x3,         blank
  555:  655           sbr  x3                                                                                   559:   655           sbr  x3
  556:  656 zaexp     za   1&x3, xpn                                                                            560:   656 zaexp     za   1&x3, xpn
  557:  657           b    zaflt                                                                                561:   657           b    zaflt
  558:  658 ovr       bce  fhlt, 0&x2, e                                                                        562:   658 ovr       bce  fhlt, 0&x2, e
  559:  659           sbr  end, 1&x3                                                                            563:   659           sbr  end, 1&x3
  560:  660 zaflt     afltwza,fltwd,-2                                                                          564:   660 zaflt     afltwza,fltwd,-2
  561:  661           bw   *&5, sigsw                                                                           565:   661           bw   *&5, sigsw
  562:  662           b    urzro                                                                                566:   662           b    urzro
  563:  663           bw   noswt, swa         a. actual decimal pt. in data                                     567:   663           bw   noswt, swa         a. actual decimal pt. in data
  564:  664           s    d, end                                                                               568:   664           s    d, end
  565:  665           za   end, point                                                                           569:   665           za   end, point
  566:  666 noswt     s    point, msd                                                                           570:   666 noswt     s    point, msd
  567:  667           a    pctr,xpn                                                                             571:   667           a    pctr,xpn
  568:  668           zs   msd                                                                                  572:   668           zs   msd
  569:  669           a    msd,xpn                                                                              573:   669           a    msd,xpn
  570:  670           bfltwza,xpn,fltwd                                                                         574:   670           bfltwza,xpn,fltwd
  571:  671           bce  ini,0&x2,i                                                                           575:   671           bce  ini,0&x2,i
  572:  672 urzro     afltwmlc,fltwd,,xxx                                                                       576:   672 urzro     afltwmlc,fltwd,,xxx
  573:  673           lca                                                                                       577:   673           lca
  574:  674           mlc  mrwm&3,x3                                                                            578:   674           mlc  mrwm&3,x3
  575:  675 mrwm      cw   xxx                                                                                  579:   675 mrwm      cw   xxx
  576:  676           b    finsi                                                                                580:   676           b    finsi
  577:  677 mvdig     bw   *&12, sigsw                                                                          581:   677 mvdig     bw   *&12, sigsw
  578:  678           sbr  msd, 0&x3                                                                            582:   678           sbr  msd, 0&x3
  579:  679           sw   sigsw                                                                                583:   679           sw   sigsw
  580:  680           bw   lewp, swb                                                                            584:   680           bw   lewp, swb
  581:  681           mn   0&x3, 2&x1                                                                           585:   681           mn   0&x3, 2&x1
  582:  682           sbr  x1                                                                                   586:   682           sbr  x1
  583:  683           sw   swb                                                                                  587:   683           sw   swb
  584:  684           bce  lewp,4&x1,}          gmk                                                             588:   684           bce  lewp,4&x1,}          gmk
  585:  685           cw   swb                                                                                  589:   685           cw   swb
  586:  686           b    lewp                                                                                 590:   686           b    lewp
  587:  687 xpn       dcw  #3                                                                                   591:   687 xpn       dcw  #3
  588:  688 end       dcw  #3                                                                                   592:   688 end       dcw  #3
  589:  689 msd       dcw  #3                                                                                   593:   689 msd       dcw  #3
  590:  690 point     dcw  #3                                                                                   594:   690 point     dcw  #3
  591:  691 five      dcw  @5@                                                                                  595:   691 five      dcw  @5@
  592:  692 lkhed     dc   #1                                                                                   596:   692 lkhed     dc   #1
  593:  693           ltorg*                                                                                    597:   693           ltorg*
  594:  594 gmk       dcw  @}@                  group mark                                                      598:   594 gmk       dcw  @}@                  group mark
  595:  695 w         equ  6&x2                                                                                 599:   695 w         equ  6&x2
  596:  696 wd        equ  6&x2                                                                                 600:   696 wd        equ  6&x2
  597:  697 d         equ  9&x2                                                                                 601:   697 d         equ  9&x2
  598:  698 xxx       equ  0                                                                                    602:   698 xxx       equ  0
  599:  699 xl1       equ  089                                                                                  603:   699 xl1       equ  089
  600:  700 xl2       equ  094                                                                                  604:   700 xl2       equ  094
  601:  701 xl3       equ  099                                                                                  605:   701 xl3       equ  099
  602:  702 oblist    equ  912                                                                                  606:   702 oblist    equ  912
  603:  703 cexit     equ  988                                                                                  607:   703 cexit     equ  988
  604:  704           xfr  cwfio                                                                                608:   704           xfr  cwfio
  605:  705           job  a format                                               5054d                         609:   705           job  a format                                               5054d
  606:  706           org  4280                                                                                 610:   706           org  4280
  607:  707 abegn     bw   *&12,sigsw                                                                           611:   707 abegn     bw   *&12,sigsw
  608:  708           sbr  msd,0&x3                                                                             612:   708           sbr  msd,0&x3
  609:  709           sw   sigsw                                                                                613:   709           sw   sigsw
  610:  710           bw   lewpa,swb                                                                            614:   710           bw   lewpa,swb
  611:  711           mn   0&x3,2&x1                                                                            615:   711           mn   0&x3,2&x1
  612:  712           mz   0&x3,2&x1                                                                            616:   712           mz   0&x3,2&x1
  613:  713           sbr  x1                                                                                   617:   713           sbr  x1
  614:  714           sw   swb                                                                                  618:   714           sw   swb
  615:  715           bce  lewpa,4&x1,}          group mark                                                     619:   715           bce  lewpa,4&x1,}          group mark
  616:  716           cw   swb                                                                                  620:   716           cw   swb
  617:  717 lewpa     bw   ovra,1&x3                                                                            621:   717 lewpa     bw   ovra,1&x3
  618:  718           b    sbrx3                                                                                622:   718           b    sbrx3
  619:  719           b    abegn                                                                                623:   719           b    abegn
  620:  720 ovra      sbr  end,1&x3                                                                             624:   720 ovra      sbr  end,1&x3
  621:  721           mcw  urzro&6,nexta&6                                                                      625:   721           mcw  urzro&6,nexta&6
  622:  722 nexta     mcw  0,0                                                                                  626:   722 nexta     mcw  0,0
  623:  723           lca                                                                                       627:   723           lca
  624:  724           mlc  mrwm&3,x3                                                                            628:   724           mlc  mrwm&3,x3
  625:  725           b    finsi                                                                                629:   725           b    finsi
  626:  726 outqa     bfltwmcw,blk3,fltwd                                                                       630:   726 outqa     bfltwmcw,blk3,fltwd
  627:  727           bfltwmcw,blk20,fltwd,-2                                                                   631:   727           bfltwmcw,blk20,fltwd,-2
  628:  728           sw   0&x1                                                                                 632:   728           sw   0&x1
  629:  729           sbr  mrwm&3,0&x1                                                                          633:   729           sbr  mrwm&3,0&x1
  630:  730           b    mv2wk                                                                                634:   730           b    mv2wk
  631:  731 aout      mcw  efout&6,nexa&6                                                                       635:   731 aout      mcw  efout&6,nexa&6
  632:  732 nexa      mcw  0,0                                                                                  636:   732 nexa      mcw  0,0
  633:  733           mcw                                                                                       637:   733           mcw
  634:  734           sbr  x1                                                                                   638:   734           sbr  x1
  635:  735           sbr  tempx1#3,1&x1                                                                        639:   735           sbr  tempx1#3,1&x1
  636:  736           sbr  tempx3#3,0&x3                                                                        640:   736           sbr  tempx3#3,0&x3
  637:  737           ma   6&x2,tempx3                                                                          641:   737           ma   6&x2,tempx3
  638:  738           sbr  temp32,1&x3                                                                          642:   738           sbr  temp32,1&x3
  639:  739           mcw  nexa&6,tfltwd#3                                                                      643:   739           mcw  nexa&6,tfltwd#3
  640:  740           ma   @i9h@,tfltwd                                                                         644:   740           ma   @i9h@,tfltwd
  641:  741 movnum    mn   1&x1,2&x3                                                                            645:   741 movnum    mn   1&x1,2&x3
  642:  742           mz   1&x1,2&x3                                                                            646:   742           mz   1&x1,2&x3
  643:  743           c    temp32,tempx3                                                                        647:   743           c    temp32,tempx3
  644:  744           be   fini1                                                                                648:   744           be   fini1
  645:  745           c    tempx1,tfltwd                                                                        649:   745           c    tempx1,tfltwd
  646:  746           be   fini1                                                                                650:   746           be   fini1
  647:  747           ma   @001@,tempx1                                                                         651:   747           ma   @001@,tempx1
  648:  748           ma   @001@,temp32                                                                         652:   748           ma   @001@,temp32
  649:  749           sbr  x1,1&x1                                                                              653:   749           sbr  x1,1&x1
  650:  750           sbr  x3,1&x3                                                                              654:   750           sbr  x3,1&x3
  651:  751           b    movnum                                                                               655:   751           b    movnum
  652:  752 fini1     sbr  fins&7,0&x3                                                                          656:   752 fini1     sbr  fins&7,0&x3
  653:  753           mcw  tempx3,x3                                                                            657:   753           mcw  tempx3,x3
  654:  754           sbr  x3,2&x3                                                                              658:   754           sbr  x3,2&x3
  655:  755           b    fins                                                                                 659:   755           b    fins
  656:  756 blk3      dcw  #3                                                                                   660:   756 blk3      dcw  #3
  657:  757 blk20     dcw  #20                                                                                  661:   757 blk20     dcw  #20
  658:  758 temp32    dcw  @   @                                                                                662:   758 temp32    dcw  @   @
  659:  759           ltorg*                                                                                    663:   759           ltorg*
  660:  760 gm54d     dcw  @}@                group mark                                                        664:   760 gm54d     dcw  @}@                group mark
  661:  761           xfr  cwaf                                                                                 665:   761           xfr  cwaf
  662:  762 *                                                                                                   666:   762 *
  663:  763 **        place preceding cards between phases 53 and 55                                            667:   763 **        place preceding cards between phases 53 and 55
  664:  764 *                                                                                                   668:   764 *
  665:  765           end                                                                                       669:   765           end
