CLEAR STORAGE 1     ,008015,022026,030037,044,049,053053N000000N00001026                                         1
 CLEAR STORAGE 2     L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?                      2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
0                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101  1 01   000    JOB   AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3
  102  1 02          CTL   63011
  103  1 03   *
  104  1 04   * EQUATES USED BY PROGRAM
  105  1 05   *
  106  1 06   INITAP EQU   %U0                                                         %U0
  107  1 07   SYSTPE EQU   %U1                                                         %U1
  108  1 08   SAVETP EQU   %U4                                                         %U4
  109  1 09   CINPUT EQU   %U5                                                         %U5
  110  1 10   COUTPT EQU   %U6                                                         %U6
  111  1 11   DOUTPT EQU   %U5                                                         %U5
  112  1 12   DINPUT EQU   %U6                                                         %U6
  113  1 13   TABLE  EQU   2409                                                        2409
  114  1 14   ADDLO  EQU   TABLE-006&X2                                                2403 X
  115  1 15   SYMHO  EQU   TABLE-005&X2                                                2404 X
  116  1 16   ADDHO  EQU   TABLE-009&X2                                                2400 X
  117  1 17   LBLREF EQU   TABLE-008&X2                                                2401 X
  118  1 18   SYMBOL EQU   TABLE&X2                                                    2409 X
  119  1 19   CARD   EQU   0                                                           0000
  120  1 20   STAOP  EQU   CARD&001                                                    0001
  121  1 21   STLABL EQU   CARD&002                                                    0002
  122  1 22   STADDR EQU   CARD&003                                                    0003
  123  1 23   STBOP  EQU   CARD&004                                                    0004
  124  1 24   COUNT  EQU   CARD&007                                                    0007
  125  1 25   LABEL  EQU   CARD&013                                                    0013
  126  1 26   AOPER  EQU   CARD&022                                                    0022
  127  1 27   AOPADJ EQU   CARD&026                                                    0026
  128  1 28   AINDEX EQU   CARD&027                                                    0027
  129  1 29   ORGADD EQU   CARD&032                                                    0032
  130  1 30   CNVLAB EQU   CARD&056                                                    0056
  131  1 31   LABADD EQU   CARD&061                                                    0061
  132  1 32   SUPADD EQU   CARD&066                                                    0066
  133  1 33   AOP    EQU   CARD&070                                                    0070
  134  1 34   TYPE   EQU   CARD&075                                                    0075
  135  1 35   AOPHO  EQU   CARD&017                                                    0017
  136  1 36   LBLHO  EQU   CARD&008                                                    0008
  137  1 37   HOADD  EQU   CARD&057                                                    0057
  138  1 38   TPAREA EQU   3918                                                        3918
  139  1 39   INPUT  EQU   TPAREA-001&X3                                               3917 X
  140  1 40   LIMIT  EQU   TPAREA&13                                                   3931
  141  1 41   XXXX   EQU   0                                                           0000
  142  1 42   GPMRK3 EQU   3998                                                        3998
  143  1 43   LIBRN  EQU   0                                                           0000
  144  1 44   *
  145  1 45   *
  146  1 46   * GET, PUT, REDUNDANCY &
  147  1 47   * CROSSOVER ROUTINES COMMON
1                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148  1 48   * TO BOTH PASSES
  149  1 49   *
  150  1 50   *
  151  1 51          ORG   ENDOFC&1                                                           1925
  152  1 52   *
  153  1 53   * GET & PUT
  154  1 54   *
  155  1 55   GET    C     BLKCT,KBLKNG                                             7  1925  C L30 L26            4
  156  1 56          BE    WRITE                                                    5  1932  B X67 S              4
  157  1 57   NXTREC A     &80,BLKCT                                                7  1937  A L36 L30            4
  158  1 58          MCW   BLKCT,XR3                                                7  1944  M L30 099            4
  159  1 59   MOVEIN MCW   INPUT,CARD&80                                            7  1951  M IA7 080            4
  160  1 60          CHAIN 9                                                                             MACRO
  161                MCW                                                            1  1958  M           GEN      4
  162                MCW                                                            1  1959  M           GEN      4
  163                MCW                                                            1  1960  M           GEN      5
  164                MCW                                                            1  1961  M           GEN      5
  165                MCW                                                            1  1962  M           GEN      5
  166                MCW                                                            1  1963  M           GEN      5
  167                MCW                                                            1  1964  M           GEN      5
  168                MCW                                                            1  1965  M           GEN      5
  169                MCW                                                            1  1966  M           GEN      5
  170  1 61          S     XR3&001                                                  4  1967  S 100                6
  171  1 62          S                                                              1  1971  S                    6
  172  1 63          S                                                              1  1972  S                    6
  173  1 64          B     ANAL                                                     4  1973  B 114                6
  174  1 65   PUT    MCW   BLKCT,XR3                                                7  1977  M L30 099            6
  175  1 66          MCW   CARD&80,INPUT                                            7  1984  M 080 IA7            6
  176  1 67          CHAIN 9                                                                             MACRO
  177                MCW                                                            1  1991  M           GEN      6
  178                MCW                                                            1  1992  M           GEN      7
  179                MCW                                                            1  1993  M           GEN      7
  180                MCW                                                            1  1994  M           GEN      7
  181                MCW                                                            1  1995  M           GEN      7
  182                MCW                                                            1  1996  M           GEN      7
  183                MCW                                                            1  1997  M           GEN      7
  184                MCW                                                            1  1998  M           GEN      7
  185                MCW                                                            1  1999  M           GEN      8
  186  1 68          B     GET                                                      4  2000  B Z25                8
  187  1 69   *
  188  1 70   *TAPE REDUNDANCY ROUTINE
  189  1 71   *
  190  1 72   TPERR  SBR   XR1                                                      4  2004  H 089                8
  191  1 73          SBR   REDXT&3                                                  4  2008  H !76                8
  192  1 74          MZ    &9,XR1                                                   7  2012  Y L37 089            8
  193  1 75          MCW   4000-10&X1,TPINST&7                                      7  2019  M IZ0 !67            8
  194  1 76          MN    TPINST&3,BSP1&3                                          7  2026  D !63 !43            8
  195  1 77          MCW   TPINST&7,INST2&7                                         7  2033  M !67 J76            9
  196  1 78   BSP1   BSP   INITAP                                                   5  2040  U %U0 B              9
  197  1 79          BCE   WRTRED,TPINST&7,W                                        8  2045  B J49 !67 W          9
1                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 80          MCW   &9,READCT#1                                              7  2053  M L37 L38            9
  199  1 81   TPINST RT    INITAP,XXXX                                              8  2060  M %U0 000 R          9
  200  1 82          BER   RDRERR                                                   5  2068  B !77 L             10
  201  1 83   REDXT  B     XXXX                                                     4  2073  B 000               10
  202  1 84   RDRERR MN    TPINST&3,BSP2&3                                          7  2077  D !63 !87           10
  203  1 85   BSP2   BSP   INITAP                                                   5  2084  U %U0 B             10
  204  1 86          S     &1,READCT                                                7  2089  S L39 L38           10
  205  1 87          BWZ   TPINST,READCT,B                                          8  2096  V !60 L38 B         10
  206  1 88          MN    TPINST&3,TPHALT&6                                        7  2104  D !63 J17           11
  207  1 89   TPHALT H     XXXX,590                                                 7  2111  . 000 590           11
  208  1 90          MCW   TPINST&7,*&8                                             7  2118  M !67 J32           11
  209  1 91          RT    INITAP,XXXX                                              8  2125  M %U0 000 R         11
  210  1 92          BSS   BSP1,E                                                   5  2133  B !40 E             11
  211  1 93   TPHLT3 H     XXXX,511                                                 7  2138  . 000 511           12
  212  1 94          B     REDXT                                                    4  2145  B !73               12
  213  1 95   WRTRED SKP   SYSTPE                                                   5  2149  U %U1 E             12
  214  1 96          BCE   SUBCTR,WRTCTR-1,5                                        8  2154  B J86 L40 5         12
  215  1 97          A     &1,WRTCTR#2                                              7  2162  A L39 L41           12
  216  1 98   INST2  WT    INITAP,XXXX                                              8  2169  M %U0 000 W         12
  217  1 99          BER   BSP1                                                     5  2177  B !40 L             13
  218  2 00          B     REDXT                                                    4  2182  B !73               13
  219  2 01   SUBCTR S     WRTCTR                                                   4  2186  S L41               13
  220  2 02          MN    TPINST&3,*&7                                             7  2190  D !63 K03           13
  221  2 03   TPHLT2 H     XXXX,560                                                 7  2197  . 000 560           13
  222  2 04          B     INST2                                                    4  2204  B J69               13
  223  2 05   *
  224  2 06   * CHECK FOR SHORT RECORDS
  225  2 07   *
  226  2 08   CHKLGT SBR   XR1                                                      4  2208  H 089               13
  227  2 09          SBR   LGTXT&3                                                  4  2212  H K46               14
  228  2 10          MZ    &9,XR1                                                   7  2216  Y L37 089           14
  229  2 11   LGTCK  BCE   4000-12&X1,LIMIT,}                                       8  2223  B IY8 I31 } GMARK   14
  230  2 12          CHAIN 12                                                                            MACRO
  231                BCE                                                            1  2231  B           GEN     14
  232                BCE                                                            1  2232  B           GEN     14
  233                BCE                                                            1  2233  B           GEN     14
  234                BCE                                                            1  2234  B           GEN     14
  235                BCE                                                            1  2235  B           GEN     15
  236                BCE                                                            1  2236  B           GEN     15
  237                BCE                                                            1  2237  B           GEN     15
  238                BCE                                                            1  2238  B           GEN     15
  239                BCE                                                            1  2239  B           GEN     15
  240                BCE                                                            1  2240  B           GEN     15
  241                BCE                                                            1  2241  B           GEN     15
  242                BCE                                                            1  2242  B           GEN     16
  243  2 13   LGTXT  B     XXXX                                                     4  2243  B 000               16
  244  2 14   *
  245  2 15   * CROSSOVER, C TO D
  246  2 16   *
  247  2 17   RDPSSD RTW   SYSTPE,1                                                 8  2247  L %U1 001 R         16
1                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248  2 18          NOP   XXXX                                                     4  2255  N 000               16
  249  2 19          BER   TPERR                                                    5  2259  B !04 L             16
  250  2 20          CW    ENDOFD                                                   4  2264  ) Y68               16
  251  2 21          B     PASSD                                                    4  2268  B S90               16
  252  2 22   *
  253  2 23   * CROSSOVER, D TO C
  254  2 24   *
  255  2 25   RDPSSC RTW   COUTPT,1                                                 8  2272  L %U6 001 R         17
  256  2 26          NOP   XXXX                                                     4  2280  N 000               17
  257  2 27          BER   TPERR                                                    5  2284  B !04 L             17
  258  2 28          CW    ENDOFC                                                   4  2289  ) Z24               17
  259  2 29          B     CLRTAB                                                   4  2293  B Y13               17
  260  2 30   *
  261  2 31   * COMMON CONSTANTS
  262  2 32   *
  263  2 33   CLRMAX DCW   @I97@                                                    3  2299                      17
  264  2 34   CLRMIN DSA   TABLE-010                                                3  2302  L99                 17
  265  2 35   FNCTN  DCW   @      @                                                 6  2308                      18
  266  2 36   TABMAX DCW   @V00@                                                    3  2311                      18
  267  2 37   MAXADD DCW   @   @                                                    3  2314                      18
  268  2 38   TABLSZ DCW   &0150                                                    4  2318                      18
  269  2 39   MAXSER DCW   @    @                                                   4  2322                      18
  270  2 40   SFXCTR DCW   @ @                                                      1  2323                      18
  271  2 41   KBLKNG DCW   @080@                                                    3  2326                      18
  272  2 42   BUMPOP DCW   @#@                                                      1  2327                      19
  273  2 43   HOLDA  DCW   &0000                                                    4  2331                      19
  274  2 44   BLKCT  EQU   HOLDA-1                                                     2330
  275  2 45   TPAD   DSA   TPAREA                                                   3  2334  I18                 19
  276  2 46          LTORG *                                                                  2335
                     DCW   &80                                                      2  2336              LIT     19
                     DCW   &9                                                       1  2337              LIT     19
              READCT DCW   #01                                                      1  2338              AREA    19
                     DCW   &1                                                       1  2339              LIT     19
              WRTCTR DCW   #02                                                      2  2341              AREA    20
  277  2 47   *
  278  2 48   * PROTECTED CONSTANTS
  279  2 49   *
  280  2 50   FACTOR EQU   TABLE-021                                                   2388
  281  2 51   MACHSZ EQU   TABLE-020                                                   2389
  282  2 52   TOTLAB EQU   TABLE-016                                                   2393
  283  2 53   UNPRSW EQU   TABLE-015                                                   2394
  284  2 54   PROCSW EQU   TABLE-014                                                   2395
  285  2 55   SERCHS EQU   TABLE-010                                                   2399
  286  2 56   *
  287  2 57   * INITIALIZE PASS C ONE TIME
  288  2 58   *
  289  2 59          ORG   TABLE-009                                                          2400
  290  2 60          RWD   SAVETP                                                   5  2400  U %U4 R             21
  291  2 61          RWD   CINPUT                                                   5  2405  U %U5 R             21
  292  2 62          RWD   COUTPT                                                   5  2410  U %U6 R             21
1                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  293  2 63          CS    3999                                                     4  2415  / I99               21
  294  2 64          SW    GRPMRK                                                   4  2419  , Q66               21
  295  2 65          LCA   @00@,PROCSW                                              7  2423  L Q68 L95           21
  296  2 66          LCA   &0150,SERCHS                                             7  2430  L Q72 L99           21
  297  2 67          LCA   @0015@,FACTOR                                            7  2437  L Q76 L88           22
  298  2 68          RTW   SYSTPE,1                                                 8  2444  L %U1 001 R         22
  299  2 69          NOP   XXXX                                                     4  2452  N 000               22
  300  2 70          BER   TPERR                                                    5  2456  B !04 L             22
  301  2 71          CW    ENDINT                                                   4  2461  ) R01               22
  302  2 72   *
  303  2 73   * SET I/O GROUP MARK
  304  2 74   *
  305  2 75          MCW   MACHSZ,KEEP1#001                                         7  2465  M L89 Q77           22
  306  2 76          A     &3,KEEP1                                                 7  2472  A Q78 Q77           23
  307  2 77          MN    KEEP1,*&004                                              7  2479  D Q77 M89           23
  308  2 78          MZ    ZONE2,*&007                                              7  2486  Y 109 M99           23
  309  2 79   SETIO  LCA   GRPMRK,GPMRK3                                            7  2493  L Q66 I98           23
  310  2 80          BWZ   SETBMP,SETIO&006,2                                       8  2500  V P18 M99 2         23
  311  2 81          CS    4799                                                     4  2508  / 79Z               24
  312  2 82          CS    4399                                                     4  2512  / 39Z               24
  313  2 83          MCW   @#@,BUMP                                                 7  2516  M Q79 W81           24
  314  2 84          BCE   SET8K,MACHSZ,4                                           8  2523  B O20 L89 4         24
  315  2 85   *
  316  2 86   * 12K CONSTANTS
  317  2 87   *
  318  2 88          MCW   BLKG12,KBLKNG                                            7  2531  M Q52 L26           24
  319  2 89          MCW   TBSZ12,TABLSZ                                            7  2538  M Q56 L18           24
  320  2 90          MCW   TBLM12,TABMAX                                            7  2545  M Q59 L11           25
  321  2 91          MCW   TPAD12,TPAD                                              7  2552  M Q62 L34           25
  322  2 92          MCW   MDTP12,MDTP#003                                          7  2559  M Q65 Q82           25
  323  2 93          A     &72,FACTOR                                               7  2566  A Q84 L88           25
  324  2 94          BCE   SETTP,MACHSZ,5                                           8  2573  B O62 L89 5         25
  325  2 95   *
  326  2 96   * 16K CONSTANTS
  327  2 97   *
  328  2 98          A     &400,TABLSZ                                              7  2581  A Q87 L18           26
  329  2 99          A     &40,FACTOR                                               7  2588  A Q89 L88           26
  330  3 00          MZ    ABBIT,TABMAX                                             7  2595  Y 113 L11           26
  331  3 01          MZ    ABBIT,TPAD                                               7  2602  Y 113 L34           26
  332  3 02          MZ    ABBIT,MDTP                                               7  2609  Y 113 Q82           26
  333  3 03          B     SETTP                                                    4  2616  B O62               26
  334  3 04   *
  335  3 05   * 8K CONSTANTS
  336  3 06   *
  337  3 07   SET8K  MCW   BLKG8K,KBLKNG                                            7  2620  M Q36 L26           27
  338  3 08          MCW   TBSZ8K,TABLSZ                                            7  2627  M Q40 L18           27
  339  3 09          MCW   TBLM8K,TABMAX                                            7  2634  M Q43 L11           27
  340  3 10          MCW   TPAD8K,TPAD                                              7  2641  M Q46 L34           27
  341  3 11          MCW   MDTP8K,MDTP                                              7  2648  M Q49 Q82           27
  342  3 12          A     &36,FACTOR                                               7  2655  A Q91 L88           28
1                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  343  3 13   SETTP  MZ    TPAD,CLRMAX                                              7  2662  Y L34 K99           28
  344  3 14          MCW   MDTP,MOVEIN&003                                          7  2669  M Q82 Z54           28
  345  3 15          MCW   MDTP,PUT&013                                             7  2676  M Q82 Z90           28
  346  3 16          MCW   TPAD,WRITE&006                                           7  2683  M L34 X73           28
  347  3 17          MCW   TPAD,READ&010                                            7  2690  M L34 X98           29
  348  3 18          MCW   TPAD,LIMAD#3                                             7  2697  M L34 Q94           29
  349  3 19          MA    &13,LIMAD                  ??? &013 ???                  7  2704  # Q96 Q94           29
  350  3 20          MCW   LIMAD,LGTCK&6                                            7  2711  M Q94 K29           29
  351  3 21   SETBMP MCW   BUMP,BUMPOP                                              7  2718  M W81 L27           29
  352  3 22          LCA   GRPMRK,ENDOFC                                            7  2725  L Q66 Z24           30
  353  3 23   *
  354  3 24   * WRITE PASS C CHECKPOINT ON 6
  355  3 25   *
  356  3 26          CS    80                                                       4  2732  / 080               30
  357  3 27          SW    CARD&001,CARD&006                                        7  2736  , 001 006           30
  358  3 28          SW    CARD&017,CARD&024                                        7  2743  , 017 024           30
  359  3 29          SW    CARD&028,CARD&035                                        7  2750  , 028 035           30
  360  3 30          SW    CARD&057,CARD&062                                        7  2757  , 057 062           30
  361  3 31          SW    CARD&068,CARD&071                                        7  2764  , 068 071           31
  362  3 32          WTW   COUTPT,1                                                 8  2771  L %U6 001 W         31
  363  3 33          NOP   XXXX                                                     4  2779  N 000               31
  364  3 34          BER   TPERR                                                    5  2783  B !04 L             31
  365  3 35          CW    ENDOFC,GRPMRK                                            7  2788  ) Z24 Q66           31
  366  3 36          C     TOTLAB,TABLSZ                                            7  2795  C L93 L18           31
  367  3 37          MCW   TABLSZ,SERCHS                                            7  2802  M L18 L99           32
  368  3 38          S     TOTLAB                                                   4  2809  S L93               32
  369  3 39          BE    CLRTAB                                                   5  2813  B Y13 S             32
  370  3 40          BH    CLRTAB                                                   5  2818  B Y13 U             32
  371  3 41          MCW   &0009,SERCHS                                             7  2823  M R00 L99           32
  372  3 42          B     CLRTAB                                                   4  2830  B Y13               32
  373  3 43   BLKG8K DCW   @400@                                                    3  2836                      32
  374  3 44   TBSZ8K DCW   &0510                                                    4  2840                      33
  375  3 45   TBLM8K DSA   5100                                                     3  2843  /0'                 33
  376  3 46   TPAD8K DSA   7598                                                     3  2846  E9Y                 33
  377  3 47   MDTP8K DSA   7597&X3                                                  3  2849  EIX                 33
  378  3 48   BLKG12 DCW   @800@                                                    3  2852                      33
  379  3 49   TBSZ12 DCW   &0870                                                    4  2856                      33
  380  3 50   TBLM12 DSA   8700                                                     3  2859  70!                 33
  381  3 51   TPAD12 DSA   11198                                                    3  2862  A9Q                 34
  382  3 52   MDTP12 DSA   11197&X3                                                 3  2865  AIP                 34
  383  3 53   GRPMRK DC    @}@                                                      1  2866              GMARK   34
  384  3 54          LTORG *                                                                  2867
                     DCW   @00@                                                     2  2868              LIT     34
                     DCW   &0150                                                    4  2872              LIT     34
                     DCW   @0015@                                                   4  2876              LIT     34
              KEEP1  DCW   #01                                                      1  2877              AREA    34
                     DCW   &3                                                       1  2878              LIT     34
                     DCW   @#@                                                      1  2879              LIT     35
              MDTP   DCW   #03                                                      3  2882              AREA    35
                     DCW   &72                                                      2  2884              LIT     35
1                          AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3            3751L               PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
                     DCW   &400                                                     3  2887              LIT     35
                     DCW   &40                                                      2  2889              LIT     35
                     DCW   &36                                                      2  2891              LIT     35
              LIMAD  DCW   #03                                                      3  2894              AREA    35
                     DCW   &13                                                      2  2896              LIT     36
                     DCW   &0009                                                    4  2900              LIT     36
  385  3 55   ENDINT DCW   @}@                                                      1  2901              GMARK   36
  386  3 56          XFR   LIBRN                                                             B 000               37
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  387  3 57          JOB   AUTOCODER-PASS 5 MAIN LINE           -VERSION 3
  388  3 58   *
  389  3 59   * PASS C-LOAD SYMBOL TABLE& SET ADDRESSES
  390  3 60   *
  391  3 61   ZONE   EQU   113                                                         0113
  392  3 62   113    DCW   @2SKB@                                                   4  0113                      40
  393  3 63   ZONE2  EQU   109                                                         0109
  394  3 64   109    DCW   @2SKB@                                                   4  0109                      41
  395  3 65   ABBIT  EQU   ZONE                                                        0113
  396  3 66   BBIT   EQU   ZONE-001                                                    0112
  397  3 67   ABIT   EQU   ZONE-002                                                    0111
  398  3 68   NOBIT  EQU   ZONE-003                                                    0110
  399  3 69   XR1    EQU   89                                                          0089
  400  3 70   89     DCW   @000@                                                    3  0089                      42
  401  3 71   XR2    EQU   94                                                          0094
  402  3 72   94     DCW   @000@                                                    3  0094                      43
  403  3 73   XR3    EQU   99                                                          0099
  404  3 74   99     DCW   @000@                                                    3  0099                      44
  405  3 75          ORG   ZONE&001                                                           0114
  406  3 76   *
  407  3 77   * DETERMINE RECORD TYPE
  408  3 78   *
  409  3 79   ANAL   BM    PUT,CARD&005                                             8  0114  V Z77 005 K         45
  410  3 80          BCE   PUT,TYPE,%                                               8  0122  B Z77 075 %         45
  411  3 81          BCE   INSTR,TYPE,                                              8  0130  B 219 075           45
  412  3 82          MN    TYPE,XR2                                                 7  0138  D 075 094           45
  413  3 83          BCE   DA,XR2,0                                                 8  0145  B 871 094 0         45
  414  3 84          MCW   @0@,INDFTR                                               7  0153  M Y92 Y69           46
  415  3 85          MCW   @0@,DASW                                                 7  0160  M Y92 Y68           46
  416  3 86          A     XR2                                                      4  0167  A 094               46
  417  3 87          A     XR2                                                      4  0171  A 094               46
  418  3 88          B     *&001&X2                                                 4  0175  B 1P9               46
  419  3 89          NOP   XXXX                                                     4  0179  N 000               46
  420  3 90          B     CONST                                                    4  0183  B 260               46
  421  3 91          B     CONST                                                    4  0187  B 260               47
  422  3 92          B     EXEND                                                    4  0191  B 973               47
  423  3 93          B     SFX                                                      4  0195  B 992               47
  424  3 94          B     PUT                                                      4  0199  B Z77               47
  425  3 95          B     ORG                                                      4  0203  B 376               47
  426  3 96          B     DS                                                       4  0207  B 295               47
  427  3 97          B     PUT                                                      4  0211  B Z77               47
  428  3 98          B     PUT                                                      4  0215  B Z77               48
  429  3 99   *
  430  4 00   * PROCESS INSTRUCTIONS
  431  4 01   *
  432  4 02   INSTR  MCW   @0@,INDFTR                                               7  0219  M Y92 Y69           48
  433  4 03          B     PRCADD                                                   4  0226  B '03               48
  434  4 04          B     PROCLB                                                   4  0230  B /09               48
  435  4 05          BWZ   PUT,STADDR,2                                             8  0234  V Z77 003 2         48
  436  4 06          A     COUNT,NOWCTR                                             7  0242  A 007 Y48           48
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE    9
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  437  4 07          S     @1@,NOWCTR                                               7  0249  S Y93 Y48           49
  438  4 08          B     PUT                                                      4  0256  B Z77               49
  439  4 09   *
  440  4 10   * PROCESS CONSTANTS & DCW
  441  4 11   *
  442  4 12   CONST  BCE   PRCAST,AOPHO,*                                           8  0260  B 283 017 *         49
  443  4 13          MCW   @1@,ACTSW                                                7  0268  M Y93 Y67           49
  444  4 14          B     PROCLB                                                   4  0275  B /09               49
  445  4 15          B     PUT                                                      4  0279  B Z77               49
  446  4 16   *
  447  4 17   * CONSTANTDS WITH ASTERISK ADDRESS
  448  4 18   *
  449  4 19   PRCAST B     PRCADD                                                   4  0283  B '03               49
  450  4 20          B     PROCLB                                                   4  0287  B /09               50
  451  4 21          B     PUT                                                      4  0291  B Z77               50
  452  4 22   *
  453  4 23   * PROCESS DS & EQUATES
  454  4 24   *
  455  4 25   DS     BCE   PROCTU,AOPHO,%                                           8  0295  B 361 017 %         50
  456  4 26          A     AINDEX,INDFTR                                            7  0303  A 027 Y69           50
  457  4 27          BCE   CONST,AOPHO,*                                            8  0310  B 260 017 *         50
  458  4 28          BWZ   CONST,AOPHO,2                                            8  0318  V 260 017 2         50
  459  4 29          BWZ   *&5,STAOP,2                                              8  0326  V 338 001 2         51
  460  4 30          B     CONST                                                    4  0334  B 260               51
  461  4 31   *
  462  4 32   * EQUATE
  463  4 33   *
  464  4 34          B     SETAOP                                                   4  0338  B U35               51
  465  4 35          MCW   DSAPUT,LABRTN&003                                        7  0342  M Y72 S97           51
  466  4 36          BWZ   UNPROC,STAOP,2                                           8  0349  V /81 001 2         51
  467  4 37          B     CONST                                                    4  0357  B 260               51
  468  4 38   *
  469  4 39   * DS OF INPUT DEVICE
  470  4 40   *
  471  4 41   PROCTU MCW   AOPER-003,LABADD-001                                     7  0361  M 019 060           52
  472  4 42          MCW   @0@                                                      4  0368  M Y92               52
  473  4 43          B     CONST                                                    4  0372  B 260               52
  474  4 44   *
  475  4 45   * PROCESS ORIGIN & LITERAL ORIGIN
  476  4 46   *
  477  4 47   ORG    BWZ   SETHGH,CARD&033,B                                        8  0376  V 405 033 B         52
  478  4 48          ZA    LABADD,ORGADD                                            7  0384  ? 061 032           52
  479  4 49          A     @1@,ORGADD                                               7  0391  A Y93 032           52
  480  4 50          MZ    ABBIT,CARD&033                                           7  0398  Y 113 033           53
  481  4 51   SETHGH BCE   ORGSAV,MAXSW,1                                           8  0405  B 432 Y60 1         53
  482  4 52          C     NOWCTR,HGHCTR                                            7  0413  C Y48 Y58           53
  483  4 53          BH    ORGSAV                                                   5  0420  B 432 U             53
  484  4 54          ZA    NOWCTR,HGHCTR                                            7  0425  ? Y48 Y58           53
  485  4 55   *
  486  4 56   * PROCESS SAVE COUNTER OF ORIGIN
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   10
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  487  4 57   *
  488  4 58   ORGSAV BCE   AOPOR,LBLHO,                                             8  0432  B 536 008           54
  489  4 59          MCW   @005@,XR1                                                7  0440  M Y96 089           54
  490  4 60          MCW   &AOPOR,LABRTN&003                                        7  0447  M Y99 S97           54
  491  4 61          BWZ   *&005,STLABL,2                                           8  0454  V 466 002 2         54
  492  4 62          B     AOPOR                                                    4  0462  B 536               54
  493  4 63          BCE   STRSAV,SUPADD,                                           8  0466  B 502 066           55
  494  4 64   BTOLAB B     DOLABL                                                   4  0474  B T58               55
  495  4 65          B     SEARCH                                                   4  0478  B W29               55
  496  4 66          BCE   STORE,DBLSW,1                                            8  0482  B S69 Y64 1         55
  497  4 67          BCE   STORE,SPCSW,0                                            8  0490  B S69 Y63 0         55
  498  4 68          B     UNPROC                                                   4  0498  B /81               55
  499  4 69   STRSAV BCE   UNPROC,ADDRSW,1                                          8  0502  B /81 Y59 1         56
  500  4 70          BCE   UNPROC,LITRSW,1                                          8  0510  B /81 Y61 1         56
  501  4 71          MCW   NOWCTR,SUPADD                                            7  0518  M Y48 066           56
  502  4 72          A     @1@,SUPADD                                               7  0525  A Y93 066           56
  503  4 73          B     BTOLAB                                                   4  0532  B 474               56
  504  4 74   *
  505  4 75   * PROCESS A OPERAND OF ORIGIN
  506  4 76   *
  507  4 77   AOPOR  BWZ   *&005,STAOP,2                                            8  0536  V 548 001 2         57
  508  4 78          B     ACTUAL                                                   4  0544  B 761               57
  509  4 79          BCE   ASTRSK,AOPHO,*                                           8  0548  B 708 017 *         57
  510  4 80          MCW   @0@,LITRSW                                               7  0556  M Y92 Y61           57
  511  4 81          S     NOWCTR                                                   4  0563  S Y48               57
  512  4 82          BCE   BLKAOP,AOPHO,                                            8  0567  B 735 017           57
  513  4 83   *
  514  4 84   * SYMBOLIC ORIGIN
  515  4 85   *
  516  4 86          MCW   @0@,ORGSW                                                7  0575  M Y92 Y66           58
  517  4 87          S     XR1&001                                                  4  0582  S 090               58
  518  4 88          B     SETAOP                                                   4  0586  B U35               58
  519  4 89          BCE   SETORG,ORGSW,1                                           8  0590  B 609 Y66 1         58
  520  4 90   SETSWS MCW   @11@,MAXSW                                               7  0598  M Z01 Y60           58
  521  4 91          B     SCNTB&7                                                  4  0605  B 813               58
  522  4 92   SETORG MCW   LABADD,ORGCTR                                            7  0609  M 061 Y53           59
  523  4 93   RSTSWA MCW   @0@,ADDRSW                                               7  0616  M Y92 Y59           59
  524  4 94          BCE   *&005,AOPADJ-002,X                                       8  0623  B 635 024 X         59
  525  4 95          B     AOPOUT                                                   4  0631  B 669               59
  526  4 96   *
  527  4 97   * ADJUSTMENT OF X00
  528  4 98   *
  529  4 99          BCE   NXTCNT,AOPHO,*                                           8  0635  B 655 017 *         59
  530  5 00          C     ORGCTR,&00                                               7  0643  C Y53 Z03           60
  531  5 01          BE    AOPOUT                                                   5  0650  B 669 S             60
  532  5 02   NXTCNT MCW   &00,ORGCTR                                               7  0655  M Z03 Y53           60
  533  5 03          A     @1@,ORGCTR-002                                           7  0662  A Y93 Y51           60
  534  5 04   AOPOUT A     ORGCTR,ORGADD                                            7  0669  A Y53 032           60
  535  5 05          ZA    ORGCTR,LABADD                                            7  0676  ? Y53 061           61
  536  5 06          ZA    ORGADD,NOWCTR                                            7  0683  ? 032 Y48           61
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   11
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  537  5 07          S     @1@,NOWCTR                                               7  0690  S Y93 Y48           61
  538  5 08          MZ    ABBIT,STAOP                                              7  0697  Y 113 001           61
  539  5 09          B     PUT                                                      4  0704  B Z77               61
  540  5 10   *
  541  5 11   * ORIGIN ASTERISK
  542  5 12   *
  543  5 13   ASTRSK BCE   PUT,ADDRSW,1                                             8  0708  B Z77 Y59 1         62
  544  5 14          BCE   SETSWS,LITRSW,1                                          8  0716  B 598 Y61 1         62
  545  5 15          MCW   NOWCTR,ORGCTR                                            7  0724  M Y48 Y53           62
  546  5 16          B     RSTSWA                                                   4  0731  B 616               62
  547  5 17   *
  548  5 18   * ORIGIN MAXIMUM
  549  5 19   *
  550  5 20   BLKAOP BCE   SETSWS,MAXSW,1                                           8  0735  B 598 Y60 1         62
  551  5 21          MCW   HGHCTR,ORGCTR                                            7  0743  M Y58 Y53           63
  552  5 22          A     @1@,ORGCTR                                               7  0750  A Y93 Y53           63
  553  5 23          B     RSTSWA                                                   4  0757  B 616               63
  554  5 24   *
  555  5 25   * ORIGIN ACTUAL OR PROCESSED
  556  5 26   *
  557  5 27   ACTUAL ZA    ORGADD,NOWCTR                                            7  0761  ? 032 Y48           63
  558  5 28          S     @1@,NOWCTR                                               7  0768  S Y93 Y48           63
  559  5 29          BCE   TSTX00,AOPHO,*                                           8  0775  B 821 017 *         64
  560  5 30          MCW   @0@,LITRSW                                               7  0783  M Y92 Y61           64
  561  5 31          BWZ   SCNTB,AOPHO,2                                            8  0790  V 806 017 2         64
  562  5 32          BWZ   SETORG,STAOP,K                                           8  0798  V 609 001 K         64
  563  5 33   SCNTB  MCW   @0@,ADDRSW                                               7  0806  M Y92 Y59           64
  564  5 34          S     ORGCTR                                                   4  0813  S Y53               65
  565  5 35          B     PUT                                                      4  0817  B Z77               65
  566  5 36   TSTX00 BCE   PUT,AOPADJ-002,X                                         8  0821  B Z77 024 X         65
  567  5 37          BWZ   PUT,CARD&034,B                                           8  0829  V Z77 034 B         65
  568  5 38          A     ORGCTR,ORGADD                                            7  0837  A Y53 032           65
  569  5 39          BCE   PUT,ADDRSW,1                                             8  0844  B Z77 Y59 1         65
  570  5 40          BCE   PUT,LITRSW,1                                             8  0852  B Z77 Y61 1         66
  571  5 41          MZ    ABBIT,CARD&34                                            7  0860  Y 113 034           66
  572  5 42          B     ACTUAL                                                   4  0867  B 761               66
  573  5 43   *
  574  5 44   * PROCESS DA STATEMENTS
  575  5 45   *
  576  5 46   DA     BCE   ORIGDA,TYPE,0                                            8  0871  B 926 075 0         66
  577  5 47          BCE   TSTRPT,ACTSW,1                                           8  0879  B 910 Y67 1         66
  578  5 48   BTOADD C     LABADD,SUPADD                                            7  0887  C 061 066           67
  579  5 49          BL    *&8                                                      5  0894  B 906 T             67
  580  5 50          MCW   @005@,XR3                                                7  0899  M Y96 099           67
  581  5 51          B     PRCADD                                                   4  0906  B '03               67
  582  5 52   TSTRPT BCE   PUT,TYPE,'                                               8  0910  B Z77 075 '         67
  583  5 53          B     PROCLB                                                   4  0918  B /09               67
  584  5 54          B     PUT                                                      4  0922  B Z77               67
  585  5 55   *
  586  5 56   * DA HEADER
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   12
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  587  5 57   *
  588  5 58   ORIGDA MCW   @0@,INDFTR                                               7  0926  M Y92 Y69           68
  589  5 59          A     AINDEX,INDFTR                                            7  0933  A 027 Y69           68
  590  5 60          MCW   @1@,DASW                                                 7  0940  M Y93 Y68           68
  591  5 61          MCW   @0@,ACTSW                                                7  0947  M Y92 Y67           68
  592  5 62          BCE   BTOADD,AOPHO,*                                           8  0954  B 887 017 *         68
  593  5 63          MCW   @1@,ACTSW                                                7  0962  M Y93 Y67           69
  594  5 64          B     TSTRPT                                                   4  0969  B 910               69
  595  5 65   *
  596  5 66   * ??? MISSING FROM LISTING IN CE MANUAL ***
  597  5 67   * ??? MISSING FROM LISTING IN CE MANUAL ***
  598  5 68   EXEND  BWZ   PUT,TYPE,B                                               8  0973  V Z77 075 B         69
  599  5 69          MCW   @B@,BRANCH                                               7  0981  M Z04 X84           69
  600  5 70          B     WRITE                                                    4  0988  B X67               69
  601  5 71   *
  602  5 72   * PROCESS SUFFIX
  603  5 73   *
  604  5 74   SFX    MCW   AOPHO,SFXCTR                                             7  0992  M 017 L23           69
  605  5 75          B     PUT                                                      4  0999  B Z77               70
  606  5 76   *
  607  5 77   * PROCESS ADDRESSES
  608  5 78   *
  609  5 79   PRCADD SBR   ADDRTN&003                                               4  1003  H '89               70
  610  5 80          MCW   @0@,ACTSW                                                7  1007  M Y92 Y67           70
  611  5 81          BWZ   LITTST,STLABL,K                                          8  1014  V '90 002 K         70
  612  5 82   TSTADD BWZ   ADDRTN,STADDR,B                                          8  1022  V '86 003 B         70
  613  5 83          BCE   ADDRTN,ADDRSW,1                                          8  1030  B '86 Y59 1         70
  614  5 84          A     ORGCTR,LABADD                                            7  1038  A Y53 061           71
  615  5 85          A     ORGCTR,SUPADD                                            7  1045  A Y53 066           71
  616  5 86          C     NOWCTR,LABADD&X3                                         7  1052  C Y48 0F1           71
  617  5 87          BL    *&008                                                    5  1059  B '71 T             71
  618  5 88          ZA    LABADD&X3,NOWCTR                                         7  1064  ? 0F1 Y48           71
  619  5 89          BCE   ADDRTN,LITRSW,1                                          8  1071  B '86 Y61 1         72
  620  5 90          MZ    ABBIT,STADDR                                             7  1079  Y 113 003           72
  621  5 91   ADDRTN B     XXXX                                                     4  1086  B 000               72
  622  5 92   LITTST MCW   DSAPUT,LABRTN&003                                        7  1090  M Y72 S97           72
  623  5 93          BCE   LITRAL,TYPE,/                                            8  1097  B T25 075 /         72
  624  5 94          B     TSTADD                                                   4  1105  B '22               72
  625  5 95   *
  626  5 96   * PROCESS LABEL
  627  5 97   *
  628  5 98   PROCLB SBR   LABRTN&003                                               4  1109  H S97               73
  629  5 99          BWZ   *&005,STLABL,2                                           8  1113  V /25 002 2         73
  630  6 00          B     LABRTN                                                   4  1121  B S94               73
  631  6 01          BCE   MRKPRC,LBLHO,                                            8  1125  B S80 008           73
  632  6 02          BCE   BTOLBL,ACTSW,1                                           8  1133  B /57 Y67 1         73
  633  6 03          BCE   TSTDBL,LITRSW,1                                          8  1141  B S07 Y61 1         74
  634  6 04          BCE   TSTDBL,ADDRSW,1                                          8  1149  B S07 Y59 1         74
  635  6 05   BTOLBL B     DOLABL                                                   4  1157  B T58               74
  636  6 06          B     SEARCH                                                   4  1161  B W29               74
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   13
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  637  6 07          BCE   DBLDEF,DBLSW,1                                           8  1165  B S98 Y64 1         74
  638  6 08          BCE   STORE,SPCSW,0                                            8  1173  B S69 Y63 0         75
  639  6 09   *
  640  6 10   * UNPROCESSED LABEL
  641  6 11   *
  642  6 12   UNPROC MCW   @1@,UNPRSW                                               7  1181  M Y93 L94           75
  643  6 13          A     @1@,TOTLAB                                               7  1188  A Y93 L93           75
  644  6 14          BCE   SETSWL,TYPE,/                                            8  1195  B S50 075 /         75
  645  6 15          B     LABRTN                                                   4  1203  B S94               75
  646  6 16   *
  647  6 17   * SEARCH TABLE FOR DBL DEF LITERAL
  648  6 18   *
  649  6 19   TSTDBL BCE   UNPROC,LBLHO,$                                           8  1207  B /81 008 $         76
  650  6 20          B     DOLABL                                                   4  1215  B T58               76
  651  6 21          B     SEARCH                                                   4  1219  B W29               76
  652  6 22          BCE   UNPROC,DBLSW,0                                           8  1223  B /81 Y64 0         76
  653  6 23          BCE   UNPROC,ADDHO,                                            8  1231  B /81 M!0           76
  654  6 24          MZ    BBIT,STLABL                                              7  1239  Y 112 002           76
  655  6 25          B     LABRTN                                                   4  1246  B S94               77
  656  6 26   *
  657  6 27   * UNPROCESSED LABEL OF LITERAL
  658  6 28   *
  659  6 29   SETSWL BCE   LABRTN,LBLHO,$                                           8  1250  B S94 008 $         77
  660  6 30          MCW   @11@,LITRSW                                              7  1258  M Z01 Y61           77
  661  6 31          B     LABRTN                                                   4  1265  B S94               77
  662  6 32   *
  663  6 33   * STORE LABEL IN TABLE
  664  6 34   *
  665  6 35   STORE  LCA   FNCTN,SYMBOL                                             7  1269  L L08 M!9           77
  666  6 36          LCA   HOLDAD                                                   4  1276  L Z12               77
  667  6 37   MRKPRC MZ    ABBIT,STLABL                                             7  1280  Y 113 002           78
  668  6 38          MCW   @1@,PROCSW                                               7  1287  M Y93 L95           78
  669  6 39   LABRTN B     XXXX                                                     4  1294  B 000               78
  670  6 40   *
  671  6 41   * DOUBLY DEFINED LABEL
  672  6 42   *
  673  6 43   DBLDEF BCE   STORE,ADDHO,                                             8  1298  B S69 M!0           78
  674  6 44          MZ    BBIT,STLABL                                              7  1306  Y 112 002           78
  675  6 45          BCE   LITRAL,TYPE,/                                            8  1313  B T25 075 /         79
  676  6 46          B     LABRTN                                                   4  1321  B S94               79
  677  6 47   *
  678  6 48   * DOUBLE DEFINED LITERAL
  679  6 49   *
  680  6 50   LITRAL BWZ   LABRTN,STBOP,B                                           8  1325  V S94 004 B         79
  681  6 51          MCW   @%@,TYPE                                                 7  1333  M Z05 075           79
  682  6 52          S     COUNT,ORGCTR                                             7  1340  S 007 Y53           79
  683  6 53          S     COUNT,NOWCTR                                             7  1347  S 007 Y48           80
  684  6 54          B     LABRTN                                                   4  1354  B S94               80
  685  6 55   *
  686  6 56   * SET UP LABEL & ADDRESS
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   14
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  687  6 57   * FOR TABLE SEARCH
  688  6 58   *
  689  6 59   DOLABL SBR   DOLABR&003                                               4  1358  H U34               80
  690  6 60          MCW   LABEL,FNCTN                                              7  1362  M 013 L08           80
  691  6 61          MCW   CNVLAB,ARGUMT#3                                          7  1369  M 056 Z08           80
  692  6 62   SETFUN BCE   *&5,FNCTN,                                               8  1376  B T88 L08           80
  693  6 63          B     *&8                                                      4  1384  B T95               81
  694  6 64          MCW   SFXCTR,FNCTN                                             7  1388  M L23 L08           81
  695  6 65          MCW   LABADD&X1,HOLDAD#004                                     7  1395  M 0W1 Z12           81
  696  6 66          BCE   DOINDX,HOADD&X1,0                                        8  1402  B U17 0V7 0         81
  697  6 67          MZ    ABIT,HOLDAD-003                                          7  1410  Y 111 Z09           81
  698  6 68   DOINDX MN    INDFTR,*&004                                             7  1417  D Y69 U27           82
  699  6 69          MZ    ZONE,HOLDAD-001                                          7  1424  Y 113 Z11           82
  700  6 70   DOLABR B     XXXX                                                     4  1431  B 000               82
  701  6 71   *
  702  6 72   * PROCESS A OPERAND OF ORIGIN & EQUATE
  703  6 73   *
  704  6 74   SETAOP SBR   AOPRTN&003                                               4  1435  H U87               82
  705  6 75          MCW   &BRSRH,DOLABR&003                                        7  1439  M Z15 U34           82
  706  6 76          MCW   AOPER,FNCTN                                              7  1446  M 022 L08           82
  707  6 77          MCW   AOP,ARGUMT                                               7  1453  M 070 Z08           83
  708  6 78          B     SETFUN                                                   4  1460  B T76               83
  709  6 79   BRSRH  B     SEARCH                                                   4  1464  B W29               83
  710  6 80          BCE   ADDBNK,DBLSW,1                                           8  1468  B V03 Y64 1         83
  711  6 81          BCE   STRBNK,SPCSW,0                                           8  1476  B U88 Y63 0         83
  712  6 82   AOPRTN B     XXXX                                                     4  1484  B 000               83
  713  6 83   *
  714  6 84   * LABEL NOT IN TABLE, STORE
  715  6 85   * WITH BLANK ADDRESS
  716  6 86   *
  717  6 87   STRBNK LCA   FNCTN,SYMBOL                                             7  1488  L L08 M!9           84
  718  6 88          LCA   @    @                                                   4  1495  L Z19               84
  719  6 89          B     AOPRTN                                                   4  1499  B U84               84
  720  6 90   *
  721  6 91   * RETRIEVE VALUE FROM TABLE
  722  6 92   *
  723  6 93   ADDBNK BCE   AOPRTN,ADDHO,                                            8  1503  B U84 M!0           84
  724  6 94          MCW   @1@,ORGSW                                                7  1511  M Y93 Y66           84
  725  6 95          BWZ   *&5,LBLREF,2                                             8  1518  V V30 M!1 2         84
  726  6 96          B     *&8                                                      4  1526  B V37               85
  727  6 97          MZ    ABIT,LBLREF                                              7  1530  Y 111 M!1           85
  728  6 98          MCW   ADDLO,LABADD                                             7  1537  M M!3 061           85
  729  6 99          BCE   AOPROC,LABADD-3,%                                        8  1544  B W18 058 %         85
  730  7 00          BWZ   *&008,LABADD-003,2                                       8  1552  V V67 058 2         85
  731  7 01          MCW   @1@,HOADD                                                7  1560  M Y93 057           86
  732  7 02          BCE   AOPRTN,TYPE,O                                            8  1567  B U84 075 O         86
  733  7 03   *
  734  7 04   * ADD CHARACTER ADJUSTMENT FOR EQUATE
  735  7 05   *
  736  7 06          MZ    LABADD-001,SAVEZN#001                                    7  1575  Y 060 Z20           86
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   15
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  737  7 07          A     AOPADJ,LABADD                                            7  1582  A 026 061           86
  738  7 08          MZ    SAVEZN,LABADD-001                                        7  1589  Y Z20 060           86
  739  7 09          BCE   AOPROC,AINDEX,                                           8  1596  B W18 027           87
  740  7 10          MN    INDFTR,*&004                                             7  1604  D Y69 W14           87
  741  7 11          MZ    ZONE,LABADD-001                                          7  1611  Y 113 060           87
  742  7 12   AOPROC MZ    ABBIT,STAOP                                              7  1618  Y 113 001           87
  743  7 13          B     AOPRTN                                                   4  1625  B U84               87
  744  7 14   *
  745  7 15   * TABLE SEARCH
  746  7 16   *
  747  7 17   SEARCH SBR   RETURN&003                                               4  1629  H X66               87
  748  7 18          MCW   DBLSW&001,DBLSW                                          7  1633  M Y65 Y64           88
  749  7 19          MCW   TABMAX,MAXADD                                            7  1640  M L11 L14           88
  750  7 20          MCW   ARGUMT,XR2                                               7  1647  M Z08 094           88
  751  7 21          MCW   SERCHS,MAXSER                                            7  1654  M L99 L22           88
  752  7 22   TBLSRH C     FNCTN,SYMBOL                                             7  1661  C L08 M!9           88
  753  7 23          BE    SETDBL                                                   5  1668  B X45 S             89
  754  7 24          BCE   RETURN,SYMHO,                                            8  1673  B X63 M!4           89
  755  7 25   BUMP   A     @010@,XR2                                                7  1681  A Z23 094           89
  756  7 26          S     @1@,MAXSER                                               7  1688  S Y93 L22           89
  757  7 27          BM    SETSPC,MAXSER                                            8  1695  V X56 L22 K         89
  758  7 28          C     XR2,MAXADD                                               7  1703  C 094 L14           90
  759  7 29          BU    TBLSRH                                                   5  1710  B W61 /             90
  760  7 30          BCE   SETSPC,WRAPSW,1                                          8  1715  B X56 Y62 1         90
  761  7 31          MCW   @1@,WRAPSW                                               7  1723  M Y93 Y62           90
  762  7 32          MCW   ARGUMT,MAXADD                                            7  1730  M Z08 L14           90
  763  7 33          S     XR2&001                                                  4  1737  S 095               90
  764  7 34          B     TBLSRH                                                   4  1741  B W61               91
  765  7 35   *
  766  7 36   * LABEL IN TABLE
  767  7 37   *
  768  7 38   SETDBL MCW   @1@,DBLSW                                                7  1745  M Y93 Y64           91
  769  7 39          B     RETURN                                                   4  1752  B X63               91
  770  7 40   *
  771  7 41   * SPACE AVAILABLE
  772  7 42   *
  773  7 43   SETSPC MCW   @1@,SPCSW                                                7  1756  M Y93 Y63           91
  774  7 44   RETURN B     XXXX                                                     4  1763  B 000               91
  775  7 45   *
  776  7 46   * INPUT/OUTPUT - PASS C
  777  7 47   *
  778  7 48   WRITE  WT    COUTPT,TPAREA                                            8  1767  M %U6 I18 W         91
  779  7 49          NOP   XXXX                                                     4  1775  N 000               91
  780  7 50          BER   TPERR                                                    5  1779  B !04 L             92
  781  7 51   BRANCH NOP   FINAL                                                    4  1784  N Y73               92
  782  7 52   READ   S     HOLDA                                                    4  1788  S L31               92
  783  7 53          RT    CINPUT,TPAREA                                            8  1792  M %U5 I18 R         92
  784  7 54          B     CHKLGT                                                   4  1800  B K08               92
  785  7 55          BER   TPERR                                                    5  1804  B !04 L             92
  786  7 56          B     NXTREC                                                   4  1809  B Z37               92
1                          AUTOCODER-PASS 5 MAIN LINE           -VERSION 3            3752L               PAGE   16
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  787  7 57   *
  788  7 58   * CLEAR TABLE AREA
  789  7 59   *
  790  7 60   CLRTAB MCW   CLRMAX,CLEAR&003                                         7  1813  M K99 Y23           93
  791  7 61   CLEAR  CS    XXXX                                                     4  1820  / 000               93
  792  7 62          SBR   CLEAR&003                                                4  1824  H Y23               93
  793  7 63          C     CLEAR&003,CLRMIN                                         7  1828  C Y23 L02           93
  794  7 64          BU    CLEAR                                                    5  1835  B Y20 /             93
  795  7 65          B     READ                                                     4  1840  B X88               93
  796  7 66   NOWCTR DCW   &00000                                                   5  1848                      93
  797  7 67   ORGCTR DCW   &00000                                                   5  1853                      94
  798  7 68   HGHCTR DCW   &00000                                                   5  1858                      94
  799  7 69   ADDRSW DCW   @0@                                                      1  1859                      94
  800  7 70   MAXSW  DC    @0@                                                      1  1860                      94
  801  7 71   LITRSW DC    @0@                                                      1  1861                      94
  802  7 72   WRAPSW DCW   @0@                                                      1  1862                      94
  803  7 73   SPCSW  DC    @0@                                                      1  1863                      94
  804  7 74   DBLSW  DC    @0@                                                      1  1864                      94
  805  7 75          DC    @0@                                                      1  1865                      94
  806  7 76   ORGSW  DCW   @0@                                                      1  1866                      94
  807  7 77   ACTSW  DCW   @0@                                                      1  1867                      94
  808  7 78   DASW   DCW   @0@                                                      1  1868                      94
  809  7 79   INDFTR DCW   @0@                                                      1  1869                      95
  810  7 80   DSAPUT DSA   PUT                                                      3  1872  Z77                 95
  811  7 81   *
  812  7 82   * END OF PASS C, GET PASS D
  813  7 83   *
  814  7 84   FINAL  WTM   COUTPT                                                   5  1873  U %U6 M             95
  815  7 85          RWD   CINPUT                                                   5  1878  U %U5 R             95
  816  7 86          RWD   COUTPT                                                   5  1883  U %U6 R             95
  817  7 87          B     RDPSSD                                                   4  1888  B K47               95
  818  7 88          LTORG *                                                                  1892
                     DCW   @0@                                                      1  1892              LIT     95
                     DCW   @1@                                                      1  1893              LIT     96
                     DCW   @005@                                                    3  1896              LIT     96
                     DCW   &AOPOR                                                   3  1899  536         ADCON   96
                     DCW   @11@                                                     2  1901              LIT     96
                     DCW   &00                                                      2  1903              LIT     96
                     DCW   @B@                                                      1  1904              LIT     96
                     DCW   @%@                                                      1  1905              LIT     96
              ARGUMT DCW   #03                                                      3  1908              AREA    97
              HOLDAD DCW   #04                                                      4  1912              AREA    97
                     DCW   &BRSRH                                                   3  1915  U64         ADCON   97
                     DCW   @    @                                                   4  1919              LIT     97
              SAVEZN DCW   #01                                                      1  1920              AREA    97
                     DCW   @010@                                                    3  1923              LIT     97
  819  7 89   ENDOFC DCW   @}@                                                      1  1924              GMARK   97
  820  7 90          XFR   LIBRN                                                             B 000               98
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   17
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  821  7 91          JOB   AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3
  822  7 92   *
  823  7 93   91     DCW   @00000@                                                  5  0091                     101
  824  7 94   96     DCW   @00000@                                                  5  0096                     101
  825  7 95   101    DCW   @00000@                                                  5  0101                     101
  826  7 96   109    DCW   @2SKB@                                                   4  0109                     102
  827  7 97   113    DCW   @2SKB@                                                   4  0113                     102
  828  7 98          ORG   ZONE&001                                                           0114
  829  7 99   *
  830  8 00   * DETERMINE RECORD TYPE
  831  8 01   *
  832  8 02          MCW   @0@,ASTRSW                                               7  0114  M U32 U18          102
  833  8 03          BM    PUT,CARD&005                                             8  0121  V Z77 005 K        102
  834  8 04          BCE   PUT,TYPE,%                                               8  0129  B Z77 075 %        102
  835  8 05          MN    TYPE,TYPEA#001                                           7  0137  D 075 U33          102
  836  8 06          BCE   PRINST,TYPEA,                                            8  0144  B 196 U33          103
  837  8 07          BCE   PRDSA,TYPEA,2                                            8  0152  B 318 U33 2        103
  838  8 08          BCE   PROEND,TYPEA,3                                           8  0160  B 446 U33 3        103
  839  8 09          BCE   PROSFX,TYPEA,4                                           8  0168  B S79 U33 4        103
  840  8 10          BCE   ORGEQU,TYPEA,6                                           8  0176  B 489 U33 6        104
  841  8 11          BCE   ORGEQU,TYPEA,7                                           8  0184  B 489 U33 7        104
  842  8 12          B     PUT                                                      4  0192  B Z77              104
  843  8 13   *
  844  8 14   * PROCESS INSTRUCTIONS
  845  8 15   *
  846  8 16   PRINST BWZ   SETAST,STADDR,2                                          8  0196  V 208 003 2        104
  847  8 17          B     LOADDR                                                   4  0204  B 215              104
  848  8 18   SETAST MCW   @1@,ASTRSW                                               7  0208  M U34 U18          104
  849  8 19   *
  850  8 20   * SET ASTERISK ADDRESS
  851  8 21   *
  852  8 22   LOADDR ZA    LABADD,ASTADD#005                                        7  0215  ? 061 U39          105
  853  8 23          A     COUNT,ASTADD                                             7  0222  A 007 U39          105
  854  8 24          S     @1@,ASTADD                                               7  0229  S U34 U39          105
  855  8 25   *
  856  8 26   * TEST FOR A OPERAND
  857  8 27   *
  858  8 28          BCE   PUT,COUNT,1                                              8  0236  B Z77 007 1        105
  859  8 29          BCE   PUT,COUNT,2                                              8  0244  B Z77 007 2        105
  860  8 30          BWZ   *&005,STAOP,2                                            8  0252  V 264 001 2        106
  861  8 31          B     SEEBOP                                                   4  0260  B 268              106
  862  8 32          B     PROCOP                                                   4  0264  B 578              106
  863  8 33   *
  864  8 34   * TEST FOR B OPERAND
  865  8 35   *
  866  8 36   SEEBOP BCE   PUT,COUNT,4                                              8  0268  B Z77 007 4        106
  867  8 37          BCE   PUT,COUNT,5                                              8  0276  B Z77 007 5        106
  868  8 38          BWZ   *&005,STBOP,2                                            8  0284  V 296 004 2        107
  869  8 39          B     PUT                                                      4  0292  B Z77              107
  870  8 40          MCW   @003@,XR3                                                7  0296  M U42 099          107
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   18
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  871  8 41          MCW   @011@,XR1                                                7  0303  M U45 089          107
  872  8 42          B     PROCOP                                                   4  0310  B 578              107
  873  8 43          B     PUT                                                      4  0314  B Z77              107
  874  8 44   *
  875  8 45   * PROCESS DSA AND ADCON
  876  8 46   *
  877  8 47   PRDSA  BWZ   *&005,STADDR,2                                           8  0318  V 330 003 2        108
  878  8 48          B     TSTPRC                                                   4  0326  B 434              108
  879  8 49          MCW   @1@,ASTRSW                                               7  0330  M U34 U18          108
  880  8 50   SETDSA ZA    LABADD,ASTADD                                            7  0337  ? 061 U39          108
  881  8 51          MCW   @003@,XR3                                                7  0344  M U42 099          108
  882  8 52          MCW   @011@,XR1                                                7  0351  M U45 089          109
  883  8 53          BWZ   *&005,STBOP,2                                            8  0358  V 370 004 2        109
  884  8 54          B     PUT                                                      4  0366  B Z77              109
  885  8 55          B     PROCOP                                                   4  0370  B 578              109
  886  8 56          BWZ   PUT,STBOP,2                                              8  0374  V Z77 004 2        109
  887  8 57          BCE   CMP16K,AINDEX,-                                          8  0382  B 409 027 -        109
  888  8 58   COMPRS MCW   &PUT,OPRTN&3                                             7  0390  M U48 /78          110
  889  8 59          BCE   PUT,AOP&1,%                                              8  0397  B Z77 071 %        110
  890  8 60          B     CNVTO3                                                   4  0405  B '94              110
  891  8 61   *
  892  8 62   * GET 16000 COMPLEMENT
  893  8 63   *
  894  8 64   CMP16K MCW   &16000,FNCTN-001                                         7  0409  M U53 L07          110
  895  8 65          S     HOLDAR,FNCTN-001                                         7  0416  S U58 L07          110
  896  8 66          ZA    FNCTN-001,HOLDAR#005                                     7  0423  ? L07 U58          111
  897  8 67          B     COMPRS                                                   4  0430  B 390              111
  898  8 68   TSTPRC BWZ   SETDSA,STBOP,2                                           8  0434  V 337 004 2        111
  899  8 69          B     PUT                                                      4  0442  B Z77              111
  900  8 70   *
  901  8 71   * PROCESS EX & END
  902  8 72   *
  903  8 73   PROEND S     ASTADD                                                   4  0446  S U39              111
  904  8 74          BWZ   *&005,STAOP,2                                            8  0450  V 462 001 2        111
  905  8 75          B     *&005                                                    4  0458  B 466              111
  906  8 76          B     PROCOP                                                   4  0462  B 578              112
  907  8 77          BCE   ENDOPN,TYPE,3                                            8  0466  B 478 075 3        112
  908  8 78          B     PUT                                                      4  0474  B Z77              112
  909  8 79   ENDOPN MCW   @B@,BRNCH2                                               7  0478  M U59 X84          112
  910  8 80          B     PUT                                                      4  0485  B Z77              112
  911  8 81   *
  912  8 82   * PROCESS ORIGIN & EQUATE
  913  8 83   *
  914  8 84   ORGEQU BWZ   *&005,STAOP,2                                            8  0489  V 501 001 2        112
  915  8 85          B     ORGOUT                                                   4  0497  B 574              112
  916  8 86          BCE   ORGOUT,AOPHO,                                            8  0501  B 574 017          113
  917  8 87          BWZ   ORGOUT,AOPHO,2                                           8  0509  V 574 017 2        113
  918  8 88          BCE   ORGOUT,AOPHO,*                                           8  0517  B 574 017 *        113
  919  8 89          BCE   ORGOUT,AOPHO,%                                           8  0525  B 574 017 %        113
  920  8 90          B     PROCOP                                                   4  0533  B 578              113
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   19
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  921  8 91          BWZ   ORGOUT,STAOP,2                                           8  0537  V 574 001 2        114
  922  8 92          MCW   @0@,ITERSW                                               7  0545  M U32 U28          114
  923  8 93          BCE   *&008,TYPEA,7                                            8  0552  B 567 U33 7        114
  924  8 94          MZ    BBIT,STAOP                                               7  0560  Y 112 001          114
  925  8 95          MCW   HOLDAR,LABADD                                            7  0567  M U58 061          114
  926  8 96   ORGOUT B     PUT                                                      4  0574  B Z77              115
  927  8 97   *
  928  8 98   * PROCESS OPERAND SUB-ROUTINE
  929  8 99   *
  930  9 00   PROCOP SBR   OPRTN&003                                                4  0578  H /78              115
  931  9 01          BWZ   *&005,STAOP&X3,2                                         8  0582  V 594 0?1 2        115
  932  9 02          B     OPRTN                                                    4  0590  B /75              115
  933  9 03          BCE   SETZRO,AOPHO&X1,                                         8  0594  B 942 0/7          115
  934  9 04          BCE   PERCNT,AOPHO&X1,%                                        8  0602  B 950 0/7 %        115
  935  9 05          BWZ   FLOAT,AOPHO&X1,2                                         8  0610  V S21 0/7 2        116
  936  9 06          BCE   PROAST,AOPHO&X1,*                                        8  0618  B /90 0/7 *        116
  937  9 07   *
  938  9 08   * CONVERT SYMBOL TO TABLE ADDRESS
  939  9 09   *
  940  9 10   CNVSYM BCE   *&005,AOP-002&X3,                                        8  0626  B 638 0F8          116
  941  9 11          B     SETSYM                                                   4  0634  B 804              116
  942  9 12          MCW   AOPER&X1,W6AREA#006                                      7  0638  M 0S2 U65          116
  943  9 13          BCE   *&5,W6AREA,                                              8  0645  B 657 U65          117
  944  9 14          B     *&8                                                      4  0653  B 664              117
  945  9 15          MCW   SFXCTR,W6AREA                                            7  0657  M L23 U65          117
  946  9 16          ZA    &2,HOLD2#002                                             7  0664  ? U66 U68          117
  947  9 17          ZA    W6AREA-2,HOLD4#004                                       7  0671  ? U63 U72          117
  948  9 18          A     W6AREA,HOLD4                                             7  0678  A U65 U72          118
  949  9 19          A     W6AREA,HOLD4-002                                         7  0685  A U65 U70          118
  950  9 20          MZ    NOBIT,HOLD4                                              7  0692  Y 110 U72          118
  951  9 21          ZA    FACTOR,HOLD7                                             7  0699  ? L88 U26          118
  952  9 22   MPYLP  MN    HOLD7,HOLD1                                              7  0706  D U26 U27          118
  953  9 23          ZA                                                             1  0713  ?                  118
  954  9 24   MULT   BCE   NXTDGT,HOLD1,?                                           8  0714  B 740 U27 ?        119
  955  9 25          A     HOLD4,HOLD7-002                                          7  0722  A U72 U24          119
  956  9 26          S     &1,HOLD1                                                 7  0729  S U73 U27          119
  957  9 27          B     MULT                                                     4  0736  B 714              119
  958  9 28   NXTDGT S     &1,HOLD2                                                 7  0740  S U73 U68          119
  959  9 29          BWZ   MPYLP,HOLD2,B                                            8  0747  V 706 U68 B        120
  960  9 30          MCW   @000@,AOP&X3                                             7  0755  M U76 0G0          120
  961  9 31          BAV   *&001                                                    5  0762  B 767 Z            120
  962  9 32   LOOP1  A     &96,HOLD7-005                                            7  0767  A U78 U21          120
  963  9 33          BAV   LOOP1                                                    5  0774  B 767 Z            120
  964  9 34          MZ    HOLD7-006,AOP&X3                                         7  0779  Y U20 0G0          120
  965  9 35          MCW   HOLD7-003                                                4  0786  M U23              121
  966  9 36          MN    HOLD7-005,*&004                                          7  0790  D U21 800          121
  967  9 37          MZ    ZONE2,AOP-002&X3                                         7  0797  Y 109 0F8          121
  968  9 38   *
  969  9 39   * SYMBOLIC OPERAND
  970  9 40   *
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   20
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  971  9 41   SETSYM MCW   AOPER&X1,FNCTN                                           7  0804  M 0S2 L08          121
  972  9 42          BCE   *&005,FNCTN,                                             8  0811  B 823 L08          121
  973  9 43          B     *&008                                                    4  0819  B 830              121
  974  9 44          MCW   SFXCTR,FNCTN                                             7  0823  M L23 L08          122
  975  9 45          MCW   TABMAX,MAXADD                                            7  0830  M L11 L14          122
  976  9 46          MCW   @0@,SWICH1                                               7  0837  M U32 U19          122
  977  9 47          MCW   AOP&X3,XR2                                               7  0844  M 0G0 094          122
  978  9 48          MCW   SERCHS,MAXSER                                            7  0851  M L99 L22          122
  979  9 49   *
  980  9 50   * TABLE SEARCH
  981  9 51   *
  982  9 52   SRHLOP C     FNCTN,SYMBOL                                             7  0858  C L08 M!9          123
  983  9 53          BE    RECALL                                                   5  0865  B 980 S            123
  984  9 54          BCE   UNDEF,SYMHO,                                             8  0870  B 961 M!4          123
  985  9 55   BUMPER A     @010@,XR2                                                7  0878  A U81 094          123
  986  9 56          S     @1@,MAXSER                                               7  0885  S U34 L22          123
  987  9 57          BM    UNDEF,MAXSER                                             8  0892  V 961 L22 K        124
  988  9 58          C     XR2,MAXADD                                               7  0900  C 094 L14          124
  989  9 59          BU    SRHLOP                                                   5  0907  B 858 /            124
  990  9 60          BCE   UNDEF,SWICH1,1                                           8  0912  B 961 U19 1        124
  991  9 61          MCW   @1@,SWICH1                                               7  0920  M U34 U19          124
  992  9 62          MCW   AOP&X3,MAXADD                                            7  0927  M 0G0 L14          125
  993  9 63          S     XR2&001                                                  4  0934  S 095              125
  994  9 64          B     SRHLOP                                                   4  0938  B 858              125
  995  9 65   *
  996  9 66   * BLANK OPERAND
  997  9 67   *
  998  9 68   SETZRO S     HOLDAR                                                   4  0942  S U58              125
  999  9 69          B     CHRADJ                                                   4  0946  B '49              125
 1000  9 70   *
 1001  9 71   * PERCENT OPERAND
 1002  9 72   *
 1003  9 73   PERCNT MCW   AOPER-003&X1,AOP&X3                                      7  0950  M 0/9 0G0          125
 1004  9 74          B     MARK                                                     4  0957  B /68              125
 1005  9 75   *
 1006  9 76   * UNDEFINED OPERAND
 1007  9 77   *
 1008  9 78   UNDEF  BCE   OPRTN,ITERSW,0                                           8  0961  B /75 U28 0        126
 1009  9 79          MCW   @###@,AOP&X3                                             7  0969  M U84 0G0          126
 1010  9 80          B     OPRTN                                                    4  0976  B /75              126
 1011  9 81   *
 1012  9 82   * RETRIEVE VALUE FROM TABLE
 1013  9 83   *
 1014  9 84   RECALL BCE   UNDEF,ADDHO,                                             8  0980  B 961 M!0          126
 1015  9 85          BWZ   *&5,LBLREF,2                                             8  0988  V '00 M!1 2        126
 1016  9 86          B     *&8                                                      4  0996  B '07              126
 1017  9 87          MZ    ABIT,LBLREF                                              7  1000  Y 111 M!1          127
 1018  9 88          MCW   ADDLO,HOLDAR                                             7  1007  M M!3 U58          127
 1019  9 89          MCW   @0@                                                      4  1014  M U32              127
 1020  9 90          BCE   IOADD,HOLDAR-003,%                                       8  1018  B /79 U55 %        127
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   21
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1021  9 91          BWZ   *&008,HOLDAR-003,2                                       8  1026  V '41 U55 2        127
 1022  9 92          MCW   @1@,HOLDAR-4                                             7  1034  M U34 U54          128
 1023  9 93          BCE   TSTCNV,TYPEA,6                                           8  1041  B '78 U33 6        128
 1024  9 94   *
 1025  9 95   * ADD CHARACTER ADJUSTMENT
 1026  9 96   *
 1027  9 97   CHRADJ MZ    HOLDAR-001,HOLDZN#001                                    7  1049  Y U57 U85          128
 1028  9 98          BCE   TSTCNV,AOPADJ-002&X1,X                                   8  1056  B '78 0S4 X        128
 1029  9 99          A     AOPADJ&X1,HOLDAR                                         7  1064  A 0S6 U58          128
 1030 10 00          MZ    HOLDZN,HOLDAR-001                                        7  1071  Y U85 U57          129
 1031 10 01   TSTCNV BM    MARK,TYPE                                                8  1078  V /68 075 K        129
 1032 10 02          BCE   MARK,TYPEA,2                                             8  1086  B /68 U33 2        129
 1033 10 03   *
 1034 10 04   * CONVERT FIVE DIGIT ADDRESS TO THREE DIGIT ADDR
 1035 10 05   *
 1036 10 06   CNVTO3 BAV   *&001                                                    5  1094  B '99 Z            129
 1037 10 07          A     @96@,HOLDAR-003                                          7  1099  A U87 U55          129
 1038 10 08          BAV   CNVTO3&005                                               5  1106  B '99 Z            130
 1039 10 09          MZ    HOLDAR-004,HOLDAR                                        7  1111  Y U54 U58          130
 1040 10 10          MN    HOLDAR-003,*&004                                         7  1118  D U55 /28          130
 1041 10 11          MZ    ZONE2,HOLDAR-002                                         7  1125  Y 109 U56          130
 1042 10 12          MZ    HOLDZN,HOLDAR-001                                        7  1132  Y U85 U57          130
 1043 10 13          BCE   STRADD,AINDEX&X1,                                        8  1139  B /61 0S7          131
 1044 10 14          MN    AINDEX&X1,*&004                                          7  1147  D 0S7 /57          131
 1045 10 15          MZ    ZONE,HOLDAR-001                                          7  1154  Y 113 U57          131
 1046 10 16   STRADD MCW   HOLDAR,AOP&X3                                            7  1161  M U58 0G0          131
 1047 10 17   *
 1048 10 18   * MARK OPERAND PROCESSING
 1049 10 19   *
 1050 10 20   MARK   MZ    ABBIT,STAOP&X3                                           7  1168  Y 113 0?1          131
 1051 10 21   OPRTN  B     XXXX                                                     4  1175  B 000              132
 1052 10 22   *
 1053 10 23   * I/O ADDRESS IN TABLE
 1054 10 24   *
 1055 10 25   IOADD  MCW   HOLDAR-001,AOP&X3                                        7  1179  M U57 0G0          132
 1056 10 26          B     MARK                                                     4  1186  B /68              132
 1057 10 27   *
 1058 10 28   * ASTERISK OPERAND
 1059 10 29   *
 1060 10 30   PROAST BCE   *&5,AOPER&X1,                                            8  1190  B S02 0S2          132
 1061 10 31          B     CNVSYM                                                   4  1198  B 626              132
 1062 10 32          BCE   OPRTN,ASTRSW,1                                           8  1202  B /75 U18 1        132
 1063 10 33          MCW   ASTADD,HOLDAR                                            7  1210  M U39 U58          133
 1064 10 34          B     CHRADJ                                                   4  1217  B '49              133
 1065 10 35   *
 1066 10 36   * ACTUAL OPERAND - FLOAT TO 5 DIGITS
 1067 10 37   *
 1068 10 38   FLOAT  BCE   CNVSYM,AOPHO&X1,#                                        8  1221  B 626 0/7 #        133
 1069 10 39          BCE   CNVSYM,AOPHO&X1,@                                        8  1229  B 626 0/7 @        133
 1070 10 40          BWZ   *&005,AOPER-004&X1,2                                     8  1237  V S49 0/8 2        133
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   22
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1071 10 41          B     CNVSYM                                                   4  1245  B 626              133
 1072 10 42          ZA    AOPER-001&X1,HOLDAR                                      7  1249  ? 0S1 U58          134
 1073 10 43   REFLOT BCE   *&005,HOLDAR,&                                           8  1256  B S68 U58 &        134
 1074 10 44          B     CHRADJ                                                   4  1264  B '49              134
 1075 10 45          ZA    HOLDAR-001,HOLDAR                                        7  1268  ? U57 U58          134
 1076 10 46          B     REFLOT                                                   4  1275  B S56              134
 1077 10 47   *
 1078 10 48   * PROCESS SUFFIX
 1079 10 49   *
 1080 10 50   PROSFX MCW   AOPHO,SFXCTR                                             7  1279  M 017 L23          134
 1081 10 51          B     PUT                                                      4  1286  B Z77              135
 1082 10 52   *
 1083 10 53   * INITIALIZE PASS D
 1084 10 54   *
 1085 10 55   PASSD  SW    GRPMK2-1                                                 4  1290  , U30              135
 1086 10 56          RTW   DINPUT,BYPRD                                             8  1294  L %U6 U29 R        135
 1087 10 57          CW    GRPMK2-1                                                 4  1302  ) U30              135
 1088 10 58          CS    CARD&80                                                  4  1306  / 080              135
 1089 10 59          SW    CARD&001,CARD&006                                        7  1310  , 001 006          135
 1090 10 60          SW    CARD&017,CARD&024                                        7  1317  , 017 024          135
 1091 10 61          SW    CARD&028,CARD&035                                        7  1324  , 028 035          136
 1092 10 62          SW    CARD&057,CARD&062                                        7  1331  , 057 062          136
 1093 10 63          SW    CARD&068,CARD&071                                        7  1338  , 068 071          136
 1094 10 64          MCW   BUMPOP,BUMPER                                            7  1345  M L27 878          136
 1095 10 65          MCW   @6@,TPHALT&4                                             7  1352  M U88 J15          136
 1096 10 66          MCW   @6@,TPHLT2&4                                             7  1359  M U88 K01          137
 1097 10 67          MCW   @6@,TPHLT3&4                                             7  1366  M U88 J42          137
 1098 10 68          MCW   TPAD,WRITE2&006                                          7  1373  M L34 X73          137
 1099 10 69          MCW   TPAD,READ2&010                                           7  1380  M L34 X98          137
 1100 10 70          MCW   @ @,SFXCTR                                               7  1387  M U89 L23          137
 1101 10 71   *
 1102 10 72   * TEST LAST ITERATION
 1103 10 73   *
 1104 10 74          BCE   LSTITR,PROCSW,0                                          8  1394  B U07 L95 0        138
 1105 10 75          BCE                                                            1  1402  B                  138
 1106 10 76          B     READ2                                                    4  1403  B X88              138
 1107 10 77   LSTITR MCW   @1@,ITERSW                                               7  1407  M U34 U28          138
 1108 10 78          B     READ2                                                    4  1414  B X88              138
 1109 10 79   ASTRSW DCW   0                                                        1  1418                     138
 1110 10 80   SWICH1 DCW   @0@                                                      1  1419                     138
 1111 10 81   HOLD7  DCW   @       @                                                7  1426                     139
 1112 10 82   HOLD1  DCW   &0                                                       1  1427                     139
 1113 10 83   ITERSW DCW   @0@                                                      1  1428                     139
 1114 10 84   BYPRD  DCW   @ @                                                      1  1429                     139
 1115 10 85   GRPMK2 DC    @} @                                                     2  1431                     139
 1116 10 86   SSOP   EQU   1900                                                        1900
 1117 10 87          LTORG *                                                                  1432
                     DCW   @0@                                                      1  1432              LIT    139
              TYPEA  DCW   #01                                                      1  1433              AREA   139
                     DCW   @1@                                                      1  1434              LIT    139
1                          AUTOCODER-PASS 6-PROCESS OPERANDS    -VERSION 3            3761L               PAGE   23
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
              ASTADD DCW   #05                                                      5  1439              AREA   140
                     DCW   @003@                                                    3  1442              LIT    140
                     DCW   @011@                                                    3  1445              LIT    140
                     DCW   &PUT                                                     3  1448  Z77         ADCON  140
                     DCW   &16000                                                   5  1453              LIT    140
              HOLDAR DCW   #05                                                      5  1458              AREA   140
                     DCW   @B@                                                      1  1459              LIT    140
              W6AREA DCW   #06                                                      6  1465              AREA   141
                     DCW   &2                                                       1  1466              LIT    141
              HOLD2  DCW   #02                                                      2  1468              AREA   141
              HOLD4  DCW   #04                                                      4  1472              AREA   141
                     DCW   &1                                                       1  1473              LIT    141
                     DCW   @000@                                                    3  1476              LIT    141
                     DCW   &96                                                      2  1478              LIT    141
                     DCW   @010@                                                    3  1481              LIT    142
                     DCW   @###@                                                    3  1484              LIT    142
              HOLDZN DCW   #01                                                      1  1485              AREA   142
                     DCW   @96@                                                     2  1487              LIT    142
                     DCW   @6@                                                      1  1488              LIT    142
                     DCW   @ @                                                      1  1489              LIT    142
 1118 10 88   *
 1119 10 89   * INPUT/OUTPUT - PASS D
 1120 10 90   *
 1121 10 91          ORG   WRITE                                                              1767
 1122 10 92   WRITE2 WT    DOUTPT,TPAREA                                            8  1767  M %U5 I18 W        143
 1123 10 93          NOP   XXXX                                                     4  1775  N 000              143
 1124 10 94          BER   TPERR                                                    5  1779  B !04 L            143
 1125 10 95   BRNCH2 NOP   FINALD                                                   4  1784  N Y13              143
 1126 10 96   READ2  S     HOLDA                                                    4  1788  S L31              143
 1127 10 97          RT    DINPUT,TPAREA                                            8  1792  M %U6 I18 R        143
 1128 10 98          B     CHKLGT                                                   4  1800  B K08              143
 1129 10 99          BER   TPERR                                                    5  1804  B !04 L            144
 1130 11 00          B     NXTRECD                                                  4  1809  B Z37              144
 1131 11 01   *
 1132 11 02   FINALD WTM   DOUTPT                                                   5  1813  U %U5 M            144
 1133 11 03          RWD   DINPUT                                                   5  1818  U %U6 R            144
 1134 11 04          RWD   DOUTPT                                                   5  1823  U %U5 R            144
 1135 11 05          RTW   SYSTPE,333                                               8  1828  L %U1 333 R        144
 1136 11 06          NOP   XXXX                                                     4  1836  N 000              144
 1137 11 07          BER   TPERR                                                    5  1840  B !04 L            145
 1138 11 08          CW    ENDOVL                                                   4  1845  ) S45              145
 1139 11 09          MCW   BUMPOP,TSTLST                                            7  1849  M L27 474          145
 1140 11 10          MCW   BUMPOP,NOT                                               7  1856  M L27 726          145
 1141 11 11          B     TSTREF                                                   4  1863  B 333              145
 1142 11 12          DCW   @ @                                                      1  1867                     145
 1143 11 13   ENDOFD DCW   @}@                                                      1  1868              GMARK  145
 1144 11 14          EX    LIBRN                                                             B 000              146
1                          AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3            3762L               PAGE   24
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1145 11 15          JOB   AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3
 1146 11 16   *
 1147 11 17          ORG   333                                                                0333
 1148 11 18   *
 1149 11 19   * END OF PASS D
 1150 11 20   *
 1151 11 21   * PRINT LIST OF UNREFERENCED LABELS
 1152 11 22   *
 1153 11 23   TSTREF CS    0332                                                     4  0333  / 332              149
 1154 11 24          CS                                                             1  0337  /                  149
 1155 11 25          S     XR3&1                                                    4  0338  S 100              149
 1156 11 26          S                                                              1  0342  S                  149
 1157 11 27          S                                                              1  0343  S                  149
 1158 11 28          SW    HEADSW#001                                               4  0344  , /80              149
 1159 11 29   NXTLBL BCE   TSTLST,SYMHO,                                            8  0348  B 474 M!4          149
 1160 11 30          BCE   TSTLST,ADDHO,                                            8  0356  B 474 M!0          150
 1161 11 31          BCE   LOZNG,SYMHO,)                                            8  0364  B 530 M!4 )        150
 1162 11 32          C     SYMHO,@A@                                                7  0372  C M!4 /81          150
 1163 11 33          BH    DOREF                                                    5  0379  B 441 U            150
 1164 11 34          C     SYMHO,@Z@                                                7  0384  C M!4 /82          150
 1165 11 35          BL    DOREF                                                    5  0391  B 441 T            151
 1166 11 36          MN    SYMHO,XR3                                                7  0396  D M!4 099          151
 1167 11 37          BWZ   SWTAB,SYMHO,B                                            8  0403  V 433 M!4 B        151
 1168 11 38          A     @010@,XR3                                                7  0411  A /85 099          151
 1169 11 39          BM    SWTAB,SYMHO                                              8  0418  V 433 M!4 K        151
 1170 11 40          A     @010@,XR3                                                7  0426  A /85 099          152
 1171 11 41   SWTAB  SW    SORTAB&X3                                                4  0433  , /D8              152
 1172 11 42          S     XR3&2                                                    4  0437  S 101              152
 1173 11 43   DOREF  BWZ   *&5,LBLREF,2                                             8  0441  V 453 M!1 2        152
 1174 11 44          B     TSTLST                                                   4  0449  B 474              152
 1175 11 45          BW    NEWPGE,HEADSW                                            8  0453  V 502 /80 1        152
 1176 11 46   DONEXT CW    HEADSW                                                   4  0461  ) /80              152
 1177 11 47          B     PRINT                                                    4  0465  B 538              153
 1178 11 48          W                                                              1  0469  2                  153
 1179 11 49          CS    216                                                      4  0470  / 216              153
 1180 11 50   TSTLST A     @010@,XR2                                                7  0474  A /85 094          153
 1181 11 51          C     XR2,TABMAX                                               7  0481  C 094 L11          153
 1182 11 52          BE    DUMP                                                     5  0488  B 646 S            153
 1183 11 53          BCV   NEWPGE                                                   5  0493  B 502 @            153
 1184 11 54          B     NXTLBL                                                   4  0498  B 348              154
 1185 11 55   NEWPGE CC    1                                                        2  0502  F 1                154
 1186 11 56          MCW   @UNREFERENCED LABELS@,219                                7  0504  M S04 219          154
 1187 11 57          CC    T                                                        2  0511  F T                154
 1188 11 58          W                                                              1  0513  2                  154
 1189 11 59          CS    0219                                                     4  0514  / 219              154
 1190 11 60          BW    DONEXT,HEADSW                                            8  0518  V 461 /80 1        154
 1191 11 61          B     NXTLBL                                                   4  0526  B 348              155
 1192 11 62   LOZNG  SW    LIST-1                                                   4  0530  , /78              155
 1193 11 63          B     DOREF                                                    4  0534  B 441              155
 1194 11 64   *
1                          AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3            3762L               PAGE   25
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1195 11 65   * PRINT SUBROUTINE FOR UNREFERENCED LABELS & SYMBOL TABBLE
 1196 11 66   *
 1197 11 67   PRINT  SBR   PRTXT&3                                                  4  0538  H 634              155
 1198 11 68          MCW   SYMBOL,206&X1                                            7  0542  M M!9 2'6          155
 1199 11 69          BCE   DOIO,ADDHO,%                                             8  0549  B 635 M!0 %        155
 1200 11 70          MN    ADDLO,212&X1                                             7  0557  D M!3 2/2          155
 1201 11 71          MN                                                             1  0564  D                  156
 1202 11 72          MN                                                             1  0565  D                  156
 1203 11 73          MN                                                             1  0566  D                  156
 1204 11 74          BWZ   *&8,ADDHO,2                                              8  0567  V 582 M!0 2        156
 1205 11 75          MCW   @1@,208&X1                                               7  0575  M S05 2'8          156
 1206 11 76          BWZ   PRTXT,ADDLO-1,2                                          8  0582  V 631 M!2 2        156
 1207 11 77          MN    @1@,215&X1                                               7  0590  D S05 2/5          156
 1208 11 78          MCW   @&X@                                                     4  0597  M S07              157
 1209 11 79          BWZ   PRTXT,ADDLO-1,S                                          8  0601  V 631 M!2 S        157
 1210 11 80          MN    @2@,215&X1                                               7  0609  D S08 2/5          157
 1211 11 81          BWZ   PRTXT,ADDLO-1,K                                          8  0616  V 631 M!2 K        157
 1212 11 82          MN    @3@,215&X1                                               7  0624  D S09 2/5          157
 1213 11 83   PRTXT  B     XXXX                                                     4  0631  B 000              157
 1214 11 84   DOIO   MCW   ADDLO,212&X1                                             7  0635  M M!3 2/2          158
 1215 11 85          B     PRTXT                                                    4  0642  B 631              158
 1216 11 86   *
 1217 11 87   * PRINT SYMBOL TABLE
 1218 11 88   *
 1219 11 89   DUMP   B     NXTPGE                                                   4  0646  B 859              158
 1220 11 90          S     XR3&1                                                    4  0650  S 100              158
 1221 11 91          S                                                              1  0654  S                  158
 1222 11 92          S                                                              1  0655  S                  158
 1223 11 93   NXTCTR SW    ENDSW#1                                                  4  0656  , S10              158
 1224 11 94          BW    SCAN,SORTAB&1&X3                                         8  0660  V 687 /D9 1        159
 1225 11 95   BMPXR3 BCE   TSTEOJ,SORTAB&1&X3,@                                     8  0668  B 888 /D9 @        159
 1226 11 96          A     &1,XR3                                                   7  0676  A S11 099          159
 1227 11 97          B     NXTCTR                                                   4  0683  B 656              159
 1228 11 98   SCAN   BCE   BMPXR3,SORTAB&1&X3,!                                     8  0687  B 668 /D9 !        159
 1229 11 99          BCE   BMPXR3,SORTAB&1&X3,'                                     8  0695  B 668 /D9 '        160
 1230 12 00          BCE   BMPXR3,SORTAB&1&X3,/                                     8  0703  B 668 /D9 /        160
 1231 12 01          MCW   SORTAB&1&X3,TSTLBL&7                                     7  0711  M /D9 725          160
 1232 12 02   TSTLBL BCE   DOPNT,SYMHO,X                                            8  0718  B 777 M!4 X        160
 1233 12 03   NOT    A     @010@,XR2                                                7  0726  A /85 094          160
 1234 12 04          C     XR2,TABMAX                                               7  0733  C 094 L11          161
 1235 12 05          BU    TSTLBL                                                   5  0740  B 718 /            161
 1236 12 06          S     XR2&1                                                    4  0745  S 095              161
 1237 12 07          S                                                              1  0749  S                  161
 1238 12 08          A     &1,XR3                                                   7  0750  A S11 099          161
 1239 12 09          CW    ENDSW                                                    4  0757  ) S10              161
 1240 12 10          BW    PNTSYM,PNTSW                                             8  0761  V 812 S18 1        161
 1241 12 11          SW    PNTSW                                                    4  0769  , S18              162
 1242 12 12          B     TSTESW                                                   4  0773  B 847              162
 1243 12 13   DOPNT  BCE   NOT,ADDHO,                                               8  0777  B 726 M!0          162
 1244 12 14          B     PRINT                                                    4  0785  B 538              162
1                          AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3            3762L               PAGE   26
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1245 12 15          SW    PNTSW                                                    4  0789  , S18              162
 1246 12 16          A     @016@,XR1                                                7  0793  A S14 089          162
 1247 12 17          C     XR1,@128@                                                7  0800  C 089 S17          162
 1248 12 18          BU    NOT                                                      5  0807  B 726 /            163
 1249 12 19   PNTSYM W                                                              1  0812  2                  163
 1250 12 20          CW    PNTSW#1                                                  4  0813  ) S18              163
 1251 12 21          CS    332                                                      4  0817  / 332              163
 1252 12 22          CS                                                             1  0821  /                  163
 1253 12 23          S     XR1&1                                                    4  0822  S 090              163
 1254 12 24          BW    *&9,ENDSW                                                8  0826  V 842 S10 1        163
 1255 12 25          BCE   TSTEOJ,SORTAB&1&X3,@                                     8  0834  B 888 /D9 @        164
 1256 12 26          BCV   NXTPGE                                                   5  0842  B 859 @            164
 1257 12 27   TSTESW BW    NOT,ENDSW                                                8  0847  V 726 S10 1        164
 1258 12 28          B     NXTCTR                                                   4  0855  B 656              164
 1259 12 29   NXTPGE SBR   PGXT&3                                                   4  0859  H 887              164
 1260 12 30          CS    332                                                      4  0863  / 332              164
 1261 12 31          CS                                                             1  0867  /                  164
 1262 12 32          CC    1                                                        2  0868  F 1                165
 1263 12 33          MCW   @SYMBOL TABLE@,212                                       7  0870  M S30 212          165
 1264 12 34          W                                                              1  0877  2                  165
 1265 12 35          CC    K                                                        2  0878  F K                165
 1266 12 36          CS    212                                                      4  0880  / 212              165
 1267 12 37   PGXT   B     XXXX                                                     4  0884  B 000              165
 1268 12 38   TSTEOJ BW    *&3,HEADSW                                               8  0888  V 898 /80 1        165
 1269 12 39          CC    1                                                        2  0896  F 1                166
 1270 12 391         CS    332                                                      4  0898  / 332              166
 1271 12 392         CHAIN 3                                                                             MACRO
 1272                CS                                                             1  0902  /           GEN    166
 1273                CS                                                             1  0903  /           GEN    166
 1274                CS                                                             1  0904  /           GEN    166
 1275 12 40          BCE   EOJOB,ITERSW,1                                           8  0905  B 997 U28 1        166
 1276 12 41   *
 1277 12 42   * GET PASS C
 1278 12 43   *
 1279 12 44          BSP   SYSTPE                                                   5  0913  U %U1 B            166
 1280 12 45          BSP   SYSTPE                                                   5  0918  U %U1 B            167
 1281 12 46          MCW   @5@,TPHALT&4                                             7  0923  M S31 J15          167
 1282 12 47          MCW   @5@,TPHLT2&4                                             7  0930  M S31 K01          167
 1283 12 48          MCW   @5@,TPHLT3&4                                             7  0937  M S31 J42          167
 1284 12 49          MCW   @00@,PROCSW                                              7  0944  M S33 L95          167
 1285 12 50          MCW   @ @,SFXCTR                                               7  0951  M S34 L23          168
 1286 12 51   *
 1287 12 52   * SET NUMBER OF SEEKS FOR TABLE SEARCH
 1288 12 53   *
 1289 12 54          C     TOTLAB,TABLSZ                                            7  0958  C L93 L18          168
 1290 12 55          MCW   TABLSZ,SERCHS                                            7  0965  M L18 L99          168
 1291 12 56          S     TOTLAB                                                   4  0972  S L93              168
 1292 12 57          BE    RDPSSC                                                   5  0976  B K72 S            168
 1293 12 58          BH    RDPSSC                                                   5  0981  B K72 U            168
 1294 12 59          MCW   &0009,SERCHS                                             7  0986  M S38 L99          169
1                          AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3            3762L               PAGE   27
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1295 12 60          B     RDPSSC                                                   4  0993  B K72              169
 1296 12 61   *
 1297 12 62   * LAST ITERATION, GET PASS C
 1298 12 63   *
 1299 12 64   EOJOB  CW    GRPMK2-1                                                 4  0997  ) U30              169
 1300 12 65          CS    3999                                                     4  1001  / I99              169
 1301 12 66          BCE   READE,MACHSZ,3                                           8  1005  B '44 L89 3        169
 1302 12 67          CS    4799                                                     4  1013  / 79Z              169
 1303 12 68          CHAIN 7                                                                             MACRO
 1304                CS                                                             1  1017  /           GEN    169
 1305                CS                                                             1  1018  /           GEN    170
 1306                CS                                                             1  1019  /           GEN    170
 1307                CS                                                             1  1020  /           GEN    170
 1308                CS                                                             1  1021  /           GEN    170
 1309                CS                                                             1  1022  /           GEN    170
 1310                CS                                                             1  1023  /           GEN    170
 1311 12 681  CLR    CS    3999                                                     4  1024  / I99              170
 1312 12 682         SBR   CLR&3                                                    4  1028  H '27              171
 1313 12 683         C     CLR&3,&SSOP-1                                            7  1032  C '27 S41          171
 1314 12 684         BU    CLR                                                      5  1039  B '24 /            171
 1315 12 69   READE  RTW   SYSTPE,SSOP                                              8  1044  L %U1 Z00 R        171
 1316 12 70          BER   SYSERR                                                   5  1052  B '68 L            171
 1317 12 71   GOTOE  MCW   @N@,SSOP                                                 7  1057  M S42 Z00          171
 1318 12 72          B     SSOP&1                                                   4  1064  B Z01              172
 1319 12 73   SYSERR MCW   &9,RDCT#1                                                7  1068  M S43 S44          172
 1320 12 74          BSP   SYSTPE                                                   5  1075  U %U1 B            172
 1321 12 75   RETRY  RTW   SYSTPE,SSOP                                              8  1080  L %U1 Z00 R        172
 1322 12 76          BER   AGAIN                                                    5  1088  B '97 L            172
 1323 12 77          B     GOTOE                                                    4  1093  B '57              172
 1324 12 78   AGAIN  BSP   SYSTPE                                                   5  1097  U %U1 B            172
 1325 12 79          S     @1@,RDCT                                                 7  1102  S S05 S44          173
 1326 12 80          BWZ   RETRY,RDCT,B                                             8  1109  V '80 S44 B        173
 1327 12 81          H     XXXX,691                                                 7  1117  . 000 691          173
 1328 12 82          RTW   SYSTPE,SSOP                                              8  1124  L %U1 Z00 R        173
 1329 12 83          BSS   SYSERR,E                                                 5  1132  B '68 E            173
 1330 12 84          H     XXXX,612                                                 7  1137  . 000 612          174
 1331 12 85          B     GOTOE                                                    4  1144  B '57              174
 1332 12 86   LIST   DCW   @ ABCDEFGHI!JKLMNOPQR'/STUVWXYZ)@@                      32  1179                     175
 1333 12 87   SORTAB EQU   LIST-31                                                     1148
 1334 12 88          LTORG *                                                                  1180
              HEADSW DCW   #01                                                      1  1180              AREA   175
                     DCW   @A@                                                      1  1181              LIT    175
                     DCW   @Z@                                                      1  1182              LIT    175
                     DCW   @010@                                                    3  1185              LIT    175
                     DCW   @UNREFERENCED LABELS@                                   19  1204              LIT    176
                     DCW   @1@                                                      1  1205              LIT    176
                     DCW   @&X@                                                     2  1207              LIT    176
                     DCW   @2@                                                      1  1208              LIT    176
                     DCW   @3@                                                      1  1209              LIT    176
              ENDSW  DCW   #01                                                      1  1210              AREA   176
1                          AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3            3762L               PAGE   28
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
                     DCW   &1                                                       1  1211              LIT    176
                     DCW   @016@                                                    3  1214              LIT    177
                     DCW   @128@                                                    3  1217              LIT    177
              PNTSW  DCW   #01                                                      1  1218              AREA   177
                     DCW   @SYMBOL TABLE@                                          12  1230              LIT    177
                     DCW   @5@                                                      1  1231              LIT    177
                     DCW   @00@                                                     2  1233              LIT    177
                     DCW   @ @                                                      1  1234              LIT    177
                     DCW   &0009                                                    4  1238              LIT    178
                     DCW   &SSOP-1                                                  3  1241  Y99         ADCON  178
                     DCW   @N@                                                      1  1242              LIT    178
                     DCW   &9                                                       1  1243              LIT    178
              RDCT   DCW   #01                                                      1  1244              AREA   178
 1335 12 89   ENDOVL DCW   @}@                                                      1  1245              GMARK  178
 1336 12 90          EX    LIBRN                                                             B 000              179
 1337 12 91          END   LIBRN                                                             / 000 080
1                          AUTOCODER-PASS 6 PRINT SYMBOL TABLE  -VERSION 3            3762L               PAGE   29
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ABBIT     113    ABIT      111    ACTSW    1867    ACTUAL    761    ADDBNK   1503    ADDHO    2400+X2 ADDLO    2403+X2
 ADDRSW   1859    ADDRTN   1086    AGAIN    1097    AINDEX     27    ANAL      114    AOP        70    AOPADJ     26   
 AOPER      22    AOPHO      17    AOPOR     536    AOPOUT    669    AOPROC   1618    AOPRTN   1484    ARGUMT   1908   
 ASTADD   1439    ASTRSK    708    ASTRSW   1418    BBIT      112    BLKAOP    735    BLKCT    2330    BLKG12   2852   
 BLKG8K   2836    BMPXR3    668    BRANCH   1784    BRNCH2   1784    BRSRH    1464    BSP1     2040    BSP2     2084   
 BTOADD    887    BTOLAB    474    BTOLBL   1157    BUMP     1681    BUMPER    878    BUMPOP   2327    BYPRD    1429   
 CARD        0    CHKLGT   2208    CHRADJ   1049    CINPUT  %U5      CLEAR    1820    CLR      1024    CLRMAX   2299   
 CLRMIN   2302    CLRTAB   1813    CMP16K    409    CNVLAB     56    CNVSYM    626    CNVTO3   1094    COMPRS    390   
 CONST     260    COUNT       7    COUTPT  %U6      DA        871    DASW     1868    DBLDEF   1298    DBLSW    1864   
 DINPUT  %U6      DOINDX   1417    DOIO      635    DOLABL   1358    DOLABR   1431    DONEXT    461    DOPNT     777   
 DOREF     441    DOUTPT  %U5      DS        295    DSAPUT   1872    DUMP      646    ENDINT   2901    ENDOFC   1924   
 ENDOFD   1868    ENDOPN    478    ENDOVL   1245    ENDSW    1210    EOJOB     997    EXEND     973    FACTOR   2388   
 FINAL    1873    FINALD   1813    FLOAT    1221    FNCTN    2308    GET      1925    GOTOE    1057    GPMRK3   3998   
 GRPMK2   1431    GRPMRK   2866    HEADSW   1180    HGHCTR   1858    HOADD      57    HOLD1    1427    HOLD2    1468   
 HOLD4    1472    HOLD7    1426    HOLDA    2331    HOLDAD   1912    HOLDAR   1458    HOLDZN   1485    INDFTR   1869   
 INITAP  %U0      INPUT    3917+X3 INST2    2169    INSTR     219    IOADD    1179    ITERSW   1428    KBLKNG   2326   
 KEEP1    2877    LABADD     61    LABEL      13    LABRTN   1294    LBLHO       8    LBLREF   2401+X2 LGTCK    2223   
 LGTXT    2243    LIBRN       0    LIMAD    2894    LIMIT    3931    LIST     1179    LITRAL   1325    LITRSW   1861   
 LITTST   1090    LOADDR    215    LOOP1     767    LOZNG     530    LSTITR   1407    MACHSZ   2389    MARK     1168   
 MAXADD   2314    MAXSER   2322    MAXSW    1860    MDTP     2882    MDTP12   2865    MDTP8K   2849    MOVEIN   1951   
 MPYLP     706    MRKPRC   1280    MULT      714    NEWPGE    502    NOBIT     110    NOT       726    NOWCTR   1848   
 NXTCNT    655    NXTCTR    656    NXTDGT    740    NXTLBL    348    NXTPGE    859    NXTREC   1937    OPRTN    1175   
 ORG       376    ORGADD     32    ORGCTR   1853    ORGEQU    489    ORGOUT    574    ORGSAV    432    ORGSW    1866   
 ORIGDA    926    PASSD    1290    PERCNT    950    PGXT      884    PNTSW    1218    PNTSYM    812    PRCADD   1003   
 PRCAST    283    PRDSA     318    PRINST    196    PRINT     538    PROAST   1190    PROCLB   1109    PROCOP    578   
 PROCSW   2395    PROCTU    361    PROEND    446    PROSFX   1279    PRTXT     631    PUT      1977    RDCT     1244   
 RDPSSC   2272    RDPSSD   2247    RDRERR   2077    READ     1788    READ2    1788    READCT   2338    READE    1044   
 RECALL    980    REDXT    2073    REFLOT   1256    RETRY    1080    RETURN   1763    RSTSWA    616    SAVETP  %U4     
 SAVEZN   1920    SCAN      687    SCNTB     806    SEARCH   1629    SEEBOP    268    SERCHS   2399    SET8K    2620   
 SETAOP   1435    SETAST    208    SETBMP   2718    SETDBL   1745    SETDSA    337    SETFUN   1376    SETHGH    405   
 SETIO    2493    SETORG    609    SETSPC   1756    SETSWL   1250    SETSWS    598    SETSYM    804    SETTP    2662   
 SETZRO    942    SFX       992    SFXCTR   2323    SORTAB   1148    SPCSW    1863    SRHLOP    858    SSOP     1900   
 STADDR      3    STAOP       1    STBOP       4    STLABL      2    STORE    1269    STRADD   1161    STRBNK   1488   
 STRSAV    502    SUBCTR   2186    SUPADD     66    SWICH1   1419    SWTAB     433    SYMBOL   2409+X2 SYMHO    2404+X2
 SYSERR   1068    SYSTPE  %U1      TABLE    2409    TABLSZ   2318    TABMAX   2311    TBLM12   2859    TBLM8K   2843   
 TBLSRH   1661    TBSZ12   2856    TBSZ8K   2840    TOTLAB   2393    TPAD     2334    TPAD12   2862    TPAD8K   2846   
 TPAREA   3918    TPERR    2004    TPHALT   2111    TPHLT2   2197    TPHLT3   2138    TPINST   2060    TSTADD   1022   
 TSTCNV   1078    TSTDBL   1207    TSTEOJ    888    TSTESW    847    TSTLBL    718    TSTLST    474    TSTPRC    434   
 TSTREF    333    TSTRPT    910    TSTX00    821    TYPE       75    TYPEA    1433    UNDEF     961    UNPROC   1181   
 UNPRSW   2394    W6AREA   1465    WRAPSW   1862    WRITE    1767    WRITE2   1767    WRTCTR   2341    WRTRED   2149   
 XR1        89    XR2        94    XR3        99    XXXX        0    ZONE      113    ZONE2     109   


---------------------  source code ----------------------


 101 000       job  autocoder-pass 5-process labels-initl-version 3        3751l
 102           ctl  63011
 103 *
 104 * equates used by program
 105 *
 106 initap    equ  %u0
 107 systpe    equ  %u1
 108 savetp    equ  %u4
 109 cinput    equ  %u5
 110 coutpt    equ  %u6
 111 doutpt    equ  %u5
 112 dinput    equ  %u6
 113 table     equ  2409
 114 addlo     equ  table-006&x2
 115 symho     equ  table-005&x2
 116 addho     equ  table-009&x2
 117 lblref    equ  table-008&x2
 118 symbol    equ  table&x2
 119 card      equ  0
 120 staop     equ  card&001
 121 stlabl    equ  card&002
 122 staddr    equ  card&003
 123 stbop     equ  card&004
 124 count     equ  card&007
 125 label     equ  card&013
 126 aoper     equ  card&022
 127 aopadj    equ  card&026
 128 aindex    equ  card&027
 129 orgadd    equ  card&032
 130 cnvlab    equ  card&056
 131 labadd    equ  card&061
 132 supadd    equ  card&066
 133 aop       equ  card&070
 134 type      equ  card&075
 135 aopho     equ  card&017
 136 lblho     equ  card&008
 137 hoadd     equ  card&057
 138 tparea    equ  3918
 139 input     equ  tparea-001&x3
 140 limit     equ  tparea&13
 141 xxxx      equ  0
 142 gpmrk3    equ  3998
 143 librn     equ  0
 144 *
 145 *
 146 * get, put, redundancy &
 147 * crossover routines common
 148 * to both passes
 149 *
 150 *
 151           org  endofc&1
 152 *
 153 * get & put
 154 *
 155 get       c    blkct,kblkng
 156           be   write
 157 nxtrec    a    &80,blkct
 158           mcw  blkct,xr3
 159 movein    mcw  input,card&80
 160           chain9
 161           s    xr3&001
 162           s
 163           s
 164           b    anal
 165 put       mcw  blkct,xr3
 166           mcw  card&80,input
 167           chain9
 168           b    get
 169 *
 170 *tape redundancy routine
 171 *
 172 tperr     sbr  xr1
 173           sbr  redxt&3
 174           mz   &9,xr1
 175           mcw  4000-10&x1,tpinst&7
 176           mn   tpinst&3,bsp1&3
 177           mcw  tpinst&7,inst2&7
 178 bsp1      bsp  initap
 179           bce  wrtred,tpinst&7,w
 180           mcw  &9,readct#1
 181 tpinst    rt   initap,xxxx
 182           ber  rdrerr
 183 redxt     b    xxxx
 184 rdrerr    mn   tpinst&3,bsp2&3
 185 bsp2      bsp  initap
 186           s    &1,readct
 187           bwz  tpinst,readct,b
 188           mn   tpinst&3,tphalt&6
 189 tphalt    h    xxxx,590
 190           mcw  tpinst&7,*&8
 191           rt   initap,xxxx
 192           bss  bsp1,e
 193 tphlt3    h    xxxx,511
 194           b    redxt
 195 wrtred    skp  systpe
 196           bce  subctr,wrtctr-1,5
 197           a    &1,wrtctr#2
 198 inst2     wt   initap,xxxx
 199           ber  bsp1
 200           b    redxt
 201 subctr    s    wrtctr
 202           mn   tpinst&3,*&7
 203 tphlt2    h    xxxx,560
 204           b    inst2
 205 *
 206 * check for short records
 207 *
 208 chklgt    sbr  xr1
 209           sbr  lgtxt&3
 210           mz   &9,xr1
 211 lgtck     bce  4000-12&x1,limit,}
 212           chain12
 213 lgtxt     b    xxxx
 214 *
 215 * crossover, c to d
 216 *
 217 rdpssd    rtw  systpe,1
 218           nop  xxxx
 219           ber  tperr
 220           cw   endofd
 221           b    passd
 222 *
 223 * crossover, d to c
 224 *
 225 rdpssc    rtw  coutpt,1
 226           nop  xxxx
 227           ber  tperr
 228           cw   endofc
 229           b    clrtab
 230 *
 231 * common constants
 232 *
 233 clrmax    dcw  @i97@
 234 clrmin    dsa  table-010
 235 fnctn     dcw  @      @
 236 tabmax    dcw  @v00@
 237 maxadd    dcw  @   @
 238 tablsz    dcw  &0150
 239 maxser    dcw  @    @
 240 sfxctr    dcw  @ @
 241 kblkng    dcw  @080@
 242 bumpop    dcw  @#@
 243 holda     dcw  &0000
 244 blkct     equ  holda-1
 245 tpad      dsa  tparea
 246           ltorg*
 247 *
 248 * protected constants
 249 *
 250 factor    equ  table-021
 251 machsz    equ  table-020
 252 totlab    equ  table-016
 253 unprsw    equ  table-015
 254 procsw    equ  table-014
 255 serchs    equ  table-010
 256 *
 257 * initialize pass c one time
 258 *
 259           org  table-009
 260           rwd  savetp
 261           rwd  cinput
 262           rwd  coutpt
 263           cs   3999
 264           sw   grpmrk
 265           lca  @00@,procsw
 266           lca  &0150,serchs
 267           lca  @0015@,factor
 268           rtw  systpe,1
 269           nop  xxxx
 270           ber  tperr
 271           cw   endint
 272 *
 273 * set i/o group mark
 274 *
 275           mcw  machsz,keep1#001
 276           a    &3,keep1
 277           mn   keep1,*&004
 278           mz   zone2,*&007
 279 setio     lca  grpmrk,gpmrk3
 280           bwz  setbmp,setio&006,2
 281           cs   4799
 282           cs   4399
 283           mcw  @#@,bump
 284           bce  set8k,machsz,4
 285 *
 286 * 12k constants
 287 *
 288           mcw  blkg12,kblkng
 289           mcw  tbsz12,tablsz
 290           mcw  tblm12,tabmax
 291           mcw  tpad12,tpad
 292           mcw  mdtp12,mdtp#003
 293           a    &72,factor
 294           bce  settp,machsz,5
 295 *
 296 * 16k constants
 297 *
 298           a    &400,tablsz
 299           a    &40,factor
 300           mz   abbit,tabmax
 301           mz   abbit,tpad
 302           mz   abbit,mdtp
 303           b    settp
 304 *
 305 * 8k constants
 306 *
 307 set8k     mcw  blkg8k,kblkng
 308           mcw  tbsz8k,tablsz
 309           mcw  tblm8k,tabmax
 310           mcw  tpad8k,tpad
 311           mcw  mdtp8k,mdtp
 312           a    &36,factor
 313 settp     mz   tpad,clrmax
 314           mcw  mdtp,movein&003
 315           mcw  mdtp,put&013
 316           mcw  tpad,write&006
 317           mcw  tpad,read&010
 318           mcw  tpad,limad#3
 319           ma   &13,limad                  ??? &013 ???
 320           mcw  limad,lgtck&6
 321 setbmp    mcw  bump,bumpop
 322           lca  grpmrk,endofc
 323 *
 324 * write pass c checkpoint on 6
 325 *
 326           cs   80
 327           sw   card&001,card&006
 328           sw   card&017,card&024
 329           sw   card&028,card&035
 330           sw   card&057,card&062
 331           sw   card&068,card&071
 332           wtw  coutpt,1
 333           nop  xxxx
 334           ber  tperr
 335           cw   endofc,grpmrk
 336           c    totlab,tablsz
 337           mcw  tablsz,serchs
 338           s    totlab
 339           be   clrtab
 340           bh   clrtab
 341           mcw  &0009,serchs
 342           b    clrtab
 343 blkg8k    dcw  @400@
 344 tbsz8k    dcw  &0510
 345 tblm8k    dsa  5100
 346 tpad8k    dsa  7598
 347 mdtp8k    dsa  7597&x3
 348 blkg12    dcw  @800@
 349 tbsz12    dcw  &0870
 350 tblm12    dsa  8700
 351 tpad12    dsa  11198
 352 mdtp12    dsa  11197&x3
 353 grpmrk    dc   @}@
 354           ltorg*
 355 endint    dcw  @}@
 356           xfr  librn
 357           job  autocoder-pass 5 main line           -version 3        3752l
 358 *
 359 * pass c-load symbol table& set addresses
 360 *
 361 zone      equ  113
 362 113       dcw  @2skb@
 363 zone2     equ  109
 364 109       dcw  @2skb@
 365 abbit     equ  zone
 366 bbit      equ  zone-001
 367 abit      equ  zone-002
 368 nobit     equ  zone-003
 369 xr1       equ  89
 370 89        dcw  @000@
 371 xr2       equ  94
 372 94        dcw  @000@
 373 xr3       equ  99
 374 99        dcw  @000@
 375           org  zone&001
 376 *
 377 * determine record type
 378 *
 379 anal      bm   put,card&005
 380           bce  put,type,%
 381           bce  instr,type,
 382           mn   type,xr2
 383           bce  da,xr2,0
 384           mcw  @0@,indftr
 385           mcw  @0@,dasw
 386           a    xr2
 387           a    xr2
 388           b    *&001&x2
 389           nop  xxxx
 390           b    const
 391           b    const
 392           b    exend
 393           b    sfx
 394           b    put
 395           b    org
 396           b    ds
 397           b    put
 398           b    put
 399 *
 400 * process instructions
 401 *
 402 instr     mcw  @0@,indftr
 403           b    prcadd
 404           b    proclb
 405           bwz  put,staddr,2
 406           a    count,nowctr
 407           s    @1@,nowctr
 408           b    put
 409 *
 410 * process constants & dcw
 411 *
 412 const     bce  prcast,aopho,*
 413           mcw  @1@,actsw
 414           b    proclb
 415           b    put
 416 *
 417 * constantds with asterisk address
 418 *
 419 prcast    b    prcadd
 420           b    proclb
 421           b    put
 422 *
 423 * process ds & equates
 424 *
 425 ds        bce  proctu,aopho,%
 426           a    aindex,indftr
 427           bce  const,aopho,*
 428           bwz  const,aopho,2
 429           bwz  *&5,staop,2
 430           b    const
 431 *
 432 * equate
 433 *
 434           b    setaop
 435           mcw  dsaput,labrtn&003
 436           bwz  unproc,staop,2
 437           b    const
 438 *
 439 * ds of input device
 440 *
 441 proctu    mcw  aoper-003,labadd-001
 442           mcw  @0@
 443           b    const
 444 *
 445 * process origin & literal origin
 446 *
 447 org       bwz  sethgh,card&033,b
 448           za   labadd,orgadd
 449           a    @1@,orgadd
 450           mz   abbit,card&033
 451 sethgh    bce  orgsav,maxsw,1
 452           c    nowctr,hghctr
 453           bh   orgsav
 454           za   nowctr,hghctr
 455 *
 456 * process save counter of origin
 457 *
 458 orgsav    bce  aopor,lblho,
 459           mcw  @005@,xr1
 460           mcw  &aopor,labrtn&003
 461           bwz  *&005,stlabl,2
 462           b    aopor
 463           bce  strsav,supadd,
 464 btolab    b    dolabl
 465           b    search
 466           bce  store,dblsw,1
 467           bce  store,spcsw,0
 468           b    unproc
 469 strsav    bce  unproc,addrsw,1
 470           bce  unproc,litrsw,1
 471           mcw  nowctr,supadd
 472           a    @1@,supadd
 473           b    btolab
 474 *
 475 * process a operand of origin
 476 *
 477 aopor     bwz  *&005,staop,2
 478           b    actual
 479           bce  astrsk,aopho,*
 480           mcw  @0@,litrsw
 481           s    nowctr
 482           bce  blkaop,aopho,
 483 *
 484 * symbolic origin
 485 *
 486           mcw  @0@,orgsw
 487           s    xr1&001
 488           b    setaop
 489           bce  setorg,orgsw,1
 490 setsws    mcw  @11@,maxsw
 491           b    scntb&7
 492 setorg    mcw  labadd,orgctr
 493 rstswa    mcw  @0@,addrsw
 494           bce  *&005,aopadj-002,x
 495           b    aopout
 496 *
 497 * adjustment of x00
 498 *
 499           bce  nxtcnt,aopho,*
 500           c    orgctr,&00
 501           be   aopout
 502 nxtcnt    mcw  &00,orgctr
 503           a    @1@,orgctr-002
 504 aopout    a    orgctr,orgadd
 505           za   orgctr,labadd
 506           za   orgadd,nowctr
 507           s    @1@,nowctr
 508           mz   abbit,staop
 509           b    put
 510 *
 511 * origin asterisk
 512 *
 513 astrsk    bce  put,addrsw,1
 514           bce  setsws,litrsw,1
 515           mcw  nowctr,orgctr
 516           b    rstswa
 517 *
 518 * origin maximum
 519 *
 520 blkaop    bce  setsws,maxsw,1
 521           mcw  hghctr,orgctr
 522           a    @1@,orgctr
 523           b    rstswa
 524 *
 525 * origin actual or processed
 526 *
 527 actual    za   orgadd,nowctr
 528           s    @1@,nowctr
 529           bce  tstx00,aopho,*
 530           mcw  @0@,litrsw
 531           bwz  scntb,aopho,2
 532           bwz  setorg,staop,k
 533 scntb     mcw  @0@,addrsw
 534           s    orgctr
 535           b    put
 536 tstx00    bce  put,aopadj-002,x
 537           bwz  put,card&034,b
 538           a    orgctr,orgadd
 539           bce  put,addrsw,1
 540           bce  put,litrsw,1
 541           mz   abbit,card&34
 542           b    actual
 543 *
 544 * process da statements
 545 *
 546 da        bce  origda,type,0
 547           bce  tstrpt,actsw,1
 548 btoadd    c    labadd,supadd
 549           bl   *&8
 550           mcw  @005@,xr3
 551           b    prcadd
 552 tstrpt    bce  put,type,'
 553           b    proclb
 554           b    put
 555 *
 556 * da header
 557 *
 558 origda    mcw  @0@,indftr
 559           a    aindex,indftr
 560           mcw  @1@,dasw
 561           mcw  @0@,actsw
 562           bce  btoadd,aopho,*
 563           mcw  @1@,actsw
 564           b    tstrpt
 565 *
 566 * ??? missing from listing in CE manual ***
 567 * ??? missing from listing in CE manual ***
 568 exend     bwz  put,type,b
 569           mcw  @b@,branch
 570           b    write
 571 *
 572 * process suffix
 573 *
 574 sfx       mcw  aopho,sfxctr
 575           b    put
 576 *
 577 * process addresses
 578 *
 579 prcadd    sbr  addrtn&003
 580           mcw  @0@,actsw
 581           bwz  littst,stlabl,k
 582 tstadd    bwz  addrtn,staddr,b
 583           bce  addrtn,addrsw,1
 584           a    orgctr,labadd
 585           a    orgctr,supadd
 586           c    nowctr,labadd&x3
 587           bl   *&008
 588           za   labadd&x3,nowctr
 589           bce  addrtn,litrsw,1
 590           mz   abbit,staddr
 591 addrtn    b    xxxx
 592 littst    mcw  dsaput,labrtn&003
 593           bce  litral,type,/
 594           b    tstadd
 595 *
 596 * process label
 597 *
 598 proclb    sbr  labrtn&003
 599           bwz  *&005,stlabl,2
 600           b    labrtn
 601           bce  mrkprc,lblho,
 602           bce  btolbl,actsw,1
 603           bce  tstdbl,litrsw,1
 604           bce  tstdbl,addrsw,1
 605 btolbl    b    dolabl
 606           b    search
 607           bce  dbldef,dblsw,1
 608           bce  store,spcsw,0
 609 *
 610 * unprocessed label
 611 *
 612 unproc    mcw  @1@,unprsw
 613           a    @1@,totlab
 614           bce  setswl,type,/
 615           b    labrtn
 616 *
 617 * search table for dbl def literal
 618 *
 619 tstdbl    bce  unproc,lblho,$
 620           b    dolabl
 621           b    search
 622           bce  unproc,dblsw,0
 623           bce  unproc,addho,
 624           mz   bbit,stlabl
 625           b    labrtn
 626 *
 627 * unprocessed label of literal
 628 *
 629 setswl    bce  labrtn,lblho,$
 630           mcw  @11@,litrsw
 631           b    labrtn
 632 *
 633 * store label in table
 634 *
 635 store     lca  fnctn,symbol
 636           lca  holdad
 637 mrkprc    mz   abbit,stlabl
 638           mcw  @1@,procsw
 639 labrtn    b    xxxx
 640 *
 641 * doubly defined label
 642 *
 643 dbldef    bce  store,addho,
 644           mz   bbit,stlabl
 645           bce  litral,type,/
 646           b    labrtn
 647 *
 648 * double defined literal
 649 *
 650 litral    bwz  labrtn,stbop,b
 651           mcw  @%@,type
 652           s    count,orgctr
 653           s    count,nowctr
 654           b    labrtn
 655 *
 656 * set up label & address
 657 * for table search
 658 *
 659 dolabl    sbr  dolabr&003
 660           mcw  label,fnctn
 661           mcw  cnvlab,argumt#3
 662 setfun    bce  *&5,fnctn,
 663           b    *&8
 664           mcw  sfxctr,fnctn
 665           mcw  labadd&x1,holdad#004
 666           bce  doindx,hoadd&x1,0
 667           mz   abit,holdad-003
 668 doindx    mn   indftr,*&004
 669           mz   zone,holdad-001
 670 dolabr    b    xxxx
 671 *
 672 * process a operand of origin & equate
 673 *
 674 setaop    sbr  aoprtn&003
 675           mcw  &brsrh,dolabr&003
 676           mcw  aoper,fnctn
 677           mcw  aop,argumt
 678           b    setfun
 679 brsrh     b    search
 680           bce  addbnk,dblsw,1
 681           bce  strbnk,spcsw,0
 682 aoprtn    b    xxxx
 683 *
 684 * label not in table, store
 685 * with blank address
 686 *
 687 strbnk    lca  fnctn,symbol
 688           lca  @    @
 689           b    aoprtn
 690 *
 691 * retrieve value from table
 692 *
 693 addbnk    bce  aoprtn,addho,
 694           mcw  @1@,orgsw
 695           bwz  *&5,lblref,2
 696           b    *&8
 697           mz   abit,lblref
 698           mcw  addlo,labadd
 699           bce  aoproc,labadd-3,%
 700           bwz  *&008,labadd-003,2
 701           mcw  @1@,hoadd
 702           bce  aoprtn,type,o
 703 *
 704 * add character adjustment for equate
 705 *
 706           mz   labadd-001,savezn#001
 707           a    aopadj,labadd
 708           mz   savezn,labadd-001
 709           bce  aoproc,aindex,
 710           mn   indftr,*&004
 711           mz   zone,labadd-001
 712 aoproc    mz   abbit,staop
 713           b    aoprtn
 714 *
 715 * table search
 716 *
 717 search    sbr  return&003
 718           mcw  dblsw&001,dblsw
 719           mcw  tabmax,maxadd
 720           mcw  argumt,xr2
 721           mcw  serchs,maxser
 722 tblsrh    c    fnctn,symbol
 723           be   setdbl
 724           bce  return,symho,
 725 bump      a    @010@,xr2
 726           s    @1@,maxser
 727           bm   setspc,maxser
 728           c    xr2,maxadd
 729           bu   tblsrh
 730           bce  setspc,wrapsw,1
 731           mcw  @1@,wrapsw
 732           mcw  argumt,maxadd
 733           s    xr2&001
 734           b    tblsrh
 735 *
 736 * label in table
 737 *
 738 setdbl    mcw  @1@,dblsw
 739           b    return
 740 *
 741 * space available
 742 *
 743 setspc    mcw  @1@,spcsw
 744 return    b    xxxx
 745 *
 746 * input/output - pass c
 747 *
 748 write     wt   coutpt,tparea
 749           nop  xxxx
 750           ber  tperr
 751 branch    nop  final
 752 read      s    holda
 753           rt   cinput,tparea
 754           b    chklgt
 755           ber  tperr
 756           b    nxtrec
 757 *
 758 * clear table area
 759 *
 760 clrtab    mcw  clrmax,clear&003
 761 clear     cs   xxxx
 762           sbr  clear&003
 763           c    clear&003,clrmin
 764           bu   clear
 765           b    read
 766 nowctr    dcw  &00000
 767 orgctr    dcw  &00000
 768 hghctr    dcw  &00000
 769 addrsw    dcw  @0@
 770 maxsw     dc   @0@
 771 litrsw    dc   @0@
 772 wrapsw    dcw  @0@
 773 spcsw     dc   @0@
 774 dblsw     dc   @0@
 775           dc   @0@
 776 orgsw     dcw  @0@
 777 actsw     dcw  @0@
 778 dasw      dcw  @0@
 779 indftr    dcw  @0@
 780 dsaput    dsa  put
 781 *
 782 * end of pass c, get pass d
 783 *
 784 final     wtm  coutpt
 785           rwd  cinput
 786           rwd  coutpt
 787           b    rdpssd
 788           ltorg*
 789 endofc    dcw  @}@
 790           xfr  librn
 791           job  autocoder-pass 6-process operands    -version 3        3761l
 792 *
 793 91        dcw  @00000@
 794 96        dcw  @00000@
 795 101       dcw  @00000@
 796 109       dcw  @2skb@
 797 113       dcw  @2skb@
 798           org  zone&001
 799 *
 800 * determine record type
 801 *
 802           mcw  @0@,astrsw
 803           bm   put,card&005
 804           bce  put,type,%
 805           mn   type,typea#001
 806           bce  prinst,typea,
 807           bce  prdsa,typea,2
 808           bce  proend,typea,3
 809           bce  prosfx,typea,4
 810           bce  orgequ,typea,6
 811           bce  orgequ,typea,7
 812           b    put
 813 *
 814 * process instructions
 815 *
 816 prinst    bwz  setast,staddr,2
 817           b    loaddr
 818 setast    mcw  @1@,astrsw
 819 *
 820 * set asterisk address
 821 *
 822 loaddr    za   labadd,astadd#005
 823           a    count,astadd
 824           s    @1@,astadd
 825 *
 826 * test for a operand
 827 *
 828           bce  put,count,1
 829           bce  put,count,2
 830           bwz  *&005,staop,2
 831           b    seebop
 832           b    procop
 833 *
 834 * test for b operand
 835 *
 836 seebop    bce  put,count,4
 837           bce  put,count,5
 838           bwz  *&005,stbop,2
 839           b    put
 840           mcw  @003@,xr3
 841           mcw  @011@,xr1
 842           b    procop
 843           b    put
 844 *
 845 * process dsa and adcon
 846 *
 847 prdsa     bwz  *&005,staddr,2
 848           b    tstprc
 849           mcw  @1@,astrsw
 850 setdsa    za   labadd,astadd
 851           mcw  @003@,xr3
 852           mcw  @011@,xr1
 853           bwz  *&005,stbop,2
 854           b    put
 855           b    procop
 856           bwz  put,stbop,2
 857           bce  cmp16k,aindex,-
 858 comprs    mcw  &put,oprtn&3
 859           bce  put,aop&1,%
 860           b    cnvto3
 861 *
 862 * get 16000 complement
 863 *
 864 cmp16k    mcw  &16000,fnctn-001
 865           s    holdar,fnctn-001
 866           za   fnctn-001,holdar#005
 867           b    comprs
 868 tstprc    bwz  setdsa,stbop,2
 869           b    put
 870 *
 871 * process ex & end
 872 *
 873 proend    s    astadd
 874           bwz  *&005,staop,2
 875           b    *&005
 876           b    procop
 877           bce  endopn,type,3
 878           b    put
 879 endopn    mcw  @b@,brnch2
 880           b    put
 881 *
 882 * process origin & equate
 883 *
 884 orgequ    bwz  *&005,staop,2
 885           b    orgout
 886           bce  orgout,aopho,
 887           bwz  orgout,aopho,2
 888           bce  orgout,aopho,*
 889           bce  orgout,aopho,%
 890           b    procop
 891           bwz  orgout,staop,2
 892           mcw  @0@,itersw
 893           bce  *&008,typea,7
 894           mz   bbit,staop
 895           mcw  holdar,labadd
 896 orgout    b    put
 897 *
 898 * process operand sub-routine
 899 *
 900 procop    sbr  oprtn&003
 901           bwz  *&005,staop&x3,2
 902           b    oprtn
 903           bce  setzro,aopho&x1,
 904           bce  percnt,aopho&x1,%
 905           bwz  float,aopho&x1,2
 906           bce  proast,aopho&x1,*
 907 *
 908 * convert symbol to table address
 909 *
 910 cnvsym    bce  *&005,aop-002&x3,
 911           b    setsym
 912           mcw  aoper&x1,w6area#006
 913           bce  *&5,w6area,
 914           b    *&8
 915           mcw  sfxctr,w6area
 916           za   &2,hold2#002
 917           za   w6area-2,hold4#004
 918           a    w6area,hold4
 919           a    w6area,hold4-002
 920           mz   nobit,hold4
 921           za   factor,hold7
 922 mpylp     mn   hold7,hold1
 923           za
 924 mult      bce  nxtdgt,hold1,?
 925           a    hold4,hold7-002
 926           s    &1,hold1
 927           b    mult
 928 nxtdgt    s    &1,hold2
 929           bwz  mpylp,hold2,b
 930           mcw  @000@,aop&x3
 931           bav  *&001
 932 loop1     a    &96,hold7-005
 933           bav  loop1
 934           mz   hold7-006,aop&x3
 935           mcw  hold7-003
 936           mn   hold7-005,*&004
 937           mz   zone2,aop-002&x3
 938 *
 939 * symbolic operand
 940 *
 941 setsym    mcw  aoper&x1,fnctn
 942           bce  *&005,fnctn,
 943           b    *&008
 944           mcw  sfxctr,fnctn
 945           mcw  tabmax,maxadd
 946           mcw  @0@,swich1
 947           mcw  aop&x3,xr2
 948           mcw  serchs,maxser
 949 *
 950 * table search
 951 *
 952 srhlop    c    fnctn,symbol
 953           be   recall
 954           bce  undef,symho,
 955 bumper    a    @010@,xr2
 956           s    @1@,maxser
 957           bm   undef,maxser
 958           c    xr2,maxadd
 959           bu   srhlop
 960           bce  undef,swich1,1
 961           mcw  @1@,swich1
 962           mcw  aop&x3,maxadd
 963           s    xr2&001
 964           b    srhlop
 965 *
 966 * blank operand
 967 *
 968 setzro    s    holdar
 969           b    chradj
 970 *
 971 * percent operand
 972 *
 973 percnt    mcw  aoper-003&x1,aop&x3
 974           b    mark
 975 *
 976 * undefined operand
 977 *
 978 undef     bce  oprtn,itersw,0
 979           mcw  @###@,aop&x3
 980           b    oprtn
 981 *
 982 * retrieve value from table
 983 *
 984 recall    bce  undef,addho,
 985           bwz  *&5,lblref,2
 986           b    *&8
 987           mz   abit,lblref
 988           mcw  addlo,holdar
 989           mcw  @0@
 990           bce  ioadd,holdar-003,%
 991           bwz  *&008,holdar-003,2
 992           mcw  @1@,holdar-4
 993           bce  tstcnv,typea,6
 994 *
 995 * add character adjustment
 996 *
 997 chradj    mz   holdar-001,holdzn#001
 998           bce  tstcnv,aopadj-002&x1,x
 999           a    aopadj&x1,holdar
1000           mz   holdzn,holdar-001
1001 tstcnv    bm   mark,type
1002           bce  mark,typea,2
1003 *
1004 * convert five digit address to three digit addr
1005 *
1006 cnvto3    bav  *&001
1007           a    @96@,holdar-003
1008           bav  cnvto3&005
1009           mz   holdar-004,holdar
1010           mn   holdar-003,*&004
1011           mz   zone2,holdar-002
1012           mz   holdzn,holdar-001
1013           bce  stradd,aindex&x1,
1014           mn   aindex&x1,*&004
1015           mz   zone,holdar-001
1016 stradd    mcw  holdar,aop&x3
1017 *
1018 * mark operand processing
1019 *
1020 mark      mz   abbit,staop&x3
1021 oprtn     b    xxxx
1022 *
1023 * I/O address in table
1024 *
1025 ioadd     mcw  holdar-001,aop&x3
1026           b    mark
1027 *
1028 * asterisk operand
1029 *
1030 proast    bce  *&5,aoper&x1,
1031           b    cnvsym
1032           bce  oprtn,astrsw,1
1033           mcw  astadd,holdar
1034           b    chradj
1035 *
1036 * actual operand - float to 5 digits
1037 *
1038 float     bce  cnvsym,aopho&x1,#
1039           bce  cnvsym,aopho&x1,@
1040           bwz  *&005,aoper-004&x1,2
1041           b    cnvsym
1042           za   aoper-001&x1,holdar
1043 reflot    bce  *&005,holdar,&
1044           b    chradj
1045           za   holdar-001,holdar
1046           b    reflot
1047 *
1048 * process suffix
1049 *
1050 prosfx    mcw  aopho,sfxctr
1051           b    put
1052 *
1053 * initialize pass d
1054 *
1055 passd     sw   grpmk2-1
1056           rtw  dinput,byprd
1057           cw   grpmk2-1
1058           cs   card&80
1059           sw   card&001,card&006
1060           sw   card&017,card&024
1061           sw   card&028,card&035
1062           sw   card&057,card&062
1063           sw   card&068,card&071
1064           mcw  bumpop,bumper
1065           mcw  @6@,tphalt&4
1066           mcw  @6@,tphlt2&4
1067           mcw  @6@,tphlt3&4
1068           mcw  tpad,write2&006
1069           mcw  tpad,read2&010
1070           mcw  @ @,sfxctr
1071 *
1072 * test last iteration
1073 *
1074           bce  lstitr,procsw,0
1075           bce
1076           b    read2
1077 lstitr    mcw  @1@,itersw
1078           b    read2
1079 astrsw    dcw  0
1080 swich1    dcw  @0@
1081 hold7     dcw  @       @
1082 hold1     dcw  &0
1083 itersw    dcw  @0@
1084 byprd     dcw  @ @
1085 grpmk2    dc   @} @
1086 ssop      equ  1900
1087           ltorg*
1088 *
1089 * input/output - pass d
1090 *
1091           org  write
1092 write2    wt   doutpt,tparea
1093           nop  xxxx
1094           ber  tperr
1095 brnch2    nop  finald
1096 read2     s    holda
1097           rt   dinput,tparea
1098           b    chklgt
1099           ber  tperr
1100           b    nxtrecd
1101 *
1102 finald    wtm  doutpt
1103           rwd  dinput
1104           rwd  doutpt
1105           rtw  systpe,333
1106           nop  xxxx
1107           ber  tperr
1108           cw   endovl
1109           mcw  bumpop,tstlst
1110           mcw  bumpop,not
1111           b    tstref
1112           dcw  @ @
1113 endofd    dcw  @}@
1114           ex   librn
1115           job  autocoder-pass 6 print symbol table  -version 3        3762l
1116 *
1117           org  333
1118 *
1119 * end of pass d
1120 *
1121 * print list of unreferenced labels
1122 *
1123 tstref    cs   0332
1124           cs
1125           s    xr3&1
1126           s
1127           s
1128           sw   headsw#001
1129 nxtlbl    bce  tstlst,symho,
1130           bce  tstlst,addho,
1131           bce  lozng,symho,)
1132           c    symho,@A@
1133           bh   doref
1134           c    symho,@Z@
1135           bl   doref
1136           mn   symho,xr3
1137           bwz  swtab,symho,b
1138           a    @010@,xr3
1139           bm   swtab,symho
1140           a    @010@,xr3
1141 swtab     sw   sortab&x3
1142           s    xr3&2
1143 doref     bwz  *&5,lblref,2
1144           b    tstlst
1145           bw   newpge,headsw
1146 donext    cw   headsw
1147           b    print
1148           w
1149           cs   216
1150 tstlst    a    @010@,xr2
1151           c    xr2,tabmax
1152           be   dump
1153           bcv  newpge
1154           b    nxtlbl
1155 newpge    cc   1
1156           mcw  @unreferenced labels@,219
1157           cc   t
1158           w
1159           cs   0219
1160           bw   donext,headsw
1161           b    nxtlbl
1162 lozng     sw   list-1
1163           b    doref
1164 *
1165 * print subroutine for unreferenced labels & symbol tabble
1166 *
1167 print     sbr  prtxt&3
1168           mcw  symbol,206&x1
1169           bce  doio,addho,%
1170           mn   addlo,212&x1
1171           mn
1172           mn
1173           mn
1174           bwz  *&8,addho,2
1175           mcw  @1@,208&x1
1176           bwz  prtxt,addlo-1,2
1177           mn   @1@,215&x1
1178           mcw  @&x@
1179           bwz  prtxt,addlo-1,s
1180           mn   @2@,215&x1
1181           bwz  prtxt,addlo-1,k
1182           mn   @3@,215&x1
1183 prtxt     b    xxxx
1184 doio      mcw  addlo,212&x1
1185           b    prtxt
1186 *
1187 * print symbol table
1188 *
1189 dump      b    nxtpge
1190           s    xr3&1
1191           s
1192           s
1193 nxtctr    sw   endsw#1
1194           bw   scan,sortab&1&x3
1195 bmpxr3    bce  tsteoj,sortab&1&x3,@
1196           a    &1,xr3
1197           b    nxtctr
1198 scan      bce  bmpxr3,sortab&1&x3,!
1199           bce  bmpxr3,sortab&1&x3,'
1200           bce  bmpxr3,sortab&1&x3,/
1201           mcw  sortab&1&x3,tstlbl&7
1202 tstlbl    bce  dopnt,symho,x
1203 not       a    @010@,xr2
1204           c    xr2,tabmax
1205           bu   tstlbl
1206           s    xr2&1
1207           s
1208           a    &1,xr3
1209           cw   endsw
1210           bw   pntsym,pntsw
1211           sw   pntsw
1212           b    tstesw
1213 dopnt     bce  not,addho,
1214           b    print
1215           sw   pntsw
1216           a    @016@,xr1
1217           c    xr1,@128@
1218           bu   not
1219 pntsym    w
1220           cw   pntsw#1
1221           cs   332
1222           cs
1223           s    xr1&1
1224           bw   *&9,endsw
1225           bce  tsteoj,sortab&1&x3,@
1226           bcv  nxtpge
1227 tstesw    bw   not,endsw
1228           b    nxtctr
1229 nxtpge    sbr  pgxt&3
1230           cs   332
1231           cs
1232           cc   1
1233           mcw  @symbol table@,212
1234           w
1235           cc   k
1236           cs   212
1237 pgxt      b    xxxx
1238 tsteoj    bw   *&3,headsw
1239           cc   1
12391          cs   332
12392          chain3
1240           bce  eojob,itersw,1
1241 *
1242 * get pass c
1243 *
1244           bsp  systpe
1245           bsp  systpe
1246           mcw  @5@,tphalt&4
1247           mcw  @5@,tphlt2&4
1248           mcw  @5@,tphlt3&4
1249           mcw  @00@,procsw
1250           mcw  @ @,sfxctr
1251 *
1252 * set number of seeks for table search
1253 *
1254           c    totlab,tablsz
1255           mcw  tablsz,serchs
1256           s    totlab
1257           be   rdpssc
1258           bh   rdpssc
1259           mcw  &0009,serchs
1260           b    rdpssc
1261 *
1262 * last iteration, get pass c
1263 *
1264 eojob     cw   grpmk2-1
1265           cs   3999
1266           bce  reade,machsz,3
1267           cs   4799
1268           chain7
12681clr       cs   3999
12682          sbr  clr&3
12683          c    clr&3,&ssop-1
12684          bu   clr
1269 reade     rtw  systpe,ssop
1270           ber  syserr
1271 gotoe     mcw  @n@,ssop
1272           b    ssop&1
1273 syserr    mcw  &9,rdct#1
1274           bsp  systpe
1275 retry     rtw  systpe,ssop
1276           ber  again
1277           b    gotoe
1278 again     bsp  systpe
1279           s    @1@,rdct
1280           bwz  retry,rdct,b
1281           h    xxxx,691
1282           rtw  systpe,ssop
1283           bss  syserr,e
1284           h    xxxx,612
1285           b    gotoe
1286 list      dcw  @ abcdefghi!jklmnopqr'/stuvwxyz)@@
1287 sortab    equ  list-31
1288           ltorg*
1289 endovl    dcw  @}@
1290           ex   librn
1291           end  librn




---------------- object code ---------------------------





,008015,022026,030037,044,049,053053N000000N00001026                   00013751L
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023751L
,008015,022029,036040,047054,061068,072/061039              ,001001104000033751L
CL30L26BX67SAL36L30ML30099MIA7080MM    L035Z59,Z32Z37,Z44Z51,Z58Z59104000043751L
MMMMMMM                                L007Z66,Z61Z62,Z63Z64,Z65Z66104000053751L
S100SSB114ML30099M080IA7M              L025Z91,Z71Z72,Z73Z77,Z84Z91104000063751L
MMMMMMM                                L007Z98,Z93Z94,Z95Z96,Z97Z98104000073751L
MBZ25H089H!76YL37089MIZ0!67D!63!43     L034!32,!00!04,!08!12,!19!26104000083751L
M!67J76U%U0BBJ49!67WML37L38M%U0000R    L035!67,!40!45,!53!60,040040104000093751L
B!77LB000D!63!87U%U0BSL39L38V!60L38B   L036J03,!73!77,!84!89,!96040104000103751L
D!63J17.000590M!67J32M%U0000RB!40E     L034J37,J11J18,J25J33,040040104000113751L
.000511B!73U%U1EBJ86L405AL39L41M%U0000WL039J76,J45J49,J54J62,J69040104000123751L
B!40LB!73SL41D!63K03.000560BJ69H089    L035K11,J82J86,J90J97,K04K08104000133751L
HK46YL37089BIY8I31}BBBB                L023K34,K16K23,K31K32,K33K34104000143751L
BBBBBBB                                L007K41,K36K37,K38K39,K40K41104000153751L
BB000L%U1001RN000B!04L)Y68BS90         L030K71,K43K47,K55K59,K64K68104000163751L
L%U6001RN000B!04L)Z24BY13I97L99        L031L02,K80K84,K89K93,K97L00104000173751L
      V00   015?     080               L024L26,L09L12,L15L19,L23L24104000183751L
#000?I188?I A                          L013L39,L28L32,L35L37,L38L39104000193751L
                                       L002L41,040040,040040,040040104000203751L
U%U4RU%U5RU%U6R/I99,Q66LQ68L95LQ72L99  L037M36,M05M10,M15M19,M23M30104000213751L
LQ76L88L%U1001RN000B!04L)R01ML89Q77    L035M71,M44M52,M56M61,M65040104000223751L
AQ78Q77DQ77M89Y109M99LQ66I98VP18M992   L036N07,M79M86,M93N00,040040104000233751L
/79Z/39ZMQ79W81BO20L894MQ52L26MQ56L18  L037N44,N12N16,N23N31,N38040104000243751L
MQ59L11MQ62L34MQ65Q82AQ84L88BO62L895   L036N80,N52N59,N66N73,040040104000253751L
AQ87L18AQ89L88Y113L11Y113L34Y113Q82BO62L039O19,N88N95,O02O09,O16040104000263751L
MQ36L26MQ40L18MQ43L11MQ46L34MQ49Q82    L035O54,O27O34,O41O48,040040104000273751L
AQ91L88YL34K99MQ82Z54MQ82Z90ML34X73    L035O89,O62O69,O76O83,040040104000283751L
ML34X98ML34Q94#Q96Q94MQ94K29MW81L27    L035P24,O97P04,P11P18,040040104000293751L
LQ66Z24/080,001006,017024,028035,057062L039P63,P32P36,P43P50,P57040104000303751L
,068071L%U6001WN000B!04L)Z24Q66CL93L18 L038Q01,P71P79,P83P88,P95040104000313751L
ML18L99SL93BY13SBY13UMR00L99BY13400    L035Q36,Q09Q13,Q18Q23,Q30Q34104000323751L
051?/0'E9YEIX800087?70!                L023Q59,Q41Q44,Q47Q50,Q53Q57104000333751L
A9QAIP}00015?0015 C                    L019Q78,Q63Q67,Q69Q73,Q77Q78104000343751L
#   7B40?4?3F                          L016Q94,Q80Q83,Q85Q88,Q90Q92104000353751L
1C000I}                                L007R01,Q97R01,040040,040040104000363751L
                                       N000000,040040,040040,040040B00000373751L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     00383752L
,068072)063067/061039                                       ,001001104000393752L
2SKB                                   L004113,040040,040040,040040104000403752L
2SKB                                   L004109,040040,040040,040040104000413752L
000                                    L003089,040040,040040,040040104000423752L
000                                    L003094,040040,040040,040040104000433752L
000                                    L003099,040040,040040,040040104000443752L
VZ77005KBZ77075%B219075 D075094B8710940L039152,122130,138145,040040104000453752L
MY92Y69MY92Y68A094A094B1P9N000B260     L034186,160167,171175,179183104000463752L
B260B973B992BZ77B376B295BZ77           L028214,191195,199203,207211104000473752L
BZ77MY92Y69B'03B/09VZ770032A007Y48     L034248,219226,230234,242040104000483752L
SY93Y48BZ77B283017*MY93Y67B/09BZ77B'03 L038286,256260,268275,279283104000493752L
B/09BZ77B361017%A027Y69B260017*V2600172L039325,291295,303310,318040104000503752L
V3380012B260BU35MY72S97V/810012B260    L035360,334338,342349,357040104000513752L
M019060MY92B260V405033B?061032AY93032  L037397,368372,376384,391040104000523752L
Y113033B432Y601CY48Y58B432U?Y48Y58     L034431,405413,420425,040040104000533752L
B536008 MY96089MY99S97V4660022B536     L034465,440447,454462,040040104000543752L
B502066 BT58BW29BS69Y641BS69Y630B/81   L036501,474478,482490,498040104000553752L
B/81Y591B/81Y611MY48066AY93066B474     L034535,510518,525532,040040104000563752L
V5480012B761B708017*MY92Y61SY48B735017 L039574,544548,556563,567040104000573752L
MY92Y66S090BU35B609Y661MZ01Y60B813     L034608,582586,590598,605040104000583752L
M061Y53MY92Y59B635024XB669B655017*     L034642,616623,631635,040040104000593752L
CY53Z03B669SMZ03Y53AY93Y51AY53032      L033675,650655,662669,040040104000603752L
?Y53061?032Y48SY93Y48Y113001BZ77       L032707,683690,697704,040040104000613752L
BZ77Y591B598Y611MY48Y53B616B598Y601    L035742,716724,731735,040040104000623752L
MY58Y53AY93Y53B616?032Y48SY93Y48       L032774,750757,761768,040040104000633752L
B821017*MY92Y61V8060172V609001KMY92Y59 L038812,783790,798806,040040104000643752L
SY53BZ77BZ77024XVZ77034BAY53032BZ77Y591L039851,817821,829837,844040104000653752L
BZ77Y611Y113034B761B9260750B910Y671    L035886,860867,871879,040040104000663752L
C061066B906TMY96099B'03BZ77075'B/09BZ77L039925,894899,906910,918922104000673752L
MY92Y69A027Y69MY93Y68MY92Y67B887017*   L036961,933940,947954,040040104000683752L
MY93Y67B910VZ77075BMZ04X84BX67M017L23  L037998,969973,981988,992040104000693752L
BZ77H'89MY92Y67V'90002KV'86003BB'86Y591L039'37,'03'07,'14'22,'30040104000703752L
AY53061AY53066CY480F1B'71T?0F1Y48      L033'70,'45'52,'59'64,040040104000713752L
B'86Y611Y113003B000MY72S97BT25075/B'22 L038/08,'79'86,'90'97,/05040104000723752L
HS97V/250022BS94BS80008 B/57Y671       L032/40,/13/21,/25/33,040040104000733752L
BS07Y611BS07Y591BT58BW29BS98Y641       L032/72,/49/57,/61/65,040040104000743752L
BS69Y630MY93L94AY93L93BS50075/BS94     L034S06,/81/88,/95S03,040040104000753752L
B/81008$BT58BW29B/81Y640B/81M!0 Y112002L039S45,S15S19,S23S31,S39040104000763752L
BS94BS94008$MZ01Y61BS94LL08M!9LZ12     L034S79,S50S58,S65S69,S76040104000773752L
Y113002MY93L95B000BS69M!0 Y112002      L033T12,S87S94,S98T06,040040104000783752L
BT25075/BS94VS94004BMZ05075S007Y53     L034T46,T21T25,T33T40,040040104000793752L
S007Y48BS94HU34M013L08M056Z08BT88L08   L037T83,T54T58,T62T69,T76040104000803752L
BT95ML23L08M0W1Z12BU170V70Y111Z09      L033U16,T88T95,U02U10,040040104000813752L
DY69U27Y113Z11B000HU87MZ15U34M022L08   L036U52,U24U31,U35U39,U46040104000823752L
M070Z08BT76BW29BV03Y641BU88Y630B000    L035U87,U60U64,U68U76,U84040104000833752L
LL08M!9LZ19BU84BU84M!0 MY93Y66VV30M!12 L038V25,U95U99,V03V11,V18040104000843752L
BV37Y111M!1MM!3061BW18058%VV670582     L034V59,V30V37,V44V52,040040104000853752L
MY93057BU84075OY060Z20A026061YZ20060   L036V95,V67V75,V82V89,040040104000863752L
BW18027 DY69W14Y113060Y113001BU84HX66  L037W32,W04W11,W18W25,W29040104000873752L
MY65Y64ML11L14MZ08094ML99L22CL08M!9    L035W67,W40W47,W54W61,040040104000883752L
BX45SBX63M!4 AZ23094SY93L22VX56L22K    L035X02,W73W81,W88W95,040040104000893752L
C094L14BW61/BX56Y621MY93Y62MZ08L14S095 L038X40,X10X15,X23X30,X37040104000903752L
BW61MY93Y64BX63MY93Y63B000M%U6I18WN000 L038X78,X45X52,X56X63,X67X75104000913752L
B!04LNY73SL31M%U5I18RBK08B!04LBZ37     L034Y12,X84X88,X92Y00,Y04Y09104000923752L
MK99Y23/000HY23CY23L02BY20/BX880000?   L036Y48,Y20Y24,Y28Y35,Y40Y44104000933752L
0000?0000?0000000000                   L020Y68,Y54Y59,Y62Y66,Y67Y68104000943752L
0Z77U%U6MU%U5RU%U6RBK470               L024Y92,Y70Y73,Y78Y83,Y88Y92104000953752L
1005536110?B%                          L013Z05,Y94Y97,Z00Z02,Z04Z05104000963752L
       U64     010}                    L019Z24,Z09Z13,Z16Z20,Z21Z24104000973752L
                                       N000000,040040,040040,040040B00000983752L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     00993761L
,068072)063067/061039                                       ,001001104001003761L
000000000000000                        L015101,092097,040040,040040104001013761L
2SKB2SKBMU32U18VZ77005KBZ77075%D075U33 L038143,110114,121129,137040104001023761L
B196U33 B318U332B446U333BS79U334       L032175,152160,168040,040040104001033761L
B489U336B489U337BZ77V2080032B215MU34U18L039214,184192,196204,208040104001043761L
?061U39A007U39SU34U39BZ770071BZ770072  L037251,222229,236244,040040104001053761L
V2640012B268B578BZ770074BZ770075       L032283,260264,268276,040040104001063761L
V2960042BZ77MU42099MU45089B578BZ77     L034317,292296,303310,314040104001073761L
V3300032B434MU34U18?061U39MU42099      L033350,326330,337344,040040104001083761L
MU45089V3700042BZ77B578VZ770042B409027-L039389,358366,370374,382040104001093761L
MU48/78BZ77071%B'94MU53L07SU58L07      L033422,397405,409416,040040104001103761L
?L07U58B390V3370042BZ77SU39V4620012B466L039461,430434,442446,450458104001113761L
B578B4780753BZ77MU59X84BZ77V5010012B574L039500,466474,478485,489497104001123761L
B574017 V5740172B574017*B574017%B578   L036536,509517,525533,040040104001133761L
V5740012MU32U28B567U337Y112001MU58061  L037573,545552,560567,040040104001143761L
BZ77H/78V5940?12B/75B9420/7 B9500/7%   L036609,578582,590594,602040104001153761L
VS210/72B/900/7*B6380F8 B804M0S2U65    L035644,618626,634638,040040104001163761L
B657U65 B664ML23U65?U66U68?U63U72      L033677,653657,664671,040040104001173761L
AU65U72AU65U70Y110U72?L88U26DU26U27?   L036713,685692,699706,713040104001183761L
B740U27?AU72U24SU73U27B714SU73U68      L033746,722729,736740,040040104001193761L
V706U68BMU760G0B767ZAU78U21B767ZYU200G0L039785,755762,767774,779040104001203761L
MU23DU21800Y1090F8M0S2L08B823L08 B830  L037822,790797,804811,819040104001213761L
ML23L08ML11L14MU32U19M0G0094ML99L22    L035857,830837,844851,040040104001223761L
CL08M!9B980SB961M!4 AU81094SU34L22     L034891,865870,878885,040040104001233761L
V961L22KC094L14B858/B961U191MU34U19    L035926,900907,912920,040040104001243761L
M0G0L14S095B858SU58B'49M0/90G0B/68     L034960,934938,942946,950957104001253761L
B/75U280MU840G0B/75B961M!0 V'00M!12B'07L039999,969976,980988,996040104001263761L
Y111M!1MM!3U58MU32B/79U55%V'41U552     L034'33,'07'14,'18'26,040040104001273761L
MU34U54B'78U336YU57U85B'780S4XA0S6U58  L037'70,'41'49,'56'64,040040104001283761L
YU85U57V/68075KB/68U332B'99ZAU87U55    L035/05,'78'86,'94'99,040040104001293761L
B'99ZYU54U58DU55/28Y109U56YU85U57      L033/38,/11/18,/25/32,040040104001303761L
B/610S7 D0S7/57Y113U57MU580G0Y1130?1   L036/74,/47/54,/61/68,040040104001313761L
B000MU570G0B/68BS020S2 B626B/75U181    L035S09,/79/86,/90/98,S02040104001323761L
MU39U58B'49B6260/7#B6260/7@VS490/82B626L039S48,S17S21,S29S37,S45040104001333761L
?0S1U58BS68U58&B'49?U57U58BS56M017L23  L037S85,S56S64,S68S75,S79040104001343761L
BZ77,U30L%U6U29R)U30/080,001006,017024 L038T23,S90S94,T02T06,T10T17104001353761L
,028035,057062,068071ML27878MU88J15    L035T58,T31T38,T45T52,040040104001363761L
MU88K01MU88J42ML34X73ML34X98MU89L23    L035T93,T66T73,T80T87,040040104001373761L
BU07L950BBX88MU34U28BX8800             L026U19,U02U03,U07U14,U18U19104001383761L
       ?0 } 0 1                        L015U34,U27U28,U29U32,U33U34104001393761L
     003011Z771600?     B              L025U59,U40U43,U46U49,U54U59104001403761L
      B      A0009F                    L019U78,U66U67,U69U73,U74U77104001413761L
010### 966                             L011U89,U82U85,U86U88,U89040104001423761L
M%U5I18WN000B!04LNY13SL31M%U6I18RBK08  L037Y03,X75X79,X84X88,X92Y00104001433761L
B!04LBZ37U%U5MU%U6RU%U5RL%U1333RN000   L036Y39,Y09Y13,Y18Y23,Y28Y36104001443761L
B!04L)S45ML27474ML27726B333 }          L029Y68,Y45Y49,Y56Y63,Y67Y68104001453761L
                                       N000000,040040,040040,040040B00001463761L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01473762L
,068072)063067/061039                                       ,001001104001483762L
/332/S100SS,/80B474M!4                 L023355,337338,342343,344348104001493762L
B474M!0 B530M!4)CM!4/81B441UCM!4/82    L035390,364372,379384,040040104001503762L
B441TDM!4099V433M!4BA/85099V433M!4K    L035425,396403,411418,040040104001513762L
A/85099,/D8S101V453M!12B474V502/801)/80L039464,433437,441449,453461104001523762L
B5382/216A/85094C094L11B646SB502@      L033497,469470,474481,488493104001533762L
B348F1MS04219FT2/219V461/801           L028525,502504,511513,514518104001543762L
B348,/78B441H634MM!92'6B635M!0%DM!32/2 L038563,530534,538542,549557104001553762L
DDDV582M!02MS052'8V631M!22DS052/5      L033596,565566,567575,582590104001563762L
MS07V631M!2SDS082/5V631M!2KDS092/5B000 L038634,601609,616624,631040104001573762L
MM!32/2B631B859S100SS,S10              L025659,642646,650654,655656104001583762L
V687/D91B888/D9@AS11099B656B668/D9!    L035694,668676,683687,040040104001593762L
B668/D9'B668/D9/M/D9725B777M!4XA/85094 L038732,703711,718726,040040104001603762L
C094L11B718/S095SAS11099)S10V812S181   L036768,740745,749750,757761104001613762L
,S18B847B726M!0 B538,S18AS14089C089S17 L038806,773777,785789,793800104001623762L
B726/2)S18/332/S090V842S101            L027833,812813,817821,822826104001633762L
B888/D9@B859@V726S101B656H887/332/     L034867,842847,855859,863867104001643762L
F1MS302122FK/212B000V898/801           L028895,870877,878880,884888104001653762L
F1/332///B997U281U%U1B                 L022917,898902,903904,905913104001663762L
U%U1BMS31J15MS31K01MS31J42MS33L95      L033950,923930,937944,040040104001673762L
MS34L23CL93L18ML18L99SL93BK72SBK72U    L035985,958965,972976,981040104001683762L
MS38L99BK72)U30/I99B'44L893/79Z/       L032'17,993997,'01'05,'13'17104001693762L
///////I99                             L010'27,'19'20,'21'22,'23'24104001703762L
H'27C'27S41B'24/L%U1Z00RB'68LMS42Z00   L036'63,'32'39,'44'52,'57040104001713762L
BZ01MS43S44U%U1BL%U1Z00RB'97LB'57U%U1B L038/01,'68'75,'80'88,'93'97104001723762L
SS05S44V'80S44B.000691L%U1Z00RB'68E    L035/36,/09/17,/24/32,040040104001733762L
.000612B'57                            L011/47,/44040,040040,040040104001743762L
 ABCDEFGHI!JKLMNOPQR'/STUVWXYZ)@ AZ010 L038/85,/80/81,/82/83,040040104001753762L
UNREFERENCED LABELS1&X23 A             L026S11,S05S06,S08S09,S10S11104001763762L
016128 SYMBOL TABLE500                 L023S34,S15S18,S19S31,S32S34104001773762L
000IY99NI }                            L011S45,S39S42,S43S44,S45040104001783762L
                                       N000000,040040,040040,040040B00001793762L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01803762L
,068072)063067/061039                                       ,001001104001813762L
                                       /000080                         01823762L