1CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
&,008015,019026,030,034041,045,053,0570571026                           00012TAP1
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
&L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00022TAP1
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
&,008015,022029,036040,047054,061068,072/061039              ,001001104000032TAP1
0                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  101         000    JOB   1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR
  102                CTL   630 1
  103  1 03   *   PHASE 1 - READ AND ANALYZE SOURCE PROGRAM
  104  1 04   *                        ** SYSTEMS CONTROL **
  105  1 05          ORG   82                                                                 0082
  106  1 06   CHECK  DCW   @ @                                                      1  0082                       4
  107  1 07          DCW   @  }@                                                    3  0085                       4
&   }                                   L004085,083040,040040,040040104000042TAP1
  108         81     DC    @}@                GROUP MARK WITHOUT WORD MARK          1  0081                       5
  109  1 09          ORG   100                                                                0100
&}                                      L001081)081081,040040,040040104000052TAP1
  110  1 10   LOAD   RWD   1                                                        5  0100  U %U1 R              6
  111  1 11          RTW   1,CHECK                                                  8  0105  L %U1 082 R          6
  112  1 12          BER   TPERR                                                    5  0113  B 201 L              6
  113  1 13          BCE   *&5,CHECK,D                                              8  0118  B 130 082 D          6
  114  1 14          B     LOAD&5                                                   4  0126  B 105                6
  115  1 15          BSP   1                                                        5  0130  U %U1 B              6
&U%U1RL%U1082RB201LB130082DB105U%U1B    L035134,105113,118126,130040104000062TAP1
  116  1 16          RTW   1,333                                                    8  0135  L %U1 333 R          7
  117  1 18          SW    CHECK&3                                                  4  0143  , 085                7
  118  1 19          RTW   1,CHECK                                                  8  0147  L %U1 082 R          7
  119                BCE   SENTNL,CHECK,%                                           8  0155  B I43 082 %          7
  120  1 21          B     *-19                                                     4  0163  B 147                7
  121  1 22   SEEK   EQU   LOAD&25                                                     0125
  122  1 23   SYSTEM R     40                                                       4  0167  1 040                7
&L%U1333R,085L%U1082RBI43082%B1471040   L036170,143147,155163,167040104000072TAP1
  123  1 24          BSP   1                                                        5  0171  U %U1 B              8
  124  1 25          SKP   1                                                        5  0176  U %U1 E              8
  125  1 26          B     40                                                       4  0181  B 040                8
  126         LASTLT EQU   10                                                          0010
  127  1 28   REITER DC    @ @                                                      1  0185                       8
  128  1 29   FULL   DC    @ @                                                      1  0186                       8
  129  1 30   LITCTL DCW   #1                                                       1  0187                       8
  130  1 31   RELATV DC    @ @                                                      1  0188                       8
  131         TX3987 DCW   @I87@                                                    3  0191                       8
  132  1 32          ORG   3943                                                               3943
&U%U1BU%U1EB040    I87                  L021191,176181,187189,040040104000082TAP1
  133  1 321  SENTNL BCE   REWRIT,333,1                                             8  3943  B I71 333 1          9
  134  1 322         BCE   REWRIT,333,3                                             8  3951  B I71 333 3          9
  135  1 323         BCE   REWRIT,333,7                                             8  3959  B I71 333 7          9
  136  1 324         B     HSKPG                                                    4  3967  B 334                9
  137  1 325  REWRIT BSP   1                                                        5  3971  U %U1 B              9
&BI713331BI713333BI713337B334U%U1B      L033I75,I51I59,I67I71,040040104000092TAP1
  138                WTW   1,CHECK                                                  8  3976  L %U1 082 W         10
  139                BER   TPERR                                                    5  3984  B 201 L             10
  140                BCE   334,CHECK,%                                              8  3989  B 334 082 %         10
  141                H                                                              1  3997  .                   10
  142  1 33          ORG   201                                                                0201
&L%U1082WB201LB334082%.                 L022I97,I84I89,I97040,040040104000102TAP1
  143  1 34   TPERR  SBR   X1                                                       4  0201  H 089               11
  144  1 35          A     TX3987,X1                                                7  0205  A 191 089           11
  145  1 36          BW    TXCOMP,TXGET&1                                           8  0212  V 252 221 1         11
  146  1 37   TXGET  MLC   17&X1,TXEOF&4                                            7  0220  M 0/7 330           11
  147  1 38          MLC   TXDUMY&4,17&X1                                           7  0227  M 325 0/7           11
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&H089A191089V2522211M0/7330M3250/7      L033233,205212,220227,040040104000112TAP1
  148  1 39          MLC   3&X1,TXBSP&3                                             7  0234  M 0|3 263           12
  149                MLC   TXBSP&5,TXBSP                                            7  0241  M 265 260           12
  150  1 40          SW    TXGET&1                                                  4  0248  , 221               12
  151  1 41   TXCOMP B     TXPERM,TXCNTL,9                                          8  0252  B 281 331 9         12
  152  1 42   TXBSP  BSP   1                                                        5  0260  U %U1 B             12
  153  1 43          SKP   1                                                        5  0265  U %U1 E             12
&M0|3263M265260,221B2813319U%U1BU%U1E   L036269,241248,252260,265040104000122TAP1
  154  1 44          A     *-6,TXCNTL                                               7  0270  A 270 331           13
  155  1 45          B     0&X1                                                     4  0277  B 0|0               13
  156  1 46   TXPERM H     888,888                                                  7  0281  . 888 888           13
  157  1 47          MLC   TXPERM-1,TXCNTL                                          7  0288  M 280 331           13
  158  1 48          B     TXBSP                                                    4  0295  B 260               13
  159  1 49   TXDONE MLC   TXPERM-1,TXCNTL                                          7  0299  M 280 331           13
&A270331B0|0.888888M280331B260M280331   L036305,277281,288295,299040104000132TAP1
  160  1 50          MLC   TXEOF&4,17&X1                                            7  0306  M 330 0/7           14
  161  1 51          CW    TXGET&1                                                  4  0313  ) 221               14
  162  1 52          B     13&X1                                                    4  0317  B 0/3               14
  163  1 53   TXDUMY B     TXDONE                                                   4  0321  B 299               14
  164  1 54          DC    @ @                                                      1  0325                      14
  165  1 55   TXEOF  BEF   1                                                        5  0326  B 001 K             14
  166  1 56   TXCNTL DCW   @0@                                                      1  0331                      14
  167  1 561         DC    #1                                                       1  0332                      14
  168  1 562         DCW   @1@                                                      1  0333                      14
  169  1 58   *
  170  1 59          ORG   334                                                                0334
&M3300/7)221B0/3B299 B001K0 1           L028333,313317,321326,331333104000142TAP1
  171  1 60   HSKPG  CW    DAON#1,CARDIN#1                                          7  0334  ) H40 H41           15
  172  1 61          CW    TWO#1                                                    4  0341  ) H42               15
  173  1 62          RWD   2                                                        5  0345  U %U2 R             15
  174  1 621         NOP   000                                                      4  0350  N 000               15
  175  1 622         NOP                                                            1  0354  N                   15
  176  1 63          SW    3998                                                     4  0355  , I98               15
  177  1 64          LCA   3998,RECRD2&171                                          7  0359  L I98 E18           15
&)H40H41)H42U%U2RN000N,I98LI98E18       L032365,341345,350354,355359104000152TAP1
  178  1 65          LCA   3998,PARTBL&90                                           7  0366  L I98 G76           16
  179                LCA   3998,81                                                  7  0373  L I98 081           16
  180                CS    80                                                       4  0380  / 080               16
  181                R                                                              1  0384  1                   16
  182                SS    1                                                        2  0385  K 1                 16
  183                C     20,RECORD&19                                             7  0387  C 020 F24           16
  184                BE    SETPAR                                                   5  0394  B 444 S             16
&LI98G76LI98081/0801K1C020F24B444S      L033398,373380,384385,387394104000162TAP1
  185                SW    76,CARDIN                                                7  0399  , 076 H41           17
  186                LCA   80,PARAMT&4                                              7  0406  L 080 G04           17
  187                B     PUTRCD                                                   4  0413  B |21               17
  188  1 66   *
  189  1 67   *
  190  1 68   X1     EQU   0089                                                        0089
&,076H41L080G04B|21                     L018416,406413,040040,040040104000172TAP1
  191  1 69   0089   DCW   @   @                                                    3  0089                      18
  192  1 70   X2     EQU   0094                                                        0094
&                                       L003089,040040,040040,040040104000182TAP1
  193  1 71   0094   DCW   @   @                                                    3  0094                      19
  194  1 72   X3     EQU   0099                                                        0099
&                                       L003094,040040,040040,040040104000192TAP1
  195  1 73   0099   DCW   @   @                                                    3  0099                      20
  196  1 74   *                   GET RECORD ROUTINE
&                                       L003099,040040,040040,040040104000202TAP1
  197  1 75   RDCARD BWZ   *&005,CARDIN,1                                           8  0417  V 429 H41 1         21
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  198  1 76          B     READ                                                     4  0425  B 437               21
  199  1 77          CW    CARDIN                                                   4  0429  ) H41               21
  200  1 78          B     SETPAR                                                   4  0433  B 444               21
  201  1 79   READ   CS    0080                                                     4  0437  / 080               21
  202  1 82          R                                                              1  0441  1                   21
  203                SS    1                                                        2  0442  K 1                 21
&V429H411B437)H41B444/0801K1            L027443,425429,433437,441442104000212TAP1
  204         SETPAR SW    1,6                                                      7  0444  , 001 006           22
  205  1 81          SW    0016,0021                                                7  0451  , 016 021           22
  206  1 815         SW    RECORD&75                                                4  0458  , F80               22
  207                CS    PARAMT&69                                                4  0462  / G69               22
  208  1 84          MLC   80,RECORD&79                                             7  0466  M 080 F84           22
  209  1 85          CHAIN 4                                                                             MACRO
  210                MLC                                                            1  0473  M           GEN     22
  211                MLC                                                            1  0474  M           GEN     22
&,001006,016021,F80/G69M080F84MM        L031474,451458,462466,473474104000222TAP1
  212                MLC                                                            1  0475  M           GEN     23
  213                MLC                                                            1  0476  M           GEN     23
  214  1 88          CW    DMOD,RECORD                                              7  0477  ) H38 F05           23
  215  1 89          CW    ERRPOS,ERRPOS-002                                        7  0484  ) F91 F89           23
  216  1 90          MCW   BLANKS,LOCATN                                            7  0491  M H05 F99           23
  217  1 91          MCW                                                            1  0498  M                   23
  218  1 92          MCW                                                            1  0499  M                   23
&MM)H38F05)F91F89MH05F99MM              L025499,476477,484491,498499104000232TAP1
  219  1 93          MCW                                                            1  0500  M                   24
  220  1 94          MCW   BLANKS,ERRPOS                                            7  0501  M H05 F91           24
  221  1 95          MCW                                                            1  0508  M                   24
  222  1 98          SW    PARAMT,PARAMT&010                                        7  0509  , G00 G10           24
  223  1 99          SW    PARAMT&020,PARAMT&030                                    7  0516  , G20 G30           24
  224  2 00          SW    PARAMT&040,PARAMT&050                                    7  0523  , G40 G50           24
  225  2 01          MCW   ZEROS,X1                                                 7  0530  M G79 089           24
&MMH05F91M,G00G10,G20G30,G40G50MG79089  L037536,501508,509516,523530104000242TAP1
  226                BCE   PUTCMT,LABEL-5,*                                         8  0537  B 769 006 *         25
  227  2 03          C     20,@DCW  @                                               7  0545  C 020 H47           25
  228  2 04          BE    CONST                                                    5  0552  B R79 S             25
  229  2 05          C     20,@DC   @                                               7  0557  C 020 H52           25
  230  2 06          BE    CONST                                                    5  0564  B R79 S             25
  231                C     20,@DA   @                                               7  0569  C 020 H57           25
&B769006*C020H47BR79SC020H52BR79SC020H57L039575,545552,557564,569040104000252TAP1
  232  2 08          BE    DALINE                                                   5  0576  B !08 S             26
  233  2 09          C     20,@LTORG@                                               7  0581  C 020 H62           26
  234  2 10          BE    LTORG                                                    5  0588  B B50 S             26
  235  2 11          C     20,@EX   @                                               7  0593  C 020 H67           26
  236  2 12          BE    EXECUT                                                   5  0600  B B30 S             26
  237                C     20,@JOB  @                                               7  0605  C 020 H72           26
&B!08SC020H62BB50SC020H67BB30SC020H72   L036611,581588,593600,605040104000262TAP1
  238                BU    *&12                                                     5  0612  B 628 /             27
  239                MLC   80,PARAMT&4                                              7  0617  M 080 G04           27
  240                B     PUTRCD                                                   4  0624  B |21               27
  241  2 13          C     20,@END  @                                               7  0628  C 020 H77           27
  242  2 14          BE    ENDSCE                                                   5  0635  B A73 S             27
  243  2 15          B     PROPND                                                   4  0640  B |88               27
  244  2 16   ANYLIT MLC   @000@,X1                                                 7  0644  M H80 089           27
&B628/M080G04B|21C020H77BA73SB|88MH80089L039650,617624,628635,640644104000272TAP1
  245  2 17          MLC   @ @,PAR&59                                               7  0651  M H81 E01           28
  246  2 18          SW    PAR,PAR&30                                               7  0658  , D42 D72           28
  247  2 19          MLC   PAR&59,PAR&58                                            7  0665  M E01 E00           28
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  248  2 20          MLC                                                            1  0672  M                   28
  249  2 21          MLC   @      @,RECRD2&10                                       7  0673  M H87 C57           28
  250  2 22          MLC   AADDR,RECRD2&81                                          7  0680  M F86 D28           28
&MH81E01,D42D72ME01E00MMH87C57MF86D28   L036686,658665,672673,680040104000282TAP1
  251  2 23          BCE   NUMLIT,AADDR,L                                           8  0687  B 805 F86 L         29
  252  2 24          BCE   ALPHA,AADDR,F                                            8  0695  B 879 F86 F         29
  253  2 25          BCE   LTAREA,AADDR,W                                           8  0703  B 894 F86 W         29
  254  2 26          BCE   ADCON,AADDR,C                                            8  0711  B 948 F86 C         29
  255  2 29   SETLTB MLC   @030@,X1                                                 7  0719  M H90 089           29
&B805F86LB879F86FB894F86WB948F86CMH90089L039725,695703,711719,040040104000292TAP1
  256  2 30          MLC   BADDR,RECRD2&81                                          7  0726  M F87 D28           30
  257  2 31          BCE   NUMLIT,BADDR,L                                           8  0733  B 805 F87 L         30
  258  2 32          BCE   ALPHA,BADDR,F                                            8  0741  B 879 F87 F         30
  259  2 33          BCE   LTAREA,BADDR,W                                           8  0749  B 894 F87 W         30
  260  2 34          BCE   ADCON,BADDR,C                                            8  0757  B 948 F87 C         30
&MF87D28B805F87LB879F87FB894F87WB948F87CL039764,733741,749757,040040104000302TAP1
  261  2 37          B     PUTRCD                                                   4  0765  B |21               31
  262         PUTCMT LCA   SERIAL,79                                                7  0769  L E55 079           31
  263                A     @1@,SERIAL                                               7  0776  A H91 E55           31
  264                WTW   1,1                                                      8  0783  L %U1 001 W         31
  265                BER   TPERR                                                    5  0791  B 201 L             31
  266                BEF   *&1                                                      5  0796  B 801 K             31
&B|21LE55079AH91E55L%U1001WB201LB801K   L036800,769776,783791,796040104000312TAP1
  267                B     RDCARD                                                   4  0801  B 417               32
  268  2 38   *                        SET UP NUMERIC LITERAL
  269  2 39   NUMLIT CW    PARAMT&20&X1,PARAMT&10&X1                                7  0805  ) GS0 G/0           32
  270  2 40          LCA   PARAMT&27&X1,PAR&27                                      7  0812  L GS7 D69           32
  271  2 41          MLC   PAR&27,PAR&56                                            7  0819  M D69 D98           32
  272  2 42          MLC   @000@,X2                                                 7  0826  M H80 094           32
  273  2 43          MLC   PARAMT&29&X1,X2                                          7  0833  M GS9 094           32
&B417)GS0G/0LGS7D69MD69D98MH80094MGS9094L039839,805812,819826,833040104000322TAP1
  274  2 44          MZ    PAR,PAR&29&X2                                            7  0840  Y D42 DP1           33
  275  2 45   LITOUT LCA   @000@,RECRD2&90                                          7  0847  L H80 D37           33
  276  2 46          A     PARAMT&29&X1,RECRD2&90                                   7  0854  A GS9 D37           33
  277  2 47          LCA   PAR&27,RECRD2&47                                         7  0861  L D69 C94           33
  278  2 48          MLC   @Y@,LITOUT-7                                             7  0868  M H92 840           33
  279  2 49          B     PUTLIT                                                   4  0875  B 977               33
  280  2 50   *                        SET UP ALPHANUMERIC LITERAL
&YD42DP1LH80D37AGS9D37LD69C94MH92840B977L039878,847854,861868,875040104000332TAP1
  281  2 51   ALPHA  MLC   @N@,LITOUT-7                                             7  0879  M H93 840           34
  282  2 515         CW    PAR&30                                                   4  0886  ) D72               34
  283  2 52          B     NUMLIT                                                   4  0890  B 805               34
  284  2 53   *                        SET UP LITERAL AREA
  285  2 54   LTAREA LCA   PARAMT&5&X1,RECRD2&10                                    7  0894  L G|5 C57           34
  286                MLC   BLANKS,PAR&29                                            7  0901  M H05 D71           34
  287                MLC   BLANKS                                                   4  0908  M H05               34
  288                MLC   BLANKS                                                   4  0912  M H05               34
&MH93840)D72B805LG|5C57MH05D71MH05MH05  L037915,886890,894901,908912104000342TAP1
  289  2 56          MLC   PARAMT&9&X1,PAR&2                                        7  0916  M G|9 D44           35
  290  2 57          LCA   @#@,PAR                                                  7  0923  L H94 D42           35
  291  2 58          LCA   @000@,RECRD2&90                                          7  0930  L H80 D37           35
  292  2 59          A     PARAMT&9&X1,RECRD2&90                                    7  0937  A G|9 D37           35
  293  2 60          B     LITOUT&14                                                4  0944  B 861               35
  294  2 61   *                        SET UP ADDRESS CONSTANT
  295  2 62   ADCON  MLC   PARAMT&7&X1,PAR&7                                        7  0948  M G|7 D49           35
&MG|9D44LH94D42LH80D37AG|9D37B861MG|7D49L039954,923930,937944,948040104000352TAP1
  296  2 63          SW    PARAMT&18&X1                                             4  0955  , G/8               36
  297  2 64          MLC   PARAMT&14&X1,PAR&14                                      7  0959  M G/4 D56           36
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  298  2 65          MLC   PARAMT&19&X1,PAR&19                                      7  0966  M G/9 D61           36
  299  2 66          B     LITOUT                                                   4  0973  B 847               36
  300  2 92   *                        WRITE A LITERAL RECORD
  301  2 93   PUTLIT LCA   SERIAL,RECRD2&4                                          7  0977  L E55 C51           36
  302  2 94          CW    RECRD2                                                   4  0984  ) C47               36
  303  2 95          SW    RECRD2&3                                                 4  0988  , C50               36
&,G/8MG/4D56MG/9D61B847LE55C51)C47,C50  L037991,959966,973977,984988104000362TAP1
  304         TWLIT  WTW   2,RECRD2                                                 8  0992  L %U2 C47 W         37
  305  2 97          BER   TPERR                                                    5  1000  B 201 L             37
  306  2 99          BW    RESET,DAON                                               8  1005  V |73 H40 1         37
  307  3 00          BCE   SETLTB,X1-1,0                                            8  1013  B 719 088 0         37
  308         PUTRCD LCA   SERIAL,RECORD&79                                         7  1021  L E55 F84           37
&L%U2C47WB201LV|73H401B7190880LE55F84   L036|27,|00|05,|13|21,040040104000372TAP1
  309  3 05          B     PUTXXX                                                   4  1028  B I23               38
  310  3 051         NOP                                                            1  1032  N                   38
  311  3 052         NOP                                                            1  1033  N                   38
  312  3 053         NOP                                                            1  1034  N                   38
  313  3 06          WTW   1,RECORD                                                 8  1035  L %U1 F05 W         38
  314  3 07          BER   TPERR                                                    5  1043  B 201 L             38
  315  3 08          BEF   *&1                                                      5  1048  B |53 K             38
&BI23NNNL%U1F05WB201LB|53K              L025|52,|32|33,|34|35,|43|48104000382TAP1
  316  3 09          BW    RMBACK,ALFGM                                             8  1053  V Q37 H33 1         39
  317  3 10          BW    NOREAD,DAON                                              8  1061  V M39 H40 1         39
  318  3 11          B     RDCARD                                                   4  1069  B 417               39
  319  3 12   RESET  MLC   ADDR-1,PARAMT&29&X1                                      7  1073  M G94 GS9           39
  320  3 13          CW    DAON                                                     4  1080  ) H40               39
  321  3 14          B     PUTRCD-8                                                 4  1084  B |13               39
  322  3 15   *                   ANALYZE OPERAND & SET PARAMT
  323  3 16   PROPND SBR   ANALEX&003                                               4  1088  H W01               39
&VQ37H331VM39H401B417MG94GS9)H40B|13HW01L039|91,|61|69,|73|80,|84|88104000392TAP1
  324  3 17          BCE   ANALEX,0021,                                             8  1092  B V98 021           40
  325  3 18          MCW   K20,X1                                                   7  1100  M E30 089           40
  326  3 19          MCW   ZEROS,X2                                                 7  1107  M G79 094           40
  327  3 20          MCW   I99,X3                                                   7  1114  M E46 099           40
  328  3 21          CW    COMMSW,ACTADD                                            7  1121  ) G85 G86           40
&BV98021 ME30089MG79094ME46099)G85G86   L036/27,/00/07,/14/21,040040104000402TAP1
  329  3 22          BCE   ALFOPD,0021,@                                            8  1128  B S26 021 @         41
  330  3 23          BWZ   NOZONE,0021,2                                            8  1136  V /64 021 2         41
  331  3 24          BCE   STEP,0021,&                                              8  1144  B S08 021 &         41
  332  3 25          BCE   STEP,0021,-                                              8  1152  B S08 021 -         41
  333  3 26          B     ANALYZ                                                   4  1160  B /68               41
&BS26021@V/640212BS08021&BS08021-B/68   L036/63,/36/44,/52/60,040040104000412TAP1
  334  3 27   NOZONE SW    ACTADD                                                   4  1164  , G86               42
  335  3 28   ANALYZ BCE   COMMA,0001&X1,,                                          8  1168  B S96 0|1 ,         42
  336  3 29          BCE   PLUS,0001&X1,&                                           8  1176  B U29 0|1 &         42
  337  3 30          BCE   PLUS,0001&X1,-                                           8  1184  B U29 0|1 -         42
  338  3 31          BCE   AREA,0001&X1,#                                           8  1192  B U59 0|1 #         42
&,G86BS960|1,BU290|1&BU290|1-BU590|1#   L036/99,/68/76,/84/92,040040104000422TAP1
  339  3 32          BCE   END,0001&X1,                                             8  1200  B V86 0|1           43
  340  3 33   STEP   A     K1,X1                                                    7  1208  A E19 089           43
  341  3 34          A     K1,X3                                                    7  1215  A E19 099           43
  342  3 35          B     ANALYZ                                                   4  1222  B /68               43
  343  3 36   ALFOPD S     X1,X3                                                    7  1226  S 089 099           43
&BV860|1 AE19089AE19099B/68S089099      L033S32,S08S15,S22S26,040040104000432TAP1
  344  3 37          MZ    BLANKS,X3                                                7  1233  Y H05 099           44
  345  3 38          MCW   K71,X1                                                   7  1240  M E40 089           44
  346  3 39   ALFTST BCE   ALFEND,0001&X1,@                                         8  1247  B S66 0|1 @         44
  347  3 40          A     MINUS,X1                                                 7  1255  A E50 089           44
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  348  3 41          B     ALFTST                                                   4  1262  B S47               44
&YH05099ME40089BS660|1@AE50089BS47      L033S65,S40S47,S55S62,040040104000442TAP1
  349  3 42   ALFEND A     X1,X3                                                    7  1266  A 089 099           45
  350  3 43          MZ    K1,X3-002                                                7  1273  Y E19 097           45
  351  3 44          B     STORE                                                    4  1280  B W13               45
  352  3 45          BCE   GAP2,0001&X1,,                                           8  1284  B T71 0|1 ,         45
  353  3 46          B     ANALEX                                                   4  1292  B V98               45
  354  3 47   COMMA  B     STORE                                                    4  1296  B W13               45
&A089099YE19097BW13BT710|1,BV98BW13     L034S99,S73S80,S84S92,S96040104000452TAP1
  355  3 48   GAP    BCE   GAP1,0001&X1,                                            8  1300  B T63 0|1           46
  356  3 49          BWZ   USE60,COMMSW,1                                           8  1308  V U10 G85 1         46
  357  3 50   USE30  MCW   K30,X2                                                   7  1316  M E35 094           46
  358  3 51          SW    COMMSW                                                   4  1323  , G85               46
  359  3 52   FIRST  SW    0001&X1                                                  4  1327  , 0|1               46
  360  3 53          CW    ACTADD                                                   4  1331  ) G86               46
&BT630|1 VU10G851ME35094,G85,0|1)G86    L035T34,T08T16,T23T27,T31040104000462TAP1
  361  3 54          BCE   ALFOPD,0001&X1,@                                         8  1335  B S26 0|1 @         47
  362  3 55          BWZ   SK1,0001&X1,2                                            8  1343  V T55 0|1 2         47
  363  3 56          B     STEP                                                     4  1351  B S08               47
  364  3 57   SK1    SW    ACTADD                                                   4  1355  , G86               47
  365  3 58          B     STEP                                                     4  1359  B S08               47
  366  3 59   GAP1   BWZ   GAP3,COMMSW,1                                            8  1363  V T82 G85 1         47
&BS260|1@VT550|12BS08,G86BS08VT82G851   L036T70,T43T51,T55T59,T63040104000472TAP1
  367  3 60   GAP2   A     K1,X1                                                    7  1371  A E19 089           48
  368  3 61          B     GAP                                                      4  1378  B T00               48
  369  3 62   GAP3   BCE   GAP4,0002&X1,                                            8  1382  B T94 0|2           48
  370  3 63          B     GAP2                                                     4  1390  B T71               48
  371  3 64   GAP4   C     OPER-001,KBCE                                            7  1394  C F22 G82           48
  372  3 65          BE    USE60                                                    5  1401  B U10 S             48
  373  3 66          B     ANALEX                                                   4  1406  B V98               48
&AE19089BT00BT940|2 BT71CF22G82BU10SBV98L039U09,T78T82,T90T94,U01U06104000482TAP1
  374  3 67   USE60  MCW   K60,X2                                                   7  1410  M E37 094           49
  375  3 68          SW    0001&X1                                                  4  1417  , 0|1               49
  376  3 69          CW    ACTADD                                                   4  1421  ) G86               49
  377  3 70          B     STEP                                                     4  1425  B S08               49
  378  3 71   PLUS   BCE   STEP,0000&X1,&                                           8  1429  B S08 0|0 &         49
  379  3 72          B     STORE                                                    4  1437  B W13               49
  380  3 73          A     K10,X2                                                   7  1441  A E27 094           49
&ME37094,0|1)G86BS08BS080|0&BW13AE27094 L038U47,U17U21,U25U29,U37U41104000492TAP1
  381  3 74          A     MINUS,X1                                                 7  1448  A E50 089           50
  382  3 75          B     FIRST                                                    4  1455  B T27               50
  383  3 76   AREA   B     STORE                                                    4  1459  B W13               50
  384  3 77          SW    0001&X1,PARAMT&008&X2                                    7  1463  , 0|1 G!8           50
  385  3 78          BCE   WTOBAD,X2-001,3                                          8  1470  B V75 093 3         50
  386  3 79          MCW   W,AADDR                                                  7  1478  M H12 F86           50
&AE50089BT27BW13,0|1G!8BV750933MH12F86  L037U84,U55U59,U63U70,U78040104000502TAP1
  387  3 80   TESTW  BCE   SINGLE,0002&X1,,                                         8  1485  B V19 0|2 ,         51
  388  3 81          BCE   SINGLE,0002&X1,                                          8  1493  B V19 0|2           51
  389  3 82   DOUBLE MCW   0002&X1,PARAMT&009&X2                                    7  1501  M 0|2 G!9           51
  390  3 83          A     K1,X1                                                    7  1508  A E19 089           51
  391  3 84          B     SINGLE&007                                               4  1515  B V26               51
&BV190|2,BV190|2 M0|2G!9AE19089BV26     L034V18,U93V01,V08V15,040040104000512TAP1
  392  3 85   SINGLE MCW   0001&X1,PARAMT&009&X2                                    7  1519  M 0|1 G!9           52
  393                C     PARAMT&9&X2,@53@                                         7  1526  C G!9 H96           52
  394                BH    *&5                                                      5  1533  B V42 U             52
  395                SW    ERRPOS                                                   4  1538  , F91               52
  396  3 86          A     PARAMT&009&X2,LITCNT                                     7  1542  A G!9 F95           52
  397  3 87          A     K1,X1                                                    7  1549  A E19 089           52
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&M0|1G!9CG!9H96BV42U,F91AG!9F95AE19089  L037V55,V26V33,V38V42,V49040104000522TAP1
  398  3 88          BCE   ANALEX,0001&X1,                                          8  1556  B V98 0|1           53
  399  3 89          A     K1,X1                                                    7  1564  A E19 089           53
  400  3 90          B     GAP                                                      4  1571  B T00               53
  401  3 91   WTOBAD MCW   W,BADDR                                                  7  1575  M H12 F87           53
  402  3 92          B     TESTW                                                    4  1582  B U85               53
  403  3 93   END    BWZ   GETDM,DMOD,1                                             8  1586  V W02 H38 1         53
&BV980|1 AE19089BT00MH12F87BU85VW02H381 L038V93,V64V71,V75V82,V86040104000532TAP1
  404  3 94          B     STORE                                                    4  1594  B W13               54
  405  3 95   ANALEX B     0000                                                     4  1598  B 000               54
  406  3 96   GETDM  LCA   0000&X1,PARAMT&060                                       7  1602  L 0|0 G60           54
  407  3 97          B     ANALEX                                                   4  1609  B V98               54
  408  3 98   STORE  SBR   STEXIT&003                                               4  1613  H X77               54
  409  3 99          BWZ   ACTUAL,ACTADD,1                                          8  1617  V X78 G86 1         54
  410                BW    *&12,KONST                                               8  1625  V W44 E47 1         54
&BW13B000L0|0G60BV98HX77VX78G861VW44E471L039W32,V98W02,W09W13,W17W25104000542TAP1
  411  3 992         C     X3,@27@                                                  7  1633  C 099 H98           55
  412  3 993         B     *&8                                                      4  1640  B W51               55
  413  3 994         C     X3,@53@                                                  7  1644  C 099 H96           55
  414  3 995         BH    *&12                                                     5  1651  B W67 U             55
  415  3 996         MLC   @26@,X3                                                  7  1656  M I00 099           55
  416  3 998         SW    ERRPOS                                                   4  1663  , F91               55
&C099H98BW51C099H96BW67UMI00099,F91     L034W66,W40W44,W51W56,W63040104000552TAP1
  417  4 00          MCW   X3,CHARCT                                                7  1667  M 099 G84           56
  418  4 01          A     X2,X3                                                    7  1674  A 094 099           56
  419  4 02          LCA   0000&X1,PARAMT&X3                                        7  1681  L 0|0 G?0           56
  420  4 03          BCE   TSTLIT,X2-001,0                                          8  1688  B Y16 093 0         56
  421  4 04          SW    STEXIT&001                                               4  1696  , X75               56
&M099G84A094099L0|0G?0BY160930,X75      L033W99,W74W81,W88W96,040040104000562TAP1
  422  4 05          BCE   TSTLIT,X2-001,3                                          8  1700  B Y16 093 3         57
  423  4 06          LCA   CHARCT,PARAMT&009&X2                                     7  1708  L G84 G!9           57
  424  4 07          SW    STEXIT&002                                               4  1715  , X76               57
  425  4 08   UPDAT  MCW   I99,X3                                                   7  1719  M E46 099           57
  426  4 09          A     K1,X1                                                    7  1726  A E19 089           57
&BY160933LG84G!9,X76ME46099AE19089      L033X32,X08X15,X19X26,040040104000572TAP1
  427  4 10          BWZ   STEXIT-007,STEXIT&002,1                                  8  1733  V X67 X76 1         58
  428  4 11          BWZ   SETBAD,STEXIT&001,1                                      8  1741  V X60 X75 1         58
  429  4 12          MCW   ADDR,AADDR                                               7  1749  M G95 F86           58
  430  4 13          B     STEXIT                                                   4  1756  B X74               58
  431  4 14   SETBAD MCW   ADDR,BADDR                                               7  1760  M G95 F87           58
&VX67X761VX60X751MG95F86BX74MG95F87     L034X66,X41X49,X56X60,040040104000582TAP1
  432  4 15          CW    STEXIT&001,STEXIT&002                                    7  1767  ) X75 X76           59
  433  4 16   STEXIT B     0000                                                     4  1774  B 000               59
  434  4 17   ACTUAL SW    PARAMT&X2                                                4  1778  , G!0               59
  435  4 18          A     0000&X1,PARAMT&004&X2                                    7  1782  A 0|0 G!4           59
  436  4 19          MCW   A,ADDR                                                   7  1789  M H07 G95           59
  437  4 20          BCE   *&005,X2-001,3                                           8  1796  B Y08 093 3         59
&)X75X76B000,G!0A0|0G!4MH07G95BY080933  L037Y03,X74X78,X82X89,X96040104000592TAP1
  438  4 21          B     UPDAT                                                    4  1804  B X19               60
  439  4 22          SW    STEXIT&001                                               4  1808  , X75               60
  440  4 23          B     UPDAT                                                    4  1812  B X19               60
  441  4 24   TSTLIT BCE   ALFLIT,PARAMT&X2,@                                       8  1816  B Z45 G!0 @         60
  442  4 25          BCE   LITERL,PARAMT&X2,&                                       8  1824  B Y81 G!0 &         60
  443  4 26          BCE   LITERL,PARAMT&X2,-                                       8  1832  B Y81 G!0 -         60
&BX19,X75BX19BZ45G!0@BY81G!0&BY81G!0-   L036Y39,Y08Y12,Y16Y24,Y32040104000602TAP1
  444  4 27          C     K6,CHARCT                                                7  1840  C E24 G84           61
  445  4 28          BL    *&012                                                    5  1847  B Y63 T             61
  446  4 29          SW    ERRPOS                                                   4  1852  , F91               61
  447  4 30          MCW   K5,CHARCT                                                7  1856  M E22 G84           61
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  448  4 31          LCA   CHARCT,PARAMT&009&X2                                     7  1863  L G84 G!9           61
  449  4 32          MCW   S,ADDR                                                   7  1870  M H06 G95           61
&CE24G84BY63T,F91ME22G84LG84G!9MH06G95  L037Y76,Y47Y52,Y56Y63,Y70040104000612TAP1
  450  4 33          B     UPDAT                                                    4  1877  B X19               62
  451  4 34   LITERL BCE   RECURS,PARAMT&001&X2,&                                   8  1881  B Z30 G!1 &         62
  452  4 35          BCE   RECURS,PARAMT&001&X2,-                                   8  1889  B Z30 G!1 -         62
  453  4 36          BWZ   LITNUM,PARAMT&001&X2,2                                   8  1897  V Z56 G!1 2         62
  454  4 37   LTADCN A     K3,LITCNT                                                7  1905  A E21 F95           62
&BX19BZ30G!1&BZ30G!1-VZ56G!12AE21F95    L035Z11,Y81Y89,Y97Z05,040040104000622TAP1
  455                MLC   @  @,CHARCT                                              7  1912  M I02 G84           63
  456  4 39          MCW   C,ADDR                                                   7  1919  M H11 G95           63
  457  4 40          B     CNTLIT&007                                               4  1926  B Z74               63
  458         RECURS SW    ERRPOS                                                   4  1930  , F91               63
  459                MCW   S,ADDR                                                   7  1934  M H06 G95           63
  460                B     UPDAT                                                    4  1941  B X19               63
&MI02G84MH11G95BZ74,F91MH06G95BX19      L033Z44,Z19Z26,Z30Z34,Z41040104000632TAP1
  461  4 55   ALFLIT MCW   F,ADDR                                                   7  1945  M H08 G95           64
  462  4 56          B     MOVENM                                                   4  1952  B E87               64
  463  4 57   LITNUM MCW   L,ADDR                                                   7  1956  M H09 G95           64
  464  4 58          B     CNTLIT                                                   4  1963  B Z67               64
  465  4 59   CNTLIT A     CHARCT,LITCNT                                            7  1967  A G84 F95           64
  466  4 60          BWZ   *&012,KONST,1                                            8  1974  V Z93 E47 1         64
&MH08G95BE87MH09G95BZ67AG84F95VZ93E471  L037Z81,Z52Z56,Z63Z67,Z74040104000642TAP1
  467  4 61          LCA   CHARCT,PARAMT&029&X2                                     7  1982  L G84 GK9           65
  468  4 62          B     UPDAT                                                    4  1989  B X19               65
  469  4 63          LCA   CHARCT,PARAMT&059                                        7  1993  L G84 G59           65
  470  4 64          CW    KONST                                                    4  2000  ) E47               65
  471  4 65          B     UPDAT                                                    4  2004  B X19               65
  472  4 66   *                   PROCESS DA HEADER
  473  4 67   DALINE MCW   K20,X1                                                   7  2008  M E30 089           65
&LG84GK9BX19LG84G59)E47BX19ME30089      L033!14,Z89Z93,!00!04,!08040104000652TAP1
  474  4 68          MCW   ZEROS,X2                                                 7  2015  M G79 094           66
  475  4 69          MCW   I99,X3                                                   7  2022  M E46 099           66
  476  4 70          CW    COMMA1&009,ANALDA&002                                    7  2029  ) J31 !42           66
  477  4 71          CW    RECORD                                                   4  2036  ) F05               66
  478  4 72   ANALDA BCE   X,0001&X1,X                                              8  2040  B !90 0|1 X         66
&MG79094ME46099)J31!42)F05B!900|1X      L033!47,!22!29,!36!40,040040104000662TAP1
  479  4 73          BCE   COMMA1,0001&X1,,                                         8  2048  B J22 0|1 ,         67
  480  4 74          BCE   END1,0001&X1,                                            8  2056  B J68 0|1           67
  481  4 75   STEP1  A     K1,X1                                                    7  2064  A E19 089           67
  482  4 76          A     K1,X3                                                    7  2071  A E19 099           67
  483  4 77          BWZ   ANALDA&008,ANALDA&002,1                                  8  2078  V !48 !42 1         67
&BJ220|1,BJ680|1 AE19089AE19099V!48!421 L038!85,!56!64,!71!78,040040104000672TAP1
  484  4 78          B     ANALDA                                                   4  2086  B !40               68
  485  4 79   X      LCA   0000&X1,PARAMT&009&X2                                    7  2090  L 0|0 G!9           68
  486  4 80          MCW   I98,X3                                                   7  2097  M E43 099           68
  487  4 81          A     K10,X2                                                   7  2104  A E27 094           68
  488  4 82          SW    0002&X1,ANALDA&002                                       7  2111  , 0|2 !42           68
  489  4 83          B     STEP1                                                    4  2118  B !64               68
&B!40L0|0G!9ME43099AE27094,0|2!42B!64   L036J21,!90!97,J04J11,J18040104000682TAP1
  490         COMMA1 BW    BXLOK,*&2                                                8  2122  V J50 J31 1         69
  491  4 85          SW    *-002                                                    4  2130  , J31               69
  492                BW    *&5,ANALDA&2                                             8  2134  V J46 !42 1         69
  493                SW    ERRPOS                                                   4  2142  , F91               69
  494  4 86          B     X                                                        4  2146  B !90               69
  495         BXLOK  A     X2,X3                                                    7  2150  A 094 099           69
&VJ50J311,J31VJ46!421,F91B!90A094099    L035J56,J30J34,J42J46,J50040104000692TAP1
  496  4 88          LCA   0000&X1,PARAMT&X3                                        7  2157  L 0|0 G?0           70
  497  4 89          B     X&007                                                    4  2164  B !97               70
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE    9
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  498  4 90   END1   BWZ   *&012,COMMA1&009,1                                       8  2168  V J87 J31 1         70
  499  4 91          LCA   0000&X1,PARAMT&009&X2                                    7  2176  L 0|0 G!9           70
  500  4 92          B     *&015                                                    4  2183  B K01               70
  501  4 93          A     X2,X3                                                    7  2187  A 094 099           70
&L0|0G?0B!97VJ87J311L0|0G!9BK01A094099  L037J93,J64J68,J76J83,J87040104000702TAP1
  502  4 94          LCA   0000&X1,PARAMT&X3                                        7  2194  L 0|0 G?0           71
  503  4 95   CALCDA MCW   ZEROS,HOLD                                               7  2201  M G79 G92           71
  504  4 96          MCW   PARAMT&019,HOLD                                          7  2208  M G19 G92           71
  505  4 97          MCW   ZEROS,X1                                                 7  2215  M G79 089           71
  506  4 98          A     PARAMT&016,X1                                            7  2222  A G16 089           71
&L0|0G?0MG79G92MG19G92MG79089AG16089    L035K28,K01K08,K15K22,040040104000712TAP1
  507  4 99          MZ    ZONE&X1,HOLD-002                                         7  2229  Y EV6 G90           72
  508  5 00          MCW   HOLD,LITCNT                                              7  2236  M G92 F95           72
  509  5 01          MCW   ZEROS,ADDR                                               7  2243  M G79 G95           72
  510  5 02          MCW   PARAMT&009,ADDR                                          7  2250  M G09 G95           72
  511  5 03   DECR   S     K1,ADDR                                                  7  2257  S E19 G95           72
&YEV6G90MG92F95MG79G95MG09G95SE19G95    L035K63,K36K43,K50K57,040040104000722TAP1
  512  5 04          C     ZEROPL,ADDR                                              7  2264  C H15 G95           73
  513  5 05          BE    *&012                                                    5  2271  B K87 S             73
  514  5 06          A     HOLD,LITCNT                                              7  2276  A G92 F95           73
  515  5 07          B     DECR                                                     4  2283  B K57               73
  516  5 08          MCW   LITCNT,LOCCNT                                            7  2287  M F95 G89           73
  517  5 09          MCW   ZEROS,X1                                                 7  2294  M G79 089           73
&CH15G95BK87SAG92F95BK57MF95G89MG79089  L037L00,K71K76,K83K87,K94040104000732TAP1
  518  5 10   SCANDA BCE   INCXNG,PARAMT&020&X1,X                                   8  2301  B L44 GS0 X         74
  519  5 11          BCE   INCRMK,PARAMT&020&X1,|                                   8  2309  B L80 GS0 |         74
  520  5 12          BCE   INCGMK,PARAMT&020&X1,G                                   8  2317  B M09 GS0 G         74
  521  5 13   TSTNXT BCE   SKIP5,X1-001,4                                           8  2325  B M31 088 4         74
  522  5 14          A     K10,X1                                                   7  2333  A E27 089           74
&BL44GS0XBL80GS0|BM09GS0GBM310884AE27089L039L39,L09L17,L25L33,040040104000742TAP1
  523  5 15          B     SCANDA                                                   4  2340  B L01               75
  524  5 16   INCXNG MCW   K1,ACTOP                                                 7  2344  M E19 F96           75
  525  5 17          MCW   ZEROS,X2                                                 7  2351  M G79 094           75
  526  5 18          SW    PARAMT&021&X1                                            4  2358  , GS1               75
  527  5 19          A     PARAMT&021&X1,X2                                         7  2362  A GS1 094           75
  528  5 20          MZ    ZONE&X2,ACTOP                                            7  2369  Y EN6 F96           75
&BL01ME19F96MG79094,GS1AGS1094YEN6F96   L036L75,L44L51,L58L62,L69040104000752TAP1
  529  5 21          B     TSTNXT                                                   4  2376  B L25               76
  530  5 22   INCRMK A     PARAMT&009,LITCNT                                        7  2380  A G09 F95           76
  531  5 23          LCA   K1,PARAMT&60                                             7  2387  L E19 G60           76
  532  5 24          MCW   R,PARAMT&020&X1                                          7  2394  M H37 GS0           76
  533  5 25          SW    ERRPOS-002                                               4  2401  , F89               76
  534  5 26          B     TSTNXT                                                   4  2405  B L25               76
  535         INCGMK SW    ERRPOS-1                                                 4  2409  , F90               76
&BL25AG09F95LE19G60MH37GS0,F89BL25,F90  L037M12,L80L87,L94M01,M05M09104000762TAP1
  536                A     K1,LITCNT                                                7  2413  A E19 F95           77
  537  5 29          LCA   K1,PARAMT&67                                             7  2420  L E19 G67           77
  538  5 30          B     TSTNXT                                                   4  2427  B L25               77
  539         SKIP5  SW    DAON                                                     4  2431  , H40               77
  540  5 32          B     PUTRCD                                                   4  2435  B |21               77
  541  5 33   NOREAD CW    DAON                                                     4  2439  ) H40               77
  542                MLC   @ @,PARAMT&59                                            7  2443  M H81 G59           77
&AE19F95LE19G67BL25,H40B|21)H40MH81G59  L037M49,M20M27,M31M35,M39M43104000772TAP1
  543                SW    PARAMT&65                                                4  2450  , G65               78
  544  5 34   *                   PROCESS DA SUBSEQUENT ENTRY
  545  5 35          CS    0080                                                     4  2454  / 080               78
  546  5 36          CW    RECORD                                                   4  2458  ) F05               78
  547  5 37          SW    0006,0021                                                7  2462  , 006 021           78
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE   10
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  548  5 38          SW    0001,0016                                                7  2469  , 001 016           78
  549                SW    RECORD&75                                                4  2476  , F80               78
  550  5 39          MCW   BLANKS,PARAMT&039                                        7  2480  M H05 G39           78
&,G65/080)F05,006021,001016,F80MH05G39  L037M86,M54M58,M62M69,M76M80104000782TAP1
  551  5 40          MCW   BLANKS,PARAMT&029                                        7  2487  M H05 G29           79
  552  5 41          R                                                              1  2494  1                   79
  553                SS    1                                                        2  2495  K 1                 79
  554                BCE   BYPCMT,6,*                                               8  2497  B R43 006 *         79
  555  5 43          BCE   *&005,0016,                                              8  2505  B N17 016           79
  556  5 44          B     LASTSB                                                   4  2513  B O77               79
  557  5 45          MCW   K20,X1                                                   7  2517  M E30 089           79
&MH05G291K1BR43006*BN17016 BO77ME30089  L037N23,M94M95,M97N05,N13N17104000792TAP1
  558  5 46          MCW   K20,X2                                                   7  2524  M E30 094           80
  559  5 47          MCW   0080,RECORD&079                                          7  2531  M 080 F84           80
  560                CHAIN 4                                                                             MACRO
  561                MCW                                                            1  2538  M           GEN     80
  562                MCW                                                            1  2539  M           GEN     80
  563                MCW                                                            1  2540  M           GEN     80
  564                MCW                                                            1  2541  M           GEN     80
  565  5 51   ANALSB BCE   COMMA2,0001&X1,,                                         8  2542  B N69 0|1 ,         80
&ME30094M080F84MMMMBN690|1,             L026N49,N31N38,N39N40,N41N42104000802TAP1
  566  5 52          BCE   END2,0001&X1,                                            8  2550  B N91 0|1           81
  567  5 53   STEP2  A     K1,X1                                                    7  2558  A E19 089           81
  568  5 54          B     ANALSB                                                   4  2565  B N42               81
  569  5 55   COMMA2 LCA   0000&X1,PARAMT&009&X2                                    7  2569  L 0|0 G!9           81
  570  5 56          SW    0002&X1                                                  4  2576  , 0|2               81
  571  5 57          A     K10,X2                                                   7  2580  A E27 094           81
&BN910|1 AE19089BN42L0|0G!9,0|2AE27094  L037N86,N58N65,N69N76,N80040104000812TAP1
  572  5 58          B     STEP2                                                    4  2587  B N58               82
  573  5 59   END2   LCA   0000&X1,PARAMT&009&X2                                    7  2591  L 0|0 G!9           82
  574  5 60          MCW   ZEROS,LITCNT                                             7  2598  M G79 F95           82
  575  5 61          MCW   ZEROS,LOCATN                                             7  2605  M G79 F99           82
  576  5 62          A     PARAMT&009&X2,LOCATN                                     7  2612  A G!9 F99           82
  577  5 63          A     MINUS,LOCATN                                             7  2619  A E50 F99           82
&BN58L0|0G!9MG79F95MG79F99AG!9F99AE50F99L039O25,N91N98,O05O12,O19040104000822TAP1
  578  5 64          ZS    PARAMT&29,XHOLD                                          7  2626  ! G29 I42           83
  579  5 65          A     PARAMT&39,XHOLD                                          7  2633  A G39 I42           83
  580  5 66          A     K1,XHOLD                                                 7  2640  A E19 I42           83
  581  5 67          BWZ   *&12,XHOLD,K                                             8  2647  V O66 I42 K         83
  582  5 68          MLC   XHOLD,LITCNT                                             7  2655  M I42 F95           83
&!G29I42AG39I42AE19I42VO66I42KMI42F95   L036O61,O33O40,O47O55,040040104000832TAP1
  583  5 681  3942   DCW   #4                                                       4  3942                      84
  584  5 682  XHOLD  EQU   3942                                                        3942
&                                       L004I42,040040,040040,040040104000842TAP1
  585  5 69          B     SETHO                                                    4  2662  B E61               85
  586  5 70          MLC   ZEROS,LITCNT                                             7  2666  M G79 F95           85
  587  5 71          B     SETHO                                                    4  2673  B E61               85
  588         LASTSB MCW   BLANKS,RECORD&79                                         7  2677  M H05 F84           85
  589                LCA   BLANKS,RECORD&10                                         7  2684  L H05 F15           85
  590                CW    RECORD&1                                                 4  2691  ) F06               85
&BE61MG79F95BE61MH05F84LH05F15)F06      L033O94,O66O73,O77O84,O91040104000852TAP1
  591                MCW   @ @,RECORD                                               7  2695  M H81 F05           86
  592                BWZ   INSRMK,ERRPOS-2,1                                        8  2702  V P22 F89 1         86
  593  5 73          BWZ   INSGMK,ERRPOS-001,1                                      8  2710  V Q71 F90 1         86
  594  5 74          B     SETPAR                                                   4  2718  B 444               86
  595  5 75   INSRMK CW    ERRPOS-002                                               4  2722  ) F89               86
  596  5 76          MCW   ZEROS,LOCATN                                             7  2726  M G79 F99           86
&MH81F05VP22F891VQ71F901B444)F89MG79F99 L038P32,P02P10,P18P22,P26040104000862TAP1
  597  5 77          MCW   ZEROS,ADDR                                               7  2733  M G79 G95           87
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE   11
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  598  5 78          MCW   ZEROS,HOLD                                               7  2740  M G79 G92           87
  599  5 79          MCW   PARAMT&019,ADDR                                          7  2747  M G19 G95           87
  600  5 80          MCW   PARAMT&009,HOLD                                          7  2754  M G09 G92           87
  601  5 81          CS    PARAMT&060                                               4  2761  / G60               87
  602                CS    RECORD&74                                                4  2765  / F79               87
&MG79G95MG79G92MG19G95MG09G92/G60/F79   L036P68,P40P47,P54P61,P65040104000872TAP1
  603  5 83          SW    PARAMT                                                   4  2769  , G00               88
  604                LCA   @DC   @,RECORD&19                                        7  2773  L I07 F24           88
  605  5 85          LCA   ALFRM,PARAMT&002                                         7  2780  L H36 G02           88
  606                MLC   @001@,LITCNT                                             7  2787  M I10 F95           88
  607  5 87          LCA   ALFRM,RECORD&022                                         7  2794  L H36 F27           88
  608  5 88          LCA   K1,PARAMT&059                                            7  2801  L E19 G59           88
&,G00LI07F24LH36G02MI10F95LH36F27LE19G59L039Q07,P73P80,P87P94,Q01040104000882TAP1
  609  5 89          LCA   @RMARK@,PARAMT&64                                        7  2808  L I15 G64           89
  610  5 90          SW    ALFGM                                                    4  2815  , H33               89
  611  5 91   RMLOOP A     ADDR,LOCATN                                              7  2819  A G95 F99           89
  612                A     @1@,LOCCNT                                               7  2826  A H91 G89           89
  613  5 92          B     PUTRCD&029                                               4  2833  B |50               89
  614  5 94   RMBACK S     K1,HOLD                                                  7  2837  S E19 G92           89
&LI15G64,H33AG95F99AH91G89B|50SE19G92   L036Q43,Q15Q19,Q26Q33,Q37040104000892TAP1
  615  5 945         A     K1,LOCATN                                                7  2844  A E19 F99           90
  616  5 95          C     ZEROPL,HOLD                                              7  2851  C H15 G92           90
  617  5 96          BU    RMLOOP                                                   5  2858  B Q19 /             90
  618  5 97          CW    ALFGM                                                    4  2863  ) H33               90
  619                B     LASTSB                                                   4  2867  B O77               90
  620  5 99   INSGMK CS    PARAMT&060                                               4  2871  / G60               90
  621  5 995         CW    ERRPOS-1                                                 4  2875  ) F90               90
&AE19F99CH15G92BQ19/)H33BO77/G60)F90    L035Q78,Q51Q58,Q63Q67,Q71Q75104000902TAP1
  622  6 00          LCA   BLANKS,RECORD&029                                        7  2879  L H05 F34           91
  623  6 01          LCA   KDCW,RECORD&019                                          7  2886  L H20 F24           91
  624  6 02          LCA   ALFGM,PARAMT&002                                         7  2893  L H33 G02           91
  625  6 03          LCA   ALFGM,RECORD&022                                         7  2900  L H33 F27           91
  626                MLC   @001@,LITCNT                                             7  2907  M I10 F95           91
&LH05F34LH20F24LH33G02LH33F27MI10F95    L035R13,Q86Q93,R00R07,040040104000912TAP1
  627  6 05          LCA   K1,PARAMT&059                                            7  2914  L E19 G59           92
  628  6 06          MCW   LOCCNT,LOCATN                                            7  2921  M G89 F99           92
  629  6 07          LCA   @GMARK@,PARAMT&64                                        7  2928  L I20 G64           92
  630  6 08          SW    CARDIN                                                   4  2935  , H41               92
  631  6 09          B     PUTRCD&14                                                4  2939  B |35               92
  632  6 091  BYPCMT LCA   SERIAL,80                                                7  2943  L E55 080           92
&LE19G59MG89F99LI20G64,H41B|35LE55080   L036R49,R21R28,R35R39,R43040104000922TAP1
  633                A     @1@,SERIAL                                               7  2950  A H91 E55           93
  634                WTW   1,1                                                      8  2957  L %U1 001 W         93
  635                BER   TPERR                                                    5  2965  B 201 L             93
  636                BEF   *&1                                                      5  2970  B R75 K             93
  637                B     NOREAD                                                   4  2975  B M39               93
  638  6 10   *                   CONSTANTS - DCW AND DC
  639         CONST  MCW   K21,X1                                                   7  2979  M E33 089           93
&AH91E55L%U1001WB201LBR75KBM39ME33089   L036R85,R57R65,R70R75,R79040104000932TAP1
  640  6 12          MCW   ZEROS,X2                                                 7  2986  M G79 094           94
  641  6 13          BCE   NUMBER,0021,#                                            8  2993  B ?63 021 #         94
  642  6 14          BCE   *&009,0021,@                                             8  3001  B ?17 021 @         94
  643  6 15          BWZ   CONTST,0021,2                                            8  3009  V A15 021 2         94
  644  6 16          SW    KONST                                                    4  3017  , E47               94
  645  6 17          B     PROPND                                                   4  3021  B |88               94
&MG79094B?63021#B?17021@VA150212,E47B|88L039?24,R93?01,?09?17,?21040104000942TAP1
  646  6 18          CW    KONST                                                    4  3025  ) E47               95
  647                BCE   *&16,21,@                                                8  3029  B ?52 021 @         95
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE   12
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  648  6 22          BCE   *&008,AADDR,L                                            8  3037  B ?52 F86 L         95
  649  6 23          MCW   K3,LITCNT                                                7  3045  M E21 F95           95
  650  6 24          MCW   LITCNT,PARAMT&059                                        7  3052  M F95 G59           95
  651  6 25          B     PUTRCD                                                   4  3059  B |21               95
&)E47B?52021@B?52F86LME21F95MF95G59B|21 L038?62,?29?37,?45?52,?59040104000952TAP1
  652  6 26   NUMBER SW    0022                                                     4  3063  , 022               96
  653  6 27          BCE   *&012,0023,                                              8  3067  B ?86 023           96
  654  6 28          LCA   0023,PARAMT&009                                          7  3075  L 023 G09           96
  655  6 29          B     CONBCK&004                                               4  3082  B ?97               96
  656  6 30          LCA   0022,PARAMT&009                                          7  3086  L 022 G09           96
  657  6 31   CONBCK CW    KONST                                                    4  3093  ) E47               96
&,022B?86023 L023G09B?97L022G09)E47     L034?96,?67?75,?82?86,?93040104000962TAP1
  658  6 32          A     PARAMT&9,LITCNT                                          7  3097  A G09 F95           97
  659  6 33          LCA   BLANKS,PARAMT&009                                        7  3104  L H05 G09           97
  660  6 34          B     PUTRCD                                                   4  3111  B |21               97
  661  6 35   CONTST BCE   CONEND,0001&X1,                                          8  3115  B A41 0|1           97
  662  6 36          A     K1,X1                                                    7  3123  A E19 089           97
&AG09F95LH05G09B|21BA410|1 AE19089      L033A29,A04A11,A15A23,040040104000972TAP1
  663  6 37          A     K1,X2                                                    7  3130  A E19 094           98
  664  6 38          B     CONTST                                                   4  3137  B A15               98
  665  6 39   CONEND A     K1,X2                                                    7  3141  A E19 094           98
  666  6 40          MCW   X2,LITCNT                                                7  3148  M 094 F95           98
  667  6 41          LCA   X2,PARAMT&059                                            7  3155  L 094 G59           98
  668  6 42          LCA   0000&X1,PARAMT&X2                                        7  3162  L 0|0 G!0           98
&AE19094BA15AE19094M094F95L094G59L0|0G!0L039A68,A37A41,A48A55,A62040104000982TAP1
  669  6 43          B     PUTRCD                                                   4  3169  B |21               99
  670  6 44   ENDSCE SW    RECORD                                                   4  3173  , F05               99
  671  6 45          B     PROPND                                                   4  3177  B |88               99
  672  6 46          B     ENDLIT                                                   4  3181  B B81               99
  673  6 47   ENDBCK CW    RECORD                                                   4  3185  ) F05               99
  674  6 48          WTW   1,RECORD                                                 8  3189  L %U1 F05 W         99
  675  6 49          BER   TPERR                                                    5  3197  B 201 L             99
&B|21,F05B|88BB81)F05L%U1F05WB201L      L033B01,A73A77,A81A85,A89A97104000992TAP1
  676  6 50          WTM   1                                                        5  3202  U %U1 M            100
  677  6 51          RWD   1                                                        5  3207  U %U1 R            100
  678  6 52          CW    RECRD2&171,PARTBL&90                                     7  3212  ) E18 G76          100
  679  6 53          MLC   @2@,SEEK                                                 7  3219  M I21 125          100
  680  6 54          B     LOAD                                                     4  3226  B 100              100
  681  6 55   EXECUT SW    RECORD&1                                                 4  3230  , F06              100
  682  6 56          B     PROPND                                                   4  3234  B |88              100
&U%U1MU%U1R)E18G76MI21125B100,F06B|88   L036B37,B07B12,B19B26,B30B34104001002TAP1
  683  6 57          B     ENDLIT                                                   4  3238  B B81              101
  684  6 58   EXBACK CW    RECORD&1                                                 4  3242  ) F06              101
  685  6 59          B     PUTRCD                                                   4  3246  B |21              101
  686  6 60   LTORG  B     PROPND                                                   4  3250  B |88              101
  687  6 61          MLC   SERIAL,RECORD&79                                         7  3254  M E55 F84          101
  688  6 62          A     @1@,SERIAL                                               7  3261  A H91 E55          101
  689  6 63          WTW   1,RECORD                                                 8  3268  L %U1 F05 W        101
&BB81)F06B|21B|88ME55F84AH91E55L%U1F05W L038B75,B42B46,B50B54,B61B68104001012TAP1
  690  6 64          BER   TPERR                                                    5  3276  B 201 L            102
  691  6 65   ENDLIT WTM   2                                                        5  3281  U %U2 M            102
  692  6 66          RWD   2                                                        5  3286  U %U2 R            102
  693  6 67   GETLIT RTW   2,RECRD2                                                 8  3291  L %U2 C47 R        102
  694  6 68          BER   TPERR                                                    5  3299  B 201 L            102
  695  6 69          BEF   LITALL                                                   5  3304  B C21 K            102
&B201LU%U2MU%U2RL%U2C47RB201LBC21K      L033C08,B81B86,B91B99,C04040104001022TAP1
  696  6 70          WTW   1,RECRD2                                                 8  3309  L %U1 C47 W        103
  697  6 71          B     GETLIT                                                   4  3317  B B91              103
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE   13
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  698  6 72   LITALL RWD   2                                                        5  3321  U %U2 R            103
  699  6 73          BW    ENDBCK,RECORD                                            8  3326  V A85 F05 1        103
  700  6 74          BW    EXBACK,RECORD&1                                          8  3334  V B42 F06 1        103
  701  6 75          B     RDCARD                                                   4  3342  B 417              103
  702  6 76          H                                                              1  3346  .                  103
&L%U1C47WBB91U%U2RVA85F051VB42F061B417. L038C46,C17C21,C26C34,C42C46104001032TAP1
  703  6 77   RECRD2 DA    1X171,|                                                     3347   3518              104
  704  6 78   PAR          96                                                          3442              SBFLD
&                                       L001001,C47040,040040,040040104001042TAP1
                     DC    @|@                                                      1  3518              RMARK  105
  705  6 79   *                   PROGRAM CONSTANTS
  706  6 80   K1     DCW   @1@                                                      1  3519                     105
  707  6 81   K2     DCW   @2@                                                      1  3520                     105
  708  6 82   K3     DCW   @3@                                                      1  3521                     105
  709  6 83   K5     DCW   @5@                                                      1  3522                     105
&|1235                                  L005E22)E18E18,E19E20,E21E22104001052TAP1
  710  6 84   K6     DCW   @06@                                                     2  3524                     106
  711  6 85   K7     DCW   @7@                                                      1  3525                     106
  712  6 86   K10    DCW   @10@                                                     2  3527                     106
  713  6 87   K20    DCW   @020@                                                    3  3530                     106
  714  6 88   K21    DCW   @021@                                                    3  3533                     106
  715  6 89   K30    DCW   @30@                                                     2  3535                     106
  716  6 90   K60    DCW   @60@                                                     2  3537                     106
&067100200213060                        L015E37,E25E26,E28E31,E34E36104001062TAP1
  717  6 91   K71    DCW   @071@                                                    3  3540                     107
  718  6 92   I98    DSA   &3998                                                    3  3543  I98                107
  719  6 93   I99    DSA   &3999                                                    3  3546  I99                107
  720  6 95   KONST  DC    @ @                                                      1  3547                     107
  721  6 96   MINUS  DCW   @I9I@                                                    3  3550                     107
  722         SERIAL DCW   @00101@                                                  5  3555                     107
  723  7 08   ZONE   DCW   @ @                                                      1  3556                     107
  724  7 09          DCW   @/@                                                      1  3557                     107
&071I98I99 I9I00101 /                   L020E57,E41E44,E48E51,E56E57104001072TAP1
  725  7 10          DCW   @J@                                                      1  3558                     108
  726  7 11          DCW   @A@                                                      1  3559                     108
  727  7 29   *                   OUTPUT AREA & PARAMETER TABL
  728  7 30          ORG   *&X00                                                              3600
  729  7 31          ORG   *&5                                                                3605
  730  7 32   RECORD DA    1X80,|                                                      3605   3685              108
&JA                                     L002E59,E59F05,040040,040040104001082TAP1
                     DC    @|@                                                      1  3685              RMARK  109
  731  7 33   PARTBL DA    1X90,|                                                      3686   3776              109
  732  7 34   AADDR        1,1                                                         3686              FIELD  109
  733  7 35   BADDR        2,2                                                         3687              FIELD  109
  734  7 36   ERRPOS       6                                                           3691              SBFLD
  735  7 37   ICOUNT       7,7                                                         3692              FIELD  109
&|                                      L001F85)F85F85,F86F86,F87F92104001092TAP1
  736  7 38   LITCNT       8,10                                                        3695              FIELD  110
  737  7 39   ACTOP        11,11                                                       3696              FIELD  110
  738  7 40   LOCATN       12,14                                                       3699              FIELD  110
  739  7 41   PARAMT       15,15                                                       3700              FIELD  110
&                                       L001001,F93F96,F97G00,040040104001102TAP1
                     DC    @|@                                                      1  3776              RMARK  111
  740  7 42   OPER   EQU   RECORD&18                                                   3623
  741         SAVLOC ORG   RECORD&15                                                   3777   3620
&|                                      L001G76)G76G76,040040,040040104001112TAP1
  742                DCW   @JOB  @                                                  5  3624                     112
  743                ORG   SAVLOC                                                             3777
&JOB                                    L005F24,040040,040040,040040104001122TAP1
  744  6 98   ZEROS  DCW   @000@                                                    3  3779                     113
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE   14
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  745  6 99   KBCE   DCW   @BCE@                                                    3  3782                     113
  746  7 00   CHARCT DCW   @  @                                                     2  3784                     113
  747  7 01   COMMSW DC    @ @                                                      1  3785                     113
  748  7 02   ACTADD DC    @ @                                                      1  3786                     113
  749  7 03   LABEL  EQU   0011                                                        0011
  750  7 04   LOCCNT DCW   @333@                                                    3  3789                     113
  751  7 05   HOLD   DCW   @   @                                                    3  3792                     113
  752  7 06   ADDR   DCW   @   @                                                    3  3795                     113
  753  7 07   BLANKS DCW   @          @                                            10  3805                     113
&000BCE    333                          L029H05,G80G83,G87G90,G93G96104001132TAP1
  754  7 12   S      DCW   @S@                                                      1  3806                     114
  755  7 13   A      DCW   @A@                                                      1  3807                     114
  756  7 14   F      DCW   @F@                                                      1  3808                     114
  757  7 15   L      DCW   @L@                                                      1  3809                     114
  758  7 16   M      DCW   @M@                                                      1  3810                     114
  759  7 17   C      DCW   @C@                                                      1  3811                     114
  760  7 18   W      DCW   @W@                                                      1  3812                     114
&SAFLMCW                                L007H12,H07H08,H09H10,H11H12104001142TAP1
  761  7 20   ZEROPL DCW   @00?@                                                    3  3815                     115
  762  7 21   KDCW   DCW   @DCW  @                                                  5  3820                     115
  763  7 22   MLCWA  DCW   @MLCWA@                                                  5  3825                     115
  764  7 23   KLTORG DCW   @LTORG@                                                  5  3830                     115
  765  7 24   ALFGM  DCW   @@}@@                                                    3  3833                     115
  766  7 25   ALFRM  DCW   @@|@@                                                    3  3836                     115
  767  7 26   R      DCW   @R@                                                      1  3837                     115
&00?DCW  MLCWALTORG@}@@|@R              L025H37,H16H21,H26H31,H34H37104001152TAP1
  768  7 27   DMOD   DC    @ @                                                      1  3838                     116
  769  7 28   PERCNT DCW   @%@                                                      1  3839                     116
& %                                     L002H39)H38H38,H39040,040040104001162TAP1
  770  7 43   3998   DCW   @}@                                                      1  3998                     117
  771  7 431  ORGA   ORG   3587                                                        3840   3587
&}                                      L001I98,040040,040040,040040104001172TAP1
  772         MOVENM MN    1&X1,PARAMT&1&X3                                         7  3587  D 0|1 G?1          118
  773                B     CNTLIT                                                   4  3594  B Z67              118
  774                ORG   3561                                                               3561
&D0|1G?1BZ67                            L011E97,E94040,040040,040040104001182TAP1
  775         SETHO  MLC   ZEROS,X1                                                 7  3561  M G79 089          119
  776                MN    PARAMT&6&X2,X1                                           7  3568  D G!6 089          119
  777                MZ    ZONE&X1,LOCATN-2                                         7  3575  Y EV6 F97          119
  778                B     SKIP5                                                    4  3582  B M31              119
  779                ORG   3923                                                               3923
&MG79089DG!6089YEV6F97BM31              L025E85,E68E75,E82040,040040104001192TAP1
  780         PUTXXX A     @1@,SERIAL                                               7  3923  A H91 E55          120
  781                CW    LOCATN                                                   4  3930  ) F99              120
  782                B     PUTRCD&14                                                4  3934  B |35              120
  783                ORG   ORGA                                                               3840
&AH91E55)F99B|35                        L015I37,I30I34,040040,040040104001202TAP1
         171  DAON   DCW   #01                                                      1  3840              AREA   121
         171  CARDIN       #01                                                      1  3841              AREA   121
         172  TWO          #01                                                      1  3842              AREA   121
         227               @DCW  @                                                  5  3847              LIT    121
         229               @DC   @                                                  5  3852              LIT    121
         231               @DA   @                                                  5  3857              LIT    121
         233               @LTORG@                                                  5  3862              LIT    121
&   DCW  DC   DA   LTORG                L023H62,H41H42,H43H48,H53H58104001212TAP1
         235               @EX   @                                                  5  3867              LIT    122
         237               @JOB  @                                                  5  3872              LIT    122
         241               @END  @                                                  5  3877              LIT    122
                           @000@                                                    3  3880              LIT    122
1                          1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR       2TAP1               PAGE   15
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

                           @ @                                                      1  3881              LIT    122
         249               @      @                                                 6  3887              LIT    122
                           @030@                                                    3  3890              LIT    122
&EX   JOB  END  000       030           L028H90,H68H73,H78H81,H82H88104001222TAP1
                           @1@                                                      1  3891              LIT    123
                           @Y@                                                      1  3892              LIT    123
                           @N@                                                      1  3893              LIT    123
                           @#@                                                      1  3894              LIT    123
                           @53@                                                     2  3896              LIT    123
                           @27@                                                     2  3898              LIT    123
                           @26@                                                     2  3900              LIT    123
&1YN#532726                             L010I00,H92H93,H94H95,H97H99104001232TAP1
                           @  @                                                     2  3902              LIT    124
         604               @DC   @                                                  5  3907              LIT    124
                           @001@                                                    3  3910              LIT    124
         609               @RMARK@                                                  5  3915              LIT    124
         629               @GMARK@                                                  5  3920              LIT    124
                           @2@                                                      1  3921              LIT    124
&  DC   001RMARKGMARK2                  L021I21,I03I08,I11I16,I21040104001242TAP1
&                                       N000000,040040,040040,040040B16701252TAP1
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01262TAP2
&,068072)063067/061039                                       ,001001104001272TAP2
  784  7 44          EX    SYSTEM                                                            B 167              125
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   16
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  785  7 45          JOB   1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR
  786                ORG   167                                                                0167
  787                WTW   1,333                                                    8  0167  L %U1 333 W        128
  788                BER   *&5                                                      5  0175  B 184 L            128
  789                R     40                                                       4  0180  1 040              128
  790                BSP   1                                                        5  0184  U %U1 B            128
  791                SKP   1                                                        5  0189  U %U1 E            128
  792                B     SYSTEM                                                   4  0194  B 167              128
  793                H                                                              1  0198  .                  128
  794  7 46          ORG   333                                                                0333
&L%U1333WB184L1040U%U1BU%U1EB167.       L032198,175180,184189,194198104001282TAP2
  795  7 47          DCW   @2@                                                      1  0333                     129
  796  7 48          SW    3998                                                     4  0334  , I98              129
  797  7 49          LCA   3998,PARTBL&90                                           7  0338  L I98 G76          129
  798  7 493         LCA   @         @,14                                           7  0345  L M51 014          129
  799  7 496         SW    13,12                                                    7  0352  , 013 012          129
  800                CW    HADLIT#1                                                 4  0359  ) M52              129
  801  7 50   GET    RTW   1,RECORD                                                 8  0363  L %U1 F05 R        129
&2,I98LI98G76LM51014,013012)M52L%U1F05R L038370,334338,345352,359363104001292TAP2
  802  7 51          BER   TPERR                                                    5  0371  B 201 L            130
  803  7 52          BEF   ENDPH2                                                   5  0376  B U19 K            130
  804  7 54          BCE   PUT,RECORD&005,*                                         8  0381  B T83 F10 *        130
  805  7 55          BWZ   LITRCD,RECORD&003,1                                      8  0389  V /45 F08 1        130
  806                BW    TSTORG,HADLIT                                            8  0397  V W17 M52 1        130
&B201LBU19KBT83F10*V/45F081VW17M521     L034404,376381,389397,040040104001302TAP2
  807  7 56          BWZ   PUT,PARAMT&065,1                                         8  0405  V T83 G65 1        131
  808  7 57   *                        CONVERT ACTUAL ADDRESSES TO MACH LANGUAGE
  809  7 58          MLC   @030@,X1                                                 7  0413  M M55 089          131
  810  7 59          BCE   CONVRT,BADDR,A                                           8  0420  B U50 F87 A        131
  811  7 60          MLC   @000@,X1                                                 7  0428  M M58 089          131
  812  7 61          BCE   CONVRT,AADDR,A                                           8  0435  B U50 F86 A        131
&VT83G651MM55089BU50F87AMM58089BU50F86A L038442,413420,428435,040040104001312TAP2
  813  7 62          BCE   CONOUT,RECORD&5,                                         8  0443  B 556 F10          132
  814  7 63          BWZ   *&5,RECORD&5,2                                           8  0451  V 463 F10 2        132
  815  7 64          B     CONOUT                                                   4  0459  B 556              132
  816  7 65          BCE   *&12,RECORD&6&X1,                                        8  0463  B 482 F/1          132
  817  7 66          A     @1@,X1                                                   7  0471  A M59 089          132
  818  7 67          B     *-18                                                     4  0478  B 463              132
&B556F10 V463F102B556B482F/1 AM59089B463L039481,451459,463471,478040104001322TAP2
  819  7 68          SW    ONE#1                                                    4  0482  , M60              133
  820  7 69          MLC   PARAMT&60,ONE                                            7  0486  M G60 M60          133
  821  7 70          BW    *&5,PARAMT&60                                            8  0493  V 505 G60 1        133
  822  7 71          CW    ONE                                                      4  0501  ) M60              133
  823  7 72          LCA   @00000     @,PARAMT&69                                   7  0505  L M70 G69          133
  824  7 73          A     RECORD&5&X1,PARAMT&64                                    7  0512  A F/0 G64          133
&,M60MG60M60V505G601)M60LM70G69AF/0G64  L037518,486493,501505,512040104001332TAP2
  825  7 74          MLC   @060@,X1                                                 7  0519  M M73 089          134
  826  7 75          B     CONVRT                                                   4  0526  B U50              134
  827  7 76          MLC   PARAMT&68,LOCATN                                         7  0530  M G68 F99          134
  828  7 77          MLC   ONE,PARAMT&60                                            7  0537  M M60 G60          134
  829  7 78          BW    *&5,ONE                                                  8  0544  V 556 M60 1        134
  830  7 79          CW    PARAMT&60                                                4  0552  ) G60              134
  831  7 80   CONOUT NOP                                                            1  0556  N                  134
&MM73089BU50MG68F99MM60G60V556M601)G60N L038556,526530,537544,552556104001342TAP2
  832  7 81          BCE   *&005,PARAMT,%                                           8  0557  B 569 G00 %        135
  833  7 82          B     *&008                                                    4  0565  B 576              135
  834  7 83          MCW   M,AADDR                                                  7  0569  M H10 F86          135
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   17
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  835                BCE   OPEROK,OPER&1,                                           8  0576  B 624 F24          135
  836  7 85          C     OPER&001,KLTORG                                          7  0584  C F24 H30          135
  837                BE    OPEROK                                                   5  0591  B 624 S            135
&B569G00%B576MH10F86B624F24 CF24H30B624SL039595,565569,576584,591040104001352TAP2
  838  7 87          C     OPER&001,MLCWA                                           7  0596  C F24 H25          136
  839                BE    OPEROK                                                   5  0603  B 624 S            136
  840                C     OPER&1,@CHAIN@                                           7  0608  C F24 M78          136
  841                BE    CHAIN                                                    5  0615  B S40 S            136
  842  7 89          B     NOOP                                                     4  0620  B 665              136
  843         OPEROK SW    OPER-3                                                   4  0624  , F20              136
  844  7 91          MCW   OPER,ENDOPT                                              7  0628  M F23 M41          136
&CF24H25B624SCF24M78BS40SB665,F20MF23M41L039634,603608,615620,624628104001362TAP2
  845  7 92          MCW   ZEROS,X1                                                 7  0635  M G79 089          137
  846  7 53   *                   TLU OP CODE
  847  7 93   TLUOP  C     OPTABL-003&X1,OPER                                       7  0642  C WY5 F23          137
  848  7 94          BE    HITOP                                                    5  0649  B 673 S            137
  849  7 95          A     K7,X1                                                    7  0654  A E25 089          137
  850  7 96          B     TLUOP                                                    4  0661  B 642              137
  851  7 97   NOOP   SW    ERRPOS-001                                               4  0665  , F90              137
  852  7 98          B     OPERND                                                   4  0669  B 913              137
&MG79089CWY5F23B673SAE25089B642,F90B913 L038672,642649,654661,665669104001372TAP2
  853  7 99   HITOP  BCE   NOOP,OPTABL-002&X1,}                                     8  0673  B 665 WY6 }        138
  854  8 00          BWZ   DECLOP,OPTABL-002&X1,1                                   8  0681  V 974 WY6 1        138
  855  8 01   IMPROP MCW   OPTABL-002&X1,ACTOP                                      7  0689  M WY6 F96          138
  856  8 02          BCE   OPERND,OPTABL-001&X1,                                    8  0696  B 913 WY7          138
  857  8 03          BWZ   GENDMD,OPTABL-001&X1,1                                   8  0704  V 731 WY7 1        138
&B665WY6}V974WY61MWY6F96B913WY7 V731WY71L039711,681689,696704,040040104001382TAP2
  858  8 04   HAVE*  SW    PARAMT&060,DMOD                                          7  0712  , G60 H38          139
  859  8 05          BCE   INSERT,PARAMT&060,                                       8  0719  B |19 G60          139
  860  8 06          B     OPERND                                                   4  0727  B 913              139
  861  8 07   GENDMD BWZ   DISK,OPTABL&X1,1                                         8  0731  V 825 WY8 1        139
  862  8 08          LCA   OPTABL-001&X1,PARAMT&060                                 7  0739  L WY7 G60          139
&,G60H38B|19G60 B913V825WY81LWY7G60     L034745,719727,731739,040040104001392TAP2
  863  8 09          BCE   OPERND,OPTABL&X1,                                        8  0746  B 913 WY8          140
  864  8 10          BCE   OPERND,AADDR,S                                           8  0754  B 913 F86 S        140
  865                BCE   OPERND,AADDR,M                                           8  0762  B 913 F86 M        140
  866  8 11          SW    PARAMT&009                                               4  0770  , G09              140
  867  8 12          MCW   OPTABL&X1,PARAMT&009                                     7  0774  M WY8 G09          140
&B913WY8 B913F86SB913F86M,G09MWY8G09    L035780,754762,770774,040040104001402TAP2
  868  8 13          MCW   M,AADDR                                                  7  0781  M H10 F86          141
  869  8 14   GENRET MCW   PARAMT&004,PARAMT&003                                    7  0788  M G04 G03          141
  870  8 15          MN    BLANKS,PARAMT&004                                        7  0795  D H05 G04          141
  871  8 16          MN                                                             1  0802  D                  141
  872  8 17          MCW   PERCNT,PARAMT                                            7  0803  M H39 G00          141
  873  8 18          MCW   PARAMT&009,PARAMT&001                                    7  0810  M G09 G01          141
&MH10F86MG04G03DH05G04DMH39G00MG09G01   L036816,788795,802803,810040104001412TAP2
  874  8 185         CW    PARAMT&2                                                 4  0817  ) G02              142
  875  8 19          B     SPACNT                                                   4  0821  B 914              142
  876         DISK   BCE   MOVES,AADDR,S                                            8  0825  B 888 F86 S        142
  877                MLC   PARAMT&29,PARAMT&59                                      7  0833  M G29 G59          142
  878                CHAIN 2                                                                             MACRO
  879                MLC                                                            1  0840  M           GEN    142
  880                MLC                                                            1  0841  M           GEN    142
  881                MLC   PARAMT&8,PARAMT&38                                       7  0842  M G08 G38          142
&)G02B914B888F86SMG29G59MMMG08G38       L032848,821825,833840,841842104001422TAP2
  882         DISKEX MLC   AADDR,BADDR                                              7  0849  M F86 F87          143
  883  8 24          MCW   M,AADDR                                                  7  0856  M H10 F86          143
  884  8 25          LCA   F,PARAMT&009                                             7  0863  L H08 G09          143
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   18
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  885  8 255         MCW   OPTABL&X1,PARAMT&4                                       7  0870  M WY8 G04          143
  886  8 26          LCA   OPTABL-001&X1,PARAMT&060                                 7  0877  L WY7 G60          143
  887  8 27          B     GENRET                                                   4  0884  B 788              143
&MF86F87MH10F86LH08G09MWY8G04LWY7G60B788L039887,856863,870877,884040104001432TAP2
  888         MOVES  MLC   @|@,PARAMT&27                                            7  0888  M M79 G27          144
  889                MCM   PARAMT,PARAMT&30                                         7  0895  P G00 G30          144
  890                MLC   PARAMT&29,PARAMT&59                                      7  0902  M G29 G59          144
  891                B     DISKEX                                                   4  0909  B 849              144
  892  8 28   *                   CALCULATE INSTRUCTION COUNT
  893  8 29   OPERND NOP                                                            1  0913  N                  144
  894  8 30   SPACNT MCW   K1,ICOUNT                                                7  0914  M E19 F92          144
&MM79G27PG00G30MG29G59B849NME19F92      L033920,895902,909913,914040104001442TAP2
  895  8 31   HAVEA  BCE   HAVEB,AADDR,                                             8  0921  B 936 F86          145
  896  8 32          A     K3,ICOUNT                                                7  0929  A E21 F92          145
  897  8 33   HAVEB  BCE   HAVED,BADDR,                                             8  0936  B 951 F87          145
  898  8 34          A     K3,ICOUNT                                                7  0944  A E21 F92          145
  899  8 35   HAVED  BWZ   CTDMOD,PARAMT&060,1                                      8  0951  V 963 G60 1        145
&B936F86 AE21F92B951F87 AE21F92V963G601 L038958,929936,944951,040040104001452TAP2
  900  8 36   RELEAS B     XBIN                                                     4  0959  B P71              146
  901  8 37   CTDMOD B     XBCE                                                     4  0963  B P11              146
  902  8 371         NOP                                                            1  0967  N                  146
  903  8 372         NOP                                                            1  0968  N                  146
  904  8 373         NOP                                                            1  0969  N                  146
  905  8 38          B     CLEARX                                                   4  0970  B R01              146
  906  8 39   *                      SET UP LINKAGE TO SPECIAL
  907  8 40   *                           ROUTINES - ADDRESS O
  908  8 41   *                           FROM OP CODE TABLE
  909  8 42   DECLOP MCW   OPTABL&X1,*&004                                          7  0974  M WY8 984          146
&BP71BP11NNNBR01MWY8984                 L022980,963967,968969,970974104001462TAP2
  910  8 43          B     0000                                                     4  0981  B 000              147
  911  8 44   *                      EXIT FOR DECLARATIVE AND
  912  8 45   *                           REQUIRING NO SPECIAL
  913  8 46   DECEXT B     PUT                                                      4  0985  B T83              147
  914  8 47   *                   CONTROL OPERATIONS
  915  8 48   CONTRL SW    RECORD                                                   4  0989  , F05              147
  916  8 49          B     PUT                                                      4  0993  B T83              147
  917  8 50   *                   DS DECLARATIVE
  918  8 51   DS     MCW   PARAMT&004,LITCNT                                        7  0997  M G04 F95          147
  919  8 52          B     PUT                                                      4  1004  B T83              147
  920  8 53   *                   DSA DECLARATIVE
  921  8 54   DSA    MCW   K3,LITCNT                                                7  1008  M E21 F95          147
&B000BT83,F05BT83MG04F95BT83ME21F95     L034|14,985989,993997,|04|08104001472TAP2
  922  8 55          B     PUT                                                      4  1015  B T83              148
  923  8 56   *                        ROUTINE TO GET D-MODIFIER FOR INSTRUCTIONS
  924  8 57   *                             OF LESS THAN TWO OPERANDS
  925  8 58   INSERT C     OPER,@BCE @                                              7  1019  C F23 M83          148
  926  8 59          BE    OPERND                                                   5  1026  B 913 S            148
  927  8 60          C     OPER,@BBE @                                              7  1031  C F23 M87          148
  928  8 61          BE    OPERND                                                   5  1038  B 913 S            148
  929  8 62          BCE   *&5,PARAMT&60,                                           8  1043  B |55 G60          148
&BT83CF23M83B913SCF23M87B913SB|55G60    L036|50,|19|26,|31|38,|43040104001482TAP2
  930  8 63          B     OPERND                                                   4  1051  B 913              149
  931  8 64          BCE   OPERND,PARAMT,                                           8  1055  B 913 G00          149
  932  8 65          BCE   GETA,PARAMT&30,                                          8  1063  B /08 G30          149
  933  8 66          MLC   @ @,BADDR                                                7  1071  M M88 F87          149
  934  8 67          BCE   *&12,PARAMT&31,                                          8  1078  B |97 G31          149
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   19
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&B913B913G00 B/08G30 MM88F87B|97G31     L035|85,|55|63,|71|78,040040104001492TAP2
  935  8 68          MLC   PARAMT&34,PARAMT&60                                      7  1086  M G34 G60          150
  936  8 69          B     OPERND                                                   4  1093  B 913              150
  937  8 70          MLC   PARAMT&30,PARAMT&60                                      7  1097  M G30 G60          150
  938  8 71          B     OPERND                                                   4  1104  B 913              150
  939  8 72   GETA   MLC   @ @,AADDR                                                7  1108  M M88 F86          150
  940  8 73          BCE   *&12,PARAMT&1,                                           8  1115  B /34 G01          150
&MG34G60B913MG30G60B913MM88F86B/34G01   L037/22,|93|97,/04/08,/15040104001502TAP2
  941  8 74          MLC   PARAMT&4,PARAMT&60                                       7  1123  M G04 G60          151
  942  8 75          B     OPERND                                                   4  1130  B 913              151
  943  8 76          MLC   PARAMT,PARAMT&60                                         7  1134  M G00 G60          151
  944  8 77          B     OPERND                                                   4  1141  B 913              151
  945  8 78   *                        SET UP LITERAL IDENTIFICATION
  946  8 79   LITRCD BCE   KAREA,AADDR,W                                            8  1145  B /88 F86 W        151
  947  8 80          BCE   KADCON,AADDR,C                                           8  1153  B S05 F86 C        151
&MG04G60B913MG00G60B913B/88F86WBS05F86C L038/60,/30/34,/41/45,/53040104001512TAP2
  948  8 81          BCE   KADCON,AADDR,P                                           8  1161  B S05 F86 P        152
  949  8 815         BCE   RCURSV,AADDR,R                                           8  1169  B S16 F86 R        152
  950  8 82          LCA   @LIT  @,PARAMT&64                                        7  1177  L M93 G64          152
  951  8 83          B     KILLIT                                                   4  1184  B P51              152
  952  8 84   KAREA  LCA   @AREA @,PARAMT&64                                        7  1188  L M98 G64          152
  953  8 85          B     PUT                                                      4  1195  B T83              152
&BS05F86PBS16F86RLM93G64BP51LM98G64BT83 L038/98,/69/77,/84/88,/95040104001522TAP2
  954  8 86   PREV   DCW   #6                                                       6  1204                     153
  955  8 87   KADCON LCA   @ADCON@,PARAMT&64                                        7  1205  L N03 G64          153
  956  8 88          B     PUT                                                      4  1212  B T83              153
  957  8 881  RCURSV BW    *&9,RCURSV&9                                             8  1216  V S32 S25 1        153
  958  8 882         SW    RCURSV&9                                                 4  1224  , S25              153
  959  8 883         B     KAREA-11                                                 4  1228  B /77              153
  960  8 884         CW    RCURSV&9                                                 4  1232  ) S25              153
&      LN03G64BT83VS32S251,S25B/77)S25  L037S35,S05S12,S16S24,S28S32104001532TAP2
  961  8 885         B     KADCON                                                   4  1236  B S05              154
  962         CHAIN  LCA   @MACRO@,PARAMT&64                                        7  1240  L N08 G64          154
  963                MLC   @ @,AADDR                                                7  1247  M M88 F86          154
  964                MLC   BLANKS,LOCATN                                            7  1254  M H05 F99          154
  965                WTW   2,RECORD                                                 8  1261  L %U2 F05 W        154
  966                BER   TPERR                                                    5  1269  B 201 L            154
&BS05LN08G64MM88F86MH05F99L%U2F05WB201L L038S73,S40S47,S54S61,S69040104001542TAP2
  967                BEF   *&1                                                      5  1274  B S79 K            155
  968                MLC   PARAMT&4,HOLD                                            7  1279  M G04 G92          155
  969                LCA   BLANKS,PARAMT&9                                          7  1286  L H05 G09          155
  970                LCA   @  @,RECORD&21                                           7  1293  L N10 F26          155
  971                MLC   BLANKS,RECORD&79                                         7  1300  M H05 F84          155
&BS79KMG04G92LH05G09LN10F26MH05F84      L033T06,S79S86,S93T00,040040104001552TAP2
  972                MLC   BLANKS,RECORD&4                                          7  1307  M H05 F09          156
  973                MLC   @1@,ICOUNT                                               7  1314  M M59 F92          156
  974                LCA   PREVOP,OPER&1                                            7  1321  L N23 F24          156
  975                LCA   PREVAC,ACTOP                                             7  1328  L N24 F96          156
  976                LCA   @GEN  @,PARAMT&64                                        7  1335  L N15 G64          156
&MH05F09MM59F92LN23F24LN24F96LN15G64    L035T41,T14T21,T28T35,040040104001562TAP2
  977         CHAIN1 WTW   2,RECORD                                                 8  1342  L %U2 F05 W        157
  978                BER   TPERR                                                    5  1350  B 201 L            157
  979                BEF   *&1                                                      5  1355  B T60 K            157
  980                S     @1@,HOLD                                                 7  1360  S M59 G92          157
  981                C     HOLD,@00?@                                               7  1367  C G92 N18          157
  982                BU    CHAIN1                                                   5  1374  B T42 /            157
&L%U2F05WB201LBT60KSM59G92CG92N18BT42/  L037T78,T50T55,T60T67,T74040104001572TAP2
  983                B     GET                                                      4  1379  B 363              158
  984         PUT    MLC   OPER&1,PREVOP#5                                          7  1383  M F24 N23          158
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   20
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  985                MLC   ACTOP,PREVAC#1                                           7  1390  M F96 N24          158
  986                WTW   2,RECORD                                                 8  1397  L %U2 F05 W        158
  987  8 90          BER   TPERR                                                    5  1405  B 201 L            158
  988  8 91          BEF   *&1                                                      5  1410  B U15 K            158
&B363MF24N23MF96N24L%U2F05WB201LBU15K   L036U14,T83T90,T97U05,U10040104001582TAP2
  989  8 92          B     GET                                                      4  1415  B 363              159
  990  8 93   ENDPH2 CW    PARTBL&90                                                4  1419  ) G76              159
  991  8 94          WTM   2                                                        5  1423  U %U2 M            159
  992  8 95          RWD   1                                                        5  1428  U %U1 R            159
  993  8 96          RWD   2                                                        5  1433  U %U2 R            159
  994  8 98          MLC   @3@,SEEK                                                 7  1438  M N25 125          159
  995  8 99          B     LOADXX                                                   4  1445  B O01              159
&B363)G76U%U2MU%U1RU%U2RMN25125BO01     L034U48,U19U23,U28U33,U38U45104001592TAP2
  996  9 00          H                                                              1  1449  .                  160
  997  9 01   *                        ROUTINE TO CONVERT A 5 POSITION ACTUAL
  998  9 02   *                             ADDRESS OPERAND TO A MACHINE ADDRESS
  999  9 03   *                           * ADDRESS TAKEN FROM PARAMT&4&X1
 1000  9 04   *                           * CONVERTED 3 POSITION ADDRESS PLACED
 1001  9 05   *                             AT PARAMT&8&X1
 1002  9 06   CONVRT SBR   CONEXT&3                                                 4  1450  H V65              160
 1003  9 07          SW    PARAMT&2&X1                                              4  1454  , G|2              160
 1004  9 08          LCA   PARAMT&4&X1,PARAMT&8&X1                                  7  1458  L G|4 G|8          160
 1005  9 09          MLC   PARAMT&1&X1,ADDR-1                                       7  1465  M G|1 G94          160
 1006  9 10          C     @00@,ADDR-1                                              7  1472  C N27 G94          160
 1007  9 11          BE    CONEXT                                                   5  1479  B V62 S            160
&.HV65,G|2LG|4G|8MG|1G94CN27G94BV62S    L035U83,U50U54,U58U65,U72U79104001602TAP2
 1008  9 12          SW    PARAMT&8&X1                                              4  1484  , G|8              161
 1009  9 13   CONV1  S     @4@,ADDR-1                                               7  1488  S N28 G94          161
 1010  9 14          BM    CONV2,ADDR-1                                             8  1495  V V14 G94 K        161
 1011  9 15          A     @|0@,PARAMT&9&X1                                         7  1503  A N30 G|9          161
 1012  9 16          B     CONV1                                                    4  1510  B U88              161
 1013  9 17   CONV2  A     @4@,ADDR-1                                               7  1514  A N28 G94          161
&,G|8SN28G94VV14G94KAN30G|9BU88AN28G94  L037V20,U88U95,V03V10,V14040104001612TAP2
 1014  9 18          BCE   CONV3,ADDR-1,?                                           8  1521  B V55 G94 ?        162
 1015  9 19          BCE   CONV3,ADDR-1,!                                           8  1529  B V55 G94 !        162
 1016  9 20          A     @|0@,PARAMT&7&X1                                         7  1537  A N30 G|7          162
 1017  9 21          S     @1@,ADDR-1                                               7  1544  S M59 G94          162
 1018  9 22          B     CONV2&7                                                  4  1551  B V21              162
&BV55G94?BV55G94!AN30G|7SM59G94BV21     L034V54,V29V37,V44V51,040040104001622TAP2
 1019  9 23   CONV3  CW    PARAMT&2&X1,PARAMT&8&X1                                  7  1555  ) G|2 G|8          163
 1020  9 24   CONEXT B     0                                                        4  1562  B 000              163
 1021  9 25   *
 1022         SPECLT SW    RECORD,HADLIT                                            7  1566  , F05 M52          163
 1023                B     PUT                                                      4  1573  B T83              163
 1024         *
 1025         SPEC   SW    RECORD                                                   4  1577  , F05              163
 1026                WTW   2,RECORD                                                 8  1581  L %U2 F05 W        163
 1027                BER   TPERR                                                    5  1589  B 201 L            163
&)G|2G|8B000,F05M52BT83,F05L%U2F05WB201LL039V93,V62V66,V73V77,V81V89104001632TAP2
 1028                BEF   *&1                                                      5  1594  B V99 K            164
 1029                RTW   1,RECORD                                                 8  1599  L %U1 F05 R        164
 1030                BER   TPERR                                                    5  1607  B 201 L            164
 1031                BEF   ENDPH2                                                   5  1612  B U19 K            164
 1032         TSTORG CW    HADLIT                                                   4  1617  ) M52              164
 1033                C     OPER,@ORG @                                              7  1621  C F23 N34          164
 1034                BE    GET&18                                                   5  1628  B 381 S            164
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   21
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&BV99KL%U1F05RB201LBU19K)M52CF23N34B381SL039W32,V99W07,W12W17,W21W28104001642TAP2
 1035                BSP   1                                                        5  1633  U %U1 B            165
 1036                CS    PARTBL&90                                                4  1638  / G76              165
 1037                CS                                                             1  1642  /                  165
 1038                LCA   @GEN  @,PARAMT&64                                        7  1643  L N39 G64          165
 1039                LCA   @ORG @,OPER                                              7  1650  L N34 F23          165
 1040                LCA   @*@,RECORD&20                                            7  1657  L N40 F25          165
 1041                LCA   @*@,PARAMT                                               7  1664  L N40 G00          165
&U%U1B/G76/LN39G64LN34F23LN40F25LN40G00 L038W70,W38W42,W43W50,W57W64104001652TAP2
 1042                LCA   @S@,AADDR                                                7  1671  L N41 F86          166
 1043                B     PUTYYY                                                   4  1678  B P01              166
 1044         *
 1045         *
 1046  9 26   *                        ***  OPERATION CODE TABLE  ***
 1047  9 27   *
 1048  9 28   *
 1049  9 29   *                           * FIRST FOUR POSITIONS IS MNEUMONIC OP
 1050  9 30   *                           * FIFTH POSITION IS MACHINE OP CODE
 1051  9 31   *                             FOR IMPERATIVE COMMANDS
 1052  9 32   *                           * SIXTH POSITION REPRESENTS D-MODIFIER
 1053  9 33   *                             AN ASTERISK INDICATES THE D-MODIFIER
 1054  9 34   *                                  MUST BE PROVIDED IN THE OPERAND
 1055  9 35   *                             A WORDMARK UNDER THE SIXTH POSITION
 1056  9 36   *                                  MEANS AUTOCODER WILL GENERATE IT
 1057  9 37   *                           * THE SEVENTH POSITIONIS USED FOR TAPE
 1058  9 38   *                                  AND RAMAC COMMANDS ONLY
 1059  9 39   *                             FOR TAPE, IT IS INSERTED AFTER THE %
 1060  9 40   *                             FOR RAMAC, THE WORDMARK UNDER IT
 1061  9 41   *                                  MEANS IT IS INSERTED IN THE LOW
 1062  9 42   *                                  ORDER LOCATION OF THE A-ADDRESS
 1063  9 43   *                                  AND AN *F* WILL BE INSERTED
 1064  9 44   *                                  AFTER THE %
 1065  9 45   *                           * DECLARATIVE AND CONTROL COMMANDS
 1066  9 46   *                             REQUIRING SPECIAL PROCESSING HAVE A
 1067  9 47   *                             WORDMARK UNDER THE FIFTH POSITION
 1068  9 48   *                             AND POSITIONS 5-8 CONTAIN THE ADDRESS
 1069  9 49   *                             OF THE APPROPRIATE ROUTINE
 1070  9 50   *
 1071  9 51   *
 1072  9 52   OPTABL DCW   @B   B  @                                                7  1688                     166
 1073  9 53          DCW   @MCW M  @                                                7  1695                     166
 1074  9 54          DCW   @LCA L  @                                                7  1702                     166
 1075  9 55          DCW   @BCE B* @                                                7  1709                     166
&LN41F86BP01B   B  MCW M  LCA L  BCE B* L039X09,W78W82,W89W96,X03040104001662TAP2
 1076  9 56          DCW   @A   A  @                                                7  1716                     167
 1077  9 57          DCW   @S   S  @                                                7  1723                     167
 1078  9 58          DCW   @SW  ,  @                                                7  1730                     167
 1079  9 59          DCW   @CW  )  @                                                7  1737                     167
 1080  9 60          DCW   @CS  /  @                                                7  1744                     167
&A   A  S   S  SW  ,  CW  )  CS  /      L035X44,X17X24,X31X38,040040104001672TAP2
 1081  9 61          DCW   @H   .  @                                                7  1751                     168
 1082  9 62          DCW   @C   C  @                                                7  1758                     168
 1083  9 63          DCW   @ZA  ?  @                                                7  1765                     168
 1084  9 64          DCW   @ZS  !  @                                                7  1772                     168
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   22
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1085  9 65          DCW   @MCE E  @                                                7  1779                     168
&H   .  C   C  ZA  ?  ZS  !  MCE E      L035X79,X52X59,X66X73,040040104001682TAP2
 1086  9 66          DCW   @MCS Z  @                                                7  1786                     169
 1087  9 67          DCW   @MN  D  @                                                7  1793                     169
 1088  9 68          DCW   @MZ  Y  @                                                7  1800                     169
 1089  9 69          DCW   @MCM P  @                                                7  1807                     169
 1090  9 70          DCW   @BE  B@                                                  5  1812                     169
 1091  9 71          DCW   @S @                                                     2  1814                     169
&MCS Z  MN  D  MZ  Y  MCM P  BE  BS     L035Y14,X87X94,Y01Y08,Y13040104001692TAP2
 1092  9 72          DCW   @BU  B@                                                  5  1819                     170
 1093  9 73          DCW   @/ @                                                     2  1821                     170
 1094  9 74          DCW   @BH  B@                                                  5  1826                     170
 1095  9 75          DCW   @U @                                                     2  1828                     170
 1096  9 76          DCW   @BL  B@                                                  5  1833                     170
 1097  9 77          DCW   @T @                                                     2  1835                     170
 1098  9 78          DCW   @DA  @                                                   4  1839                     170
&BU  B/ BH  BU BL  BT DA                L025Y39,Y20Y22,Y27Y29,Y34Y36104001702TAP2
 1099  9 79          DSA   &PUT                                                     3  1842  T83                171
 1100  9 80          DCW   @DC  @                                                   4  1846                     171
 1101  9 81          DSA   &PUT                                                     3  1849  T83                171
 1102  9 82          DCW   @DCW @                                                   4  1853                     171
 1103  9 83          DSA   &PUT                                                     3  1856  T83                171
 1104  9 84          DCW   @DS  @                                                   4  1860                     171
 1105  9 85          DSA   &DS                                                      3  1863  997                171
&T83DC  T83DCW T83DS  997               L024Y63,Y43Y47,Y50Y54,Y57Y61104001712TAP2
 1106  9 86          DCW   @DSA @                                                   4  1867                     172
 1107  9 87          DSA   &DSA                                                     3  1870  |08                172
 1108  9 88          DCW   @EQU @                                                   4  1874                     172
 1109  9 89          DSA   &CONTRL                                                  3  1877  989                172
 1110  9 90          DCW   @CTL @                                                   4  1881                     172
 1111                DSA   &CONTRL                                                  3  1884  989                172
 1112  9 92          DCW   @END @                                                   4  1888                     172
&DSA |08EQU 989CTL 989END               L025Y88,Y68Y71,Y75Y78,Y82Y85104001722TAP2
 1113  9 93          DSA   &CONTRL                                                  3  1891  989                173
 1114  9 94          DCW   @EX  @                                                   4  1895                     173
 1115  9 95          DSA   &CONTRL                                                  3  1898  989                173
 1116  9 96          DCW   @LTOR@                                                   4  1902                     173
 1117  9 97          DSA   &CONTRL                                                  3  1905  989                173
 1118  9 98          DCW   @ORG @                                                   4  1909                     173
 1119  9 99          DSA   &CONTRL                                                  3  1912  989                173
&989EX  989LTOR989ORG 989               L024Z12,Y92Y96,Y99Z03,Z06Z10104001732TAP2
 1120 10 00          DCW   @XFR @                                                   4  1916                     174
 1121 10 01          DSA   &CONTRL                                                  3  1919  989                174
 1122 10 02          DCW   @JOB @                                                   4  1923                     174
 1123                DSA   &CONTRL                                                  3  1926  989                174
 1124 10 04          DCW   @BCV B@                                                  5  1931                     174
 1125 10 05          DCW   @@ @                                                     2  1933                     174
 1126 10 06          DCW   @D   %  @                                                7  1940                     174
&XFR 989JOB 989BCV B@ D   %             L028Z40,Z17Z20,Z24Z27,Z32Z34104001742TAP2
 1127 10 07          DCW   @M   @  @                                                7  1947                     175
 1128 10 08          DCW   @BEF B@                                                  5  1952                     175
 1129 10 09          DCW   @K @                                                     2  1954                     175
 1130 10 10          DCW   @BER B@                                                  5  1959                     175
 1131 10 11          DCW   @L @                                                     2  1961                     175
 1132 10 12          DCW   @BIN B* @                                                7  1968                     175
 1133 10 13          DCW   @BLC B@                                                  5  1973                     175
&M   @  BEF BK BER BL BIN B* BLC B      L033Z73,Z48Z53,Z55Z60,Z62Z69104001752TAP2
 1134 10 14          DCW   @A @                                                     2  1975                     176
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   23
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1135 10 15          DCW   @BM  V@                                                  5  1980                     176
 1136 10 16          DCW   @K @                                                     2  1982                     176
 1137 10 17          DCW   @BW  V@                                                  5  1987                     176
 1138 10 18          DCW   @1 @                                                     2  1989                     176
 1139 10 19          DCW   @BWZ V* @                                                7  1996                     176
 1140 10 20          DCW   @BSS B* @                                                7  2003                     176
&A BM  VK BW  V1 BWZ V* BSS B*          L030!03,Z76Z81,Z83Z88,Z90Z97104001762TAP2
 1141 10 21          DCW   @P   4  @                                                7  2010                     177
 1142 10 22          DCW   @R   1  @                                                7  2017                     177
 1143 10 23          DCW   @RCB 1@                                                  5  2022                     177
 1144 10 24          DCW   @C @                                                     2  2024                     177
 1145 10 25          DCW   @RP  5  @                                                7  2031                     177
 1146 10 26          DCW   @SPF 9  @                                                7  2038                     177
&P   4  R   1  RCB 1C RP  5  SPF 9      L035!38,!11!18,!23!25,!32040104001772TAP2
 1147 10 27          DCW   @SRF 8  @                                                7  2045                     178
 1148 10 28          DCW   @W   2  @                                                7  2052                     178
 1149 10 29          DCW   @RT  M@                                                  5  2057                     178
 1150 10 30          DCW   @RU@                                                     2  2059                     178
 1151 10 31          DCW   @WM  2@                                                  5  2064                     178
 1152 10 32          DCW   @) @                                                     2  2066                     178
 1153 10 33          DCW   @BC9 B@                                                  5  2071                     178
&SRF 8  W   2  RT  MRUWM  2) BC9 B      L033!71,!46!53,!58!60,!65!67104001782TAP2
 1154 10 34          DCW   @9 @                                                     2  2073                     179
 1155 10 35          DCW   @BAV B@                                                  5  2078                     179
 1156 10 36          DCW   @Z @                                                     2  2080                     179
 1157 10 37          DCW   @BPCBB@                                                  5  2085                     179
 1158 10 38          DCW   @R @                                                     2  2087                     179
 1159 10 39          DCW   @BPB B@                                                  5  2092                     179
 1160 10 40          DCW   @P @                                                     2  2094                     179
&9 BAV BZ BPCBBR BPB BP                 L023!94,!74!79,!81!86,!88!93104001792TAP2
 1161 10 41          DCW   @BBE W* @                                                7  2101                     180
 1162 10 42          DCW   @SSB K* @                                                7  2108                     180
 1163 10 43          DCW   @SS  K* @                                                7  2115                     180
 1164 10 44          DCW   @WP  6  @                                                7  2122                     180
 1165 10 45          DCW   @WR  3  @                                                7  2129                     180
&BBE W* SSB K* SS  K* WP  6  WR  3      L035J29,J02J09,J16J23,040040104001802TAP2
 1166 10 46          DCW   @WRP 7  @                                                7  2136                     181
 1167 10 47          DCW   @CC  F* @                                                7  2143                     181
 1168 10 48          DCW   @CCB F* @                                                7  2150                     181
 1169 10 49          DCW   @NOP N  @                                                7  2157                     181
 1170 10 50          DCW   @SAR Q  @                                                7  2164                     181
&WRP 7  CC  F* CCB F* NOP N  SAR Q      L035J64,J37J44,J51J58,040040104001812TAP2
 1171 10 51          DCW   @SBR H  @                                                7  2171                     182
 1172 10 52          DCW   @MIZ X  @                                                7  2178                     182
 1173 10 53          DCW   @MLC M  @                                                7  2185                     182
 1174 10 54          DCW   @MLCWL  @                                                7  2192                     182
 1175 10 55          DCW   @MLNSD  @                                                7  2199                     182
&SBR H  MIZ X  MLC M  MLCWL  MLNSD      L035J99,J72J79,J86J93,040040104001822TAP2
 1176 10 56          DCW   @MLZSY  @                                                7  2206                     183
 1177 10 57          DCW   @MRCMP  @                                                7  2213                     183
 1178 10 58          DCW   @WT  M@                                                  5  2218                     183
 1179 10 59          DCW   @WU@                                                     2  2220                     183
 1180 10 60          DCW   @BSP U@                                                  5  2225                     183
 1181 10 61          DCW   @BU@                                                     2  2227                     183
 1182 10 62          DCW   @CU  U* @                                                7  2234                     183
&MLZSY  MRCMP  WT  MWUBSP UBUCU  U*     L035K34,K07K14,K19K21,K26K28104001832TAP2
 1183 10 63          DCW   @RTW L@                                                  5  2239                     184
 1184 10 64          DCW   @RU@                                                     2  2241                     184
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   24
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1185 10 65          DCW   @RWD U@                                                  5  2246                     184
 1186 10 66          DCW   @RU@                                                     2  2248                     184
 1187 10 67          DCW   @RWU U@                                                  5  2253                     184
 1188 10 68          DCW   @UU@                                                     2  2255                     184
 1189 10 69          DCW   @SKP U@                                                  5  2260                     184
&RTW LRURWD URURWU UUUSKP U             L026K60,K40K42,K47K49,K54K56104001842TAP2
 1190 10 70          DCW   @EU@                                                     2  2262                     185
 1191 10 71          DCW   @WTM U@                                                  5  2267                     185
 1192 10 72          DCW   @MU@                                                     2  2269                     185
 1193 10 73          DCW   @WTW L@                                                  5  2274                     185
 1194 10 74          DCW   @WU@                                                     2  2276                     185
 1195                DCW   @MA  #  @                                                7  2283                     185
 1196 10 75          DCW   @MBC M@                                                  5  2288                     185
&EUWTM UMUWTW LWUMA  #  MBC M           L028K88,K63K68,K70K75,K77K84104001852TAP2
 1197 10 76          DCW   @B @                                                     2  2290                     186
 1198 10 77          DCW   @MBD M@                                                  5  2295                     186
 1199 10 78          DCW   @A @                                                     2  2297                     186
 1200 10 79          DCW   @DCR U@                                                  5  2302                     186
 1201 10 80          DCW   @D @                                                     2  2304                     186
 1202 10 81          DCW   @ECR U@                                                  5  2309                     186
 1203 10 82          DCW   @E @                                                     2  2311                     186
&B MBD MA DCR UD ECR UE                 L023L11,K91K96,K98L03,L05L10104001862TAP2
 1204 10 83          DCW   @LU  L* @                                                7  2318                     187
 1205 10 84          DCW   @MU  M* @                                                7  2325                     187
 1206 10 85          DCW   @PCB 4@                                                  5  2330                     187
 1207 10 86          DCW   @C @                                                     2  2332                     187
 1208 10 87          DCW   @RF  4@                                                  5  2337                     187
 1209 10 88          DCW   @R @                                                     2  2339                     187
 1210 10 89          DCW   @RTB M@                                                  5  2344                     187
&LU  L* MU  M* PCB 4C RF  4R RTB M      L033L44,L19L26,L31L33,L38L40104001872TAP2
 1211 10 90          DCW   @RB@                                                     2  2346                     188
 1212 10 91          DCW   @WRF 6@                                                  5  2351                     188
 1213 10 92          DCW   @R @                                                     2  2353                     188
 1214 10 93          DCW   @WTB M@                                                  5  2358                     188
 1215 10 94          DCW   @WB@                                                     2  2360                     188
 1216 10 95          DCW   @RD  M@                                                  5  2365                     188
 1217 10 96          DCW   @R@                                                      1  2366                     188
&RBWRF 6R WTB MWBRD  MR                 L022L66,L47L52,L54L59,L61L66104001882TAP2
 1218 10 97          DCW   @1@                                                      1  2367                     189
 1219 10 98          DCW   @RDT M@                                                  5  2372                     189
 1220 10 99          DCW   @R@                                                      1  2373                     189
 1221 11 00          DCW   @2@                                                      1  2374                     189
 1222 11 01          DCW   @RDW L@                                                  5  2379                     189
 1223 11 02          DCW   @R@                                                      1  2380                     189
 1224 11 03          DCW   @1@                                                      1  2381                     189
&1RDT MR2RDW LR1                        L015L81,L68L73,L74L75,L80L81104001892TAP2
 1225 11 04          DCW   @RDTWL@                                                  5  2386                     190
 1226 11 05          DCW   @R@                                                      1  2387                     190
 1227 11 06          DCW   @2@                                                      1  2388                     190
 1228 11 07          DCW   @SD  M@                                                  5  2393                     190
 1229 11 08          DCW   @R@                                                      1  2394                     190
 1230 11 09          DCW   @0@                                                      1  2395                     190
 1231 11 10          DCW   @WD  M@                                                  5  2400                     190
&RDTWLR2SD  MR0WD  M                    L019M00,L87L88,L89L94,L95L96104001902TAP2
 1232 11 11          DCW   @W@                                                      1  2401                     191
 1233 11 12          DCW   @1@                                                      1  2402                     191
 1234 11 13          DCW   @WDT M@                                                  5  2407                     191
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   25
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1235 11 14          DCW   @W@                                                      1  2408                     191
 1236 11 15          DCW   @2@                                                      1  2409                     191
 1237 11 16          DCW   @WDW L@                                                  5  2414                     191
 1238 11 17          DCW   @W@                                                      1  2415                     191
&W1WDT MW2WDW LW                        L015M15,M02M03,M08M09,M10M15104001912TAP2
 1239 11 18          DCW   @1@                                                      1  2416                     192
 1240 11 19          DCW   @WDTWL@                                                  5  2421                     192
 1241 11 20          DCW   @W@                                                      1  2422                     192
 1242 11 21          DCW   @2@                                                      1  2423                     192
 1243 11 22          DCW   @WDC M@                                                  5  2428                     192
 1244 11 23          DCW   @W@                                                      1  2429                     192
 1245 11 24          DCW   @3@                                                      1  2430                     192
&1WDTWLW2WDC MW3                        L015M30,M17M22,M23M24,M29M30104001922TAP2
 1246 11 25          DCW   @WDCWL@                                                  5  2435                     193
 1247 11 26          DCW   @W@                                                      1  2436                     193
 1248 11 27          DCW   @3@                                                      1  2437                     193
 1249 11 28   ENDOPT DCW   @    @                                                   4  2441                     193
 1250 11 29          DC    @}@                                                      1  2442                     193
 1251 11 291  ORGB   ORG   2771                                                        2443   2771
&WDCWLW3    }                           L012M42,M36M37,M38040,040040104001932TAP2
 1252         XBIN   C     OPER,1965          COMPARE TO -BIN-                      7  2771  C F23 Z65          194
 1253                BU    CLEARX                                                   5  2778  B R01 /            194
 1254                BCE   PUT,ICOUNT,5                                             8  2783  B T83 F92 5        194
 1255                MLC   *-7,ICOUNT                                               7  2791  M P90 F92          194
 1256                MLC   @ @,BADDR                                                7  2798  M M88 F87          194
&CF23Z65BR01/BT83F925MP90F92MM88F87     L034Q04,P78P83,P91P98,040040104001942TAP2
 1257                LCA   AMPER,PARAMT&60                                          7  2805  L Q16 G60          195
 1258                B     PUT                                                      4  2812  B T83              195
 1259         AMPER  DCW   @&@                                                      1  2816                     195
 1260                ORG   2751                                                               2751
&LQ16G60BT83&                           L012Q16,Q12Q16,040040,040040104001952TAP2
 1261         KILLIT C     ADDR,@000@                                               7  2751  C G95 M58          196
 1262                BU    PUT                                                      5  2758  B T83 /            196
 1263                B     GET                                                      4  2763  B 363              196
 1264                ORG   2711                                                               2711
&CG95M58BT83/B363                       L016P66,P58P63,040040,040040104001962TAP2
 1265         XBCE   C     OPER,@BCE @                                              7  2711  C F23 M83          197
 1266                BU    *&9                                                      5  2718  B P31 /            197
 1267                BCE   RELEAS,ICOUNT,1                                          8  2723  B 959 F92 1        197
 1268                A     K1,ICOUNT                                                7  2731  A E19 F92          197
 1269                B     RELEAS                                                   4  2738  B 959              197
 1270                ORG   2901                                                               2901
&CF23M83BP31/B959F921AE19F92B959        L031P41,P18P23,P31P38,040040104001972TAP2
 1271         CLEARX CW    PARAMT&60                                                4  2901  ) G60              198
 1272                B     PUT                                                      4  2905  B T83              198
 1273                ORG   2601                                                               2601
&)G60BT83                               L008R08,R05040,040040,040040104001982TAP2
 1274         LOADXX LCA   XLIMIT,15                                                7  2601  L O55 015          199
 1275                B     LOAD                                                     4  2608  B 100              199
&LO55015B100                            L011O11,O08040,040040,040040104001992TAP2
 1276         2655   DSA   1053                                                     3  2655  |53                200
 1277         XLIMIT EQU   2655                                                        2655
 1278                ORG   2701                                                               2701
&|53                                    L003O55,040040,040040,040040104002002TAP2
 1279         PUTYYY SW    RECORD                                                   4  2701  , F05              201
 1280                B     PUT                                                      4  2705  B T83              201
 1281                ORG   ORGB                                                               2443
&,F05BT83                               L008P08,P05040,040040,040040104002012TAP2
         798         DCW   @         @                                              9  2451              LIT    202
         800  HADLIT       #01                                                      1  2452              AREA   202
                           @030@                                                    3  2455              LIT    202
1                          1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR       2TAP2               PAGE   26
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

                           @000@                                                    3  2458              LIT    202
                           @1@                                                      1  2459              LIT    202
         819  ONE          #01                                                      1  2460              AREA   202
         823               @00000     @                                            10  2470              LIT    202
&          0300001 00000                L028M70,M52M53,M56M59,M60M61104002022TAP2
                           @060@                                                    3  2473              LIT    203
         840               @CHAIN@                                                  5  2478              LIT    203
                           @|@                                                      1  2479              LIT    203
                           @BCE @                                                   4  2483              LIT    203
                           @BBE @                                                   4  2487              LIT    203
                           @ @                                                      1  2488              LIT    203
         950               @LIT  @                                                  5  2493              LIT    203
&060CHAIN|BCE BBE  LIT                  L023M93,M74M79,M80M84,M88M89104002032TAP2
         952               @AREA @                                                  5  2498              LIT    204
         955               @ADCON@                                                  5  2503              LIT    204
         962               @MACRO@                                                  5  2508              LIT    204
                           @  @                                                     2  2510              LIT    204
         976               @GEN  @                                                  5  2515              LIT    204
                           @00?@                                                    3  2518              LIT    204
         984  PREVOP       #05                                                      5  2523              AREA   204
&AREA ADCONMACRO  GEN  00?              L030N23,M99N04,N09N11,N16N19104002042TAP2
         985  PREVAC       #01                                                      1  2524              AREA   205
                           @3@                                                      1  2525              LIT    205
                           @00@                                                     2  2527              LIT    205
                           @4@                                                      1  2528              LIT    205
                           @|0@                                                     2  2530              LIT    205
                           @ORG @                                                   4  2534              LIT    205
        1038               @GEN  @                                                  5  2539              LIT    205
& 3004|0ORG GEN                         L016N39,N25N26,N28N29,N31N35104002052TAP2
                           @*@                                                      1  2540              LIT    206
                           @S@                                                      1  2541              LIT    206
&*S                                     L002N41,N41040,040040,040040104002062TAP2
&                                       N000000,040040,040040,040040B16702072TAP2
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02082TAP2
&,068072)063067/061039                                       ,001001104002092TAP2
 1282                EX    SYSTEM                                                            B 167              207
&                                       /167080                         02102TAP2
 1283 11 30          END   SYSTEM                                                            / 167 080          210
1CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
&,008015,019026,030,034041,045,053,0570571026                           00012TAP3
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
&L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00022TAP3
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
&,008015,022029,036040,047054,061068,072/061039              ,001001104000032TAP3
0                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  101         000    JOB   1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR
  102                CTL   630 1
  103         *
  104    03   ******    PHASE 3 - BUILD UP SYMBOL TABLE AND PROCESS LITERALS  ***
  105    04   *
  106    05   *                        ***  PHASE 3 IDENTIFICATION AT 333  ***
  107    06   *
  108    07          ORG   333                                                                0333
  109    08          DCW   @3@                                                      1  0333                       4
  110    09   *
  111    10   *
  112    11          ORG   82                                                                 0082
&3                                      L001333,040040,040040,040040104000042TAP3
  113    12   CHECK  DCW   @ @                                                      1  0082                       5
  114    13          DCW   @  }@                                                    3  0085                       5
  115    14   X1     EQU   89                                                          0089
&   }                                   L004085,083040,040040,040040104000052TAP3
  116    15   0089   DCW   @000@                                                    3  0089                       6
  117    16   X2     EQU   94                                                          0094
&000                                    L003089,040040,040040,040040104000062TAP3
  118    17   0094   DCW   @000@                                                    3  0094                       7
  119    18   X3     EQU   99                                                          0099
&000                                    L003094,040040,040040,040040104000072TAP3
  120    19   0099   DCW   @000@                                                    3  0099                       8
  121         HLDLOC EQU   3                                                           0003
  122         SAVLOC EQU   6                                                           0006
  123         LASTLT EQU   9                                                           0009
  124         LTTSAV EQU   12                                                          0012
  125         TBLLMT EQU   15                                                          0015
  126    22   REITER EQU   193                                                         0193
  127    23   FULL   EQU   194                                                         0194
  128    24   LITCTL EQU   195                                                         0195
  129    25   RELATV EQU   196                                                         0196
  130         DA     EQU   197                                                         0197
  131    26          ORG   100                                                                0100
  132    27   LOAD   RWD   1                                                        5  0100  U %U1 R              8
  133    28          RTW   1,CHECK                                                  8  0105  L %U1 082 R          8
  134    29          BER   TPERR                                                    5  0113  B 201 L              8
  135    30          BCE   *&5,CHECK,D                                              8  0118  B 130 082 D          8
  136    31          B     LOAD&5                                                   4  0126  B 105                8
  137    32          BSP   1                                                        5  0130  U %U1 B              8
&000U%U1RL%U1082RB201LB130082DB105U%U1B L038134,100105,113118,126130104000082TAP3
  138    33          RTW   1,333                                                    8  0135  L %U1 333 R          9
  139    34          SW    CHECK&3                                                  4  0143  , 085                9
  140    35          RTW   1,CHECK                                                  8  0147  L %U1 082 R          9
  141    36          BCE   334,CHECK,9                                              8  0155  B 334 082 9          9
  142    37          B     *-19                                                     4  0163  B 147                9
  143    38   SEEK   EQU   LOAD&25            NUMBER OF PHASE REQUESTED                0125
&L%U1333R,085L%U1082RB3340829B147       L032166,143147,155163,040040104000092TAP3
  144    39   SYSTEM WTW   1,333                                                    8  0167  L %U1 333 W         10
  145    40          BER   *&5                                                      5  0175  B 184 L             10
  146    41          R     40                                                       4  0180  1 040               10
  147    42          BSP   1                                                        5  0184  U %U1 B             10
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  148    43          SKP   1                                                        5  0189  U %U1 E             10
  149    44          B     SYSTEM                                                   4  0194  B 167               10
  150    45          H                                                              1  0198  .                   10
  151    46   OVFLIT EQU   14                                                          0014
  152    47          ORG   3971                                                               3971
  153    47          ORG   3943                                                               3943
&L%U1333WB184L1040U%U1BU%U1EB167.       L032198,175180,184189,194198104000102TAP3
  154    471  SENTNL BCE   REWRIT,333,1                                             8  3943  B I71 333 1         11
  155    472         BCE   REWRIT,333,3                                             8  3951  B I71 333 3         11
  156    473         BCE   REWRIT,333,7                                             8  3959  B I71 333 7         11
  157    474         B     334                                                      4  3967  B 334               11
  158    48   REWRIT BSP   1                                                        5  3971  U %U1 B             11
&BI713331BI713333BI713337B334U%U1B      L033I75,I51I59,I67I71,040040104000112TAP3
  159    49          WTW   1,CHECK                                                  8  3976  L %U1 082 W         12
  160    50          BER   TPERR                                                    5  3984  B 201 L             12
  161    51          BCE   334,CHECK,%                                              8  3989  B 334 082 %         12
  162    52          H                                                              1  3997  .                   12
  163    53          ORG   201                                                                0201
  164    54   *                        LINKAGE TO GENERALIZED TAPE ERROR ROUTINE
&L%U1082WB201LB334082%.                 L022I97,I84I89,I97040,040040104000122TAP3
  165    55   TPERR  H                                                              1  0201  .                   13
  166    56   LABEL  EQU   RECORD&10                                                   2108
  167    57   *
  168    58   *
  169    59   *                            ** 2TAP2 SUBROUTINES **
  170    60   *
  171    61          ORG   ZONE&5                                                             2276
  172    62   *                        ROUTINE TO PUT A SYMBOL IN THE LABEL TABLE
  173    63   *                           * SYMBOL TAKEN FROM LABEL IN RECORD
  174    64   *                           * CURRENT AVAILABLE TABLE LOCATION IS
  175    65   *                             INDEXED BY X3
  176    66   *                           * IF LABEL TABLE IS FULL,LABEL IS NOT
  177    67   *                             STORED, AND A W/M IS SET AT RECORD&1
&.                                      L001201,040040,040040,040040104000132TAP3
  178    68   SETLAB SBR   SETEXT&3                                                 4  2276  H L40               14
  179    69          NOP   TBLOVF,FULL,1                                            8  2280  N L41 194 1         14
  180    70          MLC   LOCCTR,LABTBL&X3                                         7  2288  M O98 QA3           14
  181    71          MLC   LABEL,LABTBL-3&X3                                        7  2295  M J08 QA0           14
  182    72          NOP   000,000,0                                                8  2302  N 000 000 0         14
  183    73          NOP   000                                                      4  2310  N 000               14
&HL40NL411941MO98QA3MJ08QA0N0000000N000 L038L13,K80K88,K95L02,L10040104000142TAP3
  184    74   TSTLMT A     @9@,X3                                                   7  2314  A O80 099           15
  185                C     TBLLMT,X3                                                7  2321  C 015 099           15
  186    76          BU    TBLOVF&7                                                 5  2328  B L48 /             15
  187    77          B     TBLOVF                                                   4  2333  B L41               15
  188    78   SETEXT B     0                                                        4  2337  B 000               15
  189         TBLOVF SW    FULL,RECORD&1                                            7  2341  , 194 !99           15
&AO80099C015099BL48/BL41B000,194!99     L034L47,L21L28,L33L37,L41040104000152TAP3
  190                LCA   LITTOT,LTTSAV                                            7  2348  L P01 012           16
  191    80          B     LOADXX                                                   4  2355  B H89               16
  192    81   *                        ROUTINE TO LOOK UP LABEL IN LABEL TABLE
  193    82   *                           * ARGUMENT LABEL PLACED AT LABTBL-3&X3
  194    83   *                           * IF LABEL FOUND, RETURN BY EXIT
  195    84   *                           * IF NOT FOUND, RETURN BY EXIT&4
  196    85   *                           * HIT LOCATED BY X2
  197    86   TLULAB SBR   TLUEXT&3                                                 4  2359  H M50               16
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  198    87          MLC   @000@,X2                                                 7  2363  M O83 094           16
  199    88          SW    TLUFST&7                                                 4  2370  , L92               16
  200    89          MLC   LABTBL-7&X3,TLUFST&7                                     7  2374  M Q?6 L92           16
  201    90          CW    TLUFST&7                                                 4  2381  ) L92               16
&LP01012BH89HM50MO83094,L92MQ?6L92)L92  L037L84,L55L59,L63L70,L74L81104000162TAP3
  202    91   TLUFST BCE   HITFST,LABTBL-7&X2,                                      8  2385  B M04 Q!6           17
  203    92          A     @9@,X2                                                   7  2393  A O80 094           17
  204    93          B     TLUFST                                                   4  2400  B L85               17
  205    94   HITFST C     LABTBL-3&X2,LABTBL-3&X3                                  7  2404  C QJ0 QA0           17
  206    95          BU    TLUFST&8                                                 5  2411  B L93 /             17
  207    96          CW    LABTBL-8&X3                                              4  2416  ) Q?5               17
&BM04Q!6 AO80094BL85CQJ0QA0BL93/)Q?5    L035M19,L93M00,M04M11,M16040104000172TAP3
  208    97          C     X2,X3                                                    7  2420  C 094 099           18
  209    98          BU    TLUEXT                                                   5  2427  B M47 /             18
  210    99          SW    TLUEXT&1                                                 4  2432  , M48               18
  211  1 00          A     @4@,TLUEXT&3                                             7  2436  A O84 M50           18
  212  1 01          CW    TLUEXT&1                                                 4  2443  ) M48               18
  213  1 02   TLUEXT B     0                                                        4  2447  B 000               18
  214  1 03   *                        ROUTINE TO MODIFY A MACHINE ADDRESS BY A
  215  1 04   *                             PLUS OR MINUS ADJUSTMENT VALUE
  216  1 05   *                           * ADDRESS PLACED AT ADDR
  217  1 06   *                           * ADJUSTMENT VALUE TAKEN FROM PARAMT&10
  218  1 07   *                           * MODIFIED ADDRESS SET AT RESULT-1
  219  1 08   MODADD SBR   MODEXT&3                                                 4  2451  H N95               18
&C094099BM47/,M48AO84M50)M48B000HN95    L035M54,M27M32,M36M43,M47M51104000182TAP3
  220  1 09          BAV   *&1                                                      5  2455  B M60 Z             19
  221  1 10          CW    NEG                                                      4  2460  ) P13               19
  222  1 11          SW    PARAMT&11                                                4  2464  , K04               19
  223  1 12          MLC   @000@,X1                                                 7  2468  M O83 089           19
  224  1 13          MLC   PARAMT&19,X1                                             7  2475  M K12 089           19
  225  1 14          MLC   @000@,HOLD                                               7  2482  M O83 P07           19
&BM60Z)P13,K04MO83089MK12089MO83P07     L034M88,M60M64,M68M75,M82040104000192TAP3
  226  1 15          MLC   PARAMT&10&X1,HOLD                                        7  2489  M K|3 P07           20
  227  1 16          MZ    PARAMT&10,HOLD                                           7  2496  Y K03 P07           20
  228  1 17          BM    DECR,HOLD                                                8  2503  V O30 P07 K         20
  229  1 18   SETINC MLC   ADDR,RESULT-1                                            7  2511  M P04 P10           20
  230  1 19          MZ    @ @,RESULT-1                                             7  2518  Y O85 P10           20
&MK|3P07YK03P07VO30P07KMP04P10YO85P10   L036N24,M96N03,N11N18,040040104000202TAP3
  231  1 20          A     HOLD,RESULT-1                                            7  2525  A P07 P10           21
  232  1 21          MZ    ADDR,RESULT-1                                            7  2532  Y P04 P10           21
  233  1 22          MZ    RESULT-3,YYY                                             7  2539  Y P08 O29           21
  234  1 23          MZ    ADDR-2,XXX                                               7  2546  Y P02 O28           21
  235  1 24          BW    MODEXT&4,NEG                                             8  2553  V N96 P13 1         21
&AP07P10YP04P10YP08O29YP02O28VN96P131   L036N60,N32N39,N46N53,040040104000212TAP3
  236  1 25          C     XXX,YYY                                                  7  2561  C O28 O29           22
  237  1 26          BH    *&5                                                      5  2568  B N77 U             22
  238  1 27          B     MODEXT                                                   4  2573  B N92               22
  239  1 28          SW    RESULT-1                                                 4  2577  , P10               22
  240  1 29          A     @|0@,RESULT                                              7  2581  A O87 P11           22
  241  1 30          CW    RESULT-1                                                 4  2588  ) P10               22
  242  1 31   MODEXT B     000                                                      4  2592  B 000               22
&CO28O29BN77UBN92,P10AO87P11)P10B000    L035N95,N68N73,N77N81,N88N92104000222TAP3
  243  1 32          BAV   MODEXT                                                   5  2596  B N92 Z             23
  244  1 33          C     XXX,YYY                                                  7  2601  C O28 O29           23
  245  1 34          BH    MODEXT                                                   5  2608  B N92 U             23
  246  1 35          SW    RESULT-1                                                 4  2613  , P10               23
  247  1 36          A     @?0@,RESULT                                              7  2617  A O89 P11           23
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  248  1 37          B     MODEXT-4                                                 4  2624  B N88               23
  249  1 371  XXX    DCW   @2@                                                      1  2628                      23
&BN92ZCO28O29BN92U,P10AO89P11BN882      L033O28,O01O08,O13O17,O24O28104000232TAP3
  250  1 372  YYY    DCW   @2@                                                      1  2629                      24
  251  1 38   DECR   SW    NEG                                                      4  2630  , P13               24
  252  1 39          A     @999@,HOLD                                               7  2634  A O92 P07           24
  253  1 40          A     @?01@,HOLD                                               7  2641  A O95 P07           24
  254  1 41          B     SETINC                                                   4  2648  B N11               24
  255  1 42   MODALT SBR   MODEXT&3                                                 4  2652  H N95               24
  256  1 43          BAV   *&1                                                      5  2656  B O61 Z             24
&2,P13AO92P07AO95P07BN11HN95BO61Z       L032O60,O30O34,O41O48,O52O56104000242TAP3
  257  1 44          CW    NEG                                                      4  2661  ) P13               25
  258  1 45          B     SETINC-16                                                4  2665  B M95               25
  259  1 46   MODZER MLC   HOLD,RESULT-1                                            7  2669  M P07 P10           25
  260  1 47          B     MODEXT                                                   4  2676  B N92               25
  261  1 48   HALT4  H                                                              1  2680  .                   25
  262  1 49   *
  263  1 50   *                        HOUSEKEEPING
  264  1 51   *
  265  1 52          ORG   334                                                                0334
&)P13BM95MP07P10BN92.                   L020O80,O65O69,O76O80,040040104000252TAP3
  266  1 53          B     HSKPG             PIVOT BRANCH TO HOUSEKEEPING           4  0334  B !98               26
  267  1 54   *                        CREATE ALL WORK AREAS - OVERLAID BY INSTRS
  268  1 55          NOP   LOCCTR#3,LITTOT#3                                        7  0338  N O98 P01           26
  269  1 56          NOP   ADDR#3,HOLD#3                                            7  0345  N P04 P07           26
  270                NOP   RESULT#4                                                 4  0352  N P11               26
  271                NOP   LITORG#1,NEG#1                                           7  0356  N P12 P13           26
  272  1 61   *                        GET INPUT RECORD
  273  1 62          ORG   338                                                                0338
&B!98NO98P01NP04P07NP11NP12P13          L029362,338345,352356,040040104000262TAP3
  274  1 63   GETRCD RTW   2,RECORD                                                 8  0338  L %U2 !98 R         27
  275  1 64          BER   TPERR                                                    5  0346  B 201 L             27
  276  1 65          BEF   IPEOR                                                    5  0351  B !64 K             27
  277  1 66          B     PUTRCD&7,LABEL-5,*      BYPASS COMMENTS CARD             8  0356  B 568 J03 *         27
  278  1 67          SW    LABEL-5                                                  4  0364  , J03               27
  279                BW    PUTRCD&7,RECORD&3                                        8  0368  V 568 J01 1         27
&L%U2!98RB201LB!64KB568J03*,J03V568J011 L038375,346351,356364,368040104000272TAP3
  280                BW    GETLOC,RECORD&1                                          8  0376  V 590 !99 1         28
  281                BW    CNTRL2,FULL                                              8  0384  V 608 194 1         28
  282         PROCES BW    SUBSEQ,DA                                                8  0392  V 833 197 1         28
  283  1 70   INSTR  BW    CNTRL,RECORD       TEST FOR CONTROL STATEMENT            8  0400  V /29 !98 1         28
&V590!991V6081941V8331971V/29!981       L032407,384392,400040,040040104000282TAP3
  284  1 71          BCE   DECLAR,ICOUNT,                                           8  0408  B 640 J85           29
  285  1 72   *                        PROCESS IMPERATIVE COMMAND
  286  1 73   IMPER  BCE   *&13,LABEL-5,                                            8  0416  B 436 J03           29
  287  1 74          BWZ   PRCLIT,LABEL-5,2   BYPASS ACTUAL LOCATION ASSIGNMENT     8  0424  V 483 J03 2         29
  288  1 75          B     SETLAB                                                   4  0432  B K76               29
  289  1 76          LCA   LOCCTR,LOCATN                                            7  0436  L O98 J92           29
&B640J85 B436J03 V483J032BK76LO98J92    L035442,416424,432436,040040104000292TAP3
  290  1 79          ZA    ICOUNT,HOLD        STEP LOCATION COUNTER BY LENGTH       7  0443  ? J85 P07           30
  291  1 80          MZ    @ @,HOLD                                                 7  0450  Y O85 P07           30
  292  1 81          MLC   LOCCTR,ADDR                                              7  0457  M O98 P04           30
  293  1 82          B     MODALT                                                   4  0464  B O52               30
  294  1 83          MLC   RESULT-1,LOCCTR                                          7  0468  M P10 O98           30
&?J85P07YO85P07MO98P04BO52MP10O98       L032474,450457,464468,040040104000302TAP3
  295  1 84          BCE   PUTRCD,LITCNT,                                           8  0475  B 561 J88           31
  296  1 85   *                        TEST FOR LITERALS
  297  1 86   PRCLIT MLC   @000@,X1                                                 7  0483  M O83 089           31
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  298  1 87          BCE   LITERL,AADDR,L     NUMERIC LITERAL                       8  0490  B 937 J79 L         31
  299  1 88          BCE   ALFLIT,AADDR,F     ALPHANUMERIC LITERAL                  8  0498  B |86 J79 F         31
  300  1 89          BCE   AREA,AADDR,W       LITERAL AREA                          8  0506  B /06 J79 W         31
&B561J88 MO83089B937J79LB|86J79FB/06J79WL039513,483490,498506,040040104000312TAP3
  301  1 90          BCE   ADCON,AADDR,C      ADDRESS CONSTANT                      8  0514  B /21 J79 C         32
  302  1 91          MLC   @030@,X1                                                 7  0522  M P16 089           32
  303  1 92          BCE   LITERL,BADDR,L     NUMERIC LITERAL                       8  0529  B 937 J80 L         32
  304  1 93          BCE   ALFLIT,BADDR,F     ALPHANUMERIC LITERAL                  8  0537  B |86 J80 F         32
  305  1 94          BCE   AREA,BADDR,W       LITERAL AREA                          8  0545  B /06 J80 W         32
&B/21J79CMP16089B937J80LB|86J80FB/06J80WL039552,522529,537545,040040104000322TAP3
  306  1 95          BCE   ADCON,BADDR,C      ADDRESS CONSTANT                      8  0553  B /21 J80 C         33
  307  1 96   *                        PUT OUTPUT RECORD
  308         PUTRCD LCA   LOCCTR,HLDLOC                                            7  0561  L O98 003           33
  309                WTW   1,RECORD                                                 8  0568  L %U1 !98 W         33
  310  1 98          BER   TPERR                                                    5  0576  B 201 L             33
  311  1 99          BEF   *&1                                                      5  0581  B 586 K             33
  312  2 00          B     GETRCD                                                   4  0586  B 338               33
  313  2 01   *                        PROCESS DECLARATIVE STATEMENTS
  314         *
&B/21J80CLO98003L%U1!98WB201LB586KB338  L037589,561568,576581,586040104000332TAP3
  315         GETLOC MLC   HLDLOC,LOCCTR                                            7  0590  M 003 O98           34
  316                CW    FULL,RECORD&1                                            7  0597  ) 194 !99           34
  317  2 014         B     MOVXX                                                    4  0604  B I00               34
  318         *
  319         CNTRL2 BW    *&5,RECORD                                               8  0608  V 620 !98 1         34
  320                B     PUTRCD&7                                                 4  0616  B 568               34
  321                BCE   PUTRCD&7,PARAMT,*                                        8  0620  B 568 J93 *         34
&M003O98)194!99BI00V620!981B568B568J93* L038627,597604,608616,620040104000342TAP3
  322                BCE   CNTRL,AADDR,S                                            8  0628  B /29 J79 S         35
  323                B     PUTRCD&7                                                 4  0636  B 568               35
  324         *
  325  2 02   DECLAR C     OPER,@DA  @                                              7  0640  C J16 P20           35
  326  2 03          BE    DALINE                                                   5  0647  B 755 S             35
  327  2 04          MLC   LITCNT,HOLD                                              7  0652  M J88 P07           35
  328  2 05          S     @1@,HOLD           STEP LOCATION COUNTER BY LENGTH-1     7  0659  S P21 P07           35
&B/29J79SB568CJ16P20B755SMJ88P07SP21P07 L038665,636640,647652,659040104000352TAP3
  329  2 06          MZ    @ @,HOLD                                                 7  0666  Y O85 P07           36
  330  2 07          MLC   LOCCTR,ADDR                                              7  0673  M O98 P04           36
  331  2 08          B     MODALT                                                   4  0680  B O52               36
  332  2 09          BCE   *&9,LABEL-5,                                             8  0684  B 700 J03           36
  333  2 10          BWZ   PUTRCD,LABEL-5,2   TEST FOR ACTUAL ADDRESS ASSNMT        8  0692  V 561 J03 2         36
&YO85P07MO98P04BO52B700J03 V561J032     L034699,673680,684692,040040104000362TAP3
  334  2 11          MLC   RESULT-1,LOCCTR                                          7  0700  M P10 O98           37
  335  2 12          MLC   LOCCTR,LOCATN                                            7  0707  M O98 J92           37
  336  2 13          BCE   *&5,LABEL-5,                                             8  0714  B 726 J03           37
  337  2 14          B     SETLAB             STORE LABEL & LOCATION IN TABLE       4  0722  B K76               37
  338  2 15   UPDLOC ZA    LITCNT,HOLD                                              7  0726  ? J88 P07           37
&MP10O98MO98J92B726J03 BK76?J88P07      L033732,707714,722726,040040104000372TAP3
  339  2 16          MZ    @ @,HOLD                                                 7  0733  Y O85 P07           38
  340  2 17          B     MODALT             STEP LOCATION COUNTER BY LENGTH       4  0740  B O52               38
  341  2 18          MLC   RESULT-1,LOCCTR                                          7  0744  M P10 O98           38
  342  2 21          B     PUTRCD                                                   4  0751  B 561               38
  343  2 22   *                        PROCESS DA HEADER
  344         DALINE LCA   LOCCTR,SAVLOC                                            7  0755  L O98 006           38
  345  2 24          SW    DA                                                       4  0762  , 197               38
&YO85P07BO52MP10O98B561LO98006,197      L033765,740744,751755,762040104000382TAP3
  346  2 25          MZ    ACTOP,LOCCTR-1     GET INDEXING FOR LABTBL               7  0766  Y J89 O97           39
  347  2 26          MLC   SAVLOC,ADDR                                              7  0773  M 006 P04           39
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  348  2 27          BCE   *&13,LABEL-5,                                            8  0780  B 800 J03           39
  349  2 28          BWZ   ACTDA,LABEL-5,2                                          8  0788  V 818 J03 2         39
  350  2 29          B     SETLAB                                                   4  0796  B K76               39
&YJ89O97M006P04B800J03 V818J032BK76     L034799,773780,788796,040040104000392TAP3
  351  2 30          MLC   SAVLOC,LOCATN                                            7  0800  M 006 J92           40
  352  2 31          MLC   LITCNT,SAVLOC      SAVE TOTAL LENGTH OF DA               7  0807  M J88 006           40
  353                B     PUTRCD                                                   4  0814  B 561               40
  354  2 33   *              DA ENTRY WITH ACTUAL ADDRESS ASSIGNMENT
  355         ACTDA  MLC   LOCATN,ADDR                                              7  0818  M J92 P04           40
  356  2 35          SW    ACTDA&1            SET ACT. ADDR. SWITCH                 4  0825  , 819               40
  357  2 36          B     PUTRCD                                                   4  0829  B 561               40
  358  2 37   *              PROCESS SUBSEQUENT ENTRIES FOR DA
&M006J92MJ88006B561MJ92P04,819B561      L033832,807814,818825,829040104000402TAP3
  359  2 38   SUBSEQ BW    DASUB,PARAMT&65    TEST FOR DA SUBSEQUENT ENTRY          8  0833  V 889 K58 1         41
  360  2 39          BW    ACTOUT,ACTDA&1     NOT SUBSEQ - TEST ACTUAL ADDR SW      8  0841  V 878 819 1         41
  361  2 40          MLC   SAVLOC,HOLD                                              7  0849  M 006 P07           41
  362  2 41          B     MODALT                                                   4  0856  B O52               41
  363  2 42          MLC   RESULT-1,LOCCTR   STEP LOCATION COUNTER BY DA LENGTH     7  0860  M P10 O98           41
&V889K581V8788191M006P07BO52MP10O98     L034866,841849,856860,040040104000412TAP3
  364  2 43          CW    DA,ACTDA&1         RESET SWITCHES                        7  0867  ) 197 819           42
  365  2 44          B     INSTR              BRANCH TO PROCESS NEW ENTRY           4  0874  B 400               42
  366  2 45   ACTOUT MLC   SAVLOC,LOCCTR      RESTORE ORIGINAL LOCATION COUNTER     7  0878  M 006 O98           42
  367  2 46          B     ACTOUT-11                                                4  0885  B 867               42
  368  2 47   *                        PROCESS DA SUBSEQUENT ENTRY
  369  2 48   DASUB  MLC   LOCATN,HOLD        GET RELATIVE POSITION IN AREA         7  0889  M J92 P07           42
  370  2 49          B     MODALT             APPLY IT TO DA BASE ADDRESS           4  0896  B O52               42
&)197819B400M006O98B867MJ92P07BO52      L033899,874878,885889,896040104000422TAP3
  371  2 50          MLC   RESULT-1,LOCCTR                                          7  0900  M P10 O98           43
  372  2 52          MLC   LOCCTR,LOCATN                                            7  0907  M O98 J92           43
  373  2 51          MZ    ACTOP,LOCCTR-1     GET INDEXING FOR LABTBL               7  0914  Y J89 O97           43
  374  2 53          BCE   *&5,LABEL-5,                                             8  0921  B 933 J03           43
  375  2 54          B     SETLAB                                                   4  0929  B K76               43
  376                B     PUTRCD                                                   4  0933  B 561               43
  377  2 57   *                        PROCESS GENERATED LITERALS
&MP10O98MO98J92YJ89O97B933J03 BK76B561  L037936,907914,921929,933040104000432TAP3
  378  2 58   LITERL SBR   LITEXT&3                                                 4  0937  H 959               44
  379  2 59          BCE   SHORT,PARAMT&6&X1,                                       8  0941  B 960 JZ9           44
  380  2 60   *                        TLU SHORT LITERALS FOR DUPLICATES
  381  2 61   LITOUT A     PARAMT&29&X1,LITTOT                                      7  0949  A KS2 P01           44
  382  2 62   LITEXT B     0                                                        4  0956  B 000               44
  383  2 63   SHORT  LCA   PARAMT&5&X1,LABTBL-3&X3                                  7  0960  L JZ8 QA0           44
  384  2 64          B     TLULAB                                                   4  0967  B L59               44
  385  2 65          B     INTABL                                                   4  0971  B |22               44
&H959B960JZ9 AKS2P01B000LJZ8QA0BL59B|22 L038974,941949,956960,967971104000442TAP3
  386  2 66   FIRST  MLC   LABEL,HLDLAB#6     FIRST OCCURRENCE OF LITERAL           7  0975  M J08 P27           45
  387  2 67          A     PARAMT&29&X1,LITTOT                              )))     7  0982  A KS2 P01           45
  388  2 68          MLC   PARAMT&5&X1,LABEL                                        7  0989  M JZ8 J08           45
  389  2 70          B     SETLAB             PUT SHORT LITERAL IN SYMBOL TABLE     4  0996  B K76               45
  390  2 75          LCA   LITTOT,LABTBL-9&X3                                       7  1000  L P01 Q?4           45
  391  2 76          SW    LABTBL-17&X3       MARK AS RELATIVE ENTRY                4  1007  , PI6               45
&MJ08P27AKS2P01MJZ8J08BK76LP01Q?4,PI6   L036|10,982989,996|00,|07040104000452TAP3
  392  2 77          MLC   HLDLAB,LABEL                                    )))      7  1011  M P27 J08           46
  393  2 78          B     LITEXT                                                   4  1018  B 956               46
  394  2 79   INTABL SW    LABTBL-8&X3        DUPLICATED SHORT LITERAL              4  1022  , Q?5               46
  395  2 80          BWZ   TABLYY,092,2                                             8  1026  V P58 092 2         46
  396  2 81          B     TABLZZ                                                   4  1034  B P70               46
  397  2 82   TABLXX CW    LABTBL-8&X3                                              4  1038  ) Q?5               46
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  398  2 83          S     PARAMT&29&X1,LITCNT   DUPLICATED WITHIN SAME LITERAL     7  1042  S KS2 J88           46
&MP27J08B956,Q?5VP580922BP70)Q?5SKS2J88 L038|48,|18|22,|26|34,|38|42104000462TAP3
  399  2 84          MZ    @ @,LITCNT               AREA, NOT PREVIOUS ONE          7  1049  Y O85 J88           47
  400  2 85          BCE   *&12,X1-1,3        SET LITERAL FOR SYMBOLIC TLU          8  1056  B |75 088 3         47
  401  2 86          MLC   @Q@,AADDR                                                7  1064  M P28 J79           47
  402  2 87          B     LITEXT                                                   4  1071  B 956               47
  403  2 88          MLC   @Q@,BADDR                                       )))      7  1075  M P28 J80           47
  404  2 89          B     LITEXT                                                   4  1082  B 956               47
  405  2 95   *                        ALPHANUMERIC LITERAL
&YO85J88B|750883MP28J79B956MP28J80B956  L037|85,|56|64,|71|75,|82040104000472TAP3
  406  2 96   ALFLIT SBR   LITEXT&3                                                 4  1086  H 959               48
  407  2 97          C     PARAMT&29&X1,@05@                                        7  1090  C KS2 P30           48
  408  2 98          BH    SHORT              TEST FOR SHORT A/N LITERAL            5  1097  B 960 U             48
  409  2 99          B     LITOUT                                                   4  1102  B 949               48
  410  3 00   *                        LITERAL AREA OF FORM SYMBOL#10
  411  3 01   AREA   SBR   LITEXT&3                                                 4  1106  H 959               48
  412  3 02          LCA   PARAMT&9&X1,PARAMT&29&X1                                 7  1110  L K|2 KS2           48
  413  3 03          B     FIRST                                                    4  1117  B 975               48
  414  3 04   *                        ADDRESS CONSTANT
&H959CKS2P30B960UB949H959LK|2KS2B975    L035/20,|90|97,/02/06,/10/17104000482TAP3
  415  3 05   ADCON  SBR   LITEXT&3                                                 4  1121  H 959               49
  416  3 06          B     LITOUT                                                   4  1125  B 949               49
  417  3 07   *                        TEST FOR CONTROL STATEMENTS
  418  3 08   CNTRL  BCE   ORIGIN,OPER-3,O    ORIGIN CONTROL STATEMENT              8  1129  B /65 J13 O         49
  419  3 09          BCE   LTORG,OPER-3,L     LTORG CONTROL STATEMENT               8  1137  B U97 J13 L         49
  420  3 10          BCE   EQUATE,OPER-2,Q   EQUATE STATEMENT                       8  1145  B X61 J14 Q         49
&H959B949B/65J13OBU97J13LBX61J14Q       L032/52,/25/29,/37/45,040040104000492TAP3
  421  3 11          BCE   ELTG,OPER-3,E     EX OR END - PROCESS AS LTORG           8  1153  B X02 J13 E         50
  422  3 12          B     PUTRCD            NO PROCESSING REQUIRED                 4  1161  B 561               50
  423  3 13   *                        PROCESS ORIGIN CONTROL STATEMENTS
  424         ORIGIN BCE   DECODO,LABEL-5,                                          8  1165  B /85 J03           50
  425                BW    DECODO,FULL                                              8  1173  V /85 194 1         50
  426  3 16          B     SETLAB                                                   4  1181  B K76               50
&BX02J13EB561B/85J03 V/851941BK76       L032/84,/61/65,/73/81,040040104000502TAP3
  427         DECODO BCE   ACTORG,AADDR,A                                           8  1185  B S33 J79 A         51
  428  3 18          BCE   SYMORG,AADDR,S     SYMBOLIC ADDRESS                      8  1193  B S58 J79 S         51
  429  3 20          BCE   PUTRCD,AADDR,D     ALREADY PROCESSED                     8  1201  B 561 J79 D         51
  430                BCE   SETORG,AADDR,P                                           8  1209  B U86 J79 P         51
&BS33J79ABS58J79SB561J79DBU86J79P       L032S16,/93S01,S09040,040040104000512TAP3
  431  3 19          BCE   ASTORG,AADDR,      BLANK OPERAND                         8  1217  B T85 J79           52
  432  3 21          SW    ERRPOS                                                   4  1225  , J84               52
  433  3 22          B     PUTRCD                                                   4  1229  B 561               52
  434  3 23   *                        ORIGIN WITH ACTUAL ADDRESS OPERAND
  435  3 24   ACTORG MLC   @D@,AADDR          MARK AS PROCESSED                     7  1233  M P31 J79           52
  436  3 25          MLC   PARAMT&8,LOCCTR                                          7  1240  M K01 O98           52
  437  3 26          MLC   LOCCTR,LOCATN                                            7  1247  M O98 J92           52
&BT85J79 ,J84B561MP31J79MK01O98MO98J92  L037S53,S25S29,S33S40,S47040104000522TAP3
  438  3 28          B     PUTRCD                 ABSOLUTE MODE                     4  1254  B 561               53
  439  3 29   *                        ORIGIN WITH SYMBOLIC OPERAND
  440  3 30   SYMORG BCE   ASTORG,PARAMT,*    TEST FOR * OPERAND                    8  1258  B T85 J93 *         53
  441  3 31          LCA   PARAMT&5,LABTBL-3&X3                                     7  1266  L J98 QA0           53
  442  3 32          B     TLULAB            TLU SYMBOL IN SYMBOL TABLE             4  1273  B L59               53
  443  3 33          B     PREVLB             FOUND SYMBOL IN SYMBOL TABLE          4  1277  B T11               53
  444  3 34   *                        SYMBOL IN OPERAND NOT PREVIOUSLY DEFINED
  445         NOPREV BW    PUTRCD&7,FULL                                            8  1281  V 568 194 1         53
&B561BT85J93*LJ98QA0BL59BT11V5681941    L035S88,S58S66,S73S77,S81040104000532TAP3
  446  3 37          LCA   @000@,LOCATN                                     )))     7  1289  L O83 J92           54
  447  3 38          MLC   @000@,LOCCTR       SET BASE ZERO FOR LOCATION COUNTR     7  1296  M O83 O98           54
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  448                SW    ERRPOS                                                   4  1303  , J84               54
  449                B     PUTRCD                                                   4  1307  B 561               54
  450  3 49   *                        SYMBOL IN OPERAND WAS PREVIOUSLY DEFINED
  451         PREVLB MLC   @P@,AADDR                                                7  1311  M P32 J79           54
  452  3 52          MLC   LABTBL&X2,LOCCTR                                         7  1318  M QJ3 O98           54
&LO83J92MO83O98,J84B561MP32J79MQJ3O98   L036T24,S96T03,T07T11,T18040104000542TAP3
  453  3 53          MLC   LOCCTR,LOCATN                                            7  1325  M O98 J92           55
  454  3 54          BCE   NOSADJ,PARAMT&10,                                        8  1332  B T58 K03           55
  455  3 55          MLC   LOCCTR,ADDR                                              7  1340  M O98 P04           55
  456  3 56          B     MODADD             APPLY CHARACTER ADJUSTMENT            4  1347  B M51               55
  457  3 57          MLC   RESULT-1,LOCCTR                                          7  1351  M P10 O98           55
&MO98J92BT58K03 MO98P04BM51MP10O98      L033T57,T32T40,T47T51,040040104000552TAP3
  458  3 58   NOSADJ MLC   LOCCTR,LOCATN                                            7  1358  M O98 J92           56
  459  3 60          BW    LTGOUT,LITORG      IF SYMBOLIC LTORG, RETURN TO LTOR     8  1365  V V81 P12 1         56
  460                BW    PUTRCD&7,FULL                                            8  1373  V 568 194 1         56
  461  3 61          B     PUTRCD                                                   4  1381  B 561               56
  462  3 62   *                        ORIGIN WITH ASTERISK SYMBOLIC
  463  3 63   ASTORG C     @&X00@,PARAMT&13  TEST FOR *&X00 OPERAND                 7  1385  C P36 K06           56
  464  3 64          BE    CENORG                                                   5  1392  B U34 S             56
&MO98J92VV81P121V5681941B561CP36K06BU34SL039T96,T65T73,T81T85,T92040104000562TAP3
  465  3 65          MLC   LOCCTR,ADDR                                              7  1397  M O98 P04           57
  466  3 68          BCE   *&12,PARAMT&10,                                  )))     8  1404  B U23 K03           57
  467  3 69          B     MODADD             APPLY CHARACTER ADJUSTMENT            4  1412  B M51               57
  468  3 70          MLC   RESULT-1,LOCCTR                                          7  1416  M P10 O98           57
  469  3 71          LCA   LOCCTR,LOCATN                                    )))     7  1423  L O98 J92           57
  470  3 73          B     PUTRCD                                                   4  1430  B 561               57
  471  3 74   *                        ORIGIN WITH *&X00 OPERAND
&MO98P04BU23K03 BM51MP10O98LO98J92B561  L037U33,U04U12,U16U23,U30040104000572TAP3
  472  3 75   CENORG MLC   @100@,HOLD                                               7  1434  M P39 P07           58
  473  3 76          MLC   LOCCTR,ADDR                                              7  1441  M O98 P04           58
  474  3 77          B     MODALT                                                   4  1448  B O52               58
  475  3 78          MN    @000@,RESULT-1     GENERATE NEXT 100S ADDRESS            7  1452  D O83 P10           58
  476  3 79          MN                                                             1  1459  D                   58
  477  3 80          MLC   RESULT-1,LOCCTR                                          7  1460  M P10 O98           58
&MP39P07MO98P04BO52DO83P10DMP10O98      L033U66,U41U48,U52U59,U60040104000582TAP3
  478  3 81   CEN1   LCA   LOCCTR,LOCATN                                            7  1467  L O98 J92           59
  479  3 89   ORGOUT BW    LTGOUT,LITORG      TEST FOR LTORG SHARING ROUTINE        8  1474  V V81 P12 1         59
  480  3 90          B     PUTRCD                                                   4  1482  B 561               59
  481         *
  482         SETORG MLC   LOCATN,LOCCTR                                            7  1486  M J92 O98           59
  483                B     ORGOUT                                                   4  1493  B U74               59
  484         *
  485  3 91   *                        * PROCESS LTORG CONTROL STATEMENTS
  486  3 92   LTORG  BCE   DECODL,LABEL-5,                                          8  1497  B V17 J03           59
&LO98J92VV81P121B561MJ92O98BU74BV17J03  L038V04,U74U82,U86U93,U97040104000592TAP3
  487                BW    DECODL,FULL                                              8  1505  V V17 194 1         60
  488  3 95          B     SETLAB             STORE LABEL AND PREVIOUS LOCATION     4  1513  B K76               60
  489  3 96   DECODL BCE   SYMLTG,AADDR,S     SYMBOLIC ADDRESS                      8  1517  B V65 J79 S         60
  490  3 97          BCE   ACTLTG,AADDR,A     ACTUAL ADDRESS                        8  1525  B X25 J79 A         60
  491  3 99          BCE   PUTRCD,AADDR,D     STATEMENT ALREADY PROCESSED           8  1533  B 561 J79 D         60
&VV171941BK76BV65J79SBX25J79AB561J79D   L036V40,V13V17,V25V33,040040104000602TAP3
  492                BCE   SETLIT,AADDR,P                                           8  1541  B X50 J79 P         61
  493  3 98          BCE   ASTLTG,AADDR,      BLANK OPERAND                         8  1549  B W64 J79           61
  494  4 00          SW    ERRPOS            ILLEGAL OPERAND - MARK AS INVALID      4  1557  , J84               61
  495  4 01          B     PUTRCD                                                   4  1561  B 561               61
  496  4 02   *                        SYMBOLIC ADDRESS LTORG
  497  4 03   SYMLTG BCE   ASTLTG,PARAMT,*     TEST FOR * OPERAND                   8  1565  B W64 J93 *         61
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE    9
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  498  4 04          SW    LITORG            SET LITORG SWITCH FOR ORG ROUTINE      4  1573  , P12               61
&BX50J79PBW64J79 ,J84B561BW64J93*,P12   L036V76,V49V57,V61V65,V73040104000612TAP3
  499  4 05          B     SYMORG             SHARE SYMBOLIC ORG ROUTINE            4  1577  B S58               62
  500         LTGOUT BW    PUTRCD&7,FULL                                            8  1581  V 568 194 1         62
  501                MLC   @|@,LABTBL-5&X3                                          7  1589  M P40 Q?8           62
  502  4 07          MLC   LOCCTR,LABTBL-6&X3                                       7  1596  M O98 Q?7           62
  503  4 08          MLC   LOCCTR,ADDR                                              7  1603  M O98 P04           62
&BS58V5681941MP40Q?8MO98Q?7MO98P04      L033W09,V81V89,V96W03,040040104000622TAP3
  504  4 09          MLC   LITTOT,HOLD                                              7  1610  M P01 P07           63
  505  4 10          B     MODALT                                                   4  1617  B O52               63
  506  4 11          MLC   RESULT-1,LOCCTR                                          7  1621  M P10 O98           63
  507  4 12          MLC   LITTOT,LABTBL&X3                                 )))     7  1628  M P01 QA3           63
  508  4 13          MLC   @000@,LITTOT                                     )))     7  1635  M O83 P01           63
  509  4 14          MLC   X3,LASTLT          STORE LAST LTORG POINT        )))     7  1642  M 099 009           63
&MP01P07BO52MP10O98MP01QA3MO83P01M099009L039W48,W17W21,W28W35,W42040104000632TAP3
  510  4 15   STORLT CW    LITORG             RESET LITORG SWITCH                   4  1649  ) P12               64
  511  4 18          MLC   &PUTRCD,SETEXT&3                                         7  1653  M P43 L40           64
  512  4 19          B     TSTLMT            SET ENTRY INTO SYMBOL TABLE            4  1660  B L14               64
  513  4 26   *                        LTORG WITH * OPERAND
  514  4 27   ASTLTG C     PARAMT&13,@&X00@   TEST FOR *&X00 OPERAND                7  1664  C K06 P36           64
  515  4 28          BE    CENLTG                                                   5  1671  B X17 S             64
  516  4 29          MLC   LOCCTR,ADDR                                              7  1676  M O98 P04           64
&)P12MP43L40BL14CK06P36BX17SMO98P04     L034W82,W53W60,W64W71,W76040104000642TAP3
  517  4 30          BCE   ELTG,PARAMT&10,                                          8  1683  B X02 K03           65
  518  4 31          B     MODADD            APPLY CHARACTER ADJUSTMENT             4  1691  B M51               65
  519  4 32          MLC   RESULT-1,LOCCTR                                          7  1695  M P10 O98           65
  520  4 33   ELTG   LCA   LOCCTR,LOCATN      SET UP TABLE ENTRY                    7  1702  L O98 J92           65
  521  4 35          CW    LABTBL-5&X3                                              4  1709  ) Q?8               65
  522                B     LTGOUT                                                   4  1713  B V81               65
  523  4 41   CENLTG SW    LITORG                                                   4  1717  , P12               65
&BX02K03 BM51MP10O98LO98J92)Q?8BV81,P12 L038X20,W91W95,X02X09,X13X17104000652TAP3
  524  4 42          B     CENORG                                                   4  1721  B U34               66
  525  4 43   ACTLTG MLC   @D@,AADDR                                                7  1725  M P31 J79           66
  526  4 44          MLC   PARAMT&8,LOCATN                                          7  1732  M K01 J92           66
  527  4 46          MLC   LOCATN,LOCCTR                                            7  1739  M J92 O98           66
  528  4 47          B     LTGOUT                                                   4  1746  B V81               66
  529         *
  530         SETLIT MLC   LOCATN,LOCCTR                                            7  1750  M J92 O98           66
&BU34MP31J79MK01J92MJ92O98BV81MJ92O98   L036X56,X25X32,X39X46,X50040104000662TAP3
  531                B     LTGOUT                                                   4  1757  B V81               67
  532         *
  533  4 48   *                        PROCESS EQUATE ENTRIES
  534         EQUATE BCE   SYMEQU,AADDR,S                                           8  1761  B Y68 J79 S         67
  535  4 50          BCE   SYMEQU,AADDR,S                                           8  1769  B Y68 J79 S         67
  536  4 51          BCE   ACTEQU,AADDR,A                                           8  1777  B Y17 J79 A         67
  537  4 52          BCE   MCHEQU,AADDR,M                                           8  1785  B Y28 J79 M         67
&BV81BY68J79SBY68J79SBY17J79ABY28J79M   L036X92,X61X69,X77X85,040040104000672TAP3
  538  4 53          BCE   PUTRCD,AADDR,D                                           8  1793  B 561 J79 D         68
  539  4 54          BCE   PROCEQ,AADDR,E                                           8  1801  B !53 J79 E         68
  540  4 55          SW    ERRPOS                                                   4  1809  , J84               68
  541  4 56          B     PUTRCD                                                   4  1813  B 561               68
  542  4 57   ACTEQU MLC   PARAMT&8,ADDR                                            7  1817  M K01 P04           68
  543  4 58          B     ADJEQU                                                   4  1824  B Z36               68
&B561J79DB!53J79E,J84B561MK01P04BZ36    L035Y27,Y01Y09,Y13Y17,Y24040104000682TAP3
  544  4 59   MCHEQU MLC   PARAMT&2,ADDR                                            7  1828  M J95 P04           69
  545  4 60          B     PUTEQU                                                   4  1835  B !13               69
  546  4 61   ASTEQU MLC   LOCCTR,ADDR                                              7  1839  M O98 P04           69
  547  4 62          ZS    @1@,HOLD                                                 7  1846  ! P21 P07           69
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE   10
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  548  4 63          B     MODALT                                                   4  1853  B O52               69
  549  4 64          MLC   RESULT-1,ADDR                                            7  1857  M P10 P04           69
&MJ95P04B!13MO98P04!P21P07BO52MP10P04   L036Y63,Y35Y39,Y46Y53,Y57040104000692TAP3
  550  4 67          B     ADJEQU                                                   4  1864  B Z36               70
  551  4 68   SYMEQU BCE   ASTEQU,PARAMT,*                                          8  1868  B Y39 J93 *         70
  552  4 69          LCA   PARAMT&5,LABTBL-3&X3                                     7  1876  L J98 QA0           70
  553  4 70          B     TLULAB                                                   4  1883  B L59               70
  554  4 71          B     HITEQU                                                   4  1887  B Z14               70
  555  4 72          BW    PUTRCD&7,FULL                                            8  1891  V 568 194 1         70
  556  4 73          SW    ERRPOS-2                                                 4  1899  , J82               70
&BZ36BY39J93*LJ98QA0BL59BZ14V5681941,J82L039Z02,Y68Y76,Y83Y87,Y91Y99104000702TAP3
  557  4 75          MLC   @###@,LOCATN                                             7  1903  M P46 J92           71
  558  4 76          B     PUTRCD                                                   4  1910  B 561               71
  559  4 77   HITEQU BW    ADJEQU,LABTBL-8&X2                                       8  1914  V Z36 Q!5 1         71
  560  4 78          MLC   LABTBL&X2,ADDR                                           7  1922  M QJ3 P04           71
  561  4 79          MLC   @E@,AADDR                                                7  1929  M P47 J79           71
&MP46J92B561VZ36Q!51MQJ3P04MP47J79      L033Z35,Z10Z14,Z22Z29,040040104000712TAP3
  562  4 80   ADJEQU MLC   @000@,X2                                                 7  1936  M O83 094           72
  563  4 81          MLC   @000@,X1                                                 7  1943  M O83 089           72
  564  4 82          BCE   PUTEQU,PARAMT&10,                                        8  1950  B !13 K03           72
  565  4 83          BCE   INDEQU,PARAMT&11,X                                       8  1958  B Z92 K04 X         72
  566  4 84          B     MODADD                                                   4  1966  B M51               72
&MO83094MO83089B!13K03 BZ92K04XBM51     L034Z69,Z43Z50,Z58Z66,040040104000722TAP3
  567  4 85          MLC   RESULT-1,ADDR                                            7  1970  M P10 P04           73
  568  4 86          MLC   @010@,X2                                                 7  1977  M P50 094           73
  569  4 87          BCE   PUTEQU,PARAMT&20,                                        8  1984  B !13 K13           73
  570  4 88   INDEQU MLC   @000@,X1                                                 7  1992  M O83 089           73
  571  4 89          MN    PARAMT&12&X2,X1                                          7  1999  D K!5 089           73
&MP10P04MP50094B!13K13 MO83089DK!5089   L036!05,Z77Z84,Z92Z99,040040104000732TAP3
  572  4 90          MZ    ZONE&X1,ADDR-1                                           7  2006  Y KX1 P03           74
  573  4 91   PUTEQU MLC   ADDR,LOCATN                                              7  2013  M P04 J92           74
  574  4 92          MLC   &PUTRCD,SETEXT&3                                         7  2020  M P53 L40           74
  575                BW    PUTRCD&7,FULL                                            8  2027  V 568 194 1         74
  576                MLC   LABEL,LABTBL-3&X3                                        7  2035  M J08 QA0           74
&YKX1P03MP04J92MP53L40V5681941MJ08QA0   L036!41,!13!20,!27!35,040040104000742TAP3
  577  4 95          MLC   ADDR,LABTBL&X3                                           7  2042  M P04 QA3           75
  578  4 96          B     TSTLMT                                                   4  2049  B L14               75
  579  4 97   PROCEQ MLC   LOCATN,ADDR                                              7  2053  M J92 P04           75
  580  4 98          B     PUTEQU                                                   4  2060  B !13               75
  581  4 99   *
  582  5 00   *                        END OF REEL ON INPUT TAPE # 2
  583  5 01   IPEOR  RWD   2                                                        5  2064  U %U2 R             75
  584  5 02          WTM   1                                                        5  2069  U %U1 M             75
  585  5 03          RWD   1                                                        5  2074  U %U1 R             75
&MP04QA3BL14MJ92P04B!13U%U2RU%U1MU%U1R  L037!78,!49!53,!60!64,!69!74104000752TAP3
  586  5 04          MLC   @4@,SEEK                                                 7  2079  M O84 125           76
  587  5 05          CW    PARTBL&90,LABTBL&X3                                      7  2086  ) K69 QA3           76
  588  5 06          B     LOAD                                                     4  2093  B 100               76
  589  5 07          H                                                              1  2097  .                   76
  590  5 08   *                        END OF REEL ON OUTPUT TAPE # 1
  591  5 09   *                                ** IMPOSSIBLE CONDITION **
  592  5 10   *
  593  5 11   *                        TAPE RECORD AREA
  594  5 12   *
  595  5 13   RECORD DA    1X80,|                                                      2098   2178               76
&MO84125)K69QA3B100.                    L019!97,!86!93,!97!98,040040104000762TAP3
                     DC    @|@                                                      1  2178              RMARK   77
  596  5 14   PARTBL DA    1X90,|                                                      2179   2269               77
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE   11
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  597  5 15   AADDR        1,1                                                         2179              FIELD   77
  598  5 16   BADDR        2,2                                                         2180              FIELD   77
  599  5 17   ERRPOS       6                                                           2184              SBFLD
  600  5 18   ICOUNT       7,7                                                         2185              FIELD   77
&|                                      L001J78)J78J78,J79J79,J80J85104000772TAP3
  601  5 19   LITCNT       8,10                                                        2188              FIELD   78
  602  5 20   ACTOP        11,11                                                       2189              FIELD   78
  603  5 21   LOCATN       12,14                                                       2192              FIELD   78
  604  5 22   PARAMT       15,15                                                       2193              FIELD   78
  605  5 23   AOPND        85,87                                                       2265              FIELD   78
  606  5 24   BOPND        88,90                                                       2268              FIELD   78
&                                       L001001,J86J89,J90J93,K63K66104000782TAP3
                     DC    @|@                                                      1  2269              RMARK   79
  607  5 25   OPER   EQU   RECORD&18                                                   2116
  608  5 26   GPMK   DC    @}@                                                      1  2270                      79
  609  5 27   ZONE   DCW   #1                                                       1  2271                      79
  610  5 28          DCW   @/JA@                                                    3  2274                      79
  611  5 29   *
  612  5 30   *                        HOUSEKEEPING ROUTINE - OVERLAID BY TAPE IO
  613  5 31   *
  614  5 32          ORG   RECORD                                                             2098
&|} /JA                                 L006K74)K69K69,K71K72,040040104000792TAP3
  615  5 33   HSKPG  MLC   @333@,LOCCTR                                             7  2098  M P56 O98           80
  616  5 34          MLC   @000@,X3                                                 7  2105  M O83 099           80
  617  5 35          LCA   @000@,LTTSAV                                             7  2112  L O83 012           80
  618  5 44          CW    DA,FULL                                                  7  2119  ) 197 194           80
  619  5 36   *                        HSKPG ENTRY POINT FOR PHASE 7 REITERATION
  620  5 37   HSKPG1 SW    3998                                                     4  2126  , I98               80
  621  5 38          LCA   3998,PARTBL&90                                           7  2130  L I98 K69           80
&MP56O98MO83099LO83012)197194,I98LI98K69L039J36,J05J12,J19J26,J30040104000802TAP3
  622  5 39          NOP   000                                                      4  2137  N 000               81
  623  5 391         NOP                                                            1  2141  N                   81
  624  5 40          MLC   LTTSAV,LITTOT      REESTABLISH CUTOFF LITERAL TOTAL      7  2142  M 012 P01           81
  625  5 41          LCA   @000@,LASTLT       SET LAST LITERAL POINT AS ZERO        7  2149  L O83 009           81
  626  5 42   *                        CLEAR ALL SWITCHES FOR PHASE 3 OR 7
  627                SW    RELATV                                                   4  2156  , 196               81
  628  5 45          CW    LITORG,NEG                                               7  2160  ) P12 P13           81
  629  5 46          CW    LITCTL,HIGH3&1                                           7  2167  ) 195 Q02           81
&N000NM012P01LO83009,196)P12P13)195Q02  L037J73,J41J42,J49J56,J60J67104000812TAP3
  630  5 47          B     GETRCD                                                   4  2174  B 338               82
  631  5 48          H                                                              1  2178  .                   82
  632  5 49   *
  633  5 50   *                        LITERALS USED BY 2TAP2
  634  5 51          LTORG HALT4                                                              2680
&B338.                                  L005J78,J78040,040040,040040104000822TAP3
                     DCW   @9@                                                      1  2680              LIT     83
                           @000@                                                    3  2683              LIT     83
                           @4@                                                      1  2684              LIT     83
                           @ @                                                      1  2685              LIT     83
                           @|0@                                                     2  2687              LIT     83
                           @?0@                                                     2  2689              LIT     83
                           @999@                                                    3  2692              LIT     83
&90004 |0?0999                          L013O92,O81O84,O85O86,O88O90104000832TAP3
                           @?01@                                                    3  2695              LIT     84
         268  LOCCTR       #03                                                      3  2698              AREA    84
         268  LITTOT       #03                                                      3  2701              AREA    84
         269  ADDR         #03                                                      3  2704              AREA    84
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE   12
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

         269  HOLD         #03                                                      3  2707              AREA    84
         270  RESULT       #04                                                      4  2711              AREA    84
         271  LITORG       #01                                                      1  2712              AREA    84
&?01                                    L020P12,O96O99,P02P05,P08P12104000842TAP3
         271  NEG          #01                                                      1  2713              AREA    85
                           @030@                                                    3  2716              LIT     85
                           @DA  @                                                   4  2720              LIT     85
                           @1@                                                      1  2721              LIT     85
         386  HLDLAB       #06                                                      6  2727              AREA    85
                           @Q@                                                      1  2728              LIT     85
                           @05@                                                     2  2730              LIT     85
& 030DA  1      Q05                     L018P30,P14P17,P21P22,P28P29104000852TAP3
                           @D@                                                      1  2731              LIT     86
                           @P@                                                      1  2732              LIT     86
                           @&X00@                                                   4  2736              LIT     86
                           @100@                                                    3  2739              LIT     86
                           @|@                                                      1  2740              LIT     86
         511               &PUTRCD                                                  3  2743  561         ADCON   86
                           @###@                                                    3  2746              LIT     86
&DP&X00100|561###                       L016P46,P32P33,P37P40,P41P44104000862TAP3
                           @E@                                                      1  2747              LIT     87
                           @010@                                                    3  2750              LIT     87
         574               &PUTRCD                                                  3  2753  561         ADCON   87
                           @333@                                                    3  2756              LIT     87
  635  5 52   HIGH1  H                                                              1  2757  .                   87
  636  5 53   *
  637  5 54   *
  638  5 55   *                        LABEL TABLE FOR 2TAP2
  639  5 56   *                           * SYMBOL STORED IN FIRST 6 POSITIONS
  640  5 57   *                           * EQUIVALENT ADDRESS STORED IN LAST 3
  641  5 58   *                           * FOR RELATIVE ADDRES, W/M UNDER H.O.
  642  5 59   *                           * NUMERIC LITERALS UNDER 6 CHARACTERS
  643  5 60   *                           * ALPHANUMERIC LITERALS UNDER 5 CHARS
  644  5 61   *                           * RELATIVE ORIGIN ENTRY STORED WITH 3
  645  5 62   *                             POSITION ADJUSTMENT VALUE IN FIRST 3
  646  5 63   *                             AND SYMBOLIC  OPERAND IN LAST 6 WITH
  647  5 64   *                             A W/M UNDER FIRST & FOURTH POSITIONS
  648  5 65          ORG   HIGH3&4                                                            2805
&E010561333.                            L011P57,P48P51,P54P57,040040104000872TAP3
  649  5 66   LABTBL DC    @         @                                              9  2813                      88
&                                       L009Q13)Q05Q05,040040,040040104000882TAP3
  650  5 67   3998   DCW   @}@                                                      1  3998                      89
  651  5 68   *
  652                ORG   3889                                                               3889
&}                                      L001I98,040040,040040,040040104000892TAP3
  653         LOADXX LCA   ADDR,018                                                 7  3889  L P04 018           90
  654                B     SETEXT                                                   4  3896  B L37               90
  655                ORG   3900                                                               3900
  656         MOVXX  MLC   018,ADDR                                                 7  3900  M 018 P04           90
  657                B     PUTRCD&7                                                 4  3907  B 568               90
  658                ORG   2758                                                               2758
&LP04018BL37M018P04B568                 L022I10,H96I00,I07040,040040104000902TAP3
  659         TABLYY BWZ   TABLZZ&8,007,2                                           8  2758  V P78 007 2         91
  660                B     TLUFST&8                                                 4  2766  B L93               91
  661         TABLZZ BWZ   TABLXX,007,2                                             8  2770  V |38 007 2         91
  662                C     X2,009                                                   7  2778  C 094 009           91
  663                BH    TLUFST&8                                                 5  2785  B L93 U             91
1                          1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR       2TAP3               PAGE   13
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  664                B     TABLXX                                                   4  2790  B |38               91
&VP780072BL93V|380072C094009BL93UB|38   L036P93,P66P70,P78P85,P90040104000912TAP3
&                                       N000000,040040,040040,040040B16700922TAP3
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     00932TAP7
&,068072)063067/061039                                       ,001001104000942TAP7
  665  5 69          EX    SYSTEM                                                            B 167               92
1                          1401 TWO-TAPE AUTOCODER - PHASE 7 - REITERATION  RBR       2TAP7               PAGE   14
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  666  5 70          JOB   1401 TWO-TAPE AUTOCODER - PHASE 7 - REITERATION  RBR
  667  5 71   *
  668  5 72   ******    OVERLAY OF PHASE 3 FOR REITERATION  ***
  669  5 73   *
  670  5 74   *                        ***  PHASE 7 IDENTIFICATION AT 333  ***
  671  5 75   *
  672  5 76          ORG   333                                                                0333
  673  5 77          DCW   @7@                                                      1  0333                      95
  674  5 78          B     HSKPG1                                                   4  0334  B J26               95
  675  6 42   *
&7BJ26                                  L005337,334040,040040,040040104000952TAP7
  676         2802   DCW   @}@                                                      1  2802                      96
&}                                      L001Q02,040040,040040,040040104000962TAP7
&                                       N000000,040040,040040,040040B16700972TAP7
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     00982TAP4
&,068072)063067/061039                                       ,001001104000992TAP4
  677  6 43          EX    SYSTEM                                                            B 167               97
1                          1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR       2TAP4               PAGE   15
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  678  6 44          JOB   1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR
  679  6 45   *
  680  6 46   ******    TEST SYMBOL TABLE FOR RELATIVE ADDRESSES  ***
  681  6 47   *
  682  6 48   *                        ***  PHASE 4 IDENTIFICATION AT 333  ***
  683  6 49   *
  684  6 50          ORG   333                                                                0333
  685  6 51          DCW   @4@                                                      1  0333                     100
  686  6 52   *
  687  6 53   TSTTBL CW    REITER                                                   4  0334  ) 193              100
  688  6 54          BW    TBLDON,RELATV                                            8  0338  V 892 196 1        100
  689  6 55          SW    RELATV,HOLDZN#1                                          7  0346  , 196 P14          100
  690  6 56          MLC   @000@,X1                                                 7  0353  M P17 089          100
  691  6 57          MLC   @000@,SAVLOC                                             7  0360  M P17 006          100
&4)193V8921961,196P14MP17089MP17006     L034366,334338,346353,360040104001002TAP4
  692  6 58          SW    LABTBL-5&X3,LABTBL-8&X3                                  7  0367  , Q?8 Q?5          101
  693  6 59          BW    *&12,LABTBL-5&X1                                         8  0374  V 393 Q|8 1        101
  694  6 60   P2SK1  A     @9@,X1                                                   7  0382  A P18 089          101
  695  6 61          B     *-18                                                     4  0389  B 374              101
  696  6 62          C     X1,X3                                                    7  0393  C 089 099          101
  697  6 63          BE    TBLDON                                                   5  0400  B 892 S            101
&,Q?8Q?5V393Q|81AP18089B374C089099B892S L038404,374382,389393,400040104001012TAP4
  698  6 64          MLC   @000@,X2                                                 7  0405  M P17 094          102
  699  6 65          LCA   LABTBL&X1,LABTBL-3&X3                                    7  0412  L Q/3 QA0          102
  700  6 66   P2SK2  C     LABTBL-3&X2,LABTBL&X1                                    7  0419  C QJ0 Q/3          102
  701  6 67          BE    *&12                                                     5  0426  B 442 S            102
  702  6 68          A     @9@,X2                                                   7  0431  A P18 094          102
  703  6 69          B     P2SK2                                                    4  0438  B 419              102
&MP17094LQ/3QA0CQJ0Q/3B442SAP18094B419  L037441,412419,426431,438040104001022TAP4
  704  6 70          C     X3,X2                                                    7  0442  C 099 094          103
  705  6 71          BE    NOSYM                                                    5  0449  B 847 S            103
  706  6 72          BW    *&5,LABTBL-8&X2                                          8  0454  V 466 Q!5 1        103
  707  6 73          B     *&21                                                     4  0462  B 486              103
  708  6 74          BW    *&5,FULL                                                 8  0466  V 478 194 1        103
  709  6 75          B     NOSYM                                                    4  0474  B 847              103
&C099094B847SV466Q!51B486V4781941B847   L036477,449454,462466,474040104001032TAP4
  710  6 76          CW    RELATV                                                   4  0478  ) 196              104
  711  6 77          B     P2SK1                                                    4  0482  B 382              104
  712  6 78          MLC   LABTBL&X2,ADDR                                           7  0486  M QJ3 P04          104
  713  6 79          MLC   LABTBL-6&X1,HOLD                                         7  0493  M Q|7 P07          104
  714  6 80          CW    LABTBL-5&X1                                              4  0500  ) Q|8              104
  715  6 81          A     @1@,SAVLOC                                               7  0504  A P19 006          104
  716  6 82          B     MODALT                                                   4  0511  B O52              104
&)196B382MQJ3P04MQ|7P07)Q|8AP19006BO52  L037514,482486,493500,504511104001042TAP4
  717  6 83   P2SK3  MLC   RESULT-1,ADDR                                            7  0515  M P10 P04          105
  718  6 84          MLC   ADDR,LABTBL&X1                                           7  0522  M P04 Q/3          105
  719  6 85          CW    LABTBL-5&X1                                              4  0529  ) Q|8              105
  720  6 86          MLC   @|@,LABTBL-8&X1                                          7  0533  M P20 Q|5          105
  721  6 87   P2SK4  A     @9@,X1                                                   7  0540  A P18 089          105
&MP10P04MP04Q/3)Q|8MP20Q|5AP18089       L032546,522529,533540,040040104001052TAP4
  722  6 88          BCE   SKPEQU,LABTBL-2&X1,#                                     8  0547  B 611 Q/1 #        106
  723  6 89          BW    P2SK4,LABTBL-2&X1            BYPASS SHORT LITERALS       8  0555  V 540 Q/1 1        106
  724  6 90          BW    APPLY,LABTBL-8&X1            RELATIVE ADDRESS            8  0563  V 690 Q|5 1        106
  725  6 91          BW    *&21,LABTBL-5&X1                                         8  0571  V 599 Q|8 1        106
&B611Q/1#V540Q/11V690Q|51V599Q|81       L032578,555563,571040,040040104001062TAP4
  726  6 92          BW    P2SK4,LABTBL&X1                                          8  0579  V 540 Q/3 1        107
  727  6 93          BCE   P2SK4,LABTBL-5&X1,|                                      8  0587  B 540 Q|8 |        107
1                          1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR       2TAP4               PAGE   16
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  728  6 94          B     P2SK1-15                                                 4  0595  B 367              107
  729  6 95          BCE   SETLOC,LABTBL-5&X1,*                                     8  0599  B 630 Q|8 *        107
  730  6 96          B     P2SK1-15                                                 4  0607  B 367              107
&V540Q/31B540Q|8|B367B630Q|8*B367       L032610,587595,599607,040040104001072TAP4
  731  6 97   SKPEQU BW    *&8,LABTBL&1X1                                           8  0611  V 626 R84 1        108
  732  6 98          A     @9@,X1                                                   7  0619  A P18 089          108
  733  6 99          B     P2SK4                                                    4  0626  B 540              108
  734  7 00   SETLOC MLC   LABTBL-6&X1,HOLD                                         7  0630  M Q|7 P07          108
  735  7 01          B     MODALT                                                   4  0637  B O52              108
  736  7 02          BCE   CENAPL,LABTBL-4&X1,X                                     8  0641  B 678 Q|9 X        108
&V626R841AP18089B540MQ|7P07BO52B678Q|9X L038648,619626,630637,641040104001082TAP4
  737  7 03          MLC   RESULT-1,LABTBL&X1                                       7  0649  M P10 Q/3          109
  738  7 04          CW    LABTBL-5&X1                                              4  0656  ) Q|8              109
  739  7 05          MLC   RESULT-1,ADDR                                            7  0660  M P10 P04          109
  740  7 06          MLC   @|@,LABTBL-8&X1                                          7  0667  M P20 Q|5          109
  741  7 07          B     P2SK4                                                    4  0674  B 540              109
  742  7 08   CENAPL MN    @000@,RESULT-1                                           7  0678  D P17 P10          109
  743  7 09          MN                                                             1  0685  D                  109
&MP10Q/3)Q|8MP10P04MP20Q|5B540DP17P10D  L037685,656660,667674,678685104001092TAP4
  744  7 10          B     SETLOC&19                                                4  0686  B 649              110
  745  7 11   APPLY  C     X1,X3                                                    7  0690  C 089 099          110
  746  7 12          BE    P2SK8                                                    5  0697  B 932 S            110
  747  7 13          BCE   P2SK9,LABTBL-5&X1,|                                      8  0702  B 758 Q|8 |        110
  748  7 14          BCE   P2SK10,LABTBL-11&X1,#                                    8  0710  B 825 Q|2 #        110
  749  7 15          MZ    LABTBL-1&X1,HOLDZN                                       7  0718  Y Q/2 P14          110
&B649C089099B932SB758Q|8|B825Q|2#YQ/2P14L039724,690697,702710,718040104001102TAP4
  750  7 16          MLC   LABTBL&X1,HOLD                                           7  0725  M Q/3 P07          111
  751  7 17          B     MODALT                                                   4  0732  B O52              111
  752  7 18          MLC   RESULT-1,LABTBL&X1                                       7  0736  M P10 Q/3          111
  753  7 19          MZ    HOLDZN,LABTBL-1&X1                                       7  0743  Y P14 Q/2          111
  754  7 20          CW    LABTBL-8&X1                                              4  0750  ) Q|5              111
  755  7 21          B     P2SK4                                                    4  0754  B 540              111
&MQ/3P07BO52MP10Q/3YP14Q/2)Q|5B540      L033757,732736,743750,754040104001112TAP4
  756  7 22   P2SK9  MLC   LABTBL-6&X1,HOLD                                         7  0758  M Q|7 P07          112
  757  7 23          B     MODALT                                                   4  0765  B O52              112
  758  7 24          BCE   CNLAPL,LABTBL-4&X1,X                                     8  0769  B 813 Q|9 X        112
  759  7 25          MLC   RESULT-1,LABTBL-6&X1                                     7  0777  M P10 Q|7          112
  760  7 26          MLC   RESULT-1,ADDR                                            7  0784  M P10 P04          112
&MQ|7P07BO52B813Q|9XMP10Q|7MP10P04      L033790,765769,777784,040040104001122TAP4
  761  7 27          MLC   LABTBL&X1,HOLD                                           7  0791  M Q/3 P07          113
  762  7 28          B     MODALT                                                   4  0798  B O52              113
  763  7 29          MLC   RESULT-1,ADDR                                            7  0802  M P10 P04          113
  764  7 30          B     P2SK9-8                                                  4  0809  B 750              113
  765  7 31   CNLAPL MN    @000@,RESULT-1                                           7  0813  D P17 P10          113
  766  7 32          MN                                                             1  0820  D                  113
  767  7 33          B     P2SK9&19                                                 4  0821  B 777              113
&MQ/3P07BO52MP10P04B750DP17P10DB777     L034824,798802,809813,820821104001132TAP4
  768  7 34   P2SK10 MLC   LABTBL-6&X1,HOLD                                         7  0825  M Q|7 P07          114
  769  7 35          B     MODALT                                                   4  0832  B O52              114
  770  7 36          MLC   RESULT-1,LABTBL-6&X1                                     7  0836  M P10 Q|7          114
  771  7 37          B     P2SK9-8                                                  4  0843  B 750              114
  772  7 38   NOSYM  BW    P2SK7,FULL                                               8  0847  V 877 194 1        114
  773  7 39          MLC   @000@,ADDR                                               7  0855  M P17 P04          114
&MQ|7P07BO52MP10Q|7B750V8771941MP17P04  L037861,832836,843847,855040104001142TAP4
  774  7 40          MLC   ADDR,LABTBL&X1                                           7  0862  M P04 Q/3          115
  775  7 41          SW    LABTBL-7&X1                                              4  0869  , Q|6              115
  776  7 42          B     P2SK3&7                                                  4  0873  B 522              115
  777  7 43   P2SK7  CW    RELATV                                                   4  0877  ) 196              115
1                          1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR       2TAP4               PAGE   17
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  778  7 44          A     @9@,X1                                                   7  0881  A P18 089          115
  779  7 45          B     P2SK1-15                                                 4  0888  B 367              115
  780  7 46   TBLDON BW    *&13,RELATV                                              8  0892  V 912 196 1        115
&MP04Q/3,Q|6B522)196AP18089B367V9121961 L038899,869873,877881,888892104001152TAP4
  781  7 47          C     SAVLOC,@000@                                             7  0900  C 006 P17          116
  782  7 48          BU    TSTTBL                                                   5  0907  B 334 /            116
  783  7 49          BW    *&5,FULL                                                 8  0912  V 924 194 1        116
  784  7 50          B     TSTLIT                                                   4  0920  B 970              116
  785  7 51          SW    REITER                                                   4  0924  , 193              116
  786  7 52          B     TSTLIT                                                   4  0928  B 970              116
&C006P17B334/V9241941B970,193B970       L032931,907912,920924,928040104001162TAP4
  787  7 53   P2SK8  BW    *&5,OVFLIT-8                                             8  0932  V 944 006 1        117
  788  7 54          B     TBLDON                                                   4  0940  B 892              117
  789  7 55          MLC   OVFLIT-6,HOLD                                            7  0944  M 008 P07          117
  790  7 56          B     MODALT                                                   4  0951  B O52              117
  791  7 57          MLC   RESULT-1,OVFLIT-6                                        7  0955  M P10 008          117
  792  7 58          CW    OVFLIT-8                                                 4  0962  ) 006              117
  793  7 59          B     TBLDON                                                   4  0966  B 892              117
  794  7 60   *                        TEST TABLE FOR UNDEFINED LITORG ENTRIES
&V9440061B892M008P07BO52MP10008)006B892 L038969,940944,951955,962966104001172TAP4
  795  7 61   TSTLIT MLC   @000@,X1                                                 7  0970  M P17 089          118
  796  7 62          SW    LABTBL&X3                                                4  0977  , QA3              118
  797  7 63   CMPLTG BW    *&12,LABTBL&X1                                           8  0981  V |00 Q/3 1        118
  798  7 64          A     @9@,X1                                                   7  0989  A P18 089          118
  799  7 65          B     CMPLTG                                                   4  0996  B 981              118
  800  7 66          C     X1,X3                                                    7  1000  C 089 099          118
&MP17089,QA3V|00Q/31AP18089B981C089099  L037|06,977981,989996,|00040104001182TAP4
  801  7 67          BE    TSTEQU                                                   5  1007  B /18 S            119
  802  7 68          BCE   CMPLTG&8,LABTBL-5&X1,*                                   8  1012  B 989 Q|8 *        119
  803  7 69          CW    LABTBL&X1                                                4  1020  ) Q/3              119
  804  7 70          SW    LABTBL-5&X1                                              4  1024  , Q|8              119
  805  7 71          LCA   LABTBL&X1,LABTBL-3&X3                                    7  1028  L Q/3 QA0          119
  806  7 72          CW    LABTBL-5&X1                                              4  1035  ) Q|8              119
  807  7 73          SW    LABTBL&X1                                                4  1039  , Q/3              119
&B/18SB989Q|8*)Q/3,Q|8LQ/3QA0)Q|8,Q/3   L036|42,|12|20,|24|28,|35|39104001192TAP4
  808  7 74          B     TLULAB                                                   4  1043  B L59              120
  809  7 75          B     LITHIT                                                   4  1047  B |81              120
  810  7 76   NLTHIT BW    *&5,RELATV                                               8  1051  V |63 196 1        120
  811  7 77          B     CMPLTG&8                                                 4  1059  B 989              120
  812  7 78          MLC   @|@,LABTBL-5&X1                                          7  1063  M P20 Q|8          120
  813  7 79          MLC   @000@,LABTBL-6&X1                                        7  1070  M P17 Q|7          120
  814  7 80          B     CMPLTG&8                                                 4  1077  B 989              120
&BL59B|81V|631961B989MP20Q|8MP17Q|7B989 L038|80,|47|51,|59|63,|70|77104001202TAP4
  815  7 81   LITHIT BW    NLTHIT,LABTBL-8&X2                                       8  1081  V |51 Q!5 1        121
  816  7 82          SW    LABTBL-8&X1                                              4  1089  , Q|5              121
  817  7 83          MLC   LABTBL&X2,LABTBL-6&X1                                    7  1093  M QJ3 Q|7          121
  818  7 84          CW    LABTBL-8&X1,LABTBL&X1                                    7  1100  ) Q|5 Q/3          121
  819  7 85          MLC   @|@,LABTBL-5&X1                                          7  1107  M P20 Q|8          121
  820  7 86          B     CMPLTG&8                                                 4  1114  B 989              121
  821  7 87   *                        TEST TABLE FOR UNDEFINED EQUATE ENTRIES
&V|51Q!51,Q|5MQJ3Q|7)Q|5Q/3MP20Q|8B989  L037/17,|89|93,/00/07,/14040104001212TAP4
  822  7 88   TSTEQU MLC   @000@,X1                                                 7  1118  M P17 089          122
  823  7 89          MLC   @#@,LABTBL-2&X3                                          7  1125  M P21 QA1          122
  824  7 90   CMPEQU BCE   *&12,LABTBL-2&X1,#                                       8  1132  B /51 Q/1 #        122
  825  7 91          A     @9@,X1                                                   7  1140  A P18 089          122
  826  7 92          B     CMPEQU                                                   4  1147  B /32              122
&MP17089MP21QA1B/51Q/1#AP18089B/32      L033/50,/25/32,/40/47,040040104001222TAP4
  827  7 93          C     X1,X3                                                    7  1151  C 089 099          123
1                          1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR       2TAP4               PAGE   18
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  828  7 94          BE    SHRTLT                                                   5  1158  B T54 S            123
  829  7 95          BCE   *&5,LABTBL&4&X1,                                         8  1163  B /75 Q/7          123
  830  7 96          B     TLUEQU                                                   4  1171  B S28              123
  831  7 97          BW    CMPEQU&8,LABTBL&1&X1                                     8  1175  V /40 Q/4 1        123
  832  7 98          SW    LABTBL-2&X1                                              4  1183  , Q/1              123
&C089099BT54SB/75Q/7 BS28V/40Q/41,Q/1   L036/86,/58/63,/71/75,/83040104001232TAP4
  833  7 99          BW    *&5,LABTBL-1&X1                                          8  1187  V /99 Q/2 1        124
  834  8 00          B     *&8                                                      4  1195  B S06              124
  835  8 01          MZ    LABTBL-1&X1,LABTBL&2&X1                                  7  1199  Y Q/2 Q/5          124
  836  8 02          MLC   LABTBL&3&X1,LABTBL&X1                                    7  1206  M Q/6 Q/3          124
  837  8 03          CW    LABTBL-2&X1                                              4  1213  ) Q/1              124
  838  8 04          MLC   @|@,LABTBL&2&X1                                          7  1217  M P20 Q/5          124
&V/99Q/21BS06YQ/2Q/5MQ/6Q/3)Q/1MP20Q/5  L037S23,/95/99,S06S13,S17040104001242TAP4
  839  8 05          B     CMPEQU&8                                                 4  1224  B /40              125
  840  8 06   TLUEQU SW    LABTBL&4&X1                                              4  1228  , Q/7              125
  841  8 07          MLC   LABTBL&9&X1,LABTBL-3&X3                                  7  1232  M QS2 QA0          125
  842  8 08          CW    LABTBL&4&X1                                              4  1239  ) Q/7              125
  843  8 09          B     TLULAB                                                   4  1243  B L59              125
  844  8 10          B     PRVEQU                                                   4  1247  B S74              125
  845  8 11          BW    *&5,RELATV                                               8  1251  V S63 196 1        125
&B/40,Q/7MQS2QA0)Q/7BL59BS74VS631961    L035S58,S28S32,S39S43,S47S51104001252TAP4
  846  8 12          B     CMPEQU&8                                                 4  1259  B /40              126
  847  8 13          MLC   @###@,LABTBL&X1                                          7  1263  M P24 Q/3          126
  848  8 14          B     CMPEQU&8                                                 4  1270  B /40              126
  849  8 15   PRVEQU BW    *&8,LABTBL-1&X1                                          8  1274  V S89 Q/2 1        126
  850  8 16          MZ    LABTBL-1&X2,LABTBL-1&X1                                  7  1282  Y QJ2 Q/2          126
  851  8 17          CW    LABTBL-1&X1                                              4  1289  ) Q/2              126
&B/40MP24Q/3B/40VS89Q/21YQJ2Q/2)Q/2     L034S92,S63S70,S74S82,S89040104001262TAP4
  852  8 18          MZ    LABTBL-1&X1,HOLDZN                                       7  1293  Y Q/2 P14          127
  853  8 19          MLC   LABTBL&X2,ADDR                                           7  1300  M QJ3 P04          127
  854  8 20          MLC   LABTBL&3&X1,HOLD                                         7  1307  M Q/6 P07          127
  855  8 21          B     MODALT                                                   4  1314  B O52              127
  856  8 22          MLC   RESULT-1,LABTBL&X1                                       7  1318  M P10 Q/3          127
  857  8 23          MZ    HOLDZN,LABTBL-1&X1                                       7  1325  Y P14 Q/2          127
&YQ/2P14MQJ3P04MQ/6P07BO52MP10Q/3YP14Q/2L039T31,T00T07,T14T18,T25040104001272TAP4
  858  8 24          CW    LABTBL&4&X1                                              4  1332  ) Q/7              128
  859  8 25          CW    LABTBL-8&X1,LABTBL-2&X1                                  7  1336  ) Q|5 Q/1          128
  860  8 26          MLC   @|@,LABTBL&2&X1                                          7  1343  M P20 Q/5          128
  861  8 27          B     CMPEQU&8                                                 4  1350  B /40              128
  862  8 28   *                        COMPLETE SHORT LITERAL ADDRESSES
  863  8 29   SHRTLT MLC   @000@,X1                                                 7  1354  M P17 089          128
  864  8 30          MLC   @000@,X2                                                 7  1361  M P17 094          128
&)Q/7)Q|5Q/1MP20Q/5B/40MP17089MP17094   L036T67,T36T43,T50T54,T61040104001282TAP4
  865  8 31   TSTLTG BCE   HAVLTG,LABTBL-5&X2,|                                     8  1368  B T99 Q!8 |        129
  866  8 32          A     @9@,X2                                                   7  1376  A P18 094          129
  867  8 33          C     X3,X2                                                    7  1383  C 099 094          129
  868  8 34          BE    ENDPH2                                                   5  1390  B U93 S            129
  869  8 35          B     TSTLTG                                                   4  1395  B T68              129
  870  8 36   HAVLTG MLC   LABTBL-6&X2,ADDR                                         7  1399  M Q!7 P04          129
&BT99Q!8|AP18094C099094BU93SBT68MQ!7P04 L038U05,T76T83,T90T95,T99040104001292TAP4
  871  8 37          ZS    @1@,HOLD                                                 7  1406  ! P19 P07          130
  872  8 38          B     MODALT                                                   4  1413  B O52              130
  873  8 39          MLC   RESULT-1,ADDR                                            7  1417  M P10 P04          130
  874  8 40   TSTSRT BW    HAVSRT,LABTBL-2&X1                                       8  1424  V U55 Q/1 1        130
  875  8 41          A     @9@,X1                                                   7  1432  A P18 089          130
&!P19P07BO52MP10P04VU55Q/11AP18089      L033U38,U13U17,U24U32,040040104001302TAP4
  876  8 42          C     X1,X3                                                    7  1439  C 089 099          131
  877  8 43          BE    ENDPH2                                                   5  1446  B U93 S            131
1                          1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR       2TAP4               PAGE   19
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  878  8 44          B     TSTSRT                                                   4  1451  B U24              131
  879  8 45   HAVSRT C     X2,X1                                                    7  1455  C 094 089          131
  880  8 46          BH    PATCHX                                                   5  1462  B P36 U            131
  881  8 47          MLC   LABTBL&X1,HOLD                                           7  1467  M Q/3 P07          131
  882  8 48          B     MODALT                                                   4  1474  B O52              131
&C089099BU93SBU24C094089BP36UMQ/3P07BO52L039U77,U46U51,U55U62,U67U74104001312TAP4
  883  8 49          MLC   RESULT-1,LABTBL&X1                                       7  1478  M P10 Q/3          132
  884  8 50          CW    LABTBL-8&X1                                              4  1485  ) Q|5              132
  885  8 51          B     TSTSRT&8                                                 4  1489  B U32              132
  886  8 52   ENDPH2 LCA   @         @,LABTBL&X3                                    7  1493  L P33 QA3          132
  887  8 53          CW    LABTBL-8&X3                                              4  1500  ) Q?5              132
  888  8 54          MLC   @5@,SEEK                                                 7  1504  M P34 125          132
  889  8 55          CW    HIGH2&1                                                  4  1511  ) P57              132
&MP10Q/3)Q|5BU32LP33QA3)Q?5MP34125)P57  L037V14,U85U89,U93V00,V04V11104001322TAP4
  890  8 56          NOP   999,999                                                  7  1515  N 999 999          133
  891  8 57          B     LOAD                                                     4  1522  B 100              133
  892  8 58          H                                                              1  1526  .                  133
  893  8 59          LTORG NEG&1                                                              2714
&N999999B100.                           L012V26,V22V26,040040,040040104001332TAP4
         689  HOLDZN DCW   #01                                                      1  2714              AREA   134
                           @000@                                                    3  2717              LIT    134
                           @9@                                                      1  2718              LIT    134
                           @1@                                                      1  2719              LIT    134
                           @|@                                                      1  2720              LIT    134
                           @#@                                                      1  2721              LIT    134
                           @###@                                                    3  2724              LIT    134
& 00091|####                            L011P24,P15P18,P19P20,P21P22104001342TAP4
         886               @         @                                              9  2733              LIT    135
                           @5@                                                      1  2734              LIT    135
  894  8 591         H                                                              1  2735  .                  135
  895  8 60   PATCHX BWZ   TSTLTG&8,092,2                                           8  2736  V T76 092 2        135
  896  8 61          BWZ   HAVSRT&12,087,2                                          8  2744  V U67 087 2        135
  897  8 611         B     TSTLTG&8                                                 4  2752  B T76              135
  898  8 612  HIGH2  H                                                              1  2756  .                  135
&         5.VT760922VU670872BT76.       L032P56,P34P35,P36P44,P52P56104001352TAP4
  899  8 613         DCW   @}@                                                      1  2757                     136
&}                                      L001P57,040040,040040,040040104001362TAP4
&                                       N000000,040040,040040,040040B16701372TAP4
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01382TAP5
&,068072)063067/061039                                       ,001001104001392TAP5
  900  8 62          EX    SYSTEM                                                            B 167              137
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   20
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  901  8 63          JOB   1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR
  902  8 64   *
  903  8 65   ******    PHASE 5 - TLU LABELS AND PROCESS LITERAL RECORDS  ***
  904  8 66   *
  905  8 67   *                        ***  PHASE 5 IDENTIFICATION AT 333  ***
  906  8 68   *
  907  8 69          ORG   333                                                                0333
  908  8 70          DCW   @5@                                                      1  0333                     140
  909  8 71   *
  910  8 72          B     PHASE5             BRANCH TO HOUSEKEEPING                4  0334  B !99              140
  911  8 73   *
  912  8 74          ORG   RECORD&1                                                           2099
&5B!99                                  L005337,334040,040040,040040104001402TAP5
  913  8 75   PHASE5 CW    SAVLIT#1,ADONE#1   HOUSEKEEPING                          7  2099  ) P15 P16          141
  914  8 76          SW    3998                                                     4  2106  , I98              141
  915  8 77          LCA   3998,PARTBL&90                                           7  2110  L I98 K69          141
  916  8 78          CW    FSTIME#1,DOUBLE#1                                        7  2117  ) P17 P18          141
  917  8 79          CW    LITONE#1,LITX#1                                          7  2124  ) P19 P20          141
  918  8 80          CW    LITORG                                                   4  2131  ) P12              141
&)P15P16,I98LI98K69)P17P18)P19P20)P12   L036J34,J06J10,J17J24,J31040104001412TAP5
  919  8 81          NOP   LITBEG#5,ORGBAS#3                                        7  2135  N P25 P28          142
  920  8 82          NOP   TEMP1#3                                                  4  2142  N P31              142
  921  8 83          MLC   @   @,ADDR                                               7  2146  M P34 P04          142
  922  8 84          MLC   @000@,LSTORG#3                                           7  2153  M P37 P40          142
  923  8 85          MLC   @000@,LASTLT                                             7  2160  M P37 009          142
  924  8 86          MLC   X3,BASIC#3                                               7  2167  M 099 P43          142
&NP25P28NP31MP34P04MP37P40MP37009M099P43L039J73,J42J46,J53J60,J67040104001422TAP5
  925  8 87          MLC   @000@,X3                                                 7  2174  M P37 099          143
  926  8 88          B     TLULIT                                                   4  2181  B 338              143
  927  8 89          H                                                              1  2185  .                  143
  928  8 90          ORG   338                                                                0338
  929  8 91   *                        FIND FIRST LTORG ENTRY IN LABEL TABLE
&MP37099B338.                           L012J85,J81J85,040040,040040104001432TAP5
  930  8 92   TLULIT C     X3,BASIC                                                 7  0338  C 099 P43          144
  931  8 93          BE    HITLIT-8           HAVE OVERFLOW LTORG                   5  0345  B 369 S            144
  932  8 94          A     @9@,X3             STEP X3 TO FIND NEXT LTORG IN TBL     7  0350  A P44 099          144
  933  8 95          BCE   HITLIT,LABTBL-5&X3,|       TEST FOR LTORG ENTRY          8  0357  B 377 Q?8 |        144
  934  8 97          B     TLULIT                                                   4  0365  B 338              144
  935  8 98          SW    LITADD             SET UP FOR INCOMPLETE LTORG   )))     4  0369  , P50              144
  936  8 99          B     LITPNT&7                                                 4  0373  B 402              144
&C099P43B369SAP44099B377Q?8|B338,P50B402L039376,345350,357365,369373104001442TAP5
  937  9 01   HITLIT MLC   LABTBL-6&X3,ADDR                                         7  0377  M Q?7 P04          145
  938  9 02          MLC   @00J@,HOLD                                               7  0384  M P47 P07          145
  939  9 03          B     MODALT                                                   4  0391  B O52              145
  940  9 04   *                        SET LTORG POINT ADDRESS IN LITADD
  941  9 05   LITPNT LCA   RESULT-1,LITADD#3    SET UP START ADDR OF LITERALS       7  0395  L P10 P50          145
  942  9 06          MLC   X3,LITLOC#3                                              7  0402  M 099 P53          145
  943  9 07          MLC   BASIC,X3                                                 7  0409  M P43 099          145
  944  9 08   *                        GET INPUT RECORD FOR PROCESSING
&MQ?7P04MP47P07BO52LP10P50M099P53MP43099L039415,384391,395402,409040104001452TAP5
  945  9 09   GET    RTW   1,RECORD                                                 8  0416  L %U1 !98 R        146
  946  9 10          BER   TPERR                                                    5  0424  B 201 L            146
  947  9 11          BEF   ENDPH3                                                   5  0429  B Y33 K            146
  948  9 12          BCE   PUT,RECORD&5,*                                           8  0434  B Y11 J03 *        146
  949  9 13          CW    ADONE                                                    4  0442  ) P16              146
  950  9 14          C     OPER,@LTOR@                                              7  0446  C J16 P57          146
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   21
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&L%U1!98RB201LBY33KBY11J03*)P16CJ16P57  L037452,424429,434442,446040104001462TAP5
  951  9 15          BE    LIT                                                      5  0453  B V60 S            147
  952  9 16          C     OPER,@EX  @                                              7  0458  C J16 P61          147
  953  9 17          BE    LTDONE                                                   5  0465  B V64 S            147
  954  9 18          BW    HAVLIT,LITX                                              8  0470  V 756 P20 1        147
  955  9 19          BW    LITRCD,RECORD&3                                          8  0478  V 783 J01 1        147
&BV60SCJ16P61BV64SV756P201V783J011      L033485,458465,470478,040040104001472TAP5
  956  9 20   LTREST MLC   LITBEG-2,LASTLT                                          7  0486  M P23 009          148
  957  9 21          CW    LITORG                                                   4  0493  ) P12              148
  958  9 22          BW    CONTRL,RECORD                                            8  0497  V V09 !98 1        148
  959  9 24   TEST   BCE   DECL,ICOUNT,                                             8  0505  B X79 J85          148
  960  9 25   *                        PROCESS IMPERATIVE INSTRUCTION
  961  9 26          MLC   @000@,HOLD                                               7  0513  M P37 P07          148
&MP23009)P12VV09!981BX79J85 MP37P07     L034519,493497,505513,040040104001482TAP5
  962  9 27          MLC   PARAMT&29,HOLD                                           7  0520  M K22 P07          149
  963  9 28          MLC   @000@,X1                                                 7  0527  M P37 089          149
  964  9 29          MLC   AADDR,DADDR#1                                            7  0534  M J79 P62          149
  965  9 30          BCE   DONE,AADDR,                                              8  0541  B U38 J79          149
  966  9 31          BCE   OUTADD&15,AADDR,D                                        8  0549  B 648 J79 D        149
&MK22P07MP37089MJ79P62BU38J79 B648J79D  L037556,527534,541549,040040104001492TAP5
  967  9 32          BCE   SYMBOL,AADDR,S                                           8  0557  B |88 J79 S        150
  968  9 33          BCE   ACTUAL,AADDR,A                                           8  0565  B S49 J79 A        150
  969  9 34          BCE   MACHIN,AADDR,M                                           8  0573  B S67 J79 M        150
  970  9 35          BCE   CNVRTD,AADDR,Q                                           8  0581  B U58 J79 Q        150
&B|88J79SBS49J79ABS67J79MBU58J79Q       L032588,565573,581040,040040104001502TAP5
  971  9 36          BW    OUTADD,LITADD                                            8  0589  V 633 P50 1        151
  972  9 37   *                        SET UP ADDRESS FOR LITERAL
  973  9 38   LITRAL MLC   LITADD,ADDR                                              7  0597  M P50 P04          151
  974  9 39          B     MODALT                                                   4  0604  B O52              151
  975  9 40          MLC   RESULT-1,ADDR                                            7  0608  M P10 P04          151
  976  9 41          MLC   ADDR,LITADD                                              7  0615  M P04 P50          151
&V633P501MP50P04BO52MP10P04MP04P50      L033621,597604,608615,040040104001512TAP5
  977  9 42          MLC   @D@,DADDR                                                7  0622  M P63 P62          152
  978  9 43          SW    SAVLIT                                                   4  0629  , P15              152
  979  9 44   OUTADD BW    DOBADD,ADONE                                             8  0633  V U12 P16 1        152
  980  9 45          MLC   ADDR,AOPND                                               7  0641  M P04 K65          152
  981  9 46          B     SETXX                                                    4  0648  B Z08              152
  982  9 47          MLC   PARAMT&59,HOLD                                           7  0652  M K52 P07          152
&MP63P62,P15VU12P161MP04K65BZ08MK52P07  L037658,629633,641648,652040104001522TAP5
  983  9 48          MLC   @030@,X1                                                 7  0659  M P66 089          153
  984  9 49          MLC   DADDR,AADDR                                              7  0666  M P62 J79          153
  985  9 50          MLC   BADDR,DADDR                                              7  0673  M J80 P62          153
  986  9 51          BW    ALIT,SAVLIT                                              8  0680  V 748 P15 1        153
  987  9 52   TSTADD BCE   DONE,BADDR,                                              8  0688  B U38 J80          153
&MP66089MP62J79MJ80P62V748P151BU38J80   L037695,666673,680688,040040104001532TAP5
  988  9 53          BCE   DONE,BADDR,D                                             8  0696  B U38 J80 D        154
  989  9 54          BCE   SYMBOL,BADDR,S                                           8  0704  B |88 J80 S        154
  990  9 55          BCE   ACTUAL,BADDR,A                                           8  0712  B S49 J80 A        154
  991  9 56          BCE   MACHIN,BADDR,M                                           8  0720  B S67 J80 M        154
&BU38J80DB|88J80SBS49J80ABS67J80M       L032727,704712,720040,040040104001542TAP5
  992  9 57          BCE   CNVRTD,BADDR,Q                                           8  0728  B U58 J80 Q        155
  993  9 58          BCE   DONE,ICOUNT,                                             8  0736  B U38 J85          155
  994  9 59          B     LITRAL-8                                                 4  0744  B 589              155
  995  9 60   ALIT   CW    SAVLIT                                                   4  0748  ) P15              155
  996  9 61          B     TSTADD                                                   4  0752  B 688              155
  997  9 62   *                        PROCESS LITERAL RECORD
  998  9 63   HAVLIT CW    LITX                                                     4  0756  ) P20              155
&BU58J80QBU38J85 B589)P15B688)P20       L032759,736744,748752,756040104001552TAP5
  999  9 64          BW    *&5,RECORD&3                                             8  0760  V 772 J01 1        156
 1000  9 65          B     LTREST                                                   4  0768  B 486              156
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   22
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1001  9 66          MLC   TEMP1,X1                                                 7  0772  M P31 089          156
 1002  9 67          B     LITRCD&15                                                4  0779  B 798              156
 1003  9 68   LITRCD BW    PROCSW,LITORG                                            8  0783  V 877 P12 1        156
 1004  9 69          MLC   LITLOC,X1                                                7  0791  M P53 089          156
&V772J011B486MP31089B798V877P121MP53089 L038797,768772,779783,791040104001562TAP5
 1005  9 70          SW    LITORG                                                   4  0798  , P12              157
 1006  9 71          C     X1,X3                                                    7  0802  C 089 099          157
 1007  9 72          BE    NOPROC                                                   5  0809  B 834 S            157
 1008  9 73          BW    NOPROC,LABTBL&X1                                         8  0814  V 834 Q/3 1        157
 1009  9 74          BW    NOPROC,LABTBL-8&X1                                       8  0822  V 834 Q|5 1        157
 1010  9 75          B     *&12                                                     4  0830  B 845              157
&,P12C089099B834SV834Q/31V834Q|51B845   L036833,802809,814822,830040104001572TAP5
 1011  9 76   NOPROC MLC   @B@,PROCSW                                               7  0834  M P67 877          158
 1012  9 77          B     PROCSW                                                   4  0841  B 877              158
 1013  9 78          MLC   @N@,PROCSW                                               7  0845  M P68 877          158
 1014  9 79          MLC   LABTBL-6&X1,ADDR                                         7  0852  M Q|7 P04          158
 1015  9 80          ZS    @1@,HOLD                                                 7  0859  ! P69 P07          158
 1016  9 81          B     MODALT                                                   4  0866  B O52              158
&MP67877B877MP68877MQ|7P04!P69P07BO52   L036869,841845,852859,866040104001582TAP5
 1017  9 82          MLC   RESULT-1,BASE#3                                          7  0870  M P10 P72          159
 1018  9 83   PROCSW NOP   TSTADC                                                   4  0877  N 949              159
 1019  9 84          BW    TSTADC,RECORD&4                                          8  0881  V 949 J02 1        159
 1020  9 85          BCE   ALPHA,RECORD&20,@                                        8  0889  B |72 J18 @        159
 1021  9 86          BCE   NUMLIT&8,PARAMT&60,A                                     8  0897  B 913 K53 A        159
&MP10P72N949V949J021B|72J18@B913K53A    L035904,877881,889897,040040104001592TAP5
 1022  9 87   NUMLIT BCE   SHORTL,PARAMT&6,                                         8  0905  B |09 J99          160
 1023  9 88          MLC   BASE,ADDR                                        )))     7  0913  M P72 P04          160
 1024  9 89          MLC   LITCNT,HOLD                                              7  0920  M J88 P07          160
 1025  9 90          B     MODALT                                                   4  0927  B O52              160
 1026  9 91          LCA   RESULT-1,LOCATN                                          7  0931  L P10 J92          160
&B|09J99 MP72P04MJ88P07BO52LP10J92      L033937,913920,927931,040040104001602TAP5
 1027  9 92          MLC   LOCATN,BASE                                              7  0938  M J92 P72          161
 1028  9 93          SW    RECORD&4           MARK LITERAL RECORD AS PROCESSED      4  0945  , J02              161
 1029  9 94   TSTADC BCE   TLUADC,PARAMT&61,D                                       8  0949  B 961 K54 D        161
 1030  9 95          B     PUT                                                      4  0957  B Y11              161
 1031  9 96   TLUADC BCE   PUT,AADDR,D                                              8  0961  B Y11 J79 D        161
 1032  9 97          MLC   AADDR,DADDR                                              7  0969  M J79 P62          161
&MJ92P72,J02B961K54DBY11BY11J79DMJ79P62 L038975,945949,957961,969040104001612TAP5
 1033  9 98          MLC   @000@,X1                                                 7  0976  M P37 089          162
 1034  9 99          SW    PARAMT&1                                                 4  0983  , J94              162
 1035 10 00          LCA   PARAMT&6,LABTBL-3&X3                                     7  0987  L J99 QA0          162
 1036 10 01          B     SYMBOL&15                                                4  0994  B /03              162
 1037 10 02   LADBCK MLC   AOPND,PARAMT&32                                          7  0998  M K65 K25          162
 1038 10 03          B     PUT                                                      4  1005  B Y11              162
 1039 10 04   SHORTL SW    PARAMT                                                   4  1009  , J93              162
&MP37089,J94LJ99QA0B/03MK65K25BY11,J93  L037|12,983987,994998,|05|09104001622TAP5
 1040 10 05          LCA   PARAMT&5,LABTBL-3&X3                                     7  1013  L J98 QA0          163
 1041 10 06          B     TLULAB                                                   4  1020  B L59              163
 1042 10 07          B     *&5                                                      4  1024  B |32              163
 1043 10 08          B     PUT                                                      4  1028  B Y11              163
 1044 10 09          SW    LABTBL-8&X3                                              4  1032  , Q?5              163
 1045 10 10          C     X2,LASTLT                                                7  1036  C 094 009          163
 1046 10 11          B     ADJXX                                                    4  1043  B Z24              163
&LJ98QA0BL59B|32BY11,Q?5C094009BZ24     L034|46,|20|24,|28|32,|36|43104001632TAP5
 1047 10 111         NOP                                                            1  1047  N                  164
 1048 10 12          CW    LABTBL-8&X3                                              4  1048  ) Q?5              164
 1049 10 13          BW    ALPHA-8,LABTBL-2&X2                                      8  1052  V |64 QJ1 1        164
 1050 10 14          B     GET                                                      4  1060  B 416              164
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   23
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1051 10 15          CW    LABTBL-2&X2                                              4  1064  ) QJ1              164
 1052 10 16          B     NUMLIT&8                                                 4  1068  B 913              164
 1053 10 17   ALPHA  C     LITCNT,@005@                                             7  1072  C J88 P75          164
&N)Q?5V|64QJ11B416)QJ1B913CJ88P75       L032|78,|48|52,|60|64,|68|72104001642TAP5
 1054 10 18          BH    SHORTL                                                   5  1079  B |09 U            165
 1055 10 19          B     NUMLIT&8                                                 4  1084  B 913              165
 1056 10 20   *                        PROCESS SYMBOLIC LABEL - TLU IN LABEL TABL
 1057 10 21   SYMBOL BCE   ASTRSK,PARAMT&X1,*                                       8  1088  B /91 JZ3 *        165
 1058 10 22          LCA   PARAMT&5&X1,LABTBL-3&X3                                  7  1096  L JZ8 QA0          165
 1059 10 23          B     TLULAB                                                   4  1103  B L59              165
 1060 10 24          B     HITSYM                                                   4  1107  B /23              165
&B|09UB913B/91JZ3*LJZ8QA0BL59B/23       L032/10,|84|88,|96/03,/07040104001652TAP5
 1061 10 25          BW    OUTADD,  FULL                                            8  1111  V 633 194 1        166
 1062 10 26          B     TSTFUL                                                   4  1119  B /61              166
 1063 10 27   HITSYM BW    TSTFUL,LABTBL-8&X2                                       8  1123  V /61 Q!5 1        166
 1064 10 28          CW    LABTBL-2&X2                                              4  1131  ) QJ1              166
 1065 10 29          MLC   LABTBL&X2,ADDR                                           7  1135  M QJ3 P04          166
 1066 10 30          BCE   TSTFUL,LABTBL-2&X2,#                                     8  1142  B /61 QJ1 #        166
&V6331941B/61V/61Q!51)QJ1MQJ3P04B/61QJ1#L039/49,/19/23,/31/35,/42040104001662TAP5
 1067 10 31          MLC   @D@,DADDR                                                7  1150  M P63 P62          167
 1068 10 32          B     CMPADD                                                   4  1157  B S85              167
 1069 10 33   TSTFUL BW    OUTADD,FULL                                              8  1161  V 633 194 1        167
 1070 10 34          MLC   @###@,ADDR                                               7  1169  M P78 P04          167
 1071 10 35          SW    ERRPOS-2                                                 4  1176  , J82              167
 1072 10 36          MLC   @D@,DADDR                                                7  1180  M P63 P62          167
&MP63P62BS85V6331941MP78P04,J82MP63P62  L037/86,/57/61,/69/76,/80040104001672TAP5
 1073 10 37          B     OUTADD                                                   4  1187  B 633              168
 1074 10 38   ASTRSK BCE   OUTADD,LOCATN,                                           8  1191  B 633 J92          168
 1075 10 39          MLC   LOCATN,ADDR                                              7  1199  M J92 P04          168
 1076 10 40          ZA    ICOUNT,HOLD                                              7  1206  ? J85 P07          168
 1077 10 41          S     @1@,HOLD                                                 7  1213  S P69 P07          168
&B633B633J92 MJ92P04?J85P07SP69P07      L033S19,/91/99,S06S13,040040104001682TAP5
 1078 10 42          MZ    @ @,HOLD                                                 7  1220  Y P79 P07          169
 1079 10 43          B     MODALT                                                   4  1227  B O52              169
 1080 10 44          MLC   RESULT-1,ADDR                                            7  1231  M P10 P04          169
 1081 10 45          MLC   @D@,DADDR                                                7  1238  M P63 P62          169
 1082 10 46          B     CMPADD                                                   4  1245  B S85              169
 1083 10 47   *                        PROCESS ACTUAL ADDRESS OPERAND
 1084 10 48   ACTUAL MLC   PARAMT&8&X1,ADDR                                         7  1249  M K|1 P04          169
&YP79P07BO52MP10P04MP63P62BS85MK|1P04   L036S55,S27S31,S38S45,S49040104001692TAP5
 1085 10 49          MLC   @D@,DADDR                                                7  1256  M P63 P62          170
 1086 10 50          B     CMPADD                                                   4  1263  B S85              170
 1087 10 51   *                        PROCESS MACHINE ADDRESS OPERAND
 1088 10 52   MACHIN MLC   PARAMT&2,ADDR                                            7  1267  M J95 P04          170
 1089 10 53          MLC   @D@,DADDR                                                7  1274  M P63 P62          170
 1090 10 54          B     OUTADD                                                   4  1281  B 633              170
 1091 10 55   *                        APPLY CHARACTER ADJUSTMENT & INDEXING
 1092 10 56   CMPADD BCE   OUTADD,PARAMT&10&X1,                                     8  1285  B 633 K|3          170
&MP63P62BS85MJ95P04MP63P62B633B633K|3   L037S92,S63S67,S74S81,S85040104001702TAP5
 1093 10 57          BCE   INDADD,PARAMT&11&X1,X                                    8  1293  B T87 K|4 X        171
 1094 10 58   ADJADD MLC   @000@,X2                                                 7  1301  M P37 094          171
 1095 10 59          SW    PARAMT&11&X1                                             4  1308  , K|4              171
 1096 10 60          MLC   PARAMT&19&X1,X2                                          7  1312  M K/2 094          171
 1097 10 61          A     X1,X2                                                    7  1319  A 089 094          171
&BT87K|4XMP37094,K|4MK/2094A089094      L033T25,T01T08,T12T19,040040104001712TAP5
 1098 10 62          MLC   @000@,HOLD                                               7  1326  M P37 P07          172
 1099 10 63          MLC   PARAMT&10&X2,HOLD                                        7  1333  M K!3 P07          172
 1100 10 64          MZ    PARAMT&10&X1,HOLD                                        7  1340  Y K|3 P07          172
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   24
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1101 10 65          MZ    ADDR-1,HOLDZN                                            7  1347  Y P03 P14          172
 1102 10 66          B     MODALT                                                   4  1354  B O52              172
 1103 10 67          MLC   RESULT-1,ADDR                                            7  1358  M P10 P04          172
&MP37P07MK!3P07YK|3P07YP03P14BO52MP10P04L039T64,T33T40,T47T54,T58040104001722TAP5
 1104 10 68          MZ    HOLDZN,ADDR-1                                            7  1365  Y P14 P03          173
 1105 10 69          A     @10@,X1                                                  7  1372  A P81 089          173
 1106 10 70          BCE   OUTADD,PARAMT&10&X1,                                     8  1379  B 633 K|3          173
 1107 10 71   INDADD MLC   @000@,X2                                                 7  1387  M P37 094          173
 1108 10 72          MN    PARAMT&12&X1,X2                                          7  1394  D K|5 094          173
&YP14P03AP81089B633K|3 MP37094DK|5094   L036U00,T72T79,T87T94,040040104001732TAP5
 1109 10 73          MZ    ZONE&X2,ADDR-1                                           7  1401  Y KP1 P03          174
 1110 10 74          B     OUTADD                                                   4  1408  B 633              174
 1111 10 75   DOBADD MLC   ADDR,BOPND                                               7  1412  M P04 K68          174
 1112 10 76          CW    ADONE                                                    4  1419  ) P16              174
 1113 10 77          MLC   DADDR,BADDR                                              7  1423  M P62 J80          174
 1114 10 78          BW    BLIT,SAVLIT                                              8  1430  V U50 P15 1        174
&YKP1P03B633MP04K68)P16MP62J80VU50P151  L037U37,U08U12,U19U23,U30040104001742TAP5
 1115 10 79   DONE   BCE   LADBCK,PARAMT&61,D                                       8  1438  B 998 K54 D        175
 1116 10 80          B     PUT                                                      4  1446  B Y11              175
 1117 10 81   BLIT   CW    SAVLIT                                                   4  1450  ) P15              175
 1118 10 82          B     DONE                                                     4  1454  B U38              175
 1119 10 83   *                        TLU DUPLICATED SHORT LITERALS
 1120 10 84   CNVRTD LCA   PARAMT&5&X1,LABTBL-3&X3                                  7  1458  L JZ8 QA0          175
 1121 10 85          B     TLULAB                                                   4  1465  B L59              175
 1122 10 86          B     *&5                                                      4  1469  B U77              175
&B998K54DBY11)P15BU38LJZ8QA0BL59BU77    L035U72,U46U50,U54U58,U65U69104001752TAP5
 1123 10 87          H     *-3                                                      4  1473  . U73              176
 1124 10 88          SW    LABTBL-8&X3                                              4  1477  , Q?5              176
 1125 10 89          C     X2,LASTLT                                                7  1481  C 094 009          176
 1126 10 90          B     ADJXX                                                    4  1488  B Z24              176
 1127 10 901         NOP                                                            1  1492  N                  176
 1128 10 91          CW    LABTBL-8&X3                                              4  1493  ) Q?5              176
 1129 10 92          BW    TSTFUL,LABTBL-8&X2                                       8  1497  V /61 Q!5 1        176
&.U73,Q?5C094009BZ24N)Q?5V/61Q!51       L032V04,U77U81,U88U92,U93U97104001762TAP5
 1130 10 93          B     HITSYM&12                                                4  1505  B /35              177
 1131 10 94   *                        TEST CONTROL ENTRIES
 1132 10 97   CONTRL C     OPER,@EQU @                                              7  1509  C J16 P85          177
 1133 10 98          BE    GETEQU                                                   5  1516  B V56 S            177
 1134 10 99          C     OPER,@END @                                              7  1521  C J16 P89          177
 1135 11 00          BE    LTDONE                                                   5  1528  B V64 S            177
 1136 11 01          MLC   @000@,X1                                                 7  1533  M P37 089          177
&B/35CJ16P85BV56SCJ16P89BV64SMP37089    L035V39,V09V16,V21V28,V33040104001772TAP5
 1137 11 02          C     OPER,@XFR @                                              7  1540  C J16 P93          178
 1138 11 03          BE    TEST&22                                                  5  1547  B 527 S            178
 1139 11 04          B     PUT                                                      4  1552  B Y11              178
 1140 11 44   *                        PROCESS EQUATE ENTRIES
 1141 11 45   GETEQU B     PUT                                                      4  1556  B Y11              178
 1142 11 46   *                        PROCESS LTORG ENTRIES
 1143 11 47   LIT    SW    LITX                                                     4  1560  , P20              178
 1144 11 48   LTDONE BW    LITBCK-12,RECORD&4                                       8  1564  V X13 J02 1        178
 1145 11 49          MLC   &LITBCK,OUT&3                                            7  1572  M P96 Y32          178
&CJ16P93B527SBY11BY11,P20VX13J021MP96Y32L039V78,V47V52,V56V60,V64V72104001782TAP5
 1146 11 50          C     LITLOC,X3                                                7  1579  C P53 099          179
 1147 11 51          BE    LIT1                                                     5  1586  B W94 S            179
 1148 11 52          BW    *&9,LOCATN                                               8  1591  V W07 J92 1        179
 1149 11 53          SW    RECORD&4                                                 4  1599  , J02              179
 1150 11 54          B     LITBCK-12                                                4  1603  B X13              179
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   25
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1151 11 55          MLC   LITLOC,X1                                                7  1607  M P53 089          179
&CP53099BW94SVW07J921,J02BX13MP53089    L035W13,V86V91,V99W03,W07040104001792TAP5
 1152 11 56          BW    LIT1,LABTBL-8&X1                                         8  1614  V W94 Q|5 1        180
 1153 11 57          BW    LIT1,LABTBL&X1                                           8  1622  V W94 Q/3 1        180
 1154 11 58          CW    LOCATN                                                   4  1630  ) J92              180
 1155 11 59          MLC   LABTBL-6&X1,LOCATN                                       7  1634  M Q|7 J92          180
 1156 11 60          BCE   CALLTT,PARAMT,*                                          8  1641  B W61 J93 *        180
&VW94Q|51VW94Q/31)J92MQ|7J92BW61J93*    L035W48,W22W30,W34W41,040040104001802TAP5
 1157 11 61          BCE   CALLTT,OPER-3,E                                          8  1649  B W61 J13 E        181
 1158 11 62          B     LIT1-8                                                   4  1657  B W86              181
 1159 11 63   CALLTT MLC   LOCATN,ADDR                                              7  1661  M J92 P04          181
 1160 11 64          MLC   LABTBL&X1,HOLD                                           7  1668  M Q/3 P07          181
 1161 11 65          B     MODALT                                                   4  1675  B O52              181
 1162 11 66          MLC   RESULT-1,ORGBAS                                          7  1679  M P10 P28          181
&BW61J13EBW86MJ92P04MQ/3P07BO52MP10P28  L037W85,W57W61,W68W75,W79040104001812TAP5
 1163 11 67          SW    RECORD&4           MARK LTORG AS PROCESSED               4  1686  , J02              182
 1164 11 68          B     LITBCK-12                                                4  1690  B X13              182
 1165 11 69   LIT1   BW    LITBCK-12,FULL                                           8  1694  V X13 194 1        182
 1166 11 70          SW    ERRPOS                                                   4  1702  , J84              182
 1167 11 71          LCA   @000@,LOCATN                                             7  1706  L P37 J92          182
 1168 11 72          BCE   TEST&22,OPER-3,E                                         8  1713  B 527 J13 E        182
 1169 11 73          B     PUT                                                      4  1721  B Y11              182
&,J02BX13VX131941,J84LP37J92B527J13EBY11L039X24,W90W94,X02X06,X13X21104001822TAP5
 1170 11 74   LITBCK MLC   &GET,OUT&3                                               7  1725  M P99 Y32          183
 1171 11 75          MLC   X3,BASIC                                                 7  1732  M 099 P43          183
 1172 11 76          MLC   LITLOC,LITBEG-2                                          7  1739  M P53 P23          183
 1173 11 77          BW    *&8,LITX                                                 8  1746  V X61 P20 1        183
 1174 11 78          MLC   LITLOC,LASTLT                                            7  1754  M P53 009          183
&MP99Y32M099P43MP53P23VX61P201MP53009   L036X60,X32X39,X46X54,040040104001832TAP5
 1175 11 79          MLC   LITLOC,X3                                                7  1761  M P53 099          184
 1176 11 80          MLC   LITLOC,TEMP1                                             7  1768  M P53 P31          184
 1177 11 81          B     TLULIT                                                   4  1775  B 338              184
 1178 11 82   *                        DECLARATIVE ENTRIES - BYPASS IF CONSTANT
 1179 11 83   *                             IF ADDRESS CONSTANT, LOOK IT UP
 1180 11 84   DECL   BCE   TLUADC,AADDR,C                                           8  1779  B 961 J79 C        184
 1181 11 85          BCE   TEST&22,AADDR,S                                          8  1787  B 527 J79 S        184
&MP53099MP53P31B338B961J79CB527J79S     L034X94,X68X75,X79X87,040040104001842TAP5
 1182 11 86          BCE   TEST&22,AADDR,A                                          8  1795  B 527 J79 A        185
 1183 11 87          B     PUT                                                      4  1803  B Y11              185
 1184 11 88   *                        MARK LITERAL RECORD AS PROCESSED
 1185 11 89   PUTX   SW    RECORD&4                                                 4  1807  , J02              185
 1186 11 90   *                        PUT A RECORD
 1187 11 91   PUT    WTW   2,RECORD                                                 8  1811  L %U2 !98 W        185
 1188 11 92          BER   TPERR                                                    5  1819  B 201 L            185
 1189 11 93          BEF   *&1                                                      5  1824  B Y29 K            185
 1190 11 94   OUT    B     GET                                                      4  1829  B 416              185
&B527J79ABY11,J02L%U2!98WB201LBY29KB416 L038Y32,Y03Y07,Y11Y19,Y24Y29104001852TAP5
 1191 11 95   ENDPH3 RWD   1                                                        5  1833  U %U1 R            186
 1192 11 96          WTM   2                                                        5  1838  U %U2 M            186
 1193 11 97          RWD   2                                                        5  1843  U %U2 R            186
 1194 11 98          BW    *&19,REITER                                              8  1848  V Y74 193 1        186
 1195 11 99          MLC   @8@,SEEK                                                 7  1856  M Q00 125          186
 1196 12 00          NOP   666,666                                                  7  1863  N 666 666          186
&U%U1RU%U2MU%U2RVY741931MQ00125N666666  L037Y69,Y38Y43,Y48Y56,Y63040104001862TAP5
 1197 12 01          B     *&15                                                     4  1870  B Y88              187
 1198 12 02          MLC   @8@,SEEK                                                 7  1874  M Q00 125          187
 1199 12 03          NOP   555,555                                                  7  1881  N 555 555          187
 1200 12 04          CW    PARTBL&84                                                4  1888  ) K63              187
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   26
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1201 12 05          CW    BOPND&1                                                  4  1892  ) K69              187
 1202 12 06          CW    HIGH3&1,GPMK                                             7  1896  ) Q02 K70          187
 1203 12 07          B     LOAD                                                     4  1903  B 100              187
&BY88MQ00125N555555)K63)K69)Q02K70B100  L037Z06,Y74Y81,Y88Y92,Y96Z03104001872TAP5
 1204 12 08   HIGHPT H                                                              1  1907  .                  188
 1205 12 081  SETXX  MLC   @000@,HOLD                                               7  1908  M P37 P07          188
 1206 12 082         SW    ADONE                                                    4  1915  , P16              188
 1207 12 083         B     OUTADD&19                                                4  1919  B 652              188
 1208 12 09          ORG   HIGH2&1                                                            2757
&.MP37P07,P16B652                       L016Z22,Z08Z15,Z19040,040040104001882TAP5
 1209 12 10          DCW   #1                                                       1  2757                     189
 1210 12 11          LTORG HOLDZN&1                                                           2715
&                                       L001P57,040040,040040,040040104001892TAP5
         913  SAVLIT DCW   #01                                                      1  2715              AREA   190
         913  ADONE        #01                                                      1  2716              AREA   190
         916  FSTIME       #01                                                      1  2717              AREA   190
         916  DOUBLE       #01                                                      1  2718              AREA   190
         917  LITONE       #01                                                      1  2719              AREA   190
         917  LITX         #01                                                      1  2720              AREA   190
         919  LITBEG       #05                                                      5  2725              AREA   190
&                                       L011P25,P16P17,P18P19,P20P21104001902TAP5
         919  ORGBAS       #03                                                      3  2728              AREA   191
         920  TEMP1        #03                                                      3  2731              AREA   191
                           @   @                                                    3  2734              LIT    191
                           @000@                                                    3  2737              LIT    191
         922  LSTORG       #03                                                      3  2740              AREA   191
         924  BASIC        #03                                                      3  2743              AREA   191
                           @9@                                                      1  2744              LIT    191
&         000      9                    L019P44,P29P32,P35P38,P41P44104001912TAP5
                           @00J@                                                    3  2747              LIT    192
         941  LITADD       #03                                                      3  2750              AREA   192
         942  LITLOC       #03                                                      3  2753              AREA   192
                           @LTOR@                                                   4  2757              LIT    192
                           @EX  @                                                   4  2761              LIT    192
         964  DADDR        #01                                                      1  2762              AREA   192
                           @D@                                                      1  2763              LIT    192
&00J      LTOREX   D                    L019P63,P48P51,P54P58,P62P63104001922TAP5
                           @030@                                                    3  2766              LIT    193
                           @B@                                                      1  2767              LIT    193
                           @N@                                                      1  2768              LIT    193
                           @1@                                                      1  2769              LIT    193
        1017  BASE         #03                                                      3  2772              AREA   193
                           @005@                                                    3  2775              LIT    193
                           @###@                                                    3  2778              LIT    193
&030BN1   005###                        L015P78,P67P68,P69P70,P73P76104001932TAP5
                           @ @                                                      1  2779              LIT    194
                           @10@                                                     2  2781              LIT    194
                           @EQU @                                                   4  2785              LIT    194
                           @END @                                                   4  2789              LIT    194
                           @XFR @                                                   4  2793              LIT    194
        1145               &LITBCK                                                  3  2796  X25         ADCON  194
        1170               &GET                                                     3  2799  416         ADCON  194
& 10EQU END XFR X25416                  L021P99,P80P82,P86P90,P94P97104001942TAP5
                           @8@                                                      1  2800              LIT    195
 1211 12 12   HIGH3  H                                                              1  2801  .                  195
 1212 12 13          DCW   @}@                                                      1  2802                     195
 1213                ORG   LITBEG-2                                                           2723
&8.}                                    L003Q02,Q01Q02,040040,040040104001952TAP5
 1214                DCW   @000@                                                    3  2725                     196
1                          1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR       2TAP5               PAGE   27
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1215                ORG   1924                                                               1924
&000                                    L003P25,040040,040040,040040104001962TAP5
 1216         ADJXX  SBR   ADJYY-1                                                  4  1924  H Z52              197
 1217                BWZ   ADJYY,092,2                                              8  1928  V Z53 092 2        197
 1218                BWZ   ADJYY-4,007,2                                            8  1936  V Z49 007 2        197
 1219                BH    TLUFST&8                                                 5  1944  B L93 U            197
 1220                B     000                                                      4  1949  B 000              197
 1221         ADJYY  BWZ   ADJYY-9,007,2                                            8  1953  V Z44 007 2        197
&HZ52VZ530922VZ490072BL93UB000VZ440072  L037Z60,Z28Z36,Z44Z49,Z53040104001972TAP5
 1222                B     TLUFST&8                                                 4  1961  B L93              198
&BL93                                   L004Z64,040040,040040,040040104001982TAP5
&                                       N000000,040040,040040,040040B16701992TAP5
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02002TAP6
&,068072)063067/061039                                       ,001001104002012TAP6
 1223 12 14          EX    SYSTEM                                                            B 167              199
1                          1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE   RBR       2TAP6               PAGE   28
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1224 12 15          JOB   1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE   RBR
 1225 12 16   *
 1226 12 17   ******    PHASE 6 - CONDENSING OF RELATIVE ENTRIES IN SYMBOL TABLE
 1227 12 18   *                            FOR REITERATION
 1228 12 19   *
 1229 12 20   *                        ***  PHASE 6 IDENTIFICATION AT 333  ***
 1230 12 21   *
 1231 12 22          ORG   333                                                                0333
 1232 12 23          DCW   @6@                                                      1  0333                     202
 1233 12 24   *
 1234 12 25   RERUN  MLC   @000@,X1                                                 7  0334  M 568 089          202
 1235 12 26          MLC   @000@,X2                                                 7  0341  M 568 094          202
 1236 12 27   AVAIL  BW    SAVE1,LABTBL-5&X1                                        8  0348  V 437 Q|8 1        202
 1237 12 28          BW    SAVE1,LABTBL-2&X1                                        8  0356  V 437 Q/1 1        202
 1238 12 29          BW    SAVE1,LABTBL&X1                                          8  0364  V 437 Q/3 1        202
&6M568089M568094V437Q|81V437Q/11V437Q/31L039371,334341,348356,364040104002022TAP6
 1239 12 30          BW    SAVE,LABTBL-8&X1                                         8  0372  V 411 Q|5 1        203
 1240 12 31          BCE   SAVE4,LABTBL-2&X1,#                                      8  0380  B 484 Q/1 #        203
 1241 12 32   AVAIL1 C     X1,X3                                                    7  0388  C 089 099          203
 1242 12 33          BE    PACKED                                                   5  0395  B 537 S            203
 1243 12 34          A     @9@,X1                                                   7  0400  A 569 089          203
 1244 12 35          B     AVAIL                                                    4  0407  B 348              203
&V411Q|51B484Q/1#C089099B537SA569089B348L039410,380388,395400,407040104002032TAP6
 1245 12 36   SAVE   B     CMP1T2                                                   4  0411  B 510              204
 1246 12 37          LCA   LABTBL&X1,LABTBL&X2                                      7  0415  L Q/3 QJ3          204
 1247 12 38          CW    LABTBL-8&X1                                              4  0422  ) Q|5              204
 1248 12 39          A     @9@,X2                                                   7  0426  A 569 094          204
 1249 12 40          B     AVAIL1                                                   4  0433  B 388              204
 1250 12 41   SAVE1  B     CMP1T2                                                   4  0437  B 510              204
 1251 12 42          BW    SAVE2,LABTBL-8&X1                                        8  0441  V 472 Q|5 1        204
&B510LQ/3QJ3)Q|5A569094B388B510V472Q|51 L038448,415422,426433,437441104002042TAP6
 1252 12 43          SW    LABTBL-8&X1                                              4  0449  , Q|5              205
 1253 12 44          LCA   LABTBL&X1,LABTBL&X2                                      7  0453  L Q/3 QJ3          205
 1254 12 45          MLC                                                            1  0460  M                  205
 1255 12 46   SAVE3  LCA   @         @,LABTBL&X1                                    7  0461  L 578 Q/3          205
 1256 12 47          B     SAVE&11                                                  4  0468  B 422              205
 1257 12 48   SAVE2  LCA   LABTBL&X1,LABTBL&X2                                      7  0472  L Q/3 QJ3          205
 1258 12 49          LCA                                                            1  0479  L                  205
&,Q|5LQ/3QJ3ML578Q/3B422LQ/3QJ3L        L031479,453460,461468,472479104002052TAP6
 1259 12 50          B     SAVE3                                                    4  0480  B 461              206
 1260 12 51   SAVE4  B     CMP1T2                                                   4  0484  B 510              206
 1261 12 52          A     @9@,X2                                                   7  0488  A 569 094          206
 1262 12 53          SW    LABTBL-8&X1                                              4  0495  , Q|5              206
 1263 12 54          MLC   LABTBL&9&X1,LABTBL&X2                                    7  0499  M QS2 QJ3          206
 1264 12 55          B     SAVE&11                                                  4  0506  B 422              206
 1265 12 56   *
 1266 12 57   CMP1T2 SBR   CMPEXT&3                                                 4  0510  H 524              206
&B461B510A569094,Q|5MQS2QJ3B422H524     L034513,484488,495499,506510104002062TAP6
 1267 12 58          C     X1,X2                                                    7  0514  C 089 094          207
 1268 12 59   CMPEXT BU    0                                                        5  0521  B 000 /            207
 1269 12 60          A     @9@,X2                                                   7  0526  A 569 094          207
 1270 12 61          B     AVAIL1                                                   4  0533  B 388              207
 1271 12 62   *
 1272 12 63   PACKED MLC   X2,X3                                                    7  0537  M 094 099          207
 1273 12 64          CW    HIGH5                                                    4  0544  ) 580              207
1                          1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE   RBR       2TAP6               PAGE   29
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&C089094B000/A569094B388M094099)580     L034547,521526,533537,544040104002072TAP6
 1274 12 65          MLC   @7@,SEEK                                                 7  0548  M 579 125          208
 1275 12 66          NOP   777,777                                                  7  0555  N 777 777          208
 1276 12 67          B     LOAD                                                     4  0562  B 100              208
 1277 12 68          LTORG *                                                                  0566
                     DCW   @000@                                                    3  0568              LIT    208
                           @9@                                                      1  0569              LIT    208
        1255               @         @                                              9  0578              LIT    208
                           @7@                                                      1  0579              LIT    208
&M579125N777777B1000009         7       L032579,555562,566569,570579104002082TAP6
 1278 12 69   HIGH5  DCW   @}@                                                      1  0580                     209
 1279 12 70          H                                                              1  0581  .                  209
 1280 12 71          ORG   HIGH1                                                              2757
&}.                                     L002581,581040,040040,040040104002092TAP6
 1281 12 72          DCW   @|@                                                      1  2757                     210
 1282 12 73          ORG   HIGH3&1                                                            2802
&|                                      L001P57,040040,040040,040040104002102TAP6
 1283 12 74          DCW   #1                                                       1  2802                     211
&                                       L001Q02,040040,040040,040040104002112TAP6
&                                       N000000,040040,040040,040040B16702122TAP6
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02132TAP6
&,068072)063067/061039                                       ,001001104002142TAP6
 1284 12 75          EX    SYSTEM                                                            B 167              212
&                                       /167080                         02152TAP6
 1285 12 76          END   SYSTEM                                                            / 167 080          215
1CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
&,008015,019026,030,034041,045,053,0570571026                           00012TAP8
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
&L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00022TAP8
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
&,008015,022029,036040,047054,061068,072/061039              ,001001104000032TAP8
0                          1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR       2TAP8               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  101         000    JOB   1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR
  102                CTL   630 1
  103         *
  104         *                        PHASE 8 - PRINT OUT LABEL TABLE
  105         *
  106         *
  107         LABTBL EQU   2813&X1                                                     2813
  108         REITER EQU   193                                                         0193
  109         *
  110         *                        ** SYSTEMS CONTROL **
  111                ORG   82                                                                 0082
  112         CHECK  DCW   @ @                                                      1  0082                       4
  113                DCW   @  }@                                                    3  0085                       4
  114                ORG   100                                                                0100
&   }                                   L004085,083040,040040,040040104000042TAP8
  115         LOAD   RWD   1                                                        5  0100  U %U1 R              5
  116                RTW   1,CHECK                                                  8  0105  L %U1 082 R          5
  117                BER   TPERR                                                    5  0113  B 363 L              5
  118                BCE   *&5,CHECK,D                                              8  0118  B 130 082 D          5
  119                B     LOAD&5                                                   4  0126  B 105                5
  120                BSP   1                                                        5  0130  U %U1 B              5
&U%U1RL%U1082RB363LB130082DB105U%U1B    L035134,105113,118126,130040104000052TAP8
  121                RTW   1,333                                                    8  0135  L %U1 333 R          6
  122                SW    CHECK&3                                                  4  0143  , 085                6
  123                RTW   1,CHECK                                                  8  0147  L %U1 082 R          6
  124                BCE   334,CHECK,0                                              8  0155  B 334 082 0          6
  125                B     *-19                                                     4  0163  B 147                6
  126         SEEK   EQU   LOAD&25                                                     0125
  127         *
&L%U1333R,085L%U1082RB3340820B147       L032166,143147,155163,040040104000062TAP8
  128         SYSTEM WTW   1,333                                                    8  0167  L %U1 333 W          7
  129                BER   *&5                                                      5  0175  B 184 L              7
  130                R     40                                                       4  0180  1 040                7
  131                BSP   1                                                        5  0184  U %U1 B              7
  132                SKP   1                                                        5  0189  U %U1 E              7
  133                B     SYSTEM                                                   4  0194  B 167                7
  134                H                                                              1  0198  .                    7
  135         X1     EQU   89                                                          0089
&L%U1333WB184L1040U%U1BU%U1EB167.       L032198,175180,184189,194198104000072TAP8
  136         0089   DCW   @000@                                                    3  0089                       8
  137         X2     EQU   94                                                          0094
&000                                    L003089,040040,040040,040040104000082TAP8
  138         0094   DCW   @000@                                                    3  0094                       9
  139         X3     EQU   99                                                          0099
&000                                    L003094,040040,040040,040040104000092TAP8
  140         0099   DCW   @000@                                                    3  0099                      10
  141         *
  142         *                        PHASE 8 IDENTIFICATION AT 0333
  143         *
  144                ORG   333                                                                0333
&000                                    L003099,040040,040040,040040104000102TAP8
  145                DCW   @8@                                                      1  0333                      11
  146         *
  147                B     LABELS                                                   4  0334  B 650               11
1                          1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR       2TAP8               PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  148         *
  149         ENDPH8 RTW   1,333                                                    8  0338  L %U1 333 R         11
  150                BER   TPERR                                                    5  0346  B 363 L             11
  151                BCE   PHASE9,333,9                                             8  0351  B 649 333 9         11
  152                H     *-3                                                      4  0359  . 359               11
  153         *
  154         *                        GENERALIZED RD/WR TAPE ERROR ROUTINE
  155         *
  156         TPERR  SBR   X1                                                       4  0363  H 089               11
&8B650L%U1333RB363LB6493339.359H089     L034366,334338,346351,359363104000112TAP8
  157                A     TX3987,X1                                                7  0367  A 496 089           12
  158                BW    TXCOMP,TXGET&1                                           8  0374  V 414 383 1         12
  159         TXGET  MLC   17&X1,TXEOF&4                                            7  0382  M 0/7 492           12
  160                MLC   TXDUMY&4,17&X1                                           7  0389  M 487 0/7           12
  161                MLC   3&X1,TXBSP&3                                             7  0396  M 0|3 425           12
&A496089V4143831M0/7492M4870/7M0|3425   L036402,374382,389396,040040104000122TAP8
  162                MLC   TXBSP&5,TXBSP                                            7  0403  M 427 422           13
  163                SW    TXGET&1                                                  4  0410  , 383               13
  164         TXCOMP B     TXPERM,TXCNTL,9                                          8  0414  B 443 493 9         13
  165         TXBSP  BSP   1                                                        5  0422  U %U1 B             13
  166                SKP   1                                                        5  0427  U %U1 E             13
  167                A     *-6,TXCNTL                                               7  0432  A 432 493           13
&M427422,383B4434939U%U1BU%U1EA432493   L036438,410414,422427,432040104000132TAP8
  168                B     0&X1                                                     4  0439  B 0|0               14
  169         TXPERM H     888,888                                                  7  0443  . 888 888           14
  170                MLC   TXPERM-1,TXCNTL                                          7  0450  M 442 493           14
  171                B     TXBSP                                                    4  0457  B 422               14
  172         TXDONE MLC   TXPERM-1,TXCNTL                                          7  0461  M 442 493           14
  173                MLC   TXEOF&4,17&X1                                            7  0468  M 492 0/7           14
&B0|0.888888M442493B422M442493M4920/7   L036474,443450,457461,468040104000142TAP8
  174                CW    TXGET&1                                                  4  0475  ) 383               15
  175                B     13&X1                                                    4  0479  B 0/3               15
  176         TXDUMY B     TXDONE                                                   4  0483  B 461               15
  177                DC    @ @                                                      1  0487                      15
  178         TXEOF  BEF   1                                                        5  0488  B 001 K             15
  179         TXCNTL DCW   @0@                                                      1  0493                      15
  180         TX3987 DCW   @I87@                                                    3  0496                      15
  181         *                        ROUTINE TO CONVERT MACHINE ADDRESS TO
  182         *                             REGULAR FIVE POSITION ADDRESS
  183         *                           * MACHINE ADDRESS TAKEN FROM ADDR
  184         *                           * RESULT PLACED IN WORK
  185         DECOD  SBR   DECEXT&3                                                 4  0497  H 632               15
&)383B0/3B461 B001K0I87H632             L026500,479483,488493,494497104000152TAP8
  186                ZA    ADDR#3,WORK#5                                            7  0501  ? 635 640           16
  187                MZ    @ @,WORK                                                 7  0508  Y 641 640           16
  188                BWZ   ADD12,ADDR,B                                             8  0515  V 567 635 B         16
  189                BM    ADD8,ADDR                                                8  0523  V 578 635 K         16
  190                BWZ   ADD4,ADDR,S                                              8  0531  V 589 635 S         16
&?635640Y641640V567635BV578635KV589635S L038538,508515,523531,040040104000162TAP8
  191         HIORDR BWZ   ADD3,ADDR-2,B                                            8  0539  V 600 633 B         17
  192                BM    ADD2,ADDR-2                                              8  0547  V 611 633 K         17
  193                BWZ   ADD1,ADDR-2,S                                            8  0555  V 622 633 S         17
  194                B     DECEXT                                                   4  0563  B 629               17
  195         ADD12  A     @12@,WORK-3                                              7  0567  A 643 637           17
  196                B     HIORDR                                                   4  0574  B 539               17
&V600633BV611633KV622633SB629A643637B539L039577,547555,563567,574040104000172TAP8
  197         ADD8   A     @8@,WORK-3                                               7  0578  A 644 637           18
1                          1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR       2TAP8               PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  198                B     HIORDR                                                   4  0585  B 539               18
  199         ADD4   A     @4@,WORK-3                                               7  0589  A 645 637           18
  200                B     HIORDR                                                   4  0596  B 539               18
  201         ADD3   A     @3@,WORK-3                                               7  0600  A 646 637           18
  202                B     DECEXT                                                   4  0607  B 629               18
&A644637B539A645637B539A646637B629      L033610,585589,596600,607040104000182TAP8
  203         ADD2   A     @2@,WORK-3                                               7  0611  A 647 637           19
  204                B     DECEXT                                                   4  0618  B 629               19
  205         ADD1   A     @1@,WORK-3                                               7  0622  A 648 637           19
  206         DECEXT B     0                                                        4  0629  B 000               19
  207                LTORG *                                                                  0633
         186  ADDR   DCW   #03                                                      3  0635              AREA    19
         186  WORK         #05                                                      5  0640              AREA    19
                           @ @                                                      1  0641              LIT     19
&A647637B629A648637B000                 L031641,618622,629633,636641104000192TAP8
                           @12@                                                     2  0643              LIT     20
                           @8@                                                      1  0644              LIT     20
                           @4@                                                      1  0645              LIT     20
                           @3@                                                      1  0646              LIT     20
                           @2@                                                      1  0647              LIT     20
                           @1@                                                      1  0648              LIT     20
  208         HIGH88 H                                                              1  0649  .                   20
  209         *
  210         *                        PRINT OUT SYMBOL TABLE
  211         *
&1284321.                               L008649,644645,646647,648649104000202TAP8
  212         LABELS MLC   @|@,333                                                  7  0650  M Z93 333           21
  213                CC    1                                                        2  0657  F 1                 21
  214                MCM   201,AREA                                                 7  0659  P 201 T33           21
  215                CHAIN 2                                                                             MACRO
  216                MCM                                                            1  0666  P           GEN     21
  217                MCM                                                            1  0667  P           GEN     21
  218                LCA   @         @,LABTBL&X3                                    7  0668  L !02 QA3           21
  219                CW    LABTBL-8&X3                                              4  0675  ) Q?5               21
&MZ93333F1P201T33PPL!02QA3)Q?5          L029678,657659,666667,668675104000212TAP8
  220                MCM   LINE&X0,201                                              7  0679  P S00 201           22
  221                MCM   TITLE-12,201                                             7  0686  P /01 201           22
  222                MLC   @ @,213                                                  7  0693  M !03 213           22
  223                CC    T                                                        2  0700  F T                 22
  224                W                                                              1  0702  2                   22
  225         *
  226         INITL  MLC   @000@,X1                                                 7  0703  M !06 089           22
  227                MLC   @000@,X2                                                 7  0710  M !06 094           22
&PS00201P/01201M!03213FT2M!06089M!06094 L038716,686693,700702,703710104000222TAP8
  228                CS    LINE&131&X0                                              4  0717  / T31               23
  229                CS                                                             1  0721  /                   23
  230                MLC   TABLE,FIRST&7                                            7  0722  M Z60 743           23
  231                MLC   TABLE,LABTBL-8&X3                                        7  0729  M Z60 Q?5           23
  232         FIRST  BCE   HIT,LABTBL-8,D                                           8  0736  B 755 Q|5 D         23
  233                A     @9@,X1                                                   7  0744  A !07 089           23
  234                B     FIRST                                                    4  0751  B 736               23
&/T31/MZ60743MZ60Q?5B755Q|5DA!07089B736 L038754,721722,729736,744751104000232TAP8
  235         HIT    C     X1,X3                                                    7  0755  C 089 099           24
  236                BE    ENDTAB                                                   5  0762  B |32 S             24
  237                BW    FIRST&8,LABTBL                                           8  0767  V 744 Q/3 1         24
  238                BW    FIRST&8,LABTBL-2                                         8  0775  V 744 Q/1 1         24
1                          1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR       2TAP8               PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  239                BW    FIRST&8,LABTBL-5                                         8  0783  V 744 Q|8 1         24
&C089099B|32SV744Q/31V744Q/11V744Q|81   L036790,762767,775783,040040104000242TAP8
  240                BW    FIRST&8,LABTBL-8                                         8  0791  V 744 Q|5 1         25
  241                BW    FIRST&8,LABTBL-7                                         8  0799  V 744 Q|6 1         25
  242                BCE   FIRST&8,LABTBL-8,|                                       8  0807  B 744 Q|5 |         25
  243                BCE   FIRST&8,LABTBL-5,|                                       8  0815  B 744 Q|8 |         25
&V744Q|51V744Q|61B744Q|5|B744Q|8|       L032822,799807,815040,040040104000252TAP8
  244                BCE   FIRST&8,LABTBL-7,|                                       8  0823  B 744 Q|6 |         26
  245                BCE   STEP,LABTBL-2,#                                          8  0831  B 933 Q/1 #         26
  246                SW    LINE                                                     4  0839  , S!0               26
  247                MLC   LABTBL-3,LINE&5                                          7  0843  M Q/0 S!5           26
  248                MLC   LABTBL,ADDR                                              7  0850  M Q/3 635           26
&B744Q|6|B933Q/1#,S!0MQ/0S!5MQ/3635     L034856,831839,843850,040040104000262TAP8
  249                BCE   PERCNT,ADDR-2,%                                          8  0857  B 944 633 %         27
  250                MZ    @ @,ADDR-1                                               7  0865  Y !03 634           27
  251                B     DECOD                                                    4  0872  B 497               27
  252                LCA   EDIT1,LINE&11                                            7  0876  L Z92 SJ1           27
  253                MCE   WORK,LINE&11                                             7  0883  E 640 SJ1           27
&B944633%Y!03634B497LZ92SJ1E640SJ1      L033889,865872,876883,040040104000272TAP8
  254                BWZ   INDEX1,LABTBL-1,S                                        8  0890  V 999 Q/2 S         28
  255         TSTX2  BWZ   INDEX2,LABTBL-1,K                                        8  0898  V |10 Q/2 K         28
  256         TSTX3  BWZ   INDEX3,LABTBL-1,B                                        8  0906  V |21 Q/2 B         28
  257         TSTLIN BCE   RESET2,X2-2,1                                            8  0914  B 955 092 1         28
  258                A     @16@,X2                                                  7  0922  A !09 094           28
&V999Q/2SV|10Q/2KV|21Q/2BB9550921A!09094L039928,898906,914922,040040104000282TAP8
  259                B     FIRST&8                                                  4  0929  B 744               29
  260         STEP   A     @9@,X1                                                   7  0933  A !07 089           29
  261                B     FIRST&8                                                  4  0940  B 744               29
  262         PERCNT MLC   ADDR,LINE&11                                             7  0944  M 635 SJ1           29
  263                B     TSTLIN                                                   4  0951  B 914               29
  264         RESET2 C     X2,@000@                                                 7  0955  C 094 !06           29
  265                BE    RSTOUT-8                                                 5  0962  B 987 S             29
&B744A!07089B744M635SJ1B914C094!06B987S L038966,933940,944951,955962104000292TAP8
  266                MLC   @000@,X2                                                 7  0967  M !06 094           30
  267                MCM   LINE&X0,201                                              7  0974  P S00 201           30
  268                W                                                              1  0981  2                   30
  269                CS    LINE&131&X0                                              4  0982  / T31               30
  270                CS                                                             1  0986  /                   30
  271                BW    ENDPRT,RSTOUT&1                                          8  0987  V |40 996 1         30
  272         RSTOUT B     FIRST&8                                                  4  0995  B 744               30
&M!06094PS002012/T31/V|409961B744       L032998,974981,982986,987995104000302TAP8
  273         INDEX1 MLC   @&X1@,LINE&14                                            7  0999  M !12 SJ4           31
  274                B     TSTX2                                                    4  1006  B 898               31
  275         INDEX2 MLC   @&X2@,LINE&14                                            7  1010  M !15 SJ4           31
  276                B     TSTX3                                                    4  1017  B 906               31
  277         INDEX3 MLC   @&X3@,LINE&14                                            7  1021  M !18 SJ4           31
  278                B     TSTLIN                                                   4  1028  B 914               31
  279         ENDTAB SW    RSTOUT&1                                                 4  1032  , 996               31
&M!12SJ4B898M!15SJ4B906M!18SJ4B914,996  L037|35,|06|10,|17|21,|28|32104000312TAP8
  280                B     RESET2                                                   4  1036  B 955               32
  281         ENDPRT CW    RSTOUT&1                                                 4  1040  ) 996               32
  282                MCM   TABLE&1,TABLE                                            7  1044  P Z61 Z60           32
  283                BCE   FINIS,TABLE,|                                            8  1051  B |63 Z60 |         32
  284                B     INITL                                                    4  1059  B 703               32
  285         FINIS  CC    1                                                        2  1063  F 1                 32
  286                BW    *&5,REITER                                               8  1065  V |77 193 1         32
&B955)996PZ61Z60B|63Z60|B703F1V|771931  L037|72,|40|44,|51|59,|63|65104000322TAP8
  287                B     PHASE8                                                   4  1073  B V13               33
  288                CW    HIGH8                                                    4  1077  ) !80               33
1                          1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR       2TAP8               PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  289                MCM   AREA,201                                                 7  1081  P T33 201           33
  290                CHAIN 2                                                                             MACRO
  291                MCM                                                            1  1088  P           GEN     33
  292                MCM                                                            1  1089  P           GEN     33
  293                MLC   @6@,SEEK                                                 7  1090  M !19 125           33
  294                B     LOAD                                                     4  1097  B 100               33
&BV13)!80PT33201PPM!19125B100           L028/00,|77|81,|88|89,|90|97104000332TAP8
  295         TITLE  DCW   @SYMBOL TABLE|@                                         13  1113                      34
  296         *
  297                ORG   *&X00                                                              1200
&SYMBOL TABLE|                          L013/13,040040,040040,040040104000342TAP8
&                                       L038S37)S00S00,040040,040040104000352TAP8
&                                       L038S75)S38S38,040040,040040104000362TAP8
&                                       L038T13)S76S76,040040,040040104000372TAP8
  298         LINE   DA    1X132,X2,|,C                                                1200   1332               38
&                                       L019T32)T14T14,S00040,040040104000382TAP8
                     DC    @|@                                                      1  1332              RMARK   39
  299         *
  300         AREA   DA    1X180                                                       1333   1512               39
  301         *
&|                                      L001T32)T32T32,T33040,040040104000392TAP8
  302         PHASE8 RTW   2,AREA                                                   8  1513  L %U2 T33 R         40
  303                BER   TPERR                                                    5  1521  B 363 L             40
  304         BOOT   LCA   BOOT1,0180                                               7  1526  L X99 180           40
  305                SW    AREA&75                                                  4  1533  , U08               40
  306                MLC   @0001@,175                                               7  1537  M !23 175           40
  307                MLC   AREA&99,180                                              7  1544  M U32 180           40
&L%U2T33RB363LLX99180,U08M!23175MU32180 L038V50,V21V26,V33V37,V44040104000402TAP8
  308                CS    332                                                      4  1551  / 332               41
  309                CS                                                             1  1555  /                   41
  310                MLC   171,290                                                  7  1556  M 171 290           41
  311                MLC   @CLEAR STORAGE 1@,215                                    7  1563  M !38 215           41
  312                MLC   @1@,314                                                  7  1570  M !39 314           41
  313                WP                                                             1  1577  6                   41
  314                LCA   BOOT2,180                                                7  1578  L Y79 180           41
&/332/M171290M!38215M!393146LY79180     L034V84,V55V56,V63V70,V77V78104000412TAP8
  315                MLC   @0002@,175                                               7  1585  M !43 175           42
  316                MLC   AREA&99,180                                              7  1592  M U32 180           42
  317                MLC   171,290                                                  7  1599  M 171 290           42
  318                MLC   @CLEAR STORAGE 2@,215                                    7  1606  M !58 215           42
  319                MLC   @2@,314                                                  7  1613  M !59 314           42
  320                WP                                                             1  1620  6                   42
&M!43175MU32180M171290M!58215M!593146   L036W20,V92V99,W06W13,W20040104000422TAP8
  321                LCA   BOOT3,180                                                7  1621  L Z59 180           43
  322                MLC   @0003@,175                                               7  1628  M !63 175           43
  323                MLC   AREA&99,180                                              7  1635  M U32 180           43
  324                MLC   171,290                                                  7  1642  M 171 290           43
  325                MLC   @BOOTSTRAP      @,215                                    7  1649  M !78 215           43
&LZ59180M!63175MU32180M171290M!78215    L035W55,W28W35,W42W49,040040104000432TAP8
  326                MLC   @3@,314                                                  7  1656  M !79 314           44
  327                CC    T                                                        2  1663  F T                 44
  328                WP                                                             1  1665  6                   44
  329                CS    332                                                      4  1666  / 332               44
  330                CS                                                             1  1670  /                   44
  331                RWD   2                                                        5  1671  U %U2 R             44
  332                BSP   1                                                        5  1676  U %U1 B             44
&M!79314FT6/332/U%U2RU%U1B              L025W80,W63W65,W66W70,W71W76104000442TAP8
  333                BSP   1                                                        5  1681  U %U1 B             45
  334                BSP   1                                                        5  1686  U %U1 B             45
  335                BSP   1                                                        5  1691  U %U1 B             45
  336                BSP   1                                                        5  1696  U %U1 B             45
  337                BSP   1                                                        5  1701  U %U1 B             45
1                          1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR       2TAP8               PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  338                BSP   1                                                        5  1706  U %U1 B             45
  339                CW    HIGH8                                                    4  1711  ) !80               45
&U%U1BU%U1BU%U1BU%U1BU%U1BU%U1B)!80     L034X14,W86W91,W96X01,X06X11104000452TAP8
  340                B     ENDPH8                                                   4  1715  B 338               46
  341                H                                                              1  1719  .                   46
&B338.                                  L005X19,X19040,040040,040040104000462TAP8
&,008015,019026,030,034041,045,053,05705L039X58,040040,040040,040040104000472TAP8
  342                DCW   @,008015,019026,030,034041,045,053,057057@              40  1759                      48
&7                                      L001X59)X59X59,040040,040040104000482TAP8
&1026                                   L039X98)X60X60,040040,040040104000492TAP8
  343         BOOT1  DC    @1026                                    @              40  1799                      50
&                                       L001X99)X99X99,040040,040040104000502TAP8
&L068112,102106,113/101099/I99,027A07002L039Y38,040040,040040,040040104000512TAP8
  344                DCW   @L068112,102106,113/101099/I99,027A070028@              40  1839                      52
&8                                      L001Y39)Y39Y39,040040,040040104000522TAP8
&)027B0010270B0261,001/001113I0         L039Y78)Y40Y40,040040,040040104000532TAP8
  345         BOOT2  DC    @)027B0010270B0261,001/001113I0          @              40  1879                      54
&                                       L001Y79)Y79Y79,040040,040040104000542TAP8
&,008015,022029,036040,047054,061068,072L039Z18,040040,040040,040040104000552TAP8
  346                DCW   @,008015,022029,036040,047054,061068,072/@              40  1919                      56
&/                                      L001Z19)Z19Z19,040040,040040104000562TAP8
&061039              ,0010011040        L039Z58)Z20Z20,040040,040040104000572TAP8
  347         BOOT3  DC    @061039              ,0010011040         @              40  1959                      58
  348         TABLE  DCW   @A@                                                      1  1960                      58
  349                DC    @BCDEFGHIJKLMNOPQRSTUVWXYZ@                             25  1985                      58
  350                DC    @|@                                                      1  1986                      58
  351         EDIT1  DCW   @ 0    @                                                 6  1992                      58
  352                LTORG *                                                                  1993
                     DCW   @|@                                                      1  1993              LIT     58
& ABCDEFGHIJKLMNOPQRSTUVWXYZ| 0    |    L035Z93)Z59Z59,Z60Z87,Z93040104000582TAP8
         218               @         @                                              9  2002              LIT     59
                           @ @                                                      1  2003              LIT     59
                           @000@                                                    3  2006              LIT     59
                           @9@                                                      1  2007              LIT     59
                           @16@                                                     2  2009              LIT     59
                           @&X1@                                                    3  2012              LIT     59
                           @&X2@                                                    3  2015              LIT     59
&          000916&X1&X2                 L022!15,!03!04,!07!08,!10!13104000592TAP8
                           @&X3@                                                    3  2018              LIT     60
                           @6@                                                      1  2019              LIT     60
                           @0001@                                                   4  2023              LIT     60
         311               @CLEAR STORAGE 1@                                       15  2038              LIT     60
                           @1@                                                      1  2039              LIT     60
                           @0002@                                                   4  2043              LIT     60
&&X360001CLEAR STORAGE 110002           L028!43,!19!20,!24!39,!40040104000602TAP8
         318               @CLEAR STORAGE 2@                                       15  2058              LIT     61
                           @2@                                                      1  2059              LIT     61
                           @0003@                                                   4  2063              LIT     61
         325               @BOOTSTRAP      @                                       15  2078              LIT     61
                           @3@                                                      1  2079              LIT     61
  353         HIGH8  DCW   @}@                                                      1  2080                      61
&CLEAR STORAGE 220003BOOTSTRAP      3}  L037!80,!59!60,!64!79,!80040104000612TAP8
&                                       N000000,040040,040040,040040B16700622TAP8
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     00632TAP9
&,068072)063067/061039                                       ,001001104000642TAP9
  354                EX    SYSTEM                                                            B 167               62
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  355                JOB   1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR
  356         *
  357         *                        PHASE 9 - CONDENSING AND LISTING ROUTINE
  358         *
  359         *                        PHASE 9 IDENTIFICATION AT 333
  360         *
  361                ORG   333                                                                0333
  362                DCW   @9@                                                      1  0333                      65
  363         *
  364                H     *-3                                                      4  0334  . 334               65
  365                RTW   1,333                                                    8  0338  L %U1 333 R         65
  366                BER   TPERR                                                    5  0346  B 363 L             65
  367                BCE   PHASE9,333,9                                             8  0351  B 649 333 9         65
  368                H     *-3                                                      4  0359  . 359               65
  369         *
  370                ORG   HIGH88                                                             0649
&9.334L%U1333RB363LB6493339.359         L030362,334338,346351,359040104000652TAP9
  371         PHASE9 B     HSKPG                                                    4  0649  B R87               66
  372         *
  373                ORG   PHASE9&4                                                           0653
  374         HSKPG1 RTW   2,RECORD                                                 8  0653  L %U2 R86 R         66
  375                BER   TPERR                                                    5  0661  B 363 L             66
  376         *
  377         REINIT MLC   @0@,COUNT#1                                              7  0666  M A58 A59           66
  378                MLC   @000@,X1                                                 7  0673  M A62 089           66
  379                MLC   @000@,X2                                                 7  0680  M A62 094           66
&BR87L%U2R86RB363LMA58A59MA62089MA62094 L038686,653661,666673,680040104000662TAP9
  380                MLC   @000@,X3                                                 7  0687  M A62 099           67
  381                MLC   @0000@,POSCNT#4                                          7  0694  M A66 A70           67
  382                MLC   @        @,ASSMBD#8                                      7  0701  M A78 A86           67
  383                SW    101,140                                                  7  0708  , 101 140           67
  384                B     AGAIN                                                    4  0715  B 756               67
  385         *
  386         GETOBJ CW    AOPND-12                                                 4  0719  ) A41               67
&MA62099MA66A70MA78A86,101140B756)A41   L036722,694701,708715,719040104000672TAP9
  387                RTW   2,RECORD                                                 8  0723  L %U2 R86 R         68
  388                BER   TPERR                                                    5  0731  B 363 L             68
  389                BEF   EOF4                                                     5  0736  B F33 K             68
  390                SW    AOPND-2,BOPND-2                                          7  0741  , A51 A54           68
  391                B     COMMNT,RECORD&5,*                                        8  0748  B O46 R91 *         68
  392         *
&L%U2R86RB363LBF33K,A51A54BO46R91*      L033755,731736,741748,040040104000682TAP9
  393         AGAIN  BW    SUBDA,SUBNXT                                             8  0756  V C57 C23 1         69
  394                BW    *&5,LITCTL                                               8  0764  V 776 C25 1         69
  395                B     *&13                                                     4  0772  B 788               69
  396                BW    *&5,RECORD&3                                             8  0776  V 788 R89 1         69
  397                B     CDFULL                                                   4  0784  B M88               69
&VC57C231V776C251B788V788R891BM88       L032787,764772,776784,040040104000692TAP9
  398                BW    CDFULL,ISOLAT                                            8  0788  V M88 C24 1         70
  399                C     OPER,@EX  @                                              7  0796  C ?04 A90           70
  400                BE    EXECUT                                                   5  0803  B D03 S             70
  401                C     OPER,@XFR @                                              7  0808  C ?04 A94           70
  402                BE    EXECUT                                                   5  0815  B D03 S             70
  403                C     OPER,@CTL @                                              7  0820  C ?04 A98           70
&VM88C241C?04A90BD03SC?04A94BD03SC?04A98L039826,796803,808815,820040104000702TAP9
  404                BE    PRINT1                                                   5  0827  B Y43 S             71
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  405         *
  406                C     OPER,@JOB @                                              7  0832  C ?04 B02           71
  407                BU    NOTJOB                                                   5  0839  B 892 /             71
  408                MLC   RECORD&71,HEADNG                                         7  0844  M ?57 072           71
  409                MLC   PARAMT&4,SETUP-1                                         7  0851  M ?85 Q10           71
  410                LCA   SETUP-1,180                                              7  0858  L Q10 180           71
&BY43SC?04B02B892/M?57072M?85Q10LQ10180 L038864,832839,844851,858040104000712TAP9
  411                NOP   JOBACK&4           1ST-TIME-ONLY NOP                     4  0865  N 884               72
  412                MLC   @B@,*-10                                                 7  0869  M B03 865           72
  413                B     GETOVF                                                   4  0876  B D63               72
  414         JOBACK B     PRINT1                                                   4  0880  B Y43               72
  415                B     OVFLO                                                    4  0884  B C27               72
  416                B     PRINT1                                                   4  0888  B Y43               72
  417         *
  418         NOTJOB C     OPER,@DS  @                                              7  0892  C ?04 B07           72
&N884MB03865BD63BY43BC27BY43C?04B07     L034898,869876,880884,888892104000722TAP9
  419                BE    DS                                                       5  0899  B P11 S             73
  420                C     OPER,@END @                                              7  0904  C ?04 B11           73
  421                BE    END                                                      5  0911  B D15 S             73
  422                BW    PRINT2,RECORD                                            8  0916  V L24 R86 1         73
  423                BCE   INSTRT-8,LABEL-5,                                        8  0924  B 968 R91           73
&BP11SC?04B11BD15SVL24R861B968R91       L033931,904911,916924,040040104000732TAP9
  424                BWZ   *&5,LABEL-5,2                                            8  0932  V 944 R91 2         74
  425                B     INSTRT-8                                                 4  0940  B 968               74
  426                BW    *&9,FSTIME                                               8  0944  V 960 C22 1         74
  427                SW    FSTIME                                                   4  0952  , C22               74
  428                B     CDFULL                                                   4  0956  B M88               74
  429                CW    FSTIME                                                   4  0960  ) C22               74
  430                SW    ISOLAT                                                   4  0964  , C24               74
&V944R912B968V960C221,C22BM88)C22,C24   L036967,940944,952956,960964104000742TAP9
  431                BCE   CONST,ICOUNT,                                            8  0968  B T05 ?73           75
  432         *
  433         INSTRT MLC   POSCNT,SPACE#4                                           7  0976  M A70 B15           75
  434                A     ICOUNT,POSCNT                                            7  0983  A ?73 A70           75
  435                C     POSCNT,@0039@                                            7  0990  C A70 B19           75
  436                BL    CDFULL                                                   5  0997  B M88 T             75
&BT05?73 MA70B15A?73A70CA70B19BM88T     L034|01,976983,990997,040040104000752TAP9
  437                BCE   CDFULL,COUNT,7                                           8  1002  B M88 A59 7         76
  438                A     @1@,COUNT                                                7  1010  A B20 A59           76
  439                MLC   POSCNT,SPACE                                             7  1017  M A70 B15           76
  440                LCA   LOCATN,SWADDR&X2                                         7  1024  L ?80 PM8           76
  441                A     @3@,X2                                                   7  1031  A B21 094           76
&BM88A597AB20A59MA70B15L?80PM8AB21094   L036|37,|10|17,|24|31,040040104000762TAP9
  442                LCA   SWADDR-3&X2,SWADDR&X2                                    7  1038  L PM5 PM8           77
  443                ZA    ICOUNT,HOLD                                              7  1045  ? ?73 B95           77
  444                MLC   SWADDR&X2,ADDR                                           7  1052  M PM8 635           77
  445                B     MODAD                                                    4  1059  B Q12               77
  446         P4SK1  LCA   RESULT-1,SWADDR&X2                                       7  1063  L C02 PM8           77
  447                A     ICOUNT,X3                                                7  1070  A ?73 099           77
&LPM5PM8??73B95MPM8635BQ12LC02PM8A?73099L039|76,|45|52,|59|63,|70040104000772TAP9
  448                B     SETXX                                                    4  1077  B I75               78
  449                NOP                                                            1  1081  N                   78
  450                NOP                                                            1  1082  N                   78
  451                NOP                                                            1  1083  N                   78
  452                BCE   IDONE,ICOUNT,1                                           8  1084  B /56 ?73 1         78
  453                BCE   ADMOD,ICOUNT,2                                           8  1092  B /67 ?73 2         78
  454                MLC   AOPND,ASSMBD-4                                           7  1100  M A53 A82           78
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE    9
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&BI75NNNB/56?731B/67?732MA53A82         L030/06,|81|82,|83|84,|92/00104000782TAP9
  455                BCE   BRANCH,ICOUNT,4                                          8  1107  B /85 ?73 4         79
  456                BCE   BDMOD,ICOUNT,5                                           8  1115  B /96 ?73 5         79
  457                MLC   BOPND,ASSMBD-1                                           7  1123  M A56 A85           79
  458                BCE   NODMOD,ICOUNT,7                                          8  1130  B S14 ?73 7         79
  459                MLC   PARAMT&60,ASSMBD                                         7  1138  M A41 A86           79
&B/85?734B/96?735MA56A85BS14?737MA41A86 L038/44,/15/23,/30/38,040040104000792TAP9
  460                MLC   ASSMBD,100&X3                                            7  1145  M A86 1?0           80
  461                B     ASSOUT                                                   4  1152  B S21               80
  462         IDONE  MLC   ASSMBD-7,100&X3                                          7  1156  M A79 1?0           80
  463                B     ASSOUT                                                   4  1163  B S21               80
  464         ADMOD  MLC   PARAMT&60,ASSMBD-6                                       7  1167  M A41 A80           80
  465                MLC   ASSMBD-6,100&X3                                          7  1174  M A80 1?0           80
&MA861?0BS21MA791?0BS21MA41A80MA801?0   L036/80,/52/56,/63/67,/74040104000802TAP9
  466                B     ASSOUT                                                   4  1181  B S21               81
  467         BRANCH MLC   ASSMBD-4,100&X3                                          7  1185  M A82 1?0           81
  468                B     ASSOUT                                                   4  1192  B S21               81
  469         BDMOD  MLC   PARAMT&60,ASSMBD-3                                       7  1196  M A41 A83           81
  470                MLC   ASSMBD-3,100&X3                                          7  1203  M A83 1?0           81
  471                B     ASSOUT                                                   4  1210  B S21               81
&BS21MA821?0BS21MA41A83MA831?0BS21      L033S13,/85/92,/96S03,S10040104000812TAP9
  472         NODMOD MLC   ASSMBD-1,100&X3                                          7  1214  M A85 1?0           82
  473         ASSOUT CS    332                                                      4  1221  / 332               82
  474                CS                                                             1  1225  /                   82
  475                MLC   ICOUNT,284                                               7  1226  M ?73 284           82
  476                SW    303,299                                                  7  1233  , 303 299           82
  477                SW    295,293                                                  7  1240  , 295 293           82
&MA851?0/332/M?73284,303299,295293      L033S46,S21S25,S26S33,S40040104000822TAP9
  478                MLC   ASSMBD,303                                               7  1247  M A86 303           83
  479                MLC   ASSMBD-1,301                                             7  1254  M A85 301           83
  480                MLC   ASSMBD-4,297                                             7  1261  M A82 297           83
  481                MLC   ASSMBD-7,293                                             7  1268  M A79 293           83
  482                MLC   @        @,ASSMBD                                        7  1275  M B29 A86           83
&MA86303MA85301MA82297MA79293MB29A86    L035S81,S54S61,S68S75,040040104000832TAP9
  483                BCE   *&5,PARAMT&60,G                                          8  1282  B S94 A41 G         84
  484                B     PRINT                                                    4  1290  B X78               84
  485                MLC   PARAMT&64,309                                            7  1294  M A45 309           84
  486                B     PRINT                                                    4  1301  B X78               84
  487         *
  488         CONST  C     OPER,@DA  @                                              7  1305  C ?04 B33           84
  489                BE    DAOUT                                                    5  1312  B C45 S             84
&BS94A41GBX78MA45309BX78C?04B33BC45S    L035T16,S90S94,T01T05,T12040104000842TAP9
  490                BCE   NUMOUT,PARAMT&60,M                                       8  1317  B X05 A41 M         85
  491                BW    *&5,PARAMT&65                                            8  1325  V T37 A46 1         85
  492                B     *&21                                                     4  1333  B T57               85
  493                BW    *&9,FSTIME                                               8  1337  V T53 C22 1         85
  494                SW    FSTIME                                                   4  1345  , C22               85
  495                B     CDFULL                                                   4  1349  B M88               85
&BX05A41MVT37A461BT57VT53C221,C22BM88   L036T52,T25T33,T37T45,T49040104000852TAP9
  496                CW    FSTIME                                           )))     4  1353  ) C22               86
  497                C     OPER&1,@DC   @                                           7  1357  C ?05 B38           86
  498                BU    *&5                                                      5  1364  B T73 /             86
  499                CW    ERRPOS-1                                                 4  1369  ) ?71               86
  500                MLC   POSCNT,SPACE                                             7  1373  M A70 B15           86
  501                A     LITCNT,POSCNT                                            7  1380  A ?76 A70           86
&)C22C?05B38BT73/)?71MA70B15A?76A70     L034T86,T57T64,T69T73,T80040104000862TAP9
  502                C     POSCNT,@0039@                                            7  1387  C A70 B19           87
  503                BL    TSTLNG                                                   5  1394  B J58 T             87
  504                BCE   CDFULL,COUNT,7                                           8  1399  B M88 A59 7         87
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   10
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  505                A     @1@,COUNT                                        )))     7  1407  A B20 A59           87
  506                MLC   POSCNT,SPACE                                             7  1414  M A70 B15           87
&CA70B19BJ58TBM88A597AB20A59MA70B15     L034U20,T94T99,U07U14,040040104000872TAP9
  507                BW    NOWM1,SPLIT&5      ON 2ND HALF OF LONG CONSTANT          8  1421  V J11 K38 1         88
  508                C     OPER,@DC  @                                              7  1429  C ?04 B42           88
  509                BE    NOWM                                                     5  1436  B !09 S             88
  510         FSTCON BCE   *&5,COUNT,1                                              8  1441  B U53 A59 1         88
  511                B     CONBCK-14                                                4  1449  B U85               88
  512                MLC   LOCATN,SWADDR                                            7  1453  M ?80 P48           88
&VJ11K381C?04B42B!09SBU53A591BU85M?80P48L039U59,U29U36,U41U49,U53040104000882TAP9
  513                ZA    @1@,HOLD                                                 7  1460  ? B20 B95           89
  514                A     @3@,X2                                                   7  1467  A B21 094           89
  515                LCA   SWADDR-3&X2,SWADDR&X2                                    7  1474  L PM5 PM8           89
  516                B     CONBCK&7                                                 4  1481  B V06               89
  517                A     @3@,X2                                                   7  1485  A B21 094           89
  518                LCA   SWADDR-3&X2,SWADDR&X2                                    7  1492  L PM5 PM8           89
&?B20B95AB21094LPM5PM8BV06AB21094LPM5PM8L039U98,U67U74,U81U85,U92040104000892TAP9
  519         CONBCK MLC   LITCNT,HOLD                                              7  1499  M ?76 B95           90
  520                MLC   SWADDR&X2,ADDR                                           7  1506  M PM8 635           90
  521                B     MODAD                                                    4  1513  B Q12               90
  522         P4SK2  MLC   RESULT-1,SWADDR&X2                                       7  1517  M C02 PM8           90
  523                A     LITCNT,X3                                                7  1524  A ?76 099           90
  524                MLC   LITCNT,X1                                        )))     7  1531  M ?76 089           90
&M?76B95MPM8635BQ12MC02PM8A?76099M?76089L039V37,V06V13,V17V24,V31040104000902TAP9
  525                MLC   @M@,P4SK2&14                                             7  1538  M B43 V31           91
  526                BCE   DSA,OPER-1,A                                             8  1545  B W49 ?03 A         91
  527                BW    SETLIT,RECORD&3                                          8  1553  V W60 R89 1         91
  528                BCE   NUMALF,PARAMT,@                                          8  1561  B W30 ?81 @         91
  529                BWZ   NUMALF,PARAMT,2                                          8  1569  V W30 ?81 2         91
&MB43V31BW49?03AVW60R891BW30?81@VW30?812L039V76,V45V53,V61V69,040040104000912TAP9
  530                BCE   *&20,PARAMT,&                                            8  1577  B W04 ?81 &         92
  531                BCE   *&12,PARAMT,-                                            8  1585  B W04 ?81 -         92
  532                MLC   AOPND,100&X3                                             7  1593  M A53 1?0           92
  533                B     NUMOUT                                                   4  1600  B X05               92
  534                BWZ   *&12,PARAMT&1,2                                          8  1604  V W23 ?82 2         92
&BW04?81&BW04?81-MA531?0BX05VW23?822    L035W11,V85V93,W00W04,040040104000922TAP9
  535                MLC   @  @,PARAMT&19                                           7  1612  M B45 A00           93
  536                B     *-29                                                     4  1619  B V93               93
  537                MZ    PARAMT,PARAMT&X1                                         7  1623  Y ?81 ?Y1           93
  538         NUMALF SW    PARAMT&1                                                 4  1630  , ?82               93
  539                MLC   PARAMT&X1,100&X3                                         7  1634  M ?Y1 1?0           93
  540                CW    PARAMT&1                                                 4  1641  ) ?82               93
  541                B     NUMOUT                                                   4  1645  B X05               93
  542         *
&MB45A00BV93Y?81?Y1,?82M?Y11?0)?82BX05  L037W48,W19W23,W30W34,W41W45104000932TAP9
  543         DSA    MLC   AOPND,100&X3                                             7  1649  M A53 1?0           94
  544                B     NUMOUT                                                   4  1656  B X05               94
  545         *
  546         SETLIT SW    PARAMT&30,LITCTL                                         7  1660  , A11 C25           94
  547                BCE   *&8,RECORD&20,#                                          8  1667  B W82 ?06 #         94
  548                MLC   PARAMT&29&X1,100&X3                                      7  1675  M A/0 1?0           94
  549                CW    PARAMT&30                                                4  1682  ) A11               94
&MA531?0BX05,A11C25BW82?06#MA/01?0)A11  L037W85,W56W60,W67W75,W82040104000942TAP9
  550                BCE   *&5,RECORD&20,@                                          8  1686  B W98 ?06 @         95
  551                B     NUMOUT                                                   4  1694  B X05               95
  552                MLC   @@@,RECORD&21&X1                                         7  1698  M B46 ?|7           95
  553         NUMOUT CS    332                                                      4  1705  / 332               95
  554                CS                                                             1  1709  /                   95
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   11
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  555                BW    CONST,TSTLNG&9     SUPPRESS PRINTING ON 1ST HALF         8  1710  V T05 J67 1         95
&BW98?06@BX05MB46?|7/332/VT05J671       L032X17,W94W98,X05X09,X10040104000952TAP9
  556                BW    *&5,SPLIT&5        RESTORE LONG CONSTANT FOR PRINT       8  1718  V X30 K38 1         96
  557                B     NOTLNG                                                   4  1726  B X41               96
  558                CW    SPLIT&5                                                  4  1730  ) K38               96
  559                A     @0039@,LITCNT                                            7  1734  A B19 ?76           96
  560         NOTLNG MCS   LITCNT,284                                               7  1741  Z ?76 284           96
  561                SW    AOPND-2                                                  4  1748  , A51               96
&VX30K381BX41)K38AB19?76Z?76284,A51     L034X51,X26X30,X34X41,X48040104000962TAP9
  562                MLC   AOPND,296                                                7  1752  M A53 296           97
  563                SW    PARAMT&60                                                4  1759  , A41               97
  564                MLC   PARAMT&64,309                                            7  1763  M A45 309           97
  565                BCE   PRINT1,PARAMT&60,M                                       8  1770  B Y43 A41 M         97
  566         *
  567         PRINT  MCS   CARDCT,314                                               7  1778  Z C17 314           97
&MA53296,A41MA45309BY43A41MZC17314      L033X84,X59X63,X70X78,040040104000972TAP9
  568                MLC   LOCATN,ADDR                                      )))     7  1785  M ?80 635           98
  569                B     DECOD                                                    4  1792  B 497               98
  570                MLC   @Z@,PRINT                                                7  1796  M B47 X78           98
  571                LCA   EDIT,290                                                 7  1803  L P45 290           98
  572                MCE   WORK,290                                                 7  1810  E 640 290           98
  573                C     WORK,@00080@                                             7  1817  C 640 B52           98
&M?80635B497MB47X78LP45290E640290C640B52L039Y23,X92X96,Y03Y10,Y17040104000982TAP9
  574                BL    PRINT1                                                   5  1824  B Y43 T             99
  575                MLC   @ADDR@,319                                               7  1829  M B56 319           99
  576                A     @1@,ERRCNT                                               7  1836  A B20 C21           99
  577         *
  578         PRINT1 MLC   LABEL,219                                                7  1843  M R96 219           99
  579                SW    214,221                                                  7  1850  , 214 221           99
&BY43TMB56319AB20C21MR96219,214221      L033Y56,Y29Y36,Y43Y50,040040104000992TAP9
  580                SW    227,201                                                  7  1857  , 227 201          100
  581                CW    RECORD&3,RECORD&4                                        7  1864  ) R89 R90          100
  582                MLC   OPER&1,225                                               7  1871  M ?05 225          100
  583                MLC   RECORD&71,278                                            7  1878  M ?57 278          100
  584                SW    RECORD,RECORD&2                                          7  1885  , R86 R88          100
  585                SW    RECORD&75                                                4  1892  , ?61              100
&,227201)R89R90M?05225M?57278,R86R88,?61L039Y95,Y64Y71,Y78Y85,Y92040104001002TAP9
  586                MCS   RECORD&79,204                                            7  1896  Z ?65 204          101
  587                MCS   RECORD&1,207                                             7  1903  Z R87 207          101
  588                MLC   RECORD&4,211                                             7  1910  M R90 211          101
  589                BW    *&5,ERRPOS                                               8  1917  V Z29 ?72 1        101
  590                B     *&19                                                     4  1925  B Z47              101
&Z?65204ZR87207MR90211VZ29?721BZ47      L033Z28,Z03Z10,Z17Z25,040040104001012TAP9
  591                MLC   @INVALID@,322                                            7  1929  M B63 322          102
  592                A     @1@,ERRCNT                                               7  1936  A B20 C21          102
  593                B     TSTOVF                                                   4  1943  B Z99              102
  594                BW    *&5,ERRPOS-1                                             8  1947  V Z59 ?71 1        102
  595                B     *&15                                                     4  1955  B Z73              102
  596                MLC   @OPER@,325                                               7  1959  M B67 325          102
&MB63322AB20C21BZ99VZ59?711BZ73MB67325  L037Z65,Z36Z43,Z47Z55,Z59040104001022TAP9
  597                A     @1@,ERRCNT                                               7  1966  A B20 C21          103
  598                BW    *&5,ERRPOS-2                                             8  1973  V Z85 ?70 1        103
  599                B     *&15                                                     4  1981  B Z99              103
  600                MLC   @SYM@,330                                                7  1985  M B70 330          103
  601                A     @1@,ERRCNT                                               7  1992  A B20 C21          103
  602         TSTOVF W                                                              1  1999  2                  103
  603                BCV   OVFLO                                                    5  2000  B C27 @            103
&AB20C21VZ85?701BZ99MB70330AB20C212BC27@L039!04,Z73Z81,Z85Z92,Z99!00104001032TAP9
  604                B     GETOBJ                                                   4  2005  B 719              104
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   12
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  605         *
  606         NOWM   BCE   *&5,COUNT,1                                              8  2009  B !21 A59 1        104
  607                B     CONBCK                                                   4  2017  B U99              104
  608                MLC   LOCATN,ADDR                                      )))     7  2021  M ?80 635          104
  609                ZS    LITCNT,HOLD                                              7  2028  ! ?76 B95          104
  610                A     @1@,HOLD                                                 7  2035  A B20 B95          104
&B719B!21A591BU99M?80635!?76B95AB20B95  L037!41,!09!17,!21!28,!35040104001042TAP9
  611                B     MODAD                                                    4  2042  B Q12              105
  612                MLC   RESULT-1,SWADDR&6                                        7  2046  M C02 P54          105
  613                MLC   SWADDR&6,SWADDR&3                                        7  2053  M P54 P51          105
  614                MLC                                                            1  2060  M                  105
  615                MLC   SWADDR&6,ADDR                                            7  2061  M P54 635          105
  616                MLC   LITCNT,HOLD                                              7  2068  M ?76 B95          105
  617                B     MODAD                                                    4  2075  B Q12              105
&BQ12MC02P54MP54P51MMP54635M?76B95BQ12  L037!78,!46!53,!60!61,!68!75104001052TAP9
  618                MLC   RESULT-1,SWADDR&9                                        7  2079  M C02 P57          106
  619                MLC   @3@,COUNT                                                7  2086  M B21 A59          106
  620                MLC   @9@,X2                                                   7  2093  M B71 094          106
  621                MLC   @)@,147                                                  7  2100  M B72 147          106
  622                B     P4SK2&7                                                  4  2107  B V24              106
  623         NOWM1  MLC   LOCATN,ADDR                                              7  2111  M ?80 635          106
&MC02P57MB21A59MB71094MB72147BV24M?80635L039J17,!86!93,J00J07,J11040104001062TAP9
  624                ZA    PARAMT&69,HOLD                                           7  2118  ? A50 B95          107
  625                B     MODAD                                                    4  2125  B Q12              107
  626                MLC   RESULT-1,LOCATN                                          7  2129  M C02 ?80          107
  627                SW    PARAMT&40                                                4  2136  , A21              107
  628                MLC   @0039@,X1                                                7  2140  M B19 089          107
  629                MLC   @A@,P4SK2&14                                             7  2147  M B73 V31          107
&?A50B95BQ12MC02?80,A21MB19089MB73V31   L036J53,J25J29,J36J40,J47040104001072TAP9
  630                B     NOWM&12                                                  4  2154  B !21              108
  631         *                        TEST FOR CONSTANTS LONGER THAN 39 CHARS
  632         TSTLNG BW    REST,TSTLNG&9                                            8  2158  V K98 J67 1        108
  633                BW    ERRLIT,ERRPOS                                            8  2166  V K22 ?72 1        108
  634                BW    SPLIT,REST&5                                             8  2174  V K33 L03 1        108
  635                C     LITCNT,@040@                                             7  2182  C ?76 B76          108
&B!21VK98J671VK22?721VK33L031C?76B76    L035J88,J58J66,J74J82,040040104001082TAP9
  636                BH    CDFULL             SHORT CONSTANT                        5  2189  B M88 U            109
  637                C     LITCNT,@53@                                              7  2194  C ?76 B78          109
  638                BH    *&9                                                      5  2201  B K14 U            109
  639                SW    ERRPOS                                                   4  2206  , ?72              109
  640                B     CDFULL                                                   4  2210  B M88              109
  641                SW    REST&5                                                   4  2214  , L03              109
  642                B     CDFULL             RELEASE PREVIOUS CARD                 4  2218  B M88              109
&BM88UC?76B78BK14U,?72BM88,L03BM88      L033K21,J94K01,K06K10,K14K18104001092TAP9
  643         ERRLIT MLC   @N@,PRINT                                                7  2222  M B79 X78          110
  644                B     NUMOUT                                                   4  2229  B X05              110
  645         *                        SET UP FIRST 39 POSITIONS OF LONG CONSTANT
  646         SPLIT  CW    REST&5                                                   4  2233  ) L03              110
  647                LCA   LITCNT,PARAMT&69   SAVE ORIGINAL LENGTH                  7  2237  L ?76 A50          110
  648                MLC   @0039@,LITCNT      SET LENGTH TO 39                      7  2244  M B19 ?76          110
  649                MLC   @0039@,POSCNT                                            7  2251  M B19 A70          110
&MB79X78BX05)L03L?76A50MB19?76MB19A70   L036K57,K29K33,K37K44,K51040104001102TAP9
  650                S     @0039@,PARAMT&69   FIGURE REMAINDER                      7  2258  S B19 A50          111
  651                MLC   LOCATN,ADDR                                              7  2265  M ?80 635          111
  652                ZS    PARAMT&69,HOLD                                           7  2272  ! A50 B95          111
  653                B     MODAD                                                    4  2279  B Q12              111
  654                MLC   RESULT-1,LOCATN                                          7  2283  M C02 ?80          111
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   13
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  655                SW    TSTLNG&9                                                 4  2290  , J67              111
&SB19A50M?80635!A50B95BQ12MC02?80,J67   L036K93,K65K72,K79K83,K90040104001112TAP9
  656                B     FSTCON-34                                                4  2294  B U07              112
  657         *                        PUNCH THE FIRST 39 POSITIONS
  658         REST   CW    TSTLNG&9                                                 4  2298  ) J67              112
  659                MLC   PARAMT&69,LITCNT                                         7  2302  M A50 ?76          112
  660                MZ    @ @,LITCNT                                               7  2309  Y B80 ?76          112
  661                SW    SPLIT&5                                                  4  2316  , K38              112
  662                B     CDFULL                                                   4  2320  B M88              112
  663         *
  664         PRINT2 BCV   OVFLO                                                    5  2324  B C27 @            112
&BU07)J67MA50?76YB80?76,K38BM88BC27@    L035L28,K98L02,L09L16,L20L24104001122TAP9
  665                CS    332                                                      4  2329  / 332              113
  666                CS                                                             1  2333  /                  113
  667                C     OPER,@EQU @                                              7  2334  C ?04 B84          113
  668                BE    CTL                                                      5  2341  B M25 S            113
  669                BW    *&9,FSTIME                                               8  2346  V L62 C22 1        113
  670                SW    FSTIME                                                   4  2354  , C22              113
  671                B     CDFULL                                                   4  2358  B M88              113
&/332/C?04B84BM25SVL62C221,C22BM88      L033L61,L33L34,L41L46,L54L58104001132TAP9
  672                CW    FSTIME                                                   4  2362  ) C22              114
  673                SW    305                                                      4  2366  , 305              114
  674                BCE   *&5,PARAMT&60,G                                          8  2370  B L82 A41 G        114
  675                B     *&8                                                      4  2378  B L89              114
  676                MLC   PARAMT&64,309                                            7  2382  M A45 309          114
  677                MLC   LOCATN,ADDR                                              7  2389  M ?80 635          114
  678                B     DECOD                                                    4  2396  B 497              114
&)C22,305BL82A41GBL89MA45309M?80635B497 L038L99,L66L70,L78L82,L89L96104001142TAP9
  679                LCA   EDIT,297                                                 7  2400  L P45 297          115
  680                MCE   WORK,297                                                 7  2407  E 640 297          115
  681                MLC   @L@,140                                                  7  2414  M B85 140          115
  682                B     PRINT1                                                   4  2421  B Y43              115
  683         *
  684         CTL    MLC   LOCATN,ADDR                                              7  2425  M ?80 635          115
&LP45297E640297MB85140BY43M?80635       L032M31,M07M14,M21M25,040040104001152TAP9
  685                BCE   CDFULL-11,LOCATN-2,%                                     8  2432  B M77 ?78 %        116
  686                B     DECOD                                                    4  2440  B 497              116
  687                LCA   EDIT,290                                                 7  2444  L P45 290          116
  688                MCE   WORK,290                                                 7  2451  E 640 290          116
  689                BWZ   PRINT1,LOCATN-1,2                                        8  2458  V Y43 ?79 2        116
&BM77?78%B497LP45290E640290VY43?792     L034M65,M40M44,M51M58,040040104001162TAP9
  690                MLC   @X@,292                                                  7  2466  M B86 292          117
  691                B     PRINT1                                                   4  2473  B Y43              117
  692                MLC   LOCATN,290                                               7  2477  M ?80 290          117
  693                B     PRINT1                                                   4  2484  B Y43              117
  694         *
  695         CDFULL CW    ISOLAT,LITCTL                                            7  2488  ) C24 C25          117
  696                BCE   AGAIN,COUNT,0                                            8  2495  B 756 A59 0        117
&MB86292BY43M?80290BY43)C24C25B756A590  L037N02,M73M77,M84M88,M95040104001172TAP9
  697                MLC   SWADDR&X2,ADDR                                           7  2503  M PM8 635          118
  698                MLC   @040@,SWADDR&X2                                          7  2510  M B76 PM8          118
  699                MLC   SWADDR&18,167                                            7  2517  M P66 167          118
  700                MLC                                                            1  2524  M                  118
  701                MLC   SWADDR&12,160                                            7  2525  M P60 160          118
  702                MLC                                                            1  2532  M                  118
  703                MLC   SWADDR&6,153                                             7  2533  M P54 153          118
&MPM8635MB76PM8MP66167MMP60160MMP54153  L037N39,N10N17,N24N25,N32N33104001182TAP9
  704                MLC                                                            1  2540  M                  119
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   14
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  705                ZS    @1@,HOLD                                                 7  2541  ! B20 B95          119
  706                B     MODAD                                                    4  2548  B Q12              119
  707         P4SK3  MLC   RESULT-1,146                                             7  2552  M C02 146          119
  708                SW    141                                                      4  2559  , 141              119
  709                MLC   SPACE,143                                                7  2563  M B15 143          119
  710                MLC   CARDCT,175                                               7  2570  M C17 175          119
&M!B20B95BQ12MC02146,141MB15143MC17175  L037N76,N41N48,N52N59,N63N70104001192TAP9
  711                A     @1@,CARDCT                                               7  2577  A B20 C17          120
  712                P                                                              1  2584  4                  120
  713                CS    139                                                      4  2585  / 139              120
  714                MLC   RESULT-1,ADDR                                            7  2589  M C02 635          120
  715                B     DECOD                                                    4  2596  B 497              120
  716                C     WORK,@04000@                                             7  2600  C 640 B91          120
  717                BH    *&5                                                      5  2607  B O16 U            120
&AB20C174/139MC02635B497C640B91BO16U    L035O11,N84N85,N89N96,O00O07104001202TAP9
  718                SW    EXCEED                                                   4  2612  , C26              121
  719                LCA   @040@,SWADDR&18                                          7  2616  L B76 P66          121
  720                LCA   SWADDR&18,SWADDR&15                                      7  2623  L P66 P63          121
  721                CHAIN 5                                                                             MACRO
  722                LCA                                                            1  2630  L           GEN    121
  723                LCA                                                            1  2631  L           GEN    121
  724                LCA                                                            1  2632  L           GEN    121
  725                LCA                                                            1  2633  L           GEN    121
&,C26LB76P66LP66P63LLLL                 L022O33,O16O23,O30O31,O32O33104001212TAP9
  726                LCA                                                            1  2634  L           GEN    122
  727                LCA   SETUP-1,180                                              7  2635  L Q10 180          122
  728                B     REINIT                                                   4  2642  B 666              122
  729         *
  730         COMMNT SW    RECORD&5                                                 4  2646  , R91              122
  731                BCV   OVFLO                                                    5  2650  B C27 @            122
  732                CS    0332                                                     4  2655  / 332              122
  733                CS                                                             1  2659  /                  122
&LLQ10180B666,R91BC27@/332/             L026O59,O35O42,O46O50,O55O59104001222TAP9
  734                CW    RECORD&15,RECORD&20                                      7  2660  ) ?01 ?06          123
  735                MLC   RECORD&71,280                                            7  2667  M ?57 280          123
  736                SW    RECORD,RECORD&2                                          7  2674  , R86 R88          123
  737                MCS   RECORD&1,207                                             7  2681  Z R87 207          123
  738                MLC   RECORD&4,211                                             7  2688  M R90 211          123
&)?01?06M?57280,R86R88ZR87207MR90211    L035O94,O67O74,O81O88,040040104001232TAP9
  739                MCS   RECORD&79,204                                            7  2695  Z ?65 204          124
  740                BCV   OVFLO                                                    5  2702  B C27 @            124
  741                W     GETOBJ                                                   4  2707  2 719              124
  742         *
  743         DS     BW    *&9,FSTIME                                               8  2711  V P27 C22 1        124
  744                SW    FSTIME                                                   4  2719  , C22              124
  745                B     CDFULL                                                   4  2723  B M88              124
  746                CW    FSTIME                                                   4  2727  ) C22              124
&Z?65204BC27@2719VP27C221,C22BM88)C22   L036P30,P02P07,P11P19,P23P27104001242TAP9
  747                CS    332                                                      4  2731  / 332              125
  748                CS                                                             1  2735  /                  125
  749                B     PRINT&7                                                  4  2736  B X85              125
  750         *         ***  CONSTANTS  ***
  751         EDIT   DCW   @ 0    @                                                 6  2745                     125
  752         SWADDR DCW   @040@                                                    3  2748                     125
  753                DCW   @040@                                                    3  2751                     125
  754                DCW   @040@                                                    3  2754                     125
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   15
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&/332/BX85 0    040040040               L024P54,P35P36,P40P46,P49P52104001252TAP9
  755                DCW   @040@                                                    3  2757                     126
  756                DCW   @040@                                                    3  2760                     126
  757                DCW   @040@                                                    3  2763                     126
  758                DCW   @040@                                                    3  2766                     126
  759                DCW   @040@                                                    3  2769                     126
&040040040040040                        L015P69,P58P61,P64P67,040040104001262TAP9
&L      ,040040,040040,0400401040       L039Q08,040040,040040,040040104001272TAP9
  760         SETUP  DCW   @L      ,040040,040040,0400401040         |@            42  2811                     128
  761         *                        COPY OF ROUTINE TO MODIFY MACHINE ADDRESS
  762         *                             BY A PLUS OR MINUS ADJUSTMENT VALUE
  763         *                           * ADDRESS PLACED AT ADDR
  764         *                           * ADJUSTMENT VALUE TAKEN FROM PARAMT&10
  765         *                           * MODIFIED ADDRESS PLACED AT RESULT-1
  766         MODAD  SBR   MDEXIT&3                                                 4  2812  H R17              128
  767                BAV   *&1                                                      5  2816  B Q21 Z            128
  768                CW    NEG1#1                                                   4  2821  ) B92              128
  769                BM    DECR1,HOLD#3                                             8  2825  V R52 B95 K        128
&  |HR17BQ21Z)B92VR52B95K               L024Q32)Q09Q09,Q12Q16,Q21Q25104001282TAP9
  770         SETIN  NOP   @?0@                                                     4  2833  N B97              129
  771                ORG   SETIN                                                              2833
&NB97                                   L004Q36,040040,040040,040040104001292TAP9
  772                MLC   ADDR,RESULT-1                                            7  2833  M 635 C02          130
  773                MZ    @ @,RESULT-1                                             7  2840  Y B80 C02          130
  774                A     HOLD,RESULT-1                                            7  2847  A B95 C02          130
  775                MZ    ADDR,RESULT-1                                            7  2854  Y 635 C02          130
  776                MZ    RESULT-3,YYY                                             7  2861  Y C00 R51          130
&M635C02YB80C02AB95C02Y635C02YC00R51    L035Q67,Q40Q47,Q54Q61,040040104001302TAP9
  777                MZ    ADDR-2,XXX                                               7  2868  Y 633 R50          131
  778                BW    MDEXIT&4,NEG1                                            8  2875  V R18 B92 1        131
  779                C     XXX,YYY                                                  7  2883  C R50 R51          131
  780                BH    *&5                                                      5  2890  B Q99 U            131
  781                B     MDEXIT                                                   4  2895  B R14              131
  782                SW    RESULT-1                                                 4  2899  , C02              131
&Y633R50VR18B921CR50R51BQ99UBR14,C02    L035R02,Q75Q83,Q90Q95,Q99040104001312TAP9
  783                A     @|0@,RESULT#4                                            7  2903  A B99 C03          132
  784                CW    RESULT-1                                                 4  2910  ) C02              132
  785         MDEXIT B     000                                                      4  2914  B 000              132
  786                BAV   MDEXIT                                                   5  2918  B R14 Z            132
  787                C     XXX,YYY                                                  7  2923  C R50 R51          132
  788                BH    MDEXIT                                                   5  2930  B R14 U            132
  789                SW    RESULT-1                                                 4  2935  , C02              132
&AB99C03)C02B000BR14ZCR50R51BR14U,C02   L036R38,R10R14,R18R23,R30R35104001322TAP9
  790                A     @?0@,RESULT                                              7  2939  A B97 C03          133
  791                B     MDEXIT-4                                                 4  2946  B R10              133
  792         XXX    DCW   @2@                                                      1  2950                     133
  793         YYY    DCW   @2@                                                      1  2951                     133
  794         DECR1  SW    NEG1                                                     4  2952  , B92              133
  795                A     @999@,HOLD                                               7  2956  A C06 B95          133
  796                A     @?01@,HOLD                                               7  2963  A C09 B95          133
&AB97C03BR1022,B92AC06B95AC09B95        L031R69,R46R50,R51R52,R56R63104001332TAP9
  797                B     SETIN                                                    4  2970  B Q33              134
  798         MODZR  MLC   HOLD,RESULT-1                                            7  2974  M B95 C02          134
  799                B     MDEXIT                                                   4  2981  B R14              134
  800                H                                                              1  2985  .                  134
  801         *
  802         *                        INPUT RECORD AREA
  803         *
  804 99      RECORD DA    1X80,|                                                      2986   3066              134
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   16
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  805         LABEL        11                                                          2996              SBFLD
  806         OPER         19                                                          3004              SBFLD
&BQ33MB95C02BR14.                       L016R85,R74R81,R85R86,040040104001342TAP9
                     DC    @|@                                                      1  3066              RMARK  135
  807         PARTBL DA    1X90,|                                                      3067   3157              135
  808 99      AADDR        1,1                                                         3067              FIELD  135
  809 99      BADDR        2,2                                                         3068              FIELD  135
  810 99      ERRPOS       6                                                           3072              SBFLD
  811 99      ICOUNT       7,7                                                         3073              FIELD  135
&|                                      L001?66)?66?66,?67?67,?68?73104001352TAP9
  812 99      LITCNT       8,10                                                        3076              FIELD  136
  813 99      ACTOP        11,11                                                       3077              FIELD  136
  814 99      LOCATN       12,14                                                       3080              FIELD  136
  815 99      PARAMT       15,15                                                       3081              FIELD  136
  816         AOPND        85,87                                                       3153              FIELD  136
  817         BOPND        88,90                                                       3156              FIELD  136
&                                       L001001,?74?77,?78?81,A51A54104001362TAP9
                     DC    @|@                                                      1  3157              RMARK  137
  818         *
  819                ORG   RECORD&1                                                           2987
&|                                      L001A57)A57A57,040040,040040104001372TAP9
  820         HSKPG  MLC   @0004@,CARDCT#4                                          7  2987  M C13 C17          138
  821                MLC   @0000@,ERRCNT#4                                          7  2994  M A66 C21          138
  822                CW    FSTIME#1,SUBNXT#1                                        7  3001  ) C22 C23          138
  823                CW    ISOLAT#1,LITCTL#1                                        7  3008  ) C24 C25          138
  824                CW    EXCEED#1                                                 4  3015  ) C26              138
  825                CS    139                                                      4  3019  / 139              138
&MC13C17MA66C21)C22C23)C24C25)C26/139   L036?22,R94?01,?08?15,?19040104001382TAP9
  826                CS    80                                                       4  3023  / 080              139
  827                SW    21                                                       4  3027  , 021              139
  828                B     HSKPG1                                                   4  3031  B 653              139
  829                H                                                              1  3035  .                  139
  830                LTORG PARTBL&91                                                          3158
&/080,021B653.                          L013?35,?27?31,?35040,040040104001392TAP9
                     DCW   @0@                                                      1  3158              LIT    140
         377  COUNT        #01                                                      1  3159              AREA   140
                           @000@                                                    3  3162              LIT    140
                           @0000@                                                   4  3166              LIT    140
         381  POSCNT       #04                                                      4  3170              AREA   140
         382               @        @                                               8  3178              LIT    140
         382  ASSMBD       #08                                                      8  3186              AREA   140
&0 0000000                              L029A86,A59A60,A63A67,A71A79104001402TAP9
                           @EX  @                                                   4  3190              LIT    141
                           @XFR @                                                   4  3194              LIT    141
                           @CTL @                                                   4  3198              LIT    141
                           @JOB @                                                   4  3202              LIT    141
                           @B@                                                      1  3203              LIT    141
                           @DS  @                                                   4  3207              LIT    141
                           @END @                                                   4  3211              LIT    141
&EX  XFR CTL JOB BDS  END               L025B11,A91A95,A99B03,B04B08104001412TAP9
         433  SPACE        #04                                                      4  3215              AREA   142
                           @0039@                                                   4  3219              LIT    142
                           @1@                                                      1  3220              LIT    142
                           @3@                                                      1  3221              LIT    142
         482               @        @                                               8  3229              LIT    142
                           @DA  @                                                   4  3233              LIT    142
         497               @DC   @                                                  5  3238              LIT    142
&    003913        DA  DC               L027B38,B16B20,B21B22,B30B34104001422TAP9
                           @DC  @                                                   4  3242              LIT    143
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   17
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

                           @M@                                                      1  3243              LIT    143
                           @  @                                                     2  3245              LIT    143
                           @@@                                                      1  3246              LIT    143
                           @Z@                                                      1  3247              LIT    143
         573               @00080@                                                  5  3252              LIT    143
                           @ADDR@                                                   4  3256              LIT    143
&DC  M  @Z00080ADDR                     L018B56,B43B44,B46B47,B48B53104001432TAP9
         591               @INVALID@                                                7  3263              LIT    144
                           @OPER@                                                   4  3267              LIT    144
                           @SYM@                                                    3  3270              LIT    144
                           @9@                                                      1  3271              LIT    144
                           @)@                                                      1  3272              LIT    144
                           @A@                                                      1  3273              LIT    144
                           @040@                                                    3  3276              LIT    144
&INVALIDOPERSYM9)A040                   L020B76,B64B68,B71B72,B73B74104001442TAP9
                           @53@                                                     2  3278              LIT    145
                           @N@                                                      1  3279              LIT    145
                           @ @                                                      1  3280              LIT    145
                           @EQU @                                                   4  3284              LIT    145
                           @L@                                                      1  3285              LIT    145
                           @X@                                                      1  3286              LIT    145
         716               @04000@                                                  5  3291              LIT    145
&53N EQU LX04000                        L015B91,B79B80,B81B85,B86B87104001452TAP9
         768  NEG1         #01                                                      1  3292              AREA   146
         769  HOLD         #03                                                      3  3295              AREA   146
                           @?0@                                                     2  3297              LIT    146
                           @|0@                                                     2  3299              LIT    146
         783  RESULT       #04                                                      4  3303              AREA   146
                           @999@                                                    3  3306              LIT    146
                           @?01@                                                    3  3309              LIT    146
&    ?0|0    999?01                     L018C09,B93B96,B98C00,C04C07104001462TAP9
                           @0004@                                                   4  3313              LIT    147
         820  CARDCT       #04                                                      4  3317              AREA   147
         821  ERRCNT       #04                                                      4  3321              AREA   147
         822  FSTIME       #01                                                      1  3322              AREA   147
         822  SUBNXT       #01                                                      1  3323              AREA   147
         823  ISOLAT       #01                                                      1  3324              AREA   147
         823  LITCTL       #01                                                      1  3325              AREA   147
&0004                                   L016C25,C14C18,C22C23,C24C25104001472TAP9
         824  EXCEED       #01                                                      1  3326              AREA   148
  831         *
  832         *                        CALLING LINKAGE FOR PHASE 9 SUBROUTINES
  833         *                             ON SYSTEMS TAPE
  834         *
  835         *                        ***  PAGE OVERFLOW CALL  ***
  836         OVFLO  SBR   OVFEXT                                                   4  3327  H C40              148
  837                CC    1                                                        2  3331  F 1                148
  838                B     GETOVF                                                   4  3333  B D63              148
  839         OVFOUT B     JOBACK                                                   4  3337  B 880              148
  840         OVFEXT EQU   *                                                           3340
  841                NOP   PAGENO#3                                                 4  3341  N E16              148
  842         *
  843         *                        ***  DA HEADER CALL  ***
  844         DAOUT  BW    DAHDR,FSTIME                                             8  3345  V E30 C22 1        148
& HC40F1BD63B880NE16VE30C221            L027C52,C27C31,C33C37,C41C45104001482TAP9
  845                B     GETDA                                                    4  3353  B D55              149
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   18
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  846         *
  847         *                        ***  DA SUBSEQUENT ENTRY CALL  ***
  848         SUBDA  NOP   000,000,0                                                8  3357  N 000 000 0        149
  849                NOP   FSTIME                                                   4  3365  N C22              149
  850                BCE   GETSUB,OPER-3,                                           8  3369  B D47 ?01          149
  851                A     @1@,COUNT                                                7  3377  A E17 A59          149
  852         DADONE CW    SUBNXT,FSTIME                                            7  3384  ) C23 C22          149
&BD55N0000000NC22BD47?01 AE17A59)C23C22 L038C90,C57C65,C69C77,C84040104001492TAP9
  853                BCE   REINIT,COUNT,0                                           8  3391  B 666 A59 0        150
  854                B     P4SK3&18                                                 4  3399  B N70              150
  855         *
  856         *                        ***  EX AND XFR CALL  ***
  857         EXECUT BW    SETEXC,FSTIME                                            8  3403  V E38 C22 1        150
  858                B     GETEX                                                    4  3411  B D39              150
  859         *
  860         *                        ***  END CARD - END OF JOB CALL  ***
  861         END    BW    END2,FSTIME                                              8  3415  V E26 C22 1        150
  862                SW    FSTIME                                                   4  3423  , C22              150
&B666A590BN70VE38C221BD39VE26C221,C22   L036D26,C99D03,D11D15,D23040104001502TAP9
  863                B     GETEND                                                   4  3427  B D31              151
  864         *
  865         *
  866         *                        ROUTINE TO ORDER THE DESIRED SUBROUTINE
  867         GETEND RTW   1,OVRLAY                                                 8  3431  L %U1 E18 R        151
  868         GETEX  RTW   1,OVRLAY                                                 8  3439  L %U1 E18 R        151
  869         GETSUB RTW   1,OVRLAY                                                 8  3447  L %U1 E18 R        151
  870         GETDA  RTW   1,OVRLAY                                                 8  3455  L %U1 E18 R        151
&BD31L%U1E18RL%U1E18RL%U1E18RL%U1E18R   L036D62,D31D39,D47D55,040040104001512TAP9
  871         GETOVF RTW   1,OVRLAY                                                 8  3463  L %U1 E18 R        152
  872                BER   TPERR                                                    5  3471  B 363 L            152
  873                BEF   *&1                                                      5  3476  B D81 K            152
  874                B     SUBRT                                                    4  3481  B E22              152
  875         *
  876         *                        ROUTINE TO REPOSITION SYSTEMS TAPE AFTER
  877         *                             SUBROUTINE IS FINISHED
  878         BSP5   BSP   1                                                        5  3485  U %U1 B            152
  879         BSP4   BSP   1                                                        5  3490  U %U1 B            152
  880         BSP3   BSP   1                                                        5  3495  U %U1 B            152
&L%U1E18RB363LBD81KBE22U%U1BU%U1BU%U1B  L037D99,D71D76,D81D85,D90D95104001522TAP9
  881         BSP2   BSP   1                                                        5  3500  U %U1 B            153
  882         BSP1   BSP   1                                                        5  3505  U %U1 B            153
  883                B     OVRLAY             EXIT FROM SUBRT ITS FIRST INSTR       4  3510  B E18              153
  884         *
  885                LTORG *                                                                  3514
         841  PAGENO DCW   #03                                                      3  3516              AREA   153
                           @1@                                                      1  3517              LIT    153
  886         *
  887         *                        *****  COMMON AREA FOR SUBROUTINES  *****
  888         *
  889         OVRLAY H                                                              1  3518  .                  153
  890         *
&U%U1BU%U1BBE18   1.                    L019E18,E05E10,E14E17,E18040104001532TAP9
  891         3998   DCW   @}@                                                      1  3998                     154
  892         *
  893                ORG   3975                                                               3975
1                          1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR       2TAP9               PAGE   19
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

&}                                      L001I98,040040,040040,040040104001542TAP9
  894         SETXX  SW    AOPND-12                                                 4  3975  , A41              155
  895                MLC   ACTOP,ASSMBD-7                                           7  3979  M ?77 A79          155
  896                B     P4SK1&21                                                 4  3986  B |84              155
&,A41M?77A79B|84                        L015I89,I79I86,040040,040040104001552TAP9
&                                       N000000,040040,040040,040040B16701562TAP9
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01572TAP9
&,068072)063067/061039                                       ,001001104001582TAP9
  897                EX    SYSTEM                                                            B 167              156
1                          PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD             2TAP9               PAGE   20
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  898                JOB   PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD
  899         *
  900         *                        OVERLAY SYSTEMS TAPE CONTROL TO WRITE FROM
  901         *                             COMMON OVERLAY AREA FOR SUBROUTINES
  902                ORG   SYSTEM                                                             0167
  903                WTW   1,OVRLAY                                                 8  0167  L %U1 E18 W        159
  904         *
  905                ORG   OVRLAY                                                             3518
&L%U1E18W                               L008174,040040,040040,040040104001592TAP9
  906                B     OVFOUT                                                   4  3518  B C37              160
  907         SUBRT  CS    332                FIRST INSTRUCTION OF SUBRT            4  3522  / 332              160
  908                CS                                                             1  3526  /                  160
  909                SW    21                                                       4  3527  , 021              160
  910                MLC   HEADNG,278                                               7  3531  M 072 278          160
  911                SW    286                                                      4  3538  , 286              160
  912                MLC   SETUP-1,290                                              7  3542  M Q10 290          160
&BC37/332/,021M072278,286MQ10290        L031E48,E22E26,E27E31,E38E42104001602TAP9
  913                MLC   @PAGE@,307                                               7  3549  M F73 307          161
  914                A     @1@,PAGENO                                               7  3556  A F74 E16          161
  915                MCS   PAGENO,314                                               7  3563  Z E16 314          161
  916                CC    T                                                        2  3570  F T                161
  917                W                                                              1  3572  2                  161
  918                CS    332                                                      4  3573  / 332              161
  919                CS                                                             1  3577  /                  161
&MF73307AF74E16ZE16314FT2/332/          L029E77,E56E63,E70E72,E73E77104001612TAP9
  920                LCA   LEFT,234                                                 7  3578  L F37 234          162
  921                LCA   RIGHT,314                                                7  3585  L F69 314          162
  922                CC    S                                                        2  3592  F S                162
  923                W                                                              1  3594  2                  162
  924                CS    332                                                      4  3595  / 332              162
  925                CS                                                             1  3599  /                  162
  926                B     BSP1                                                     4  3600  B E05              162
  927         HEADNG EQU   72                                                          0072
&LF37234LF69314FS2/332/BE05             L026F03,E85E92,E94E95,E99F00104001622TAP9
  928         LEFT   DCW   @ SEQ PG LIN  LABEL  OP    OPERANDS@                    34  3637                     163
& SEQ PG LIN  LABEL  OP    OPERANDS     L034F37,040040,040040,040040104001632TAP9
  929         RIGHT  DCW   @CT  LOCN  INSTRUCTION TYPE  CARD@                      32  3669                     164
  930                LTORG *                                                                  3670
                     DCW   @PAGE@                                                   4  3673              LIT    164
                           @1@                                                      1  3674              LIT    164
  931                ORG   GM1                                                                3968
  932         *
&CT  LOCN  INSTRUCTION TYPE  CARDPAGE1  L037F74,F70F74,040040,040040104001642TAP9
  933                DCW   @}@                GROUP MARK - SUBROUTINE HIGH LOC      1  3968                     165
  934         *
&}                                      L001I68,040040,040040,040040104001652TAP9
&                                       N000000,040040,040040,040040B16701662TAP9
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01672TAP9
&,068072)063067/061039                                       ,001001104001682TAP9
  935                XFR   SYSTEM                                                            B 167              166
1                          PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD                 2TAP9               PAGE   21
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  936                JOB   PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD
  937         *
  938                ORG   OVRLAY                                                             3518
  939                B     PRINT1                                                   4  3518  B Y43              169
  940         *
  941                SW    FSTIME                                                   4  3522  , C22              169
  942                B     CDFULL                                                   4  3526  B M88              169
  943         DAHDR  CS    332                                                      4  3530  / 332              169
  944                CS                                                             1  3534  /                  169
  945                CW    FSTIME                                                   4  3535  ) C22              169
  946                MLC   LOCATN,ADDR                                              7  3539  M ?80 635          169
&BY43,C22BM88/332/)C22M?80635           L028E45,E22E26,E30E34,E35E39104001692TAP9
  947                B     DECOD                                                    4  3546  B 497              170
  948                LCA   EDIT,290                                                 7  3550  L P45 290          170
  949                MCE   WORK,290                                                 7  3557  E 640 290          170
  950                LCA   LOADXX,146                                               7  3564  L G57 146          170
  951                LCA   LOCATN,ADDR                                              7  3571  L ?80 635          170
  952                B     SETWM                                                    4  3578  B G73              170
  953                NOP                                                            1  3582  N                  170
&B497LP45290E640290LG57146L?80635BG73N  L037E82,E50E57,E64E71,E78E82104001702TAP9
  954                NOP                                                            1  3583  N                  171
  955                NOP                                                            1  3584  N                  171
  956                MLC   LITCNT,ADDR                                              7  3585  M ?76 635          171
  957                B     DECOD                                                    4  3592  B 497              171
  958                A     290,WORK                                                 7  3596  A 290 640          171
  959                S     PARAMT&67,WORK                                           7  3603  S A48 640          171
  960                S     @1@,WORK                                                 7  3610  S I59 640          171
&NNM?76635B497A290640SA48640SI59640     L034F16,E84E85,E92E96,F03F10104001712TAP9
  961                MZ    @ @,WORK                                                 7  3617  Y I60 640          172
  962                LCA   EDIT,297                                                 7  3624  L P45 297          172
  963                MCE   WORK,297                                                 7  3631  E 640 297          172
  964                MCS   CARDCT,314                                               7  3638  Z C17 314          172
  965                SW    SUBNXT                                                   4  3645  , C23              172
  966                CW    ERRPOS-1,ERRPOS-2                                        7  3649  ) ?71 ?70          172
&YI60640LP45297E640297ZC17314,C23)?71?70L039F55,F24F31,F38F45,F49040104001722TAP9
  967                MLC   @000@,TEMP                                               7  3656  M I63 I67          173
  968                MLC   PARAMT&9,TEMP                                            7  3663  M ?90 I67          173
  969                MLC   LOCATN,ADDR                                              7  3670  M ?80 635          173
  970                MLC   @000@,HOLD                                               7  3677  M I63 B95          173
  971                MLC   PARAMT&19,HOLD                                           7  3684  M A00 B95          173
&MI63I67M?90I67M?80635MI63B95MA00B95    L035F90,F63F70,F77F84,040040104001732TAP9
  972                A     PARAMT&60,HOLD                                           7  3691  A A41 B95          174
  973         SUB    S     @1@,TEMP                                                 7  3698  S I59 I67          174
  974                MZ    @ @,TEMP                                                 7  3705  Y I60 I67          174
  975                C     @000@,TEMP                                               7  3712  C I63 I67          174
  976                BE    BSP2                                                     5  3719  B E00 S            174
  977                B     MODAD                                                    4  3724  B Q12              174
&AA41B95SI59I67YI60I67CI63I67BE00SBQ12  L037G27,F98G05,G12G19,G24040104001742TAP9
  978                MLC   RESULT-1,ADDR                                            7  3728  M C02 635          175
  979         DABACK B     SETWM                                                    4  3735  B G73              175
  980                B     SUB                                                      4  3739  B F98              175
  981                DS    30                                                          3772
  982         *                        ROUTINE TO SET UP WORDMARKS FOR DA ENTRIES
&MC02635BG73BF98                        L015G42,G35G39,040040,040040104001752TAP9
  983         SETWM  SBR   SWOUT&10                                                 4  3773  H I53              176
  984                NOP   SW1,COUNT,0                                              8  3777  N H44 A59 0        176
  985                BCE   SW2,COUNT,0                                              8  3785  B H55 A59 0        176
1                          PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD                 2TAP9               PAGE   22
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  986                BCE   SW3,COUNT,1                                              8  3793  B H66 A59 1        176
  987                BCE   SW4,COUNT,2                                              8  3801  B H77 A59 2        176
&HI53NH44A590BH55A590BH66A591BH77A592   L036H08,G77G85,G93H01,040040104001762TAP9
  988                BCE   SW5,COUNT,3                                              8  3809  B H88 A59 3        177
  989                BCE   SW6,COUNT,4                                              8  3817  B H99 A59 4        177
  990                BCE   SW7,COUNT,5                                              8  3825  B I10 A59 5        177
  991                H     1,1                                                      7  3833  . 001 001          177
  992                B     *-10                                                     4  3840  B H33              177
&BH88A593BH99A594BI10A595.001001BH33    L035H43,H17H25,H33H40,040040104001772TAP9
  993         SW1    H     002,002                                                  7  3844  . 002 002          178
  994                B     SWOUT                                                    4  3851  B I43              178
  995         SW2    LCA   ADDR,150                                                 7  3855  L 635 150          178
  996                B     SWOUT                                                    4  3862  B I43              178
  997         SW3    LCA   ADDR,153                                                 7  3866  L 635 153          178
  998                B     SWOUT                                                    4  3873  B I43              178
&.002002BI43L635150BI43L635153BI43      L033H76,H51H55,H62H66,H73040104001782TAP9
  999         SW4    LCA   ADDR,157                                                 7  3877  L 635 157          179
 1000                B     SWOUT                                                    4  3884  B I43              179
 1001         SW5    LCA   ADDR,160                                                 7  3888  L 635 160          179
 1002                B     SWOUT                                                    4  3895  B I43              179
 1003         SW6    LCA   ADDR,164                                                 7  3899  L 635 164          179
 1004                B     SWOUT                                                    4  3906  B I43              179
&L635157BI43L635160BI43L635164BI43      L033I09,H84H88,H95H99,I06040104001792TAP9
 1005         SW7    LCA   ADDR,167                                                 7  3910  L 635 167          180
 1006                MLC   CARDCT,175                                               7  3917  M C17 175          180
 1007                P                                                              1  3924  4                  180
 1008                A     @1@,CARDCT                                               7  3925  A I59 C17          180
 1009                MLC   @0@,COUNT                                                7  3932  M I64 A59          180
 1010                B     SWOUT&7                                                  4  3939  B I50              180
&L635167MC171754AI59C17MI64A59BI50      L033I42,I17I24,I25I32,I39040104001802TAP9
 1011         SWOUT  A     @1@,COUNT                                                7  3943  A I59 A59          181
 1012                B     0                                                        4  3950  B 000              181
 1013                H     TEMP#3                                                   4  3954  . I67              181
 1014                DCW   @,@                                                      1  3958                     181
 1015                LTORG *                                                                  3959
                     DCW   @1@                                                      1  3959              LIT    181
                           @ @                                                      1  3960              LIT    181
                           @000@                                                    3  3963              LIT    181
&AI59A59B000.I67,1 000                  L021I63,I50I54,I58I59,I60I61104001812TAP9
                           @0@                                                      1  3964              LIT    182
        1013  TEMP         #03                                                      3  3967              AREA   182
 1016         GM1    DCW   @}@                                                      1  3968                     182
 1017                DCW   @}@                GROUP MARK - HIGH STORAGE POINT       1  3969                     182
 1018         *
 1019                ORG   3751                                                               3751
&0   }}                                 L006I69,I65I68,I69040,040040104001822TAP9
 1020                LCA   1,1                                                      7  3751  L 001 001          183
 1021         LOADXX EQU   *                                                           3757
&L001001                                L007G57,040040,040040,040040104001832TAP9
&                                       N000000,040040,040040,040040B16701842TAP9
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01852TAP9
&,068072)063067/061039                                       ,001001104001862TAP9
 1022                EX    SYSTEM                                                            B 167              184
1                          PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD       2TAP9               PAGE   23
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1023                JOB   PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD
 1024         *
 1025                ORG   OVRLAY                                                             3518
 1026                B     DADONE                                                   4  3518  B C84              187
 1027         *
 1028                BCE   *&5,OPER-3,                                              8  3522  B E34 ?01          187
 1029                B     BSP3                                                     4  3530  B D95              187
 1030                CW    ERRPOS-1,ERRPOS-2                                        7  3534  ) ?71 ?70          187
 1031                CS    332                                                      4  3541  / 332              187
 1032                CS                                                             1  3545  /                  187
 1033                MLC   LOCATN,ADDR                                              7  3546  M ?80 635          187
&BC84BE34?01 BD95)?71?70/332/M?80635    L035E52,E22E30,E34E41,E45E46104001872TAP9
 1034                B     DECOD                                                    4  3553  B 497              188
 1035                LCA   EDIT,290                                                 7  3557  L P45 290          188
 1036                MCE   WORK,290                                                 7  3564  E 640 290          188
 1037                MLC   LOCATN,ADDR                                              7  3571  M ?80 635          188
 1038                ZS    LITCNT,HOLD                                              7  3578  ! ?76 B95          188
 1039                A     @1@,HOLD                                                 7  3585  A G24 B95          188
&B497LP45290E640290M?80635!?76B95AG24B95L039E91,E57E64,E71E78,E85040104001882TAP9
 1040                B     MODAD                                                    4  3592  B Q12              189
 1041                MLC   RESULT-1,ADDR                                            7  3596  M C02 635          189
 1042                MLC   @000@,TEMP                                               7  3603  M G27 I67          189
 1043                MLC   PARAMT&9,TEMP                                            7  3610  M ?90 I67          189
 1044                MLC   @000@,HOLD                                               7  3617  M G27 B95          189
 1045                MLC   PARAMT&19,HOLD                                           7  3624  M A00 B95          189
&BQ12MC02635MG27I67M?90I67MG27B95MA00B95L039F30,E96F03,F10F17,F24040104001892TAP9
 1046                A     PARAMT&60,HOLD                                           7  3631  A A41 B95          190
 1047                C     LITCNT,@000@                                             7  3638  C ?76 G27          190
 1048                BE    SUBFLD                                                   5  3645  B G13 S            190
 1049                MCS   CARDCT,314                                               7  3650  Z C17 314          190
 1050                MLC   @FIELD@,309                                              7  3657  M G32 309          190
 1051                B     SETWM                                                    4  3664  B G73              190
&AA41B95C?76G27BG13SZC17314MG32309BG73  L037F67,F38F45,F50F57,F64040104001902TAP9
 1052         DECRMT S     @1@,TEMP                                                 7  3668  S G24 I67          191
 1053                MZ    @ @,TEMP                                                 7  3675  Y G33 I67          191
 1054                C     @000@,TEMP                                               7  3682  C G27 I67          191
 1055                BE    BSPXX                                                    5  3689  B G51 S            191
 1056                B     MODAD                                                    4  3694  B Q12              191
 1057         SUBACK MLC   RESULT-1,ADDR                                            7  3698  M C02 635          191
&SG24I67YG33I67CG27I67BG51SBQ12MC02635  L037G04,F75F82,F89F94,F98040104001912TAP9
 1058                B     SETWM                                                    4  3705  B G73              192
 1059                B     DECRMT                                                   4  3709  B F68              192
 1060         SUBFLD MLC   @SBFLD@,309                                              7  3713  M G38 309          192
 1061                B     BSPXX                                                    4  3720  B G51              192
 1062         *
 1063                LTORG *                                                                  3724
                     DCW   @1@                                                      1  3724              LIT    192
                           @000@                                                    3  3727              LIT    192
        1050               @FIELD@                                                  5  3732              LIT    192
&BG73BF68MG38309BG511000FIELD           L028G32,G09G13,G20G24,G25G28104001922TAP9
                           @ @                                                      1  3733              LIT    193
        1060               @SBFLD@                                                  5  3738              LIT    193
 1064                ORG   3751                                                               3751
& SBFLD                                 L006G38,G34040,040040,040040104001932TAP9
 1065         BSPXX  BSP   1                                                        5  3751  U %U1 B            194
 1066                BSP   1                                                        5  3756  U %U1 B            194
 1067                BSP   1                                                        5  3761  U %U1 B            194
1                          PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD       2TAP9               PAGE   24
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1068                B     PRINT1                                                   4  3766  B Y43              194
&U%U1BU%U1BU%U1BBY43                    L019G69,G56G61,G66040,040040104001942TAP9
&                                       N000000,040040,040040,040040B16701952TAP9
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01962TAP9
&,068072)063067/061039                                       ,001001104001972TAP9
 1069                EX    SYSTEM                                                            B 167              195
1                          PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD                2TAP9               PAGE   25
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1070                JOB   PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD
 1071         *
 1072                ORG   OVRLAY                                                             3518
 1073                B     PRINT1                                                   4  3518  B Y43              198
 1074         *
 1075                SW    FSTIME                                                   4  3522  , C22              198
 1076                BCE   *&5,COUNT,0                                              8  3526  B E38 A59 0        198
 1077                B     CDFULL                                                   4  3534  B M88              198
 1078         SETEXC CW    FSTIME                                                   4  3538  ) C22              198
 1079                MLC   @B@,168                                                  7  3542  M H45 168          198
 1080                MLC   AOPND,171                                                7  3549  M A53 171          198
&BY43,C22BE38A590BM88)C22MH45168MA53171 L038E55,E22E26,E34E38,E42E49104001982TAP9
 1081                CS    332                                                      4  3556  / 332              199
 1082                CS                                                             1  3560  /                  199
 1083                MLC   @B@,293                                                  7  3561  M H45 293          199
 1084                MLC   AOPND,297                                                7  3568  M A53 297          199
 1085                MCS   CARDCT,314                                               7  3575  Z C17 314          199
 1086                MLC   @N000000@,146                                            7  3582  M H52 146          199
&/332/MH45293MA53297ZC17314MH52146      L033E88,E60E61,E68E75,E82040104001992TAP9
 1087                MLC   CARDCT,175                                               7  3589  M C17 175          200
 1088                A     @1@,CARDCT                                               7  3596  A H53 C17          200
 1089                P                                                              1  3603  4                  200
 1090                LCA   SETEX1,180                                               7  3604  L G64 180          200
 1091                SW    176                                                      4  3611  , 176              200
 1092                MLC   SETUP-1,180                                              7  3615  M Q10 180          200
&MC17175AH53C174LG64180,176MQ10180      L033F21,E96F03,F04F11,F15040104002002TAP9
 1093                MLC   CARDCT,175                                               7  3622  M C17 175          201
 1094                A     @1@,CARDCT                                               7  3629  A H53 C17          201
 1095                P                                                              1  3636  4                  201
 1096                LCA   SETEX2,180                                               7  3637  L H44 180          201
 1097                SW    176                                                      4  3644  , 176              201
 1098                MLC   SETUP-1,180                                              7  3648  M Q10 180          201
&MC17175AH53C174LH44180,176MQ10180      L033F54,F29F36,F37F44,F48040104002012TAP9
 1099                MLC   CARDCT,175                                               7  3655  M C17 175          202
 1100                A     @1@,CARDCT                                               7  3662  A H53 C17          202
 1101                P                                                              1  3669  4                  202
 1102                CS    180                                                      4  3670  / 180              202
 1103                LCA   SETUP-1,180                                              7  3674  L Q10 180          202
 1104                B     BSP4                                                     4  3681  B D90              202
&MC17175AH53C174/180LQ10180BD90         L030F84,F62F69,F70F74,F81040104002022TAP9
&,015022)024056,029036,040047,0540611001L039G23,040040,040040,040040104002032TAP9
 1105                DCW   @,015022)024056,029036,040047,0540611001,@              40  3724                     204
&,                                      L001G24)G24G24,040040,040040104002042TAP9
&001008B001     ,001008B001             L039G63)G25G25,040040,040040104002052TAP9
 1106         SETEX1 DC    @001008B001     ,001008B001              @              40  3764                     206
&                                       L001G64)G64G64,040040,040040104002062TAP9
&,068072)063067/061039                  L039H03,040040,040040,040040104002072TAP9
 1107                DCW   @,068072)063067/061039                   @              40  3804                     208
&                                       L001H04)H04H04,040040,040040104002082TAP9
&                    ,0010011040        L039H43)H05H05,040040,040040104002092TAP9
 1108         SETEX2 DC    @                    ,0010011040         @              40  3844                     210
                     DCW   @B@                                                      1  3845              LIT    210
        1086               @N000000@                                                7  3852              LIT    210
                           @1@                                                      1  3853              LIT    210
 1109         *
& BN0000001                             L010H53)H44H44,H45H46,H53040104002102TAP9
&                                       N000000,040040,040040,040040B16702112TAP9
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02122TAP0
&,068072)063067/061039                                       ,001001104002132TAP0
 1110                EX    SYSTEM                                                            B 167              211
1                          PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0       2TAP0               PAGE   26
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1111                JOB   PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0
 1112                ORG   OVRLAY                                                             3518
 1113                DCW   @0@                                                      1  3518                     214
 1114                H                                                              1  3519  .                  214
 1115                H                                                              1  3520  .                  214
 1116                H                                                              1  3521  .                  214
 1117                B     CDFULL                                                   4  3522  B M88              214
 1118         END2   B     MOVXX                                                    4  3526  B G96              214
 1119                CS    332                                                      4  3530  / 332              214
&0...BM88BG96/332                       L016E33,E19E20,E21E22,E26E30104002142TAP0
 1120                CS                                                             1  3534  /                  215
 1121                MLC   @/@,140                                                  7  3535  M G44 140          215
 1122                BCE   NOEND,AADDR,                                             8  3542  B F18 ?67          215
 1123         SETEND MLC   AOPND,143                                                7  3550  M A53 143          215
 1124                MLC   @080@,146                                                7  3557  M G47 146          215
 1125                SW    176                                                      4  3564  , 176              215
&/MG44140BF18?67 MA53143MG47146,176     L034E67,E35E42,E50E57,E64040104002152TAP0
 1126                MLC   SETUP-1,180                                              7  3568  M Q10 180          216
 1127                MLC   CARDCT,175                                               7  3575  M C17 175          216
 1128                MLC   @/@,293                                                  7  3582  M G44 293          216
 1129                MLC   AOPND,297                                                7  3589  M A53 297          216
 1130                MLC   @080@,301                                                7  3596  M G47 301          216
&MQ10180MC17175MG44293MA53297MG47301    L035F02,E75E82,E89E96,040040104002162TAP0
 1131                MCS   CARDCT,314                                               7  3603  Z C17 314          217
 1132                CW    FSTIME                                                   4  3610  ) C22              217
 1133                P     PRINT1                                                   4  3614  4 Y43              217
 1134         NOEND  MLC   @$$$@,AOPND                                              7  3618  M G50 A53          217
 1135                SW    ERRPOS-2                                                 4  3625  , ?70              217
 1136                B     SETEND                                                   4  3629  B E50              217
 1137         EOF4   RWD   2                                                        5  3633  U %U2 R            217
&ZC17314)C224Y43MG50A53,?70BE50U%U2R    L035F37,F10F14,F18F25,F29F33104002172TAP0
 1138                RWD   1                                                        5  3638  U %U1 R            218
 1139                CC    1                                                        2  3643  F 1                218
 1140                BW    *&5,EXCEED                                               8  3645  V F57 C26 1        218
 1141                B     TSTERR                                                   4  3653  B F76              218
 1142                CW    EOJ&1                                                    4  3657  ) G11              218
 1143                CS    332                                                      4  3661  / 332              218
 1144                CS                                                             1  3665  /                  218
&U%U1RF1VF57C261BF76)G11/332/           L028F65,F43F45,F53F57,F61F65104002182TAP0
 1145                MLC   @OBJECT CORE EXCEEDED@,    220                           7  3666  M G70 220          219
 1146                CC    T                                                        2  3673  F T                219
 1147                W                                                              1  3675  2                  219
 1148         TSTERR C     ERRCNT,@0000@                                            7  3676  C C21 G74          219
 1149                BE    EOJ                                                      5  3683  B G10 S            219
 1150                CS    332                                                      4  3688  / 332              219
 1151                CS                                                             1  3692  /                  219
&MG70220FT2CC21G74BG10S/332/            L027F92,F73F75,F76F83,F88F92104002192TAP0
 1152                MCS   ERRCNT,204                                               7  3693  Z C21 204          220
 1153                MLC   @ERRORS@,211                                             7  3700  M G80 211          220
 1154                CC    T                                                        2  3707  F T                220
 1155                W                                                              1  3709  2                  220
 1156         EOJ    CS    332                                                      4  3710  / 332              220
 1157                CS                                                             1  3714  /                  220
 1158                MLC   @END OF ASSEMBLY@,215                                    7  3715  M G95 215          220
&ZC21204MG80211FT2/332/MG95215          L029G21,G00G07,G09G10,G14G15104002202TAP0
 1159                CC    A                                                        2  3722  F A                221
 1160                W                                                              1  3724  2                  221
1                          PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0       2TAP0               PAGE   27
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 1161                CS    180                                                      4  3725  / 180              221
 1162                P                                                              1  3729  4                  221
 1163                SS    4                                                        2  3730  K 4                221
 1164                H     999,999                                                  7  3732  . 999 999          221
 1165                B     *-10                                                     4  3739  B G32              221
&FA2/1804K4.999999BG32                  L021G42,G24G25,G29G30,G32G39104002212TAP0
 1166                H                                                              1  3743  .                  222
 1167                LTORG *                                                                  3744
                     DCW   @/@                                                      1  3744              LIT    222
                           @080@                                                    3  3747              LIT    222
                           @$$$@                                                    3  3750              LIT    222
        1145               @OBJECT CORE EXCEEDED@                                  20  3770              LIT    222
                           @0000@                                                   4  3774              LIT    222
        1153               @ERRORS@                                                 6  3780              LIT    222
&./080$$$OBJECT CORE EXCEEDED0000ERRORS L038G80,G44G45,G48G51,G71G75104002222TAP0
        1158               @END OF ASSEMBLY@                                       15  3795              LIT    223
 1168                DCW   @}@                                                      1  3796                     223
 1169                ORG   3796                                                               3796
&END OF ASSEMBLY}                       L016G96,G96040,040040,040040104002232TAP0
 1170         MOVXX  MLC   NOPXX,TSTOVF&1                                           7  3796  M H11 !00          224
 1171                CS    180                                                      4  3803  / 180              224
 1172                B     END2&4                                                   4  3807  B E30              224
 1173         NOPXX  NOP                                                            1  3811  N                  224
&MH11!00/180BE30N                       L016H11,H03H07,H11040,040040104002242TAP0
&                                       N000000,040040,040040,040040B16702252TAP0
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02262TAP0
&,068072)063067/061039                                       ,001001104002272TAP0
 1174                EX    SYSTEM                                                            B 167              225
 1175         *
 1176                ORG   SYSTEM                                                             0167
 1177                WTW   1,CHECK                                                  8  0167  L %U1 082 W        228
 1178                ORG   CHECK                                                              0082
&L%U1082W                               L008174,040040,040040,040040104002282TAP0
 1179                DCW   @%@                                                      1  0082                     229
 1180                ORG   *&2                                                                0085
&%                                      L001082,040040,040040,040040104002292TAP0
 1181                DCW   @}@                                                      1  0085                     230
&}                                      L001085,040040,040040,040040104002302TAP0
&                                       N000000,040040,040040,040040B16702312TAP0
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02322TAP0
&,068072)063067/061039                                       ,001001104002332TAP0
 1182                EX    SYSTEM                                                            B 167              231
&                                       /167080                         02342TAP0
 1183                END   SYSTEM                                                            / 167 080          234
               JOB  1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR   2TAP1
               CTL  630 1
0103 *   PHASE 1 - READ AND ANALYZE SOURCE PROGRAM
0104 *                        ** SYSTEMS CONTROL **
0105           ORG  82
0106 CHECK     DCW  @ @
0107           DCW  @  }@
     81        DC   @}@                GROUP MARK WITHOUT WORD MARK
0109           ORG  100
0110 LOAD      RWD  1
0111           RTW  1,CHECK
0112           BER  TPERR
0113           BCE  *&5,CHECK,D
0114           B    LOAD&5
0115           BSP  1
0116           RTW  1,333
0118           SW   CHECK&3
0119           RTW  1,CHECK
               BCE  SENTNL,CHECK,%
0121           B    *-19
0122 SEEK      EQU  LOAD&25
0123 SYSTEM    R    40
0124           BSP  1
0125           SKP  1
0126           B    40
     LASTLT    EQU  10
0128 REITER    DC   @ @
0129 FULL      DC   @ @
0130 LITCTL    DCW  #1
0131 RELATV    DC   @ @
     TX3987    DCW  @I87@
0132           ORG  3943
01321SENTNL    BCE  REWRIT,333,1
01322          BCE  REWRIT,333,3
01323          BCE  REWRIT,333,7
01324          B    HSKPG
01325REWRIT    BSP  1
               WTW  1,CHECK
               BER  TPERR
               BCE  334,CHECK,%
               H
0133           ORG  201
0134 TPERR     SBR  X1
0135           A    TX3987,X1
0136           BW   TXCOMP,TXGET&1
0137 TXGET     MLC  17&X1,TXEOF&4
0138           MLC  TXDUMY&4,17&X1
0139           MLC  3&X1,TXBSP&3
               MLC  TXBSP&5,TXBSP
0140           SW   TXGET&1
0141 TXCOMP    B    TXPERM,TXCNTL,9
0142 TXBSP     BSP  1
0143           SKP  1
0144           A    *-6,TXCNTL
0145           B    0&X1
0146 TXPERM    H    888,888
0147           MLC  TXPERM-1,TXCNTL
0148           B    TXBSP
0149 TXDONE    MLC  TXPERM-1,TXCNTL
0150           MLC  TXEOF&4,17&X1
0151           CW   TXGET&1
0152           B    13&X1
0153 TXDUMY    B    TXDONE
0154           DC   @ @
0155 TXEOF     BEF  1
0156 TXCNTL    DCW  @0@
01561          DC   #1
01562          DCW  @1@
0158 *
0159           ORG  334
0160 HSKPG     CW   DAON#1,CARDIN#1
0161           CW   TWO#1
0162           RWD  2
01621          NOP  000
01622          NOP
0163           SW   3998
0164           LCA  3998,RECRD2&171
0165           LCA  3998,PARTBL&90
               LCA  3998,81
               CS   80
               R
               SS   1
               C    20,RECORD&19
               BE   SETPAR
               SW   76,CARDIN
               LCA  80,PARAMT&4
               B    PUTRCD
0166 *
0167 *
0168 X1        EQU  0089
0169 0089      DCW  @   @
0170 X2        EQU  0094
0171 0094      DCW  @   @
0172 X3        EQU  0099
0173 0099      DCW  @   @
0174 *                   GET RECORD ROUTINE
0175 RDCARD    BWZ  *&005,CARDIN,1
0176           B    READ
0177           CW   CARDIN
0178           B    SETPAR
0179 READ      CS   0080
0182           R
               SS   1
     SETPAR    SW   1,6
0181           SW   0016,0021
01815          SW   RECORD&75
               CS   PARAMT&69
0184           MLC  80,RECORD&79
0185           CHAIN4
0188           CW   DMOD,RECORD
0189           CW   ERRPOS,ERRPOS-002
0190           MCW  BLANKS,LOCATN
0191           MCW
0192           MCW
0193           MCW
0194           MCW  BLANKS,ERRPOS
0195           MCW
0198           SW   PARAMT,PARAMT&010
0199           SW   PARAMT&020,PARAMT&030
0200           SW   PARAMT&040,PARAMT&050
0201           MCW  ZEROS,X1
               BCE  PUTCMT,LABEL-5,*
0203           C    20,@DCW  @
0204           BE   CONST
0205           C    20,@DC   @
0206           BE   CONST
               C    20,@DA   @
0208           BE   DALINE
0209           C    20,@LTORG@
0210           BE   LTORG
0211           C    20,@EX   @
0212           BE   EXECUT
               C    20,@JOB  @
               BU   *&12
               MLC  80,PARAMT&4
               B    PUTRCD
0213           C    20,@END  @
0214           BE   ENDSCE
0215           B    PROPND
0216 ANYLIT    MLC  @000@,X1
0217           MLC  @ @,PAR&59
0218           SW   PAR,PAR&30
0219           MLC  PAR&59,PAR&58
0220           MLC
0221           MLC  @      @,RECRD2&10
0222           MLC  AADDR,RECRD2&81
0223           BCE  NUMLIT,AADDR,L
0224           BCE  ALPHA,AADDR,F
0225           BCE  LTAREA,AADDR,W
0226           BCE  ADCON,AADDR,C
0229 SETLTB    MLC  @030@,X1
0230           MLC  BADDR,RECRD2&81
0231           BCE  NUMLIT,BADDR,L
0232           BCE  ALPHA,BADDR,F
0233           BCE  LTAREA,BADDR,W
0234           BCE  ADCON,BADDR,C
0237           B    PUTRCD
     PUTCMT    LCA  SERIAL,79
               A    @1@,SERIAL
               WTW  1,1
               BER  TPERR
               BEF  *&1
               B    RDCARD
0238 *                        SET UP NUMERIC LITERAL
0239 NUMLIT    CW   PARAMT&20&X1,PARAMT&10&X1
0240           LCA  PARAMT&27&X1,PAR&27
0241           MLC  PAR&27,PAR&56
0242           MLC  @000@,X2
0243           MLC  PARAMT&29&X1,X2
0244           MZ   PAR,PAR&29&X2
0245 LITOUT    LCA  @000@,RECRD2&90
0246           A    PARAMT&29&X1,RECRD2&90
0247           LCA  PAR&27,RECRD2&47
0248           MLC  @Y@,LITOUT-7
0249           B    PUTLIT
0250 *                        SET UP ALPHANUMERIC LITERAL
0251 ALPHA     MLC  @N@,LITOUT-7
02515          CW   PAR&30
0252           B    NUMLIT
0253 *                        SET UP LITERAL AREA
0254 LTAREA    LCA  PARAMT&5&X1,RECRD2&10
               MLC  BLANKS,PAR&29
               MLC  BLANKS
               MLC  BLANKS
0256           MLC  PARAMT&9&X1,PAR&2
0257           LCA  @#@,PAR
0258           LCA  @000@,RECRD2&90
0259           A    PARAMT&9&X1,RECRD2&90
0260           B    LITOUT&14
0261 *                        SET UP ADDRESS CONSTANT
0262 ADCON     MLC  PARAMT&7&X1,PAR&7
0263           SW   PARAMT&18&X1
0264           MLC  PARAMT&14&X1,PAR&14
0265           MLC  PARAMT&19&X1,PAR&19
0266           B    LITOUT
0292 *                        WRITE A LITERAL RECORD
0293 PUTLIT    LCA  SERIAL,RECRD2&4
0294           CW   RECRD2
0295           SW   RECRD2&3
     TWLIT     WTW  2,RECRD2
0297           BER  TPERR
0299           BW   RESET,DAON
0300           BCE  SETLTB,X1-1,0
     PUTRCD    LCA  SERIAL,RECORD&79
0305           B    PUTXXX
03051          NOP
03052          NOP
03053          NOP
0306           WTW  1,RECORD
0307           BER  TPERR
0308           BEF  *&1
0309           BW   RMBACK,ALFGM
0310           BW   NOREAD,DAON
0311           B    RDCARD
0312 RESET     MLC  ADDR-1,PARAMT&29&X1
0313           CW   DAON
0314           B    PUTRCD-8
0315 *                   ANALYZE OPERAND & SET PARAMT
0316 PROPND    SBR  ANALEX&003
0317           BCE  ANALEX,0021,
0318           MCW  K20,X1
0319           MCW  ZEROS,X2
0320           MCW  I99,X3
0321           CW   COMMSW,ACTADD
0322           BCE  ALFOPD,0021,@
0323           BWZ  NOZONE,0021,2
0324           BCE  STEP,0021,&
0325           BCE  STEP,0021,-
0326           B    ANALYZ
0327 NOZONE    SW   ACTADD
0328 ANALYZ    BCE  COMMA,0001&X1,,
0329           BCE  PLUS,0001&X1,&
0330           BCE  PLUS,0001&X1,-
0331           BCE  AREA,0001&X1,#
0332           BCE  END,0001&X1,
0333 STEP      A    K1,X1
0334           A    K1,X3
0335           B    ANALYZ
0336 ALFOPD    S    X1,X3
0337           MZ   BLANKS,X3
0338           MCW  K71,X1
0339 ALFTST    BCE  ALFEND,0001&X1,@
0340           A    MINUS,X1
0341           B    ALFTST
0342 ALFEND    A    X1,X3
0343           MZ   K1,X3-002
0344           B    STORE
0345           BCE  GAP2,0001&X1,,
0346           B    ANALEX
0347 COMMA     B    STORE
0348 GAP       BCE  GAP1,0001&X1,
0349           BWZ  USE60,COMMSW,1
0350 USE30     MCW  K30,X2
0351           SW   COMMSW
0352 FIRST     SW   0001&X1
0353           CW   ACTADD
0354           BCE  ALFOPD,0001&X1,@
0355           BWZ  SK1,0001&X1,2
0356           B    STEP
0357 SK1       SW   ACTADD
0358           B    STEP
0359 GAP1      BWZ  GAP3,COMMSW,1
0360 GAP2      A    K1,X1
0361           B    GAP
0362 GAP3      BCE  GAP4,0002&X1,
0363           B    GAP2
0364 GAP4      C    OPER-001,KBCE
0365           BE   USE60
0366           B    ANALEX
0367 USE60     MCW  K60,X2
0368           SW   0001&X1
0369           CW   ACTADD
0370           B    STEP
0371 PLUS      BCE  STEP,0000&X1,&
0372           B    STORE
0373           A    K10,X2
0374           A    MINUS,X1
0375           B    FIRST
0376 AREA      B    STORE
0377           SW   0001&X1,PARAMT&008&X2
0378           BCE  WTOBAD,X2-001,3
0379           MCW  W,AADDR
0380 TESTW     BCE  SINGLE,0002&X1,,
0381           BCE  SINGLE,0002&X1,
0382 DOUBLE    MCW  0002&X1,PARAMT&009&X2
0383           A    K1,X1
0384           B    SINGLE&007
0385 SINGLE    MCW  0001&X1,PARAMT&009&X2
               C    PARAMT&9&X2,@53@
               BH   *&5
               SW   ERRPOS
0386           A    PARAMT&009&X2,LITCNT
0387           A    K1,X1
0388           BCE  ANALEX,0001&X1,
0389           A    K1,X1
0390           B    GAP
0391 WTOBAD    MCW  W,BADDR
0392           B    TESTW
0393 END       BWZ  GETDM,DMOD,1
0394           B    STORE
0395 ANALEX    B    0000
0396 GETDM     LCA  0000&X1,PARAMT&060
0397           B    ANALEX
0398 STORE     SBR  STEXIT&003
0399           BWZ  ACTUAL,ACTADD,1
               BW   *&12,KONST
03992          C    X3,@27@
03993          B    *&8
03994          C    X3,@53@
03995          BH   *&12
03996          MLC  @26@,X3
03998          SW   ERRPOS
0400           MCW  X3,CHARCT
0401           A    X2,X3
0402           LCA  0000&X1,PARAMT&X3
0403           BCE  TSTLIT,X2-001,0
0404           SW   STEXIT&001
0405           BCE  TSTLIT,X2-001,3
0406           LCA  CHARCT,PARAMT&009&X2
0407           SW   STEXIT&002
0408 UPDAT     MCW  I99,X3
0409           A    K1,X1
0410           BWZ  STEXIT-007,STEXIT&002,1
0411           BWZ  SETBAD,STEXIT&001,1
0412           MCW  ADDR,AADDR
0413           B    STEXIT
0414 SETBAD    MCW  ADDR,BADDR
0415           CW   STEXIT&001,STEXIT&002
0416 STEXIT    B    0000
0417 ACTUAL    SW   PARAMT&X2
0418           A    0000&X1,PARAMT&004&X2
0419           MCW  A,ADDR
0420           BCE  *&005,X2-001,3
0421           B    UPDAT
0422           SW   STEXIT&001
0423           B    UPDAT
0424 TSTLIT    BCE  ALFLIT,PARAMT&X2,@
0425           BCE  LITERL,PARAMT&X2,&
0426           BCE  LITERL,PARAMT&X2,-
0427           C    K6,CHARCT
0428           BL   *&012
0429           SW   ERRPOS
0430           MCW  K5,CHARCT
0431           LCA  CHARCT,PARAMT&009&X2
0432           MCW  S,ADDR
0433           B    UPDAT
0434 LITERL    BCE  RECURS,PARAMT&001&X2,&
0435           BCE  RECURS,PARAMT&001&X2,-
0436           BWZ  LITNUM,PARAMT&001&X2,2
0437 LTADCN    A    K3,LITCNT
               MLC  @  @,CHARCT
0439           MCW  C,ADDR
0440           B    CNTLIT&007
     RECURS    SW   ERRPOS
               MCW  S,ADDR
               B    UPDAT
0455 ALFLIT    MCW  F,ADDR
0456           B    MOVENM
0457 LITNUM    MCW  L,ADDR
0458           B    CNTLIT
0459 CNTLIT    A    CHARCT,LITCNT
0460           BWZ  *&012,KONST,1
0461           LCA  CHARCT,PARAMT&029&X2
0462           B    UPDAT
0463           LCA  CHARCT,PARAMT&059
0464           CW   KONST
0465           B    UPDAT
0466 *                   PROCESS DA HEADER
0467 DALINE    MCW  K20,X1
0468           MCW  ZEROS,X2
0469           MCW  I99,X3
0470           CW   COMMA1&009,ANALDA&002
0471           CW   RECORD
0472 ANALDA    BCE  X,0001&X1,X
0473           BCE  COMMA1,0001&X1,,
0474           BCE  END1,0001&X1,
0475 STEP1     A    K1,X1
0476           A    K1,X3
0477           BWZ  ANALDA&008,ANALDA&002,1
0478           B    ANALDA
0479 X         LCA  0000&X1,PARAMT&009&X2
0480           MCW  I98,X3
0481           A    K10,X2
0482           SW   0002&X1,ANALDA&002
0483           B    STEP1
     COMMA1    BW   BXLOK,*&2
0485           SW   *-002
               BW   *&5,ANALDA&2
               SW   ERRPOS
0486           B    X
     BXLOK     A    X2,X3
0488           LCA  0000&X1,PARAMT&X3
0489           B    X&007
0490 END1      BWZ  *&012,COMMA1&009,1
0491           LCA  0000&X1,PARAMT&009&X2
0492           B    *&015
0493           A    X2,X3
0494           LCA  0000&X1,PARAMT&X3
0495 CALCDA    MCW  ZEROS,HOLD
0496           MCW  PARAMT&019,HOLD
0497           MCW  ZEROS,X1
0498           A    PARAMT&016,X1
0499           MZ   ZONE&X1,HOLD-002
0500           MCW  HOLD,LITCNT
0501           MCW  ZEROS,ADDR
0502           MCW  PARAMT&009,ADDR
0503 DECR      S    K1,ADDR
0504           C    ZEROPL,ADDR
0505           BE   *&012
0506           A    HOLD,LITCNT
0507           B    DECR
0508           MCW  LITCNT,LOCCNT
0509           MCW  ZEROS,X1
0510 SCANDA    BCE  INCXNG,PARAMT&020&X1,X
0511           BCE  INCRMK,PARAMT&020&X1,|
0512           BCE  INCGMK,PARAMT&020&X1,G
0513 TSTNXT    BCE  SKIP5,X1-001,4
0514           A    K10,X1
0515           B    SCANDA
0516 INCXNG    MCW  K1,ACTOP
0517           MCW  ZEROS,X2
0518           SW   PARAMT&021&X1
0519           A    PARAMT&021&X1,X2
0520           MZ   ZONE&X2,ACTOP
0521           B    TSTNXT
0522 INCRMK    A    PARAMT&009,LITCNT
0523           LCA  K1,PARAMT&60
0524           MCW  R,PARAMT&020&X1
0525           SW   ERRPOS-002
0526           B    TSTNXT
     INCGMK    SW   ERRPOS-1
               A    K1,LITCNT
0529           LCA  K1,PARAMT&67
0530           B    TSTNXT
     SKIP5     SW   DAON
0532           B    PUTRCD
0533 NOREAD    CW   DAON
               MLC  @ @,PARAMT&59
               SW   PARAMT&65
0534 *                   PROCESS DA SUBSEQUENT ENTRY
0535           CS   0080
0536           CW   RECORD
0537           SW   0006,0021
0538           SW   0001,0016
               SW   RECORD&75
0539           MCW  BLANKS,PARAMT&039
0540           MCW  BLANKS,PARAMT&029
0541           R
               SS   1
               BCE  BYPCMT,6,*
0543           BCE  *&005,0016,
0544           B    LASTSB
0545           MCW  K20,X1
0546           MCW  K20,X2
0547           MCW  0080,RECORD&079
               CHAIN4
0551 ANALSB    BCE  COMMA2,0001&X1,,
0552           BCE  END2,0001&X1,
0553 STEP2     A    K1,X1
0554           B    ANALSB
0555 COMMA2    LCA  0000&X1,PARAMT&009&X2
0556           SW   0002&X1
0557           A    K10,X2
0558           B    STEP2
0559 END2      LCA  0000&X1,PARAMT&009&X2
0560           MCW  ZEROS,LITCNT
0561           MCW  ZEROS,LOCATN
0562           A    PARAMT&009&X2,LOCATN
0563           A    MINUS,LOCATN
0564           ZS   PARAMT&29,XHOLD
0565           A    PARAMT&39,XHOLD
0566           A    K1,XHOLD
0567           BWZ  *&12,XHOLD,K
0568           MLC  XHOLD,LITCNT
056813942      DCW  #4
05682XHOLD     EQU  3942
0569           B    SETHO
0570           MLC  ZEROS,LITCNT
0571           B    SETHO
     LASTSB    MCW  BLANKS,RECORD&79
               LCA  BLANKS,RECORD&10
               CW   RECORD&1
               MCW  @ @,RECORD
               BWZ  INSRMK,ERRPOS-2,1
0573           BWZ  INSGMK,ERRPOS-001,1
0574           B    SETPAR
0575 INSRMK    CW   ERRPOS-002
0576           MCW  ZEROS,LOCATN
0577           MCW  ZEROS,ADDR
0578           MCW  ZEROS,HOLD
0579           MCW  PARAMT&019,ADDR
0580           MCW  PARAMT&009,HOLD
0581           CS   PARAMT&060
               CS   RECORD&74
0583           SW   PARAMT
               LCA  @DC   @,RECORD&19
0585           LCA  ALFRM,PARAMT&002
               MLC  @001@,LITCNT
0587           LCA  ALFRM,RECORD&022
0588           LCA  K1,PARAMT&059
0589           LCA  @RMARK@,PARAMT&64
0590           SW   ALFGM
0591 RMLOOP    A    ADDR,LOCATN
               A    @1@,LOCCNT
0592           B    PUTRCD&029
0594 RMBACK    S    K1,HOLD
05945          A    K1,LOCATN
0595           C    ZEROPL,HOLD
0596           BU   RMLOOP
0597           CW   ALFGM
               B    LASTSB
0599 INSGMK    CS   PARAMT&060
05995          CW   ERRPOS-1
0600           LCA  BLANKS,RECORD&029
0601           LCA  KDCW,RECORD&019
0602           LCA  ALFGM,PARAMT&002
0603           LCA  ALFGM,RECORD&022
               MLC  @001@,LITCNT
0605           LCA  K1,PARAMT&059
0606           MCW  LOCCNT,LOCATN
0607           LCA  @GMARK@,PARAMT&64
0608           SW   CARDIN
0609           B    PUTRCD&14
06091BYPCMT    LCA  SERIAL,80
               A    @1@,SERIAL
               WTW  1,1
               BER  TPERR
               BEF  *&1
               B    NOREAD
0610 *                   CONSTANTS - DCW AND DC
     CONST     MCW  K21,X1
0612           MCW  ZEROS,X2
0613           BCE  NUMBER,0021,#
0614           BCE  *&009,0021,@
0615           BWZ  CONTST,0021,2
0616           SW   KONST
0617           B    PROPND
0618           CW   KONST
               BCE  *&16,21,@
0622           BCE  *&008,AADDR,L
0623           MCW  K3,LITCNT
0624           MCW  LITCNT,PARAMT&059
0625           B    PUTRCD
0626 NUMBER    SW   0022
0627           BCE  *&012,0023,
0628           LCA  0023,PARAMT&009
0629           B    CONBCK&004
0630           LCA  0022,PARAMT&009
0631 CONBCK    CW   KONST
0632           A    PARAMT&9,LITCNT
0633           LCA  BLANKS,PARAMT&009
0634           B    PUTRCD
0635 CONTST    BCE  CONEND,0001&X1,
0636           A    K1,X1
0637           A    K1,X2
0638           B    CONTST
0639 CONEND    A    K1,X2
0640           MCW  X2,LITCNT
0641           LCA  X2,PARAMT&059
0642           LCA  0000&X1,PARAMT&X2
0643           B    PUTRCD
0644 ENDSCE    SW   RECORD
0645           B    PROPND
0646           B    ENDLIT
0647 ENDBCK    CW   RECORD
0648           WTW  1,RECORD
0649           BER  TPERR
0650           WTM  1
0651           RWD  1
0652           CW   RECRD2&171,PARTBL&90
0653           MLC  @2@,SEEK
0654           B    LOAD
0655 EXECUT    SW   RECORD&1
0656           B    PROPND
0657           B    ENDLIT
0658 EXBACK    CW   RECORD&1
0659           B    PUTRCD
0660 LTORG     B    PROPND
0661           MLC  SERIAL,RECORD&79
0662           A    @1@,SERIAL
0663           WTW  1,RECORD
0664           BER  TPERR
0665 ENDLIT    WTM  2
0666           RWD  2
0667 GETLIT    RTW  2,RECRD2
0668           BER  TPERR
0669           BEF  LITALL
0670           WTW  1,RECRD2
0671           B    GETLIT
0672 LITALL    RWD  2
0673           BW   ENDBCK,RECORD
0674           BW   EXBACK,RECORD&1
0675           B    RDCARD
0676           H
0677 RECRD2    DA   1X171,|
0678 PAR            96
0679 *                   PROGRAM CONSTANTS
0680 K1        DCW  @1@
0681 K2        DCW  @2@
0682 K3        DCW  @3@
0683 K5        DCW  @5@
0684 K6        DCW  @06@
0685 K7        DCW  @7@
0686 K10       DCW  @10@
0687 K20       DCW  @020@
0688 K21       DCW  @021@
0689 K30       DCW  @30@
0690 K60       DCW  @60@
0691 K71       DCW  @071@
0692 I98       DSA  &3998
0693 I99       DSA  &3999
0695 KONST     DC   @ @
0696 MINUS     DCW  @I9I@
     SERIAL    DCW  @00101@
0708 ZONE      DCW  @ @
0709           DCW  @/@
0710           DCW  @J@
0711           DCW  @A@
0729 *                   OUTPUT AREA & PARAMETER TABL
0730           ORG  *&X00
0731           ORG  *&5
0732 RECORD    DA   1X80,|
0733 PARTBL    DA   1X90,|
0734 AADDR          1,1
0735 BADDR          2,2
0736 ERRPOS         6
0737 ICOUNT         7,7
0738 LITCNT         8,10
0739 ACTOP          11,11
0740 LOCATN         12,14
0741 PARAMT         15,15
0742 OPER      EQU  RECORD&18
     SAVLOC    ORG  RECORD&15
               DCW  @JOB  @
               ORG  SAVLOC
0698 ZEROS     DCW  @000@
0699 KBCE      DCW  @BCE@
0700 CHARCT    DCW  @  @
0701 COMMSW    DC   @ @
0702 ACTADD    DC   @ @
0703 LABEL     EQU  0011
0704 LOCCNT    DCW  @333@
0705 HOLD      DCW  @   @
0706 ADDR      DCW  @   @
0707 BLANKS    DCW  @          @
0712 S         DCW  @S@
0713 A         DCW  @A@
0714 F         DCW  @F@
0715 L         DCW  @L@
0716 M         DCW  @M@
0717 C         DCW  @C@
0718 W         DCW  @W@
0720 ZEROPL    DCW  @00?@
0721 KDCW      DCW  @DCW  @
0722 MLCWA     DCW  @MLCWA@
0723 KLTORG    DCW  @LTORG@
0724 ALFGM     DCW  @@}@@
0725 ALFRM     DCW  @@|@@
0726 R         DCW  @R@
0727 DMOD      DC   @ @
0728 PERCNT    DCW  @%@
0743 3998      DCW  @}@
07431ORGA      ORG  3587
     MOVENM    MN   1&X1,PARAMT&1&X3
               B    CNTLIT
               ORG  3561
     SETHO     MLC  ZEROS,X1
               MN   PARAMT&6&X2,X1
               MZ   ZONE&X1,LOCATN-2
               B    SKIP5
               ORG  3923
     PUTXXX    A    @1@,SERIAL
               CW   LOCATN
               B    PUTRCD&14
               ORG  ORGA
0744           EX   SYSTEM
0745           JOB  1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962  RBR   2TAP2
               ORG  167
               WTW  1,333
               BER  *&5
               R    40
               BSP  1
               SKP  1
               B    SYSTEM
               H
0746           ORG  333
0747           DCW  @2@
0748           SW   3998
0749           LCA  3998,PARTBL&90
07493          LCA  @         @,14
07496          SW   13,12
               CW   HADLIT#1
0750 GET       RTW  1,RECORD
0751           BER  TPERR
0752           BEF  ENDPH2
0754           BCE  PUT,RECORD&005,*
0755           BWZ  LITRCD,RECORD&003,1
               BW   TSTORG,HADLIT
0756           BWZ  PUT,PARAMT&065,1
0757 *                        CONVERT ACTUAL ADDRESSES TO MACH LANGUAGE
0758           MLC  @030@,X1
0759           BCE  CONVRT,BADDR,A
0760           MLC  @000@,X1
0761           BCE  CONVRT,AADDR,A
0762           BCE  CONOUT,RECORD&5,
0763           BWZ  *&5,RECORD&5,2
0764           B    CONOUT
0765           BCE  *&12,RECORD&6&X1,
0766           A    @1@,X1
0767           B    *-18
0768           SW   ONE#1
0769           MLC  PARAMT&60,ONE
0770           BW   *&5,PARAMT&60
0771           CW   ONE
0772           LCA  @00000     @,PARAMT&69
0773           A    RECORD&5&X1,PARAMT&64
0774           MLC  @060@,X1
0775           B    CONVRT
0776           MLC  PARAMT&68,LOCATN
0777           MLC  ONE,PARAMT&60
0778           BW   *&5,ONE
0779           CW   PARAMT&60
0780 CONOUT    NOP
0781           BCE  *&005,PARAMT,%
0782           B    *&008
0783           MCW  M,AADDR
               BCE  OPEROK,OPER&1,
0785           C    OPER&001,KLTORG
               BE   OPEROK
0787           C    OPER&001,MLCWA
               BE   OPEROK
               C    OPER&1,@CHAIN@
               BE   CHAIN
0789           B    NOOP
     OPEROK    SW   OPER-3
0791           MCW  OPER,ENDOPT
0792           MCW  ZEROS,X1
0753 *                   TLU OP CODE
0793 TLUOP     C    OPTABL-003&X1,OPER
0794           BE   HITOP
0795           A    K7,X1
0796           B    TLUOP
0797 NOOP      SW   ERRPOS-001
0798           B    OPERND
0799 HITOP     BCE  NOOP,OPTABL-002&X1,}
0800           BWZ  DECLOP,OPTABL-002&X1,1
0801 IMPROP    MCW  OPTABL-002&X1,ACTOP
0802           BCE  OPERND,OPTABL-001&X1,
0803           BWZ  GENDMD,OPTABL-001&X1,1
0804 HAVE*     SW   PARAMT&060,DMOD
0805           BCE  INSERT,PARAMT&060,
0806           B    OPERND
0807 GENDMD    BWZ  DISK,OPTABL&X1,1
0808           LCA  OPTABL-001&X1,PARAMT&060
0809           BCE  OPERND,OPTABL&X1,
0810           BCE  OPERND,AADDR,S
               BCE  OPERND,AADDR,M
0811           SW   PARAMT&009
0812           MCW  OPTABL&X1,PARAMT&009
0813           MCW  M,AADDR
0814 GENRET    MCW  PARAMT&004,PARAMT&003
0815           MN   BLANKS,PARAMT&004
0816           MN
0817           MCW  PERCNT,PARAMT
0818           MCW  PARAMT&009,PARAMT&001
08185          CW   PARAMT&2
0819           B    SPACNT
     DISK      BCE  MOVES,AADDR,S
               MLC  PARAMT&29,PARAMT&59
               CHAIN2
               MLC  PARAMT&8,PARAMT&38
     DISKEX    MLC  AADDR,BADDR
0824           MCW  M,AADDR
0825           LCA  F,PARAMT&009
08255          MCW  OPTABL&X1,PARAMT&4
0826           LCA  OPTABL-001&X1,PARAMT&060
0827           B    GENRET
     MOVES     MLC  @|@,PARAMT&27
               MCM  PARAMT,PARAMT&30
               MLC  PARAMT&29,PARAMT&59
               B    DISKEX
0828 *                   CALCULATE INSTRUCTION COUNT
0829 OPERND    NOP
0830 SPACNT    MCW  K1,ICOUNT
0831 HAVEA     BCE  HAVEB,AADDR,
0832           A    K3,ICOUNT
0833 HAVEB     BCE  HAVED,BADDR,
0834           A    K3,ICOUNT
0835 HAVED     BWZ  CTDMOD,PARAMT&060,1
0836 RELEAS    B    XBIN
0837 CTDMOD    B    XBCE
08371          NOP
08372          NOP
08373          NOP
0838           B    CLEARX
0839 *                      SET UP LINKAGE TO SPECIAL
0840 *                           ROUTINES - ADDRESS O
0841 *                           FROM OP CODE TABLE
0842 DECLOP    MCW  OPTABL&X1,*&004
0843           B    0000
0844 *                      EXIT FOR DECLARATIVE AND
0845 *                           REQUIRING NO SPECIAL
0846 DECEXT    B    PUT
0847 *                   CONTROL OPERATIONS
0848 CONTRL    SW   RECORD
0849           B    PUT
0850 *                   DS DECLARATIVE
0851 DS        MCW  PARAMT&004,LITCNT
0852           B    PUT
0853 *                   DSA DECLARATIVE
0854 DSA       MCW  K3,LITCNT
0855           B    PUT
0856 *                        ROUTINE TO GET D-MODIFIER FOR INSTRUCTIONS
0857 *                             OF LESS THAN TWO OPERANDS
0858 INSERT    C    OPER,@BCE @
0859           BE   OPERND
0860           C    OPER,@BBE @
0861           BE   OPERND
0862           BCE  *&5,PARAMT&60,
0863           B    OPERND
0864           BCE  OPERND,PARAMT,
0865           BCE  GETA,PARAMT&30,
0866           MLC  @ @,BADDR
0867           BCE  *&12,PARAMT&31,
0868           MLC  PARAMT&34,PARAMT&60
0869           B    OPERND
0870           MLC  PARAMT&30,PARAMT&60
0871           B    OPERND
0872 GETA      MLC  @ @,AADDR
0873           BCE  *&12,PARAMT&1,
0874           MLC  PARAMT&4,PARAMT&60
0875           B    OPERND
0876           MLC  PARAMT,PARAMT&60
0877           B    OPERND
0878 *                        SET UP LITERAL IDENTIFICATION
0879 LITRCD    BCE  KAREA,AADDR,W
0880           BCE  KADCON,AADDR,C
0881           BCE  KADCON,AADDR,P
08815          BCE  RCURSV,AADDR,R
0882           LCA  @LIT  @,PARAMT&64
0883           B    KILLIT
0884 KAREA     LCA  @AREA @,PARAMT&64
0885           B    PUT
0886 PREV      DCW  #6
0887 KADCON    LCA  @ADCON@,PARAMT&64
0888           B    PUT
08881RCURSV    BW   *&9,RCURSV&9
08882          SW   RCURSV&9
08883          B    KAREA-11
08884          CW   RCURSV&9
08885          B    KADCON
     CHAIN     LCA  @MACRO@,PARAMT&64
               MLC  @ @,AADDR
               MLC  BLANKS,LOCATN
               WTW  2,RECORD
               BER  TPERR
               BEF  *&1
               MLC  PARAMT&4,HOLD
               LCA  BLANKS,PARAMT&9
               LCA  @  @,RECORD&21
               MLC  BLANKS,RECORD&79
               MLC  BLANKS,RECORD&4
               MLC  @1@,ICOUNT
               LCA  PREVOP,OPER&1
               LCA  PREVAC,ACTOP
               LCA  @GEN  @,PARAMT&64
     CHAIN1    WTW  2,RECORD
               BER  TPERR
               BEF  *&1
               S    @1@,HOLD
               C    HOLD,@00?@
               BU   CHAIN1
               B    GET
     PUT       MLC  OPER&1,PREVOP#5
               MLC  ACTOP,PREVAC#1
               WTW  2,RECORD
0890           BER  TPERR
0891           BEF  *&1
0892           B    GET
0893 ENDPH2    CW   PARTBL&90
0894           WTM  2
0895           RWD  1
0896           RWD  2
0898           MLC  @3@,SEEK
0899           B    LOADXX
0900           H
0901 *                        ROUTINE TO CONVERT A 5 POSITION ACTUAL
0902 *                             ADDRESS OPERAND TO A MACHINE ADDRESS
0903 *                           * ADDRESS TAKEN FROM PARAMT&4&X1
0904 *                           * CONVERTED 3 POSITION ADDRESS PLACED
0905 *                             AT PARAMT&8&X1
0906 CONVRT    SBR  CONEXT&3
0907           SW   PARAMT&2&X1
0908           LCA  PARAMT&4&X1,PARAMT&8&X1
0909           MLC  PARAMT&1&X1,ADDR-1
0910           C    @00@,ADDR-1
0911           BE   CONEXT
0912           SW   PARAMT&8&X1
0913 CONV1     S    @4@,ADDR-1
0914           BM   CONV2,ADDR-1
0915           A    @|0@,PARAMT&9&X1
0916           B    CONV1
0917 CONV2     A    @4@,ADDR-1
0918           BCE  CONV3,ADDR-1,?
0919           BCE  CONV3,ADDR-1,!
0920           A    @|0@,PARAMT&7&X1
0921           S    @1@,ADDR-1
0922           B    CONV2&7
0923 CONV3     CW   PARAMT&2&X1,PARAMT&8&X1
0924 CONEXT    B    0
0925 *
     SPECLT    SW   RECORD,HADLIT
               B    PUT
     *
     SPEC      SW   RECORD
               WTW  2,RECORD
               BER  TPERR
               BEF  *&1
               RTW  1,RECORD
               BER  TPERR
               BEF  ENDPH2
     TSTORG    CW   HADLIT
               C    OPER,@ORG @
               BE   GET&18
               BSP  1
               CS   PARTBL&90
               CS
               LCA  @GEN  @,PARAMT&64
               LCA  @ORG @,OPER
               LCA  @*@,RECORD&20
               LCA  @*@,PARAMT
               LCA  @S@,AADDR
               B    PUTYYY
     *
     *
0926 *                        ***  OPERATION CODE TABLE  ***
0927 *
0928 *
0929 *                           * FIRST FOUR POSITIONS IS MNEUMONIC OP
0930 *                           * FIFTH POSITION IS MACHINE OP CODE
0931 *                             FOR IMPERATIVE COMMANDS
0932 *                           * SIXTH POSITION REPRESENTS D-MODIFIER
0933 *                             AN ASTERISK INDICATES THE D-MODIFIER
0934 *                                  MUST BE PROVIDED IN THE OPERAND
0935 *                             A WORDMARK UNDER THE SIXTH POSITION
0936 *                                  MEANS AUTOCODER WILL GENERATE IT
0937 *                           * THE SEVENTH POSITIONIS USED FOR TAPE
0938 *                                  AND RAMAC COMMANDS ONLY
0939 *                             FOR TAPE, IT IS INSERTED AFTER THE %
0940 *                             FOR RAMAC, THE WORDMARK UNDER IT
0941 *                                  MEANS IT IS INSERTED IN THE LOW
0942 *                                  ORDER LOCATION OF THE A-ADDRESS
0943 *                                  AND AN *F* WILL BE INSERTED
0944 *                                  AFTER THE %
0945 *                           * DECLARATIVE AND CONTROL COMMANDS
0946 *                             REQUIRING SPECIAL PROCESSING HAVE A
0947 *                             WORDMARK UNDER THE FIFTH POSITION
0948 *                             AND POSITIONS 5-8 CONTAIN THE ADDRESS
0949 *                             OF THE APPROPRIATE ROUTINE
0950 *
0951 *
0952 OPTABL    DCW  @B   B  @
0953           DCW  @MCW M  @
0954           DCW  @LCA L  @
0955           DCW  @BCE B* @
0956           DCW  @A   A  @
0957           DCW  @S   S  @
0958           DCW  @SW  ,  @
0959           DCW  @CW  )  @
0960           DCW  @CS  /  @
0961           DCW  @H   .  @
0962           DCW  @C   C  @
0963           DCW  @ZA  ?  @
0964           DCW  @ZS  !  @
0965           DCW  @MCE E  @
0966           DCW  @MCS Z  @
0967           DCW  @MN  D  @
0968           DCW  @MZ  Y  @
0969           DCW  @MCM P  @
0970           DCW  @BE  B@
0971           DCW  @S @
0972           DCW  @BU  B@
0973           DCW  @/ @
0974           DCW  @BH  B@
0975           DCW  @U @
0976           DCW  @BL  B@
0977           DCW  @T @
0978           DCW  @DA  @
0979           DSA  &PUT
0980           DCW  @DC  @
0981           DSA  &PUT
0982           DCW  @DCW @
0983           DSA  &PUT
0984           DCW  @DS  @
0985           DSA  &DS
0986           DCW  @DSA @
0987           DSA  &DSA
0988           DCW  @EQU @
0989           DSA  &CONTRL
0990           DCW  @CTL @
               DSA  &CONTRL
0992           DCW  @END @
0993           DSA  &CONTRL
0994           DCW  @EX  @
0995           DSA  &CONTRL
0996           DCW  @LTOR@
0997           DSA  &CONTRL
0998           DCW  @ORG @
0999           DSA  &CONTRL
1000           DCW  @XFR @
1001           DSA  &CONTRL
1002           DCW  @JOB @
               DSA  &CONTRL
1004           DCW  @BCV B@
1005           DCW  @@ @
1006           DCW  @D   %  @
1007           DCW  @M   @  @
1008           DCW  @BEF B@
1009           DCW  @K @
1010           DCW  @BER B@
1011           DCW  @L @
1012           DCW  @BIN B* @
1013           DCW  @BLC B@
1014           DCW  @A @
1015           DCW  @BM  V@
1016           DCW  @K @
1017           DCW  @BW  V@
1018           DCW  @1 @
1019           DCW  @BWZ V* @
1020           DCW  @BSS B* @
1021           DCW  @P   4  @
1022           DCW  @R   1  @
1023           DCW  @RCB 1@
1024           DCW  @C @
1025           DCW  @RP  5  @
1026           DCW  @SPF 9  @
1027           DCW  @SRF 8  @
1028           DCW  @W   2  @
1029           DCW  @RT  M@
1030           DCW  @RU@
1031           DCW  @WM  2@
1032           DCW  @) @
1033           DCW  @BC9 B@
1034           DCW  @9 @
1035           DCW  @BAV B@
1036           DCW  @Z @
1037           DCW  @BPCBB@
1038           DCW  @R @
1039           DCW  @BPB B@
1040           DCW  @P @
1041           DCW  @BBE W* @
1042           DCW  @SSB K* @
1043           DCW  @SS  K* @
1044           DCW  @WP  6  @
1045           DCW  @WR  3  @
1046           DCW  @WRP 7  @
1047           DCW  @CC  F* @
1048           DCW  @CCB F* @
1049           DCW  @NOP N  @
1050           DCW  @SAR Q  @
1051           DCW  @SBR H  @
1052           DCW  @MIZ X  @
1053           DCW  @MLC M  @
1054           DCW  @MLCWL  @
1055           DCW  @MLNSD  @
1056           DCW  @MLZSY  @
1057           DCW  @MRCMP  @
1058           DCW  @WT  M@
1059           DCW  @WU@
1060           DCW  @BSP U@
1061           DCW  @BU@
1062           DCW  @CU  U* @
1063           DCW  @RTW L@
1064           DCW  @RU@
1065           DCW  @RWD U@
1066           DCW  @RU@
1067           DCW  @RWU U@
1068           DCW  @UU@
1069           DCW  @SKP U@
1070           DCW  @EU@
1071           DCW  @WTM U@
1072           DCW  @MU@
1073           DCW  @WTW L@
1074           DCW  @WU@
               DCW  @MA  #  @
1075           DCW  @MBC M@
1076           DCW  @B @
1077           DCW  @MBD M@
1078           DCW  @A @
1079           DCW  @DCR U@
1080           DCW  @D @
1081           DCW  @ECR U@
1082           DCW  @E @
1083           DCW  @LU  L* @
1084           DCW  @MU  M* @
1085           DCW  @PCB 4@
1086           DCW  @C @
1087           DCW  @RF  4@
1088           DCW  @R @
1089           DCW  @RTB M@
1090           DCW  @RB@
1091           DCW  @WRF 6@
1092           DCW  @R @
1093           DCW  @WTB M@
1094           DCW  @WB@
1095           DCW  @RD  M@
1096           DCW  @R@
1097           DCW  @1@
1098           DCW  @RDT M@
1099           DCW  @R@
1100           DCW  @2@
1101           DCW  @RDW L@
1102           DCW  @R@
1103           DCW  @1@
1104           DCW  @RDTWL@
1105           DCW  @R@
1106           DCW  @2@
1107           DCW  @SD  M@
1108           DCW  @R@
1109           DCW  @0@
1110           DCW  @WD  M@
1111           DCW  @W@
1112           DCW  @1@
1113           DCW  @WDT M@
1114           DCW  @W@
1115           DCW  @2@
1116           DCW  @WDW L@
1117           DCW  @W@
1118           DCW  @1@
1119           DCW  @WDTWL@
1120           DCW  @W@
1121           DCW  @2@
1122           DCW  @WDC M@
1123           DCW  @W@
1124           DCW  @3@
1125           DCW  @WDCWL@
1126           DCW  @W@
1127           DCW  @3@
1128 ENDOPT    DCW  @    @
1129           DC   @}@
11291ORGB      ORG  2771
     XBIN      C    OPER,1965          COMPARE TO -BIN-
               BU   CLEARX
               BCE  PUT,ICOUNT,5
               MLC  *-7,ICOUNT
               MLC  @ @,BADDR
               LCA  AMPER,PARAMT&60
               B    PUT
     AMPER     DCW  @&@
               ORG  2751
     KILLIT    C    ADDR,@000@
               BU   PUT
               B    GET
               ORG  2711
     XBCE      C    OPER,@BCE @
               BU   *&9
               BCE  RELEAS,ICOUNT,1
               A    K1,ICOUNT
               B    RELEAS
               ORG  2901
     CLEARX    CW   PARAMT&60
               B    PUT
               ORG  2601
     LOADXX    LCA  XLIMIT,15
               B    LOAD
     2655      DSA  1053
     XLIMIT    EQU  2655
               ORG  2701
     PUTYYY    SW   RECORD
               B    PUT
               ORG  ORGB
               EX   SYSTEM
1130           END  SYSTEM
               JOB  1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR   2TAP3
               CTL  630 1
     *
0003 ******    PHASE 3 - BUILD UP SYMBOL TABLE AND PROCESS LITERALS  ***
0004 *
0005 *                        ***  PHASE 3 IDENTIFICATION AT 333  ***
0006 *
0007           ORG  333
0008           DCW  @3@
0009 *
0010 *
0011           ORG  82
0012 CHECK     DCW  @ @
0013           DCW  @  }@
0014 X1        EQU  89
0015 0089      DCW  @000@
0016 X2        EQU  94
0017 0094      DCW  @000@
0018 X3        EQU  99
0019 0099      DCW  @000@
     HLDLOC    EQU  3
     SAVLOC    EQU  6
     LASTLT    EQU  9
     LTTSAV    EQU  12
     TBLLMT    EQU  15
0022 REITER    EQU  193
0023 FULL      EQU  194
0024 LITCTL    EQU  195
0025 RELATV    EQU  196
     DA        EQU  197
0026           ORG  100
0027 LOAD      RWD  1
0028           RTW  1,CHECK
0029           BER  TPERR
0030           BCE  *&5,CHECK,D
0031           B    LOAD&5
0032           BSP  1
0033           RTW  1,333
0034           SW   CHECK&3
0035           RTW  1,CHECK
0036           BCE  334,CHECK,9
0037           B    *-19
0038 SEEK      EQU  LOAD&25            NUMBER OF PHASE REQUESTED
0039 SYSTEM    WTW  1,333
0040           BER  *&5
0041           R    40
0042           BSP  1
0043           SKP  1
0044           B    SYSTEM
0045           H
0046 OVFLIT    EQU  14
0047           ORG  3971
0047           ORG  3943
00471SENTNL    BCE  REWRIT,333,1
00472          BCE  REWRIT,333,3
00473          BCE  REWRIT,333,7
00474          B    334
0048 REWRIT    BSP  1
0049           WTW  1,CHECK
0050           BER  TPERR
0051           BCE  334,CHECK,%
0052           H
0053           ORG  201
0054 *                        LINKAGE TO GENERALIZED TAPE ERROR ROUTINE
0055 TPERR     H
0056 LABEL     EQU  RECORD&10
0057 *
0058 *
0059 *                            ** 2TAP2 SUBROUTINES **
0060 *
0061           ORG  ZONE&5
0062 *                        ROUTINE TO PUT A SYMBOL IN THE LABEL TABLE
0063 *                           * SYMBOL TAKEN FROM LABEL IN RECORD
0064 *                           * CURRENT AVAILABLE TABLE LOCATION IS
0065 *                             INDEXED BY X3
0066 *                           * IF LABEL TABLE IS FULL,LABEL IS NOT
0067 *                             STORED, AND A W/M IS SET AT RECORD&1
0068 SETLAB    SBR  SETEXT&3
0069           NOP  TBLOVF,FULL,1
0070           MLC  LOCCTR,LABTBL&X3
0071           MLC  LABEL,LABTBL-3&X3
0072           NOP  000,000,0
0073           NOP  000
0074 TSTLMT    A    @9@,X3
               C    TBLLMT,X3
0076           BU   TBLOVF&7
0077           B    TBLOVF
0078 SETEXT    B    0
     TBLOVF    SW   FULL,RECORD&1
               LCA  LITTOT,LTTSAV
0080           B    LOADXX
0081 *                        ROUTINE TO LOOK UP LABEL IN LABEL TABLE
0082 *                           * ARGUMENT LABEL PLACED AT LABTBL-3&X3
0083 *                           * IF LABEL FOUND, RETURN BY EXIT
0084 *                           * IF NOT FOUND, RETURN BY EXIT&4
0085 *                           * HIT LOCATED BY X2
0086 TLULAB    SBR  TLUEXT&3
0087           MLC  @000@,X2
0088           SW   TLUFST&7
0089           MLC  LABTBL-7&X3,TLUFST&7
0090           CW   TLUFST&7
0091 TLUFST    BCE  HITFST,LABTBL-7&X2,
0092           A    @9@,X2
0093           B    TLUFST
0094 HITFST    C    LABTBL-3&X2,LABTBL-3&X3
0095           BU   TLUFST&8
0096           CW   LABTBL-8&X3
0097           C    X2,X3
0098           BU   TLUEXT
0099           SW   TLUEXT&1
0100           A    @4@,TLUEXT&3
0101           CW   TLUEXT&1
0102 TLUEXT    B    0
0103 *                        ROUTINE TO MODIFY A MACHINE ADDRESS BY A
0104 *                             PLUS OR MINUS ADJUSTMENT VALUE
0105 *                           * ADDRESS PLACED AT ADDR
0106 *                           * ADJUSTMENT VALUE TAKEN FROM PARAMT&10
0107 *                           * MODIFIED ADDRESS SET AT RESULT-1
0108 MODADD    SBR  MODEXT&3
0109           BAV  *&1
0110           CW   NEG
0111           SW   PARAMT&11
0112           MLC  @000@,X1
0113           MLC  PARAMT&19,X1
0114           MLC  @000@,HOLD
0115           MLC  PARAMT&10&X1,HOLD
0116           MZ   PARAMT&10,HOLD
0117           BM   DECR,HOLD
0118 SETINC    MLC  ADDR,RESULT-1
0119           MZ   @ @,RESULT-1
0120           A    HOLD,RESULT-1
0121           MZ   ADDR,RESULT-1
0122           MZ   RESULT-3,YYY
0123           MZ   ADDR-2,XXX
0124           BW   MODEXT&4,NEG
0125           C    XXX,YYY
0126           BH   *&5
0127           B    MODEXT
0128           SW   RESULT-1
0129           A    @|0@,RESULT
0130           CW   RESULT-1
0131 MODEXT    B    000
0132           BAV  MODEXT
0133           C    XXX,YYY
0134           BH   MODEXT
0135           SW   RESULT-1
0136           A    @?0@,RESULT
0137           B    MODEXT-4
01371XXX       DCW  @2@
01372YYY       DCW  @2@
0138 DECR      SW   NEG
0139           A    @999@,HOLD
0140           A    @?01@,HOLD
0141           B    SETINC
0142 MODALT    SBR  MODEXT&3
0143           BAV  *&1
0144           CW   NEG
0145           B    SETINC-16
0146 MODZER    MLC  HOLD,RESULT-1
0147           B    MODEXT
0148 HALT4     H
0149 *
0150 *                        HOUSEKEEPING
0151 *
0152           ORG  334
0153           B    HSKPG             PIVOT BRANCH TO HOUSEKEEPING
0154 *                        CREATE ALL WORK AREAS - OVERLAID BY INSTRS
0155           NOP  LOCCTR#3,LITTOT#3
0156           NOP  ADDR#3,HOLD#3
               NOP  RESULT#4
               NOP  LITORG#1,NEG#1
0161 *                        GET INPUT RECORD
0162           ORG  338
0163 GETRCD    RTW  2,RECORD
0164           BER  TPERR
0165           BEF  IPEOR
0166           B    PUTRCD&7,LABEL-5,*      BYPASS COMMENTS CARD
0167           SW   LABEL-5
               BW   PUTRCD&7,RECORD&3
               BW   GETLOC,RECORD&1
               BW   CNTRL2,FULL
     PROCES    BW   SUBSEQ,DA
0170 INSTR     BW   CNTRL,RECORD       TEST FOR CONTROL STATEMENT
0171           BCE  DECLAR,ICOUNT,
0172 *                        PROCESS IMPERATIVE COMMAND
0173 IMPER     BCE  *&13,LABEL-5,
0174           BWZ  PRCLIT,LABEL-5,2   BYPASS ACTUAL LOCATION ASSIGNMENT
0175           B    SETLAB
0176           LCA  LOCCTR,LOCATN
0179           ZA   ICOUNT,HOLD        STEP LOCATION COUNTER BY LENGTH
0180           MZ   @ @,HOLD
0181           MLC  LOCCTR,ADDR
0182           B    MODALT
0183           MLC  RESULT-1,LOCCTR
0184           BCE  PUTRCD,LITCNT,
0185 *                        TEST FOR LITERALS
0186 PRCLIT    MLC  @000@,X1
0187           BCE  LITERL,AADDR,L     NUMERIC LITERAL
0188           BCE  ALFLIT,AADDR,F     ALPHANUMERIC LITERAL
0189           BCE  AREA,AADDR,W       LITERAL AREA
0190           BCE  ADCON,AADDR,C      ADDRESS CONSTANT
0191           MLC  @030@,X1
0192           BCE  LITERL,BADDR,L     NUMERIC LITERAL
0193           BCE  ALFLIT,BADDR,F     ALPHANUMERIC LITERAL
0194           BCE  AREA,BADDR,W       LITERAL AREA
0195           BCE  ADCON,BADDR,C      ADDRESS CONSTANT
0196 *                        PUT OUTPUT RECORD
     PUTRCD    LCA  LOCCTR,HLDLOC
               WTW  1,RECORD
0198           BER  TPERR
0199           BEF  *&1
0200           B    GETRCD
0201 *                        PROCESS DECLARATIVE STATEMENTS
     *
     GETLOC    MLC  HLDLOC,LOCCTR
               CW   FULL,RECORD&1
02014          B    MOVXX
     *
     CNTRL2    BW   *&5,RECORD
               B    PUTRCD&7
               BCE  PUTRCD&7,PARAMT,*
               BCE  CNTRL,AADDR,S
               B    PUTRCD&7
     *
0202 DECLAR    C    OPER,@DA  @
0203           BE   DALINE
0204           MLC  LITCNT,HOLD
0205           S    @1@,HOLD           STEP LOCATION COUNTER BY LENGTH-1
0206           MZ   @ @,HOLD
0207           MLC  LOCCTR,ADDR
0208           B    MODALT
0209           BCE  *&9,LABEL-5,
0210           BWZ  PUTRCD,LABEL-5,2   TEST FOR ACTUAL ADDRESS ASSNMT
0211           MLC  RESULT-1,LOCCTR
0212           MLC  LOCCTR,LOCATN
0213           BCE  *&5,LABEL-5,
0214           B    SETLAB             STORE LABEL & LOCATION IN TABLE
0215 UPDLOC    ZA   LITCNT,HOLD
0216           MZ   @ @,HOLD
0217           B    MODALT             STEP LOCATION COUNTER BY LENGTH
0218           MLC  RESULT-1,LOCCTR
0221           B    PUTRCD
0222 *                        PROCESS DA HEADER
     DALINE    LCA  LOCCTR,SAVLOC
0224           SW   DA
0225           MZ   ACTOP,LOCCTR-1     GET INDEXING FOR LABTBL
0226           MLC  SAVLOC,ADDR
0227           BCE  *&13,LABEL-5,
0228           BWZ  ACTDA,LABEL-5,2
0229           B    SETLAB
0230           MLC  SAVLOC,LOCATN
0231           MLC  LITCNT,SAVLOC      SAVE TOTAL LENGTH OF DA
               B    PUTRCD
0233 *              DA ENTRY WITH ACTUAL ADDRESS ASSIGNMENT
     ACTDA     MLC  LOCATN,ADDR
0235           SW   ACTDA&1            SET ACT. ADDR. SWITCH
0236           B    PUTRCD
0237 *              PROCESS SUBSEQUENT ENTRIES FOR DA
0238 SUBSEQ    BW   DASUB,PARAMT&65    TEST FOR DA SUBSEQUENT ENTRY
0239           BW   ACTOUT,ACTDA&1     NOT SUBSEQ - TEST ACTUAL ADDR SW
0240           MLC  SAVLOC,HOLD
0241           B    MODALT
0242           MLC  RESULT-1,LOCCTR   STEP LOCATION COUNTER BY DA LENGTH
0243           CW   DA,ACTDA&1         RESET SWITCHES
0244           B    INSTR              BRANCH TO PROCESS NEW ENTRY
0245 ACTOUT    MLC  SAVLOC,LOCCTR      RESTORE ORIGINAL LOCATION COUNTER
0246           B    ACTOUT-11
0247 *                        PROCESS DA SUBSEQUENT ENTRY
0248 DASUB     MLC  LOCATN,HOLD        GET RELATIVE POSITION IN AREA
0249           B    MODALT             APPLY IT TO DA BASE ADDRESS
0250           MLC  RESULT-1,LOCCTR
0252           MLC  LOCCTR,LOCATN
0251           MZ   ACTOP,LOCCTR-1     GET INDEXING FOR LABTBL
0253           BCE  *&5,LABEL-5,
0254           B    SETLAB
               B    PUTRCD
0257 *                        PROCESS GENERATED LITERALS
0258 LITERL    SBR  LITEXT&3
0259           BCE  SHORT,PARAMT&6&X1,
0260 *                        TLU SHORT LITERALS FOR DUPLICATES
0261 LITOUT    A    PARAMT&29&X1,LITTOT
0262 LITEXT    B    0
0263 SHORT     LCA  PARAMT&5&X1,LABTBL-3&X3
0264           B    TLULAB
0265           B    INTABL
0266 FIRST     MLC  LABEL,HLDLAB#6     FIRST OCCURRENCE OF LITERAL
0267           A    PARAMT&29&X1,LITTOT                              )))
0268           MLC  PARAMT&5&X1,LABEL
0270           B    SETLAB             PUT SHORT LITERAL IN SYMBOL TABLE
0275           LCA  LITTOT,LABTBL-9&X3
0276           SW   LABTBL-17&X3       MARK AS RELATIVE ENTRY
0277           MLC  HLDLAB,LABEL                                    )))
0278           B    LITEXT
0279 INTABL    SW   LABTBL-8&X3        DUPLICATED SHORT LITERAL
0280           BWZ  TABLYY,092,2
0281           B    TABLZZ
0282 TABLXX    CW   LABTBL-8&X3
0283           S    PARAMT&29&X1,LITCNT   DUPLICATED WITHIN SAME LITERAL
0284           MZ   @ @,LITCNT               AREA, NOT PREVIOUS ONE
0285           BCE  *&12,X1-1,3        SET LITERAL FOR SYMBOLIC TLU
0286           MLC  @Q@,AADDR
0287           B    LITEXT
0288           MLC  @Q@,BADDR                                       )))
0289           B    LITEXT
0295 *                        ALPHANUMERIC LITERAL
0296 ALFLIT    SBR  LITEXT&3
0297           C    PARAMT&29&X1,@05@
0298           BH   SHORT              TEST FOR SHORT A/N LITERAL
0299           B    LITOUT
0300 *                        LITERAL AREA OF FORM SYMBOL#10
0301 AREA      SBR  LITEXT&3
0302           LCA  PARAMT&9&X1,PARAMT&29&X1
0303           B    FIRST
0304 *                        ADDRESS CONSTANT
0305 ADCON     SBR  LITEXT&3
0306           B    LITOUT
0307 *                        TEST FOR CONTROL STATEMENTS
0308 CNTRL     BCE  ORIGIN,OPER-3,O    ORIGIN CONTROL STATEMENT
0309           BCE  LTORG,OPER-3,L     LTORG CONTROL STATEMENT
0310           BCE  EQUATE,OPER-2,Q   EQUATE STATEMENT
0311           BCE  ELTG,OPER-3,E     EX OR END - PROCESS AS LTORG
0312           B    PUTRCD            NO PROCESSING REQUIRED
0313 *                        PROCESS ORIGIN CONTROL STATEMENTS
     ORIGIN    BCE  DECODO,LABEL-5,
               BW   DECODO,FULL
0316           B    SETLAB
     DECODO    BCE  ACTORG,AADDR,A
0318           BCE  SYMORG,AADDR,S     SYMBOLIC ADDRESS
0320           BCE  PUTRCD,AADDR,D     ALREADY PROCESSED
               BCE  SETORG,AADDR,P
0319           BCE  ASTORG,AADDR,      BLANK OPERAND
0321           SW   ERRPOS
0322           B    PUTRCD
0323 *                        ORIGIN WITH ACTUAL ADDRESS OPERAND
0324 ACTORG    MLC  @D@,AADDR          MARK AS PROCESSED
0325           MLC  PARAMT&8,LOCCTR
0326           MLC  LOCCTR,LOCATN
0328           B    PUTRCD                 ABSOLUTE MODE
0329 *                        ORIGIN WITH SYMBOLIC OPERAND
0330 SYMORG    BCE  ASTORG,PARAMT,*    TEST FOR * OPERAND
0331           LCA  PARAMT&5,LABTBL-3&X3
0332           B    TLULAB            TLU SYMBOL IN SYMBOL TABLE
0333           B    PREVLB             FOUND SYMBOL IN SYMBOL TABLE
0334 *                        SYMBOL IN OPERAND NOT PREVIOUSLY DEFINED
     NOPREV    BW   PUTRCD&7,FULL
0337           LCA  @000@,LOCATN                                     )))
0338           MLC  @000@,LOCCTR       SET BASE ZERO FOR LOCATION COUNTR
               SW   ERRPOS
               B    PUTRCD
0349 *                        SYMBOL IN OPERAND WAS PREVIOUSLY DEFINED
     PREVLB    MLC  @P@,AADDR
0352           MLC  LABTBL&X2,LOCCTR
0353           MLC  LOCCTR,LOCATN
0354           BCE  NOSADJ,PARAMT&10,
0355           MLC  LOCCTR,ADDR
0356           B    MODADD             APPLY CHARACTER ADJUSTMENT
0357           MLC  RESULT-1,LOCCTR
0358 NOSADJ    MLC  LOCCTR,LOCATN
0360           BW   LTGOUT,LITORG      IF SYMBOLIC LTORG, RETURN TO LTOR
               BW   PUTRCD&7,FULL
0361           B    PUTRCD
0362 *                        ORIGIN WITH ASTERISK SYMBOLIC
0363 ASTORG    C    @&X00@,PARAMT&13  TEST FOR *&X00 OPERAND
0364           BE   CENORG
0365           MLC  LOCCTR,ADDR
0368           BCE  *&12,PARAMT&10,                                  )))
0369           B    MODADD             APPLY CHARACTER ADJUSTMENT
0370           MLC  RESULT-1,LOCCTR
0371           LCA  LOCCTR,LOCATN                                    )))
0373           B    PUTRCD
0374 *                        ORIGIN WITH *&X00 OPERAND
0375 CENORG    MLC  @100@,HOLD
0376           MLC  LOCCTR,ADDR
0377           B    MODALT
0378           MN   @000@,RESULT-1     GENERATE NEXT 100S ADDRESS
0379           MN
0380           MLC  RESULT-1,LOCCTR
0381 CEN1      LCA  LOCCTR,LOCATN
0389 ORGOUT    BW   LTGOUT,LITORG      TEST FOR LTORG SHARING ROUTINE
0390           B    PUTRCD
     *
     SETORG    MLC  LOCATN,LOCCTR
               B    ORGOUT
     *
0391 *                        * PROCESS LTORG CONTROL STATEMENTS
0392 LTORG     BCE  DECODL,LABEL-5,
               BW   DECODL,FULL
0395           B    SETLAB             STORE LABEL AND PREVIOUS LOCATION
0396 DECODL    BCE  SYMLTG,AADDR,S     SYMBOLIC ADDRESS
0397           BCE  ACTLTG,AADDR,A     ACTUAL ADDRESS
0399           BCE  PUTRCD,AADDR,D     STATEMENT ALREADY PROCESSED
               BCE  SETLIT,AADDR,P
0398           BCE  ASTLTG,AADDR,      BLANK OPERAND
0400           SW   ERRPOS            ILLEGAL OPERAND - MARK AS INVALID
0401           B    PUTRCD
0402 *                        SYMBOLIC ADDRESS LTORG
0403 SYMLTG    BCE  ASTLTG,PARAMT,*     TEST FOR * OPERAND
0404           SW   LITORG            SET LITORG SWITCH FOR ORG ROUTINE
0405           B    SYMORG             SHARE SYMBOLIC ORG ROUTINE
     LTGOUT    BW   PUTRCD&7,FULL
               MLC  @|@,LABTBL-5&X3
0407           MLC  LOCCTR,LABTBL-6&X3
0408           MLC  LOCCTR,ADDR
0409           MLC  LITTOT,HOLD
0410           B    MODALT
0411           MLC  RESULT-1,LOCCTR
0412           MLC  LITTOT,LABTBL&X3                                 )))
0413           MLC  @000@,LITTOT                                     )))
0414           MLC  X3,LASTLT          STORE LAST LTORG POINT        )))
0415 STORLT    CW   LITORG             RESET LITORG SWITCH
0418           MLC  &PUTRCD,SETEXT&3
0419           B    TSTLMT            SET ENTRY INTO SYMBOL TABLE
0426 *                        LTORG WITH * OPERAND
0427 ASTLTG    C    PARAMT&13,@&X00@   TEST FOR *&X00 OPERAND
0428           BE   CENLTG
0429           MLC  LOCCTR,ADDR
0430           BCE  ELTG,PARAMT&10,
0431           B    MODADD            APPLY CHARACTER ADJUSTMENT
0432           MLC  RESULT-1,LOCCTR
0433 ELTG      LCA  LOCCTR,LOCATN      SET UP TABLE ENTRY
0435           CW   LABTBL-5&X3
               B    LTGOUT
0441 CENLTG    SW   LITORG
0442           B    CENORG
0443 ACTLTG    MLC  @D@,AADDR
0444           MLC  PARAMT&8,LOCATN
0446           MLC  LOCATN,LOCCTR
0447           B    LTGOUT
     *
     SETLIT    MLC  LOCATN,LOCCTR
               B    LTGOUT
     *
0448 *                        PROCESS EQUATE ENTRIES
     EQUATE    BCE  SYMEQU,AADDR,S
0450           BCE  SYMEQU,AADDR,S
0451           BCE  ACTEQU,AADDR,A
0452           BCE  MCHEQU,AADDR,M
0453           BCE  PUTRCD,AADDR,D
0454           BCE  PROCEQ,AADDR,E
0455           SW   ERRPOS
0456           B    PUTRCD
0457 ACTEQU    MLC  PARAMT&8,ADDR
0458           B    ADJEQU
0459 MCHEQU    MLC  PARAMT&2,ADDR
0460           B    PUTEQU
0461 ASTEQU    MLC  LOCCTR,ADDR
0462           ZS   @1@,HOLD
0463           B    MODALT
0464           MLC  RESULT-1,ADDR
0467           B    ADJEQU
0468 SYMEQU    BCE  ASTEQU,PARAMT,*
0469           LCA  PARAMT&5,LABTBL-3&X3
0470           B    TLULAB
0471           B    HITEQU
0472           BW   PUTRCD&7,FULL
0473           SW   ERRPOS-2
0475           MLC  @###@,LOCATN
0476           B    PUTRCD
0477 HITEQU    BW   ADJEQU,LABTBL-8&X2
0478           MLC  LABTBL&X2,ADDR
0479           MLC  @E@,AADDR
0480 ADJEQU    MLC  @000@,X2
0481           MLC  @000@,X1
0482           BCE  PUTEQU,PARAMT&10,
0483           BCE  INDEQU,PARAMT&11,X
0484           B    MODADD
0485           MLC  RESULT-1,ADDR
0486           MLC  @010@,X2
0487           BCE  PUTEQU,PARAMT&20,
0488 INDEQU    MLC  @000@,X1
0489           MN   PARAMT&12&X2,X1
0490           MZ   ZONE&X1,ADDR-1
0491 PUTEQU    MLC  ADDR,LOCATN
0492           MLC  &PUTRCD,SETEXT&3
               BW   PUTRCD&7,FULL
               MLC  LABEL,LABTBL-3&X3
0495           MLC  ADDR,LABTBL&X3
0496           B    TSTLMT
0497 PROCEQ    MLC  LOCATN,ADDR
0498           B    PUTEQU
0499 *
0500 *                        END OF REEL ON INPUT TAPE # 2
0501 IPEOR     RWD  2
0502           WTM  1
0503           RWD  1
0504           MLC  @4@,SEEK
0505           CW   PARTBL&90,LABTBL&X3
0506           B    LOAD
0507           H
0508 *                        END OF REEL ON OUTPUT TAPE # 1
0509 *                                ** IMPOSSIBLE CONDITION **
0510 *
0511 *                        TAPE RECORD AREA
0512 *
0513 RECORD    DA   1X80,|
0514 PARTBL    DA   1X90,|
0515 AADDR          1,1
0516 BADDR          2,2
0517 ERRPOS         6
0518 ICOUNT         7,7
0519 LITCNT         8,10
0520 ACTOP          11,11
0521 LOCATN         12,14
0522 PARAMT         15,15
0523 AOPND          85,87
0524 BOPND          88,90
0525 OPER      EQU  RECORD&18
0526 GPMK      DC   @}@
0527 ZONE      DCW  #1
0528           DCW  @/JA@
0529 *
0530 *                        HOUSEKEEPING ROUTINE - OVERLAID BY TAPE IO
0531 *
0532           ORG  RECORD
0533 HSKPG     MLC  @333@,LOCCTR
0534           MLC  @000@,X3
0535           LCA  @000@,LTTSAV
0544           CW   DA,FULL
0536 *                        HSKPG ENTRY POINT FOR PHASE 7 REITERATION
0537 HSKPG1    SW   3998
0538           LCA  3998,PARTBL&90
0539           NOP  000
05391          NOP
0540           MLC  LTTSAV,LITTOT      REESTABLISH CUTOFF LITERAL TOTAL
0541           LCA  @000@,LASTLT       SET LAST LITERAL POINT AS ZERO
0542 *                        CLEAR ALL SWITCHES FOR PHASE 3 OR 7
               SW   RELATV
0545           CW   LITORG,NEG
0546           CW   LITCTL,HIGH3&1
0547           B    GETRCD
0548           H
0549 *
0550 *                        LITERALS USED BY 2TAP2
0551           LTORGHALT4
0552 HIGH1     H
0553 *
0554 *
0555 *                        LABEL TABLE FOR 2TAP2
0556 *                           * SYMBOL STORED IN FIRST 6 POSITIONS
0557 *                           * EQUIVALENT ADDRESS STORED IN LAST 3
0558 *                           * FOR RELATIVE ADDRES, W/M UNDER H.O.
0559 *                           * NUMERIC LITERALS UNDER 6 CHARACTERS
0560 *                           * ALPHANUMERIC LITERALS UNDER 5 CHARS
0561 *                           * RELATIVE ORIGIN ENTRY STORED WITH 3
0562 *                             POSITION ADJUSTMENT VALUE IN FIRST 3
0563 *                             AND SYMBOLIC  OPERAND IN LAST 6 WITH
0564 *                             A W/M UNDER FIRST & FOURTH POSITIONS
0565           ORG  HIGH3&4
0566 LABTBL    DC   @         @
0567 3998      DCW  @}@
0568 *
               ORG  3889
     LOADXX    LCA  ADDR,018
               B    SETEXT
               ORG  3900
     MOVXX     MLC  018,ADDR
               B    PUTRCD&7
               ORG  2758
     TABLYY    BWZ  TABLZZ&8,007,2
               B    TLUFST&8
     TABLZZ    BWZ  TABLXX,007,2
               C    X2,009
               BH   TLUFST&8
               B    TABLXX
0569           EX   SYSTEM
0570           JOB  1401 TWO-TAPE AUTOCODER - PHASE 7 - REITERATION  RBR   2TAP7
0571 *
0572 ******    OVERLAY OF PHASE 3 FOR REITERATION  ***
0573 *
0574 *                        ***  PHASE 7 IDENTIFICATION AT 333  ***
0575 *
0576           ORG  333
0577           DCW  @7@
0578           B    HSKPG1
0642 *
     2802      DCW  @}@
0643           EX   SYSTEM
0644           JOB  1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR   2TAP4
0645 *
0646 ******    TEST SYMBOL TABLE FOR RELATIVE ADDRESSES  ***
0647 *
0648 *                        ***  PHASE 4 IDENTIFICATION AT 333  ***
0649 *
0650           ORG  333
0651           DCW  @4@
0652 *
0653 TSTTBL    CW   REITER
0654           BW   TBLDON,RELATV
0655           SW   RELATV,HOLDZN#1
0656           MLC  @000@,X1
0657           MLC  @000@,SAVLOC
0658           SW   LABTBL-5&X3,LABTBL-8&X3
0659           BW   *&12,LABTBL-5&X1
0660 P2SK1     A    @9@,X1
0661           B    *-18
0662           C    X1,X3
0663           BE   TBLDON
0664           MLC  @000@,X2
0665           LCA  LABTBL&X1,LABTBL-3&X3
0666 P2SK2     C    LABTBL-3&X2,LABTBL&X1
0667           BE   *&12
0668           A    @9@,X2
0669           B    P2SK2
0670           C    X3,X2
0671           BE   NOSYM
0672           BW   *&5,LABTBL-8&X2
0673           B    *&21
0674           BW   *&5,FULL
0675           B    NOSYM
0676           CW   RELATV
0677           B    P2SK1
0678           MLC  LABTBL&X2,ADDR
0679           MLC  LABTBL-6&X1,HOLD
0680           CW   LABTBL-5&X1
0681           A    @1@,SAVLOC
0682           B    MODALT
0683 P2SK3     MLC  RESULT-1,ADDR
0684           MLC  ADDR,LABTBL&X1
0685           CW   LABTBL-5&X1
0686           MLC  @|@,LABTBL-8&X1
0687 P2SK4     A    @9@,X1
0688           BCE  SKPEQU,LABTBL-2&X1,#
0689           BW   P2SK4,LABTBL-2&X1            BYPASS SHORT LITERALS
0690           BW   APPLY,LABTBL-8&X1            RELATIVE ADDRESS
0691           BW   *&21,LABTBL-5&X1
0692           BW   P2SK4,LABTBL&X1
0693           BCE  P2SK4,LABTBL-5&X1,|
0694           B    P2SK1-15
0695           BCE  SETLOC,LABTBL-5&X1,*
0696           B    P2SK1-15
0697 SKPEQU    BW   *&8,LABTBL&1X1
0698           A    @9@,X1
0699           B    P2SK4
0700 SETLOC    MLC  LABTBL-6&X1,HOLD
0701           B    MODALT
0702           BCE  CENAPL,LABTBL-4&X1,X
0703           MLC  RESULT-1,LABTBL&X1
0704           CW   LABTBL-5&X1
0705           MLC  RESULT-1,ADDR
0706           MLC  @|@,LABTBL-8&X1
0707           B    P2SK4
0708 CENAPL    MN   @000@,RESULT-1
0709           MN
0710           B    SETLOC&19
0711 APPLY     C    X1,X3
0712           BE   P2SK8
0713           BCE  P2SK9,LABTBL-5&X1,|
0714           BCE  P2SK10,LABTBL-11&X1,#
0715           MZ   LABTBL-1&X1,HOLDZN
0716           MLC  LABTBL&X1,HOLD
0717           B    MODALT
0718           MLC  RESULT-1,LABTBL&X1
0719           MZ   HOLDZN,LABTBL-1&X1
0720           CW   LABTBL-8&X1
0721           B    P2SK4
0722 P2SK9     MLC  LABTBL-6&X1,HOLD
0723           B    MODALT
0724           BCE  CNLAPL,LABTBL-4&X1,X
0725           MLC  RESULT-1,LABTBL-6&X1
0726           MLC  RESULT-1,ADDR
0727           MLC  LABTBL&X1,HOLD
0728           B    MODALT
0729           MLC  RESULT-1,ADDR
0730           B    P2SK9-8
0731 CNLAPL    MN   @000@,RESULT-1
0732           MN
0733           B    P2SK9&19
0734 P2SK10    MLC  LABTBL-6&X1,HOLD
0735           B    MODALT
0736           MLC  RESULT-1,LABTBL-6&X1
0737           B    P2SK9-8
0738 NOSYM     BW   P2SK7,FULL
0739           MLC  @000@,ADDR
0740           MLC  ADDR,LABTBL&X1
0741           SW   LABTBL-7&X1
0742           B    P2SK3&7
0743 P2SK7     CW   RELATV
0744           A    @9@,X1
0745           B    P2SK1-15
0746 TBLDON    BW   *&13,RELATV
0747           C    SAVLOC,@000@
0748           BU   TSTTBL
0749           BW   *&5,FULL
0750           B    TSTLIT
0751           SW   REITER
0752           B    TSTLIT
0753 P2SK8     BW   *&5,OVFLIT-8
0754           B    TBLDON
0755           MLC  OVFLIT-6,HOLD
0756           B    MODALT
0757           MLC  RESULT-1,OVFLIT-6
0758           CW   OVFLIT-8
0759           B    TBLDON
0760 *                        TEST TABLE FOR UNDEFINED LITORG ENTRIES
0761 TSTLIT    MLC  @000@,X1
0762           SW   LABTBL&X3
0763 CMPLTG    BW   *&12,LABTBL&X1
0764           A    @9@,X1
0765           B    CMPLTG
0766           C    X1,X3
0767           BE   TSTEQU
0768           BCE  CMPLTG&8,LABTBL-5&X1,*
0769           CW   LABTBL&X1
0770           SW   LABTBL-5&X1
0771           LCA  LABTBL&X1,LABTBL-3&X3
0772           CW   LABTBL-5&X1
0773           SW   LABTBL&X1
0774           B    TLULAB
0775           B    LITHIT
0776 NLTHIT    BW   *&5,RELATV
0777           B    CMPLTG&8
0778           MLC  @|@,LABTBL-5&X1
0779           MLC  @000@,LABTBL-6&X1
0780           B    CMPLTG&8
0781 LITHIT    BW   NLTHIT,LABTBL-8&X2
0782           SW   LABTBL-8&X1
0783           MLC  LABTBL&X2,LABTBL-6&X1
0784           CW   LABTBL-8&X1,LABTBL&X1
0785           MLC  @|@,LABTBL-5&X1
0786           B    CMPLTG&8
0787 *                        TEST TABLE FOR UNDEFINED EQUATE ENTRIES
0788 TSTEQU    MLC  @000@,X1
0789           MLC  @#@,LABTBL-2&X3
0790 CMPEQU    BCE  *&12,LABTBL-2&X1,#
0791           A    @9@,X1
0792           B    CMPEQU
0793           C    X1,X3
0794           BE   SHRTLT
0795           BCE  *&5,LABTBL&4&X1,
0796           B    TLUEQU
0797           BW   CMPEQU&8,LABTBL&1&X1
0798           SW   LABTBL-2&X1
0799           BW   *&5,LABTBL-1&X1
0800           B    *&8
0801           MZ   LABTBL-1&X1,LABTBL&2&X1
0802           MLC  LABTBL&3&X1,LABTBL&X1
0803           CW   LABTBL-2&X1
0804           MLC  @|@,LABTBL&2&X1
0805           B    CMPEQU&8
0806 TLUEQU    SW   LABTBL&4&X1
0807           MLC  LABTBL&9&X1,LABTBL-3&X3
0808           CW   LABTBL&4&X1
0809           B    TLULAB
0810           B    PRVEQU
0811           BW   *&5,RELATV
0812           B    CMPEQU&8
0813           MLC  @###@,LABTBL&X1
0814           B    CMPEQU&8
0815 PRVEQU    BW   *&8,LABTBL-1&X1
0816           MZ   LABTBL-1&X2,LABTBL-1&X1
0817           CW   LABTBL-1&X1
0818           MZ   LABTBL-1&X1,HOLDZN
0819           MLC  LABTBL&X2,ADDR
0820           MLC  LABTBL&3&X1,HOLD
0821           B    MODALT
0822           MLC  RESULT-1,LABTBL&X1
0823           MZ   HOLDZN,LABTBL-1&X1
0824           CW   LABTBL&4&X1
0825           CW   LABTBL-8&X1,LABTBL-2&X1
0826           MLC  @|@,LABTBL&2&X1
0827           B    CMPEQU&8
0828 *                        COMPLETE SHORT LITERAL ADDRESSES
0829 SHRTLT    MLC  @000@,X1
0830           MLC  @000@,X2
0831 TSTLTG    BCE  HAVLTG,LABTBL-5&X2,|
0832           A    @9@,X2
0833           C    X3,X2
0834           BE   ENDPH2
0835           B    TSTLTG
0836 HAVLTG    MLC  LABTBL-6&X2,ADDR
0837           ZS   @1@,HOLD
0838           B    MODALT
0839           MLC  RESULT-1,ADDR
0840 TSTSRT    BW   HAVSRT,LABTBL-2&X1
0841           A    @9@,X1
0842           C    X1,X3
0843           BE   ENDPH2
0844           B    TSTSRT
0845 HAVSRT    C    X2,X1
0846           BH   PATCHX
0847           MLC  LABTBL&X1,HOLD
0848           B    MODALT
0849           MLC  RESULT-1,LABTBL&X1
0850           CW   LABTBL-8&X1
0851           B    TSTSRT&8
0852 ENDPH2    LCA  @         @,LABTBL&X3
0853           CW   LABTBL-8&X3
0854           MLC  @5@,SEEK
0855           CW   HIGH2&1
0856           NOP  999,999
0857           B    LOAD
0858           H
0859           LTORGNEG&1
08591          H
0860 PATCHX    BWZ  TSTLTG&8,092,2
0861           BWZ  HAVSRT&12,087,2
08611          B    TSTLTG&8
08612HIGH2     H
08613          DCW  @}@
0862           EX   SYSTEM
0863           JOB  1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS   RBR   2TAP5
0864 *
0865 ******    PHASE 5 - TLU LABELS AND PROCESS LITERAL RECORDS  ***
0866 *
0867 *                        ***  PHASE 5 IDENTIFICATION AT 333  ***
0868 *
0869           ORG  333
0870           DCW  @5@
0871 *
0872           B    PHASE5             BRANCH TO HOUSEKEEPING
0873 *
0874           ORG  RECORD&1
0875 PHASE5    CW   SAVLIT#1,ADONE#1   HOUSEKEEPING
0876           SW   3998
0877           LCA  3998,PARTBL&90
0878           CW   FSTIME#1,DOUBLE#1
0879           CW   LITONE#1,LITX#1
0880           CW   LITORG
0881           NOP  LITBEG#5,ORGBAS#3
0882           NOP  TEMP1#3
0883           MLC  @   @,ADDR
0884           MLC  @000@,LSTORG#3
0885           MLC  @000@,LASTLT
0886           MLC  X3,BASIC#3
0887           MLC  @000@,X3
0888           B    TLULIT
0889           H
0890           ORG  338
0891 *                        FIND FIRST LTORG ENTRY IN LABEL TABLE
0892 TLULIT    C    X3,BASIC
0893           BE   HITLIT-8           HAVE OVERFLOW LTORG
0894           A    @9@,X3             STEP X3 TO FIND NEXT LTORG IN TBL
0895           BCE  HITLIT,LABTBL-5&X3,|       TEST FOR LTORG ENTRY
0897           B    TLULIT
0898           SW   LITADD             SET UP FOR INCOMPLETE LTORG   )))
0899           B    LITPNT&7
0901 HITLIT    MLC  LABTBL-6&X3,ADDR
0902           MLC  @00J@,HOLD
0903           B    MODALT
0904 *                        SET LTORG POINT ADDRESS IN LITADD
0905 LITPNT    LCA  RESULT-1,LITADD#3    SET UP START ADDR OF LITERALS
0906           MLC  X3,LITLOC#3
0907           MLC  BASIC,X3
0908 *                        GET INPUT RECORD FOR PROCESSING
0909 GET       RTW  1,RECORD
0910           BER  TPERR
0911           BEF  ENDPH3
0912           BCE  PUT,RECORD&5,*
0913           CW   ADONE
0914           C    OPER,@LTOR@
0915           BE   LIT
0916           C    OPER,@EX  @
0917           BE   LTDONE
0918           BW   HAVLIT,LITX
0919           BW   LITRCD,RECORD&3
0920 LTREST    MLC  LITBEG-2,LASTLT
0921           CW   LITORG
0922           BW   CONTRL,RECORD
0924 TEST      BCE  DECL,ICOUNT,
0925 *                        PROCESS IMPERATIVE INSTRUCTION
0926           MLC  @000@,HOLD
0927           MLC  PARAMT&29,HOLD
0928           MLC  @000@,X1
0929           MLC  AADDR,DADDR#1
0930           BCE  DONE,AADDR,
0931           BCE  OUTADD&15,AADDR,D
0932           BCE  SYMBOL,AADDR,S
0933           BCE  ACTUAL,AADDR,A
0934           BCE  MACHIN,AADDR,M
0935           BCE  CNVRTD,AADDR,Q
0936           BW   OUTADD,LITADD
0937 *                        SET UP ADDRESS FOR LITERAL
0938 LITRAL    MLC  LITADD,ADDR
0939           B    MODALT
0940           MLC  RESULT-1,ADDR
0941           MLC  ADDR,LITADD
0942           MLC  @D@,DADDR
0943           SW   SAVLIT
0944 OUTADD    BW   DOBADD,ADONE
0945           MLC  ADDR,AOPND
0946           B    SETXX
0947           MLC  PARAMT&59,HOLD
0948           MLC  @030@,X1
0949           MLC  DADDR,AADDR
0950           MLC  BADDR,DADDR
0951           BW   ALIT,SAVLIT
0952 TSTADD    BCE  DONE,BADDR,
0953           BCE  DONE,BADDR,D
0954           BCE  SYMBOL,BADDR,S
0955           BCE  ACTUAL,BADDR,A
0956           BCE  MACHIN,BADDR,M
0957           BCE  CNVRTD,BADDR,Q
0958           BCE  DONE,ICOUNT,
0959           B    LITRAL-8
0960 ALIT      CW   SAVLIT
0961           B    TSTADD
0962 *                        PROCESS LITERAL RECORD
0963 HAVLIT    CW   LITX
0964           BW   *&5,RECORD&3
0965           B    LTREST
0966           MLC  TEMP1,X1
0967           B    LITRCD&15
0968 LITRCD    BW   PROCSW,LITORG
0969           MLC  LITLOC,X1
0970           SW   LITORG
0971           C    X1,X3
0972           BE   NOPROC
0973           BW   NOPROC,LABTBL&X1
0974           BW   NOPROC,LABTBL-8&X1
0975           B    *&12
0976 NOPROC    MLC  @B@,PROCSW
0977           B    PROCSW
0978           MLC  @N@,PROCSW
0979           MLC  LABTBL-6&X1,ADDR
0980           ZS   @1@,HOLD
0981           B    MODALT
0982           MLC  RESULT-1,BASE#3
0983 PROCSW    NOP  TSTADC
0984           BW   TSTADC,RECORD&4
0985           BCE  ALPHA,RECORD&20,@
0986           BCE  NUMLIT&8,PARAMT&60,A
0987 NUMLIT    BCE  SHORTL,PARAMT&6,
0988           MLC  BASE,ADDR                                        )))
0989           MLC  LITCNT,HOLD
0990           B    MODALT
0991           LCA  RESULT-1,LOCATN
0992           MLC  LOCATN,BASE
0993           SW   RECORD&4           MARK LITERAL RECORD AS PROCESSED
0994 TSTADC    BCE  TLUADC,PARAMT&61,D
0995           B    PUT
0996 TLUADC    BCE  PUT,AADDR,D
0997           MLC  AADDR,DADDR
0998           MLC  @000@,X1
0999           SW   PARAMT&1
1000           LCA  PARAMT&6,LABTBL-3&X3
1001           B    SYMBOL&15
1002 LADBCK    MLC  AOPND,PARAMT&32
1003           B    PUT
1004 SHORTL    SW   PARAMT
1005           LCA  PARAMT&5,LABTBL-3&X3
1006           B    TLULAB
1007           B    *&5
1008           B    PUT
1009           SW   LABTBL-8&X3
1010           C    X2,LASTLT
1011           B    ADJXX
10111          NOP
1012           CW   LABTBL-8&X3
1013           BW   ALPHA-8,LABTBL-2&X2
1014           B    GET
1015           CW   LABTBL-2&X2
1016           B    NUMLIT&8
1017 ALPHA     C    LITCNT,@005@
1018           BH   SHORTL
1019           B    NUMLIT&8
1020 *                        PROCESS SYMBOLIC LABEL - TLU IN LABEL TABL
1021 SYMBOL    BCE  ASTRSK,PARAMT&X1,*
1022           LCA  PARAMT&5&X1,LABTBL-3&X3
1023           B    TLULAB
1024           B    HITSYM
1025           BW   OUTADD,  FULL
1026           B    TSTFUL
1027 HITSYM    BW   TSTFUL,LABTBL-8&X2
1028           CW   LABTBL-2&X2
1029           MLC  LABTBL&X2,ADDR
1030           BCE  TSTFUL,LABTBL-2&X2,#
1031           MLC  @D@,DADDR
1032           B    CMPADD
1033 TSTFUL    BW   OUTADD,FULL
1034           MLC  @###@,ADDR
1035           SW   ERRPOS-2
1036           MLC  @D@,DADDR
1037           B    OUTADD
1038 ASTRSK    BCE  OUTADD,LOCATN,
1039           MLC  LOCATN,ADDR
1040           ZA   ICOUNT,HOLD
1041           S    @1@,HOLD
1042           MZ   @ @,HOLD
1043           B    MODALT
1044           MLC  RESULT-1,ADDR
1045           MLC  @D@,DADDR
1046           B    CMPADD
1047 *                        PROCESS ACTUAL ADDRESS OPERAND
1048 ACTUAL    MLC  PARAMT&8&X1,ADDR
1049           MLC  @D@,DADDR
1050           B    CMPADD
1051 *                        PROCESS MACHINE ADDRESS OPERAND
1052 MACHIN    MLC  PARAMT&2,ADDR
1053           MLC  @D@,DADDR
1054           B    OUTADD
1055 *                        APPLY CHARACTER ADJUSTMENT & INDEXING
1056 CMPADD    BCE  OUTADD,PARAMT&10&X1,
1057           BCE  INDADD,PARAMT&11&X1,X
1058 ADJADD    MLC  @000@,X2
1059           SW   PARAMT&11&X1
1060           MLC  PARAMT&19&X1,X2
1061           A    X1,X2
1062           MLC  @000@,HOLD
1063           MLC  PARAMT&10&X2,HOLD
1064           MZ   PARAMT&10&X1,HOLD
1065           MZ   ADDR-1,HOLDZN
1066           B    MODALT
1067           MLC  RESULT-1,ADDR
1068           MZ   HOLDZN,ADDR-1
1069           A    @10@,X1
1070           BCE  OUTADD,PARAMT&10&X1,
1071 INDADD    MLC  @000@,X2
1072           MN   PARAMT&12&X1,X2
1073           MZ   ZONE&X2,ADDR-1
1074           B    OUTADD
1075 DOBADD    MLC  ADDR,BOPND
1076           CW   ADONE
1077           MLC  DADDR,BADDR
1078           BW   BLIT,SAVLIT
1079 DONE      BCE  LADBCK,PARAMT&61,D
1080           B    PUT
1081 BLIT      CW   SAVLIT
1082           B    DONE
1083 *                        TLU DUPLICATED SHORT LITERALS
1084 CNVRTD    LCA  PARAMT&5&X1,LABTBL-3&X3
1085           B    TLULAB
1086           B    *&5
1087           H    *-3
1088           SW   LABTBL-8&X3
1089           C    X2,LASTLT
1090           B    ADJXX
10901          NOP
1091           CW   LABTBL-8&X3
1092           BW   TSTFUL,LABTBL-8&X2
1093           B    HITSYM&12
1094 *                        TEST CONTROL ENTRIES
1097 CONTRL    C    OPER,@EQU @
1098           BE   GETEQU
1099           C    OPER,@END @
1100           BE   LTDONE
1101           MLC  @000@,X1
1102           C    OPER,@XFR @
1103           BE   TEST&22
1104           B    PUT
1144 *                        PROCESS EQUATE ENTRIES
1145 GETEQU    B    PUT
1146 *                        PROCESS LTORG ENTRIES
1147 LIT       SW   LITX
1148 LTDONE    BW   LITBCK-12,RECORD&4
1149           MLC  &LITBCK,OUT&3
1150           C    LITLOC,X3
1151           BE   LIT1
1152           BW   *&9,LOCATN
1153           SW   RECORD&4
1154           B    LITBCK-12
1155           MLC  LITLOC,X1
1156           BW   LIT1,LABTBL-8&X1
1157           BW   LIT1,LABTBL&X1
1158           CW   LOCATN
1159           MLC  LABTBL-6&X1,LOCATN
1160           BCE  CALLTT,PARAMT,*
1161           BCE  CALLTT,OPER-3,E
1162           B    LIT1-8
1163 CALLTT    MLC  LOCATN,ADDR
1164           MLC  LABTBL&X1,HOLD
1165           B    MODALT
1166           MLC  RESULT-1,ORGBAS
1167           SW   RECORD&4           MARK LTORG AS PROCESSED
1168           B    LITBCK-12
1169 LIT1      BW   LITBCK-12,FULL
1170           SW   ERRPOS
1171           LCA  @000@,LOCATN
1172           BCE  TEST&22,OPER-3,E
1173           B    PUT
1174 LITBCK    MLC  &GET,OUT&3
1175           MLC  X3,BASIC
1176           MLC  LITLOC,LITBEG-2
1177           BW   *&8,LITX
1178           MLC  LITLOC,LASTLT
1179           MLC  LITLOC,X3
1180           MLC  LITLOC,TEMP1
1181           B    TLULIT
1182 *                        DECLARATIVE ENTRIES - BYPASS IF CONSTANT
1183 *                             IF ADDRESS CONSTANT, LOOK IT UP
1184 DECL      BCE  TLUADC,AADDR,C
1185           BCE  TEST&22,AADDR,S
1186           BCE  TEST&22,AADDR,A
1187           B    PUT
1188 *                        MARK LITERAL RECORD AS PROCESSED
1189 PUTX      SW   RECORD&4
1190 *                        PUT A RECORD
1191 PUT       WTW  2,RECORD
1192           BER  TPERR
1193           BEF  *&1
1194 OUT       B    GET
1195 ENDPH3    RWD  1
1196           WTM  2
1197           RWD  2
1198           BW   *&19,REITER
1199           MLC  @8@,SEEK
1200           NOP  666,666
1201           B    *&15
1202           MLC  @8@,SEEK
1203           NOP  555,555
1204           CW   PARTBL&84
1205           CW   BOPND&1
1206           CW   HIGH3&1,GPMK
1207           B    LOAD
1208 HIGHPT    H
12081SETXX     MLC  @000@,HOLD
12082          SW   ADONE
12083          B    OUTADD&19
1209           ORG  HIGH2&1
1210           DCW  #1
1211           LTORGHOLDZN&1
1212 HIGH3     H
1213           DCW  @}@
               ORG  LITBEG-2
               DCW  @000@
               ORG  1924
     ADJXX     SBR  ADJYY-1
               BWZ  ADJYY,092,2
               BWZ  ADJYY-4,007,2
               BH   TLUFST&8
               B    000
     ADJYY     BWZ  ADJYY-9,007,2
               B    TLUFST&8
1214           EX   SYSTEM
1215           JOB  1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE   RBR   2TAP6
1216 *
1217 ******    PHASE 6 - CONDENSING OF RELATIVE ENTRIES IN SYMBOL TABLE
1218 *                            FOR REITERATION
1219 *
1220 *                        ***  PHASE 6 IDENTIFICATION AT 333  ***
1221 *
1222           ORG  333
1223           DCW  @6@
1224 *
1225 RERUN     MLC  @000@,X1
1226           MLC  @000@,X2
1227 AVAIL     BW   SAVE1,LABTBL-5&X1
1228           BW   SAVE1,LABTBL-2&X1
1229           BW   SAVE1,LABTBL&X1
1230           BW   SAVE,LABTBL-8&X1
1231           BCE  SAVE4,LABTBL-2&X1,#
1232 AVAIL1    C    X1,X3
1233           BE   PACKED
1234           A    @9@,X1
1235           B    AVAIL
1236 SAVE      B    CMP1T2
1237           LCA  LABTBL&X1,LABTBL&X2
1238           CW   LABTBL-8&X1
1239           A    @9@,X2
1240           B    AVAIL1
1241 SAVE1     B    CMP1T2
1242           BW   SAVE2,LABTBL-8&X1
1243           SW   LABTBL-8&X1
1244           LCA  LABTBL&X1,LABTBL&X2
1245           MLC
1246 SAVE3     LCA  @         @,LABTBL&X1
1247           B    SAVE&11
1248 SAVE2     LCA  LABTBL&X1,LABTBL&X2
1249           LCA
1250           B    SAVE3
1251 SAVE4     B    CMP1T2
1252           A    @9@,X2
1253           SW   LABTBL-8&X1
1254           MLC  LABTBL&9&X1,LABTBL&X2
1255           B    SAVE&11
1256 *
1257 CMP1T2    SBR  CMPEXT&3
1258           C    X1,X2
1259 CMPEXT    BU   0
1260           A    @9@,X2
1261           B    AVAIL1
1262 *
1263 PACKED    MLC  X2,X3
1264           CW   HIGH5
1265           MLC  @7@,SEEK
1266           NOP  777,777
1267           B    LOAD
1268           LTORG*
1269 HIGH5     DCW  @}@
1270           H
1271           ORG  HIGH1
1272           DCW  @|@
1273           ORG  HIGH3&1
1274           DCW  #1
1275           EX   SYSTEM
1276           END  SYSTEM
0101           JOB  1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR   2TAP8
0101           CTL  630 1
0103 *
0104 *                        PHASE 8 - PRINT OUT LABEL TABLE
0105 *
0106 *
0107 LABTBL    EQU  2813&X1
0108 REITER    EQU  193
0109 *
0110 *                        ** SYSTEMS CONTROL **
0111           ORG  82
0112 CHECK     DCW  @ @
0113           DCW  @  }@
0114           ORG  100
0115 LOAD      RWD  1
0116           RTW  1,CHECK
0117           BER  TPERR
0118           BCE  *&5,CHECK,D
0119           B    LOAD&5
0120           BSP  1
0121           RTW  1,333
0122           SW   CHECK&3
0123           RTW  1,CHECK
0124           BCE  334,CHECK,0
0125           B    *-19
0126 SEEK      EQU  LOAD&25
0127 *
0128 SYSTEM    WTW  1,333
0129           BER  *&5
0130           R    40
0131           BSP  1
0132           SKP  1
0133           B    SYSTEM
0134           H
0135 X1        EQU  89
0136 0089      DCW  @000@
0137 X2        EQU  94
0138 0094      DCW  @000@
0139 X3        EQU  99
0140 0099      DCW  @000@
0141 *
0142 *                        PHASE 8 IDENTIFICATION AT 0333
0143 *
0144           ORG  333
0145           DCW  @8@
0146 *
0147           B    LABELS
0148 *
0149 ENDPH8    RTW  1,333
0150           BER  TPERR
0151           BCE  PHASE9,333,9
0152           H    *-3
0153 *
0154 *                        GENERALIZED RD/WR TAPE ERROR ROUTINE
0155 *
0156 TPERR     SBR  X1
0157           A    TX3987,X1
0158           BW   TXCOMP,TXGET&1
0159 TXGET     MLC  17&X1,TXEOF&4
0160           MLC  TXDUMY&4,17&X1
0161           MLC  3&X1,TXBSP&3
0162           MLC  TXBSP&5,TXBSP
0163           SW   TXGET&1
0164 TXCOMP    B    TXPERM,TXCNTL,9
0165 TXBSP     BSP  1
0166           SKP  1
0167           A    *-6,TXCNTL
0168           B    0&X1
0169 TXPERM    H    888,888
0170           MLC  TXPERM-1,TXCNTL
0171           B    TXBSP
0172 TXDONE    MLC  TXPERM-1,TXCNTL
0173           MLC  TXEOF&4,17&X1
0174           CW   TXGET&1
0175           B    13&X1
0176 TXDUMY    B    TXDONE
0177           DC   @ @
0178 TXEOF     BEF  1
0179 TXCNTL    DCW  @0@
0180 TX3987    DCW  @I87@
0181 *                        ROUTINE TO CONVERT MACHINE ADDRESS TO
0182 *                             REGULAR FIVE POSITION ADDRESS
0183 *                           * MACHINE ADDRESS TAKEN FROM ADDR
0184 *                           * RESULT PLACED IN WORK
0185 DECOD     SBR  DECEXT&3
0186           ZA   ADDR#3,WORK#5
0187           MZ   @ @,WORK
0188           BWZ  ADD12,ADDR,B
0189           BM   ADD8,ADDR
0190           BWZ  ADD4,ADDR,S
0191 HIORDR    BWZ  ADD3,ADDR-2,B
0192           BM   ADD2,ADDR-2
0193           BWZ  ADD1,ADDR-2,S
0194           B    DECEXT
0195 ADD12     A    @12@,WORK-3
0196           B    HIORDR
0197 ADD8      A    @8@,WORK-3
0198           B    HIORDR
0199 ADD4      A    @4@,WORK-3
0200           B    HIORDR
0201 ADD3      A    @3@,WORK-3
0202           B    DECEXT
0203 ADD2      A    @2@,WORK-3
0204           B    DECEXT
0205 ADD1      A    @1@,WORK-3
0206 DECEXT    B    0
0207           LTORG*
0208 HIGH88    H
0209 *
0210 *                        PRINT OUT SYMBOL TABLE
0211 *
0212 LABELS    MLC  @|@,333
0213           CC   1
0214           MCM  201,AREA
0215           CHAIN2
0218           LCA  @         @,LABTBL&X3
0219           CW   LABTBL-8&X3
0220           MCM  LINE&X0,201
0221           MCM  TITLE-12,201
0222           MLC  @ @,213
0223           CC   T
0224           W
0225 *
0226 INITL     MLC  @000@,X1
0227           MLC  @000@,X2
0228           CS   LINE&131&X0
0229           CS
0230           MLC  TABLE,FIRST&7
0231           MLC  TABLE,LABTBL-8&X3
0232 FIRST     BCE  HIT,LABTBL-8,D
0233           A    @9@,X1
0234           B    FIRST
0235 HIT       C    X1,X3
0236           BE   ENDTAB
0237           BW   FIRST&8,LABTBL
0238           BW   FIRST&8,LABTBL-2
0239           BW   FIRST&8,LABTBL-5
0240           BW   FIRST&8,LABTBL-8
0241           BW   FIRST&8,LABTBL-7
0242           BCE  FIRST&8,LABTBL-8,|
0243           BCE  FIRST&8,LABTBL-5,|
0244           BCE  FIRST&8,LABTBL-7,|
0245           BCE  STEP,LABTBL-2,#
0246           SW   LINE
0247           MLC  LABTBL-3,LINE&5
0248           MLC  LABTBL,ADDR
0249           BCE  PERCNT,ADDR-2,%
0250           MZ   @ @,ADDR-1
0251           B    DECOD
0252           LCA  EDIT1,LINE&11
0253           MCE  WORK,LINE&11
0254           BWZ  INDEX1,LABTBL-1,S
0255 TSTX2     BWZ  INDEX2,LABTBL-1,K
0256 TSTX3     BWZ  INDEX3,LABTBL-1,B
0257 TSTLIN    BCE  RESET2,X2-2,1
0258           A    @16@,X2
0259           B    FIRST&8
0260 STEP      A    @9@,X1
0261           B    FIRST&8
0262 PERCNT    MLC  ADDR,LINE&11
0263           B    TSTLIN
0264 RESET2    C    X2,@000@
0265           BE   RSTOUT-8
0266           MLC  @000@,X2
0267           MCM  LINE&X0,201
0268           W
0269           CS   LINE&131&X0
0270           CS
0271           BW   ENDPRT,RSTOUT&1
0272 RSTOUT    B    FIRST&8
0273 INDEX1    MLC  @&X1@,LINE&14
0274           B    TSTX2
0275 INDEX2    MLC  @&X2@,LINE&14
0276           B    TSTX3
0277 INDEX3    MLC  @&X3@,LINE&14
0278           B    TSTLIN
0279 ENDTAB    SW   RSTOUT&1
0280           B    RESET2
0281 ENDPRT    CW   RSTOUT&1
0282           MCM  TABLE&1,TABLE
0283           BCE  FINIS,TABLE,|
0284           B    INITL
0285 FINIS     CC   1
0286           BW   *&5,REITER
0287           B    PHASE8
0288           CW   HIGH8
0289           MCM  AREA,201
0290           CHAIN2
0293           MLC  @6@,SEEK
0294           B    LOAD
0295 TITLE     DCW  @SYMBOL TABLE|@
0296 *
0297           ORG  *&X00
0298 LINE      DA   1X132,X2,|,C
0299 *
0300 AREA      DA   1X180
0301 *
0302 PHASE8    RTW  2,AREA
0303           BER  TPERR
0304 BOOT      LCA  BOOT1,0180
0305           SW   AREA&75
0306           MLC  @0001@,175
0307           MLC  AREA&99,180
0308           CS   332
0309           CS
0310           MLC  171,290
0311           MLC  @CLEAR STORAGE 1@,215
0312           MLC  @1@,314
0313           WP
0314           LCA  BOOT2,180
0315           MLC  @0002@,175
0316           MLC  AREA&99,180
0317           MLC  171,290
0318           MLC  @CLEAR STORAGE 2@,215
0319           MLC  @2@,314
0320           WP
0321           LCA  BOOT3,180
0322           MLC  @0003@,175
0323           MLC  AREA&99,180
0324           MLC  171,290
0325           MLC  @BOOTSTRAP      @,215
0326           MLC  @3@,314
0327           CC   T
0328           WP
0329           CS   332
0330           CS
0331           RWD  2
0332           BSP  1
0333           BSP  1
0334           BSP  1
0335           BSP  1
0336           BSP  1
0337           BSP  1
0338           BSP  1
0339           CW   HIGH8
0340           B    ENDPH8
0341           H
0342           DCW  @,008015,019026,030,034041,045,053,057057@
0343 BOOT1     DC   @1026                                    @
0344           DCW  @L068112,102106,113/101099/I99,027A070028@
0345 BOOT2     DC   @)027B0010270B0261,001/001113I0          @
0346           DCW  @,008015,022029,036040,047054,061068,072/@
0347 BOOT3     DC   @061039              ,0010011040         @
0348 TABLE     DCW  @A@
0349           DC   @BCDEFGHIJKLMNOPQRSTUVWXYZ@
0350           DC   @|@
0351 EDIT1     DCW  @ 0    @
0352           LTORG*
0353 HIGH8     DCW  @}@
0354           EX   SYSTEM
0355           JOB  1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR   2TAP9
0356 *
0357 *                        PHASE 9 - CONDENSING AND LISTING ROUTINE
0358 *
0359 *                        PHASE 9 IDENTIFICATION AT 333
0360 *
0361           ORG  333
0362           DCW  @9@
0363 *
0364           H    *-3
0365           RTW  1,333
0366           BER  TPERR
0367           BCE  PHASE9,333,9
0368           H    *-3
0369 *
0370           ORG  HIGH88
0371 PHASE9    B    HSKPG
0372 *
0373           ORG  PHASE9&4
0374 HSKPG1    RTW  2,RECORD
0375           BER  TPERR
0376 *
0377 REINIT    MLC  @0@,COUNT#1
0378           MLC  @000@,X1
0379           MLC  @000@,X2
0380           MLC  @000@,X3
0381           MLC  @0000@,POSCNT#4
0382           MLC  @        @,ASSMBD#8
0383           SW   101,140
0384           B    AGAIN
0385 *
0386 GETOBJ    CW   AOPND-12
0387           RTW  2,RECORD
0388           BER  TPERR
0389           BEF  EOF4
0390           SW   AOPND-2,BOPND-2
0391           B    COMMNT,RECORD&5,*
0392 *
0393 AGAIN     BW   SUBDA,SUBNXT
0394           BW   *&5,LITCTL
0395           B    *&13
0396           BW   *&5,RECORD&3
0397           B    CDFULL
0398           BW   CDFULL,ISOLAT
0399           C    OPER,@EX  @
0400           BE   EXECUT
0401           C    OPER,@XFR @
0402           BE   EXECUT
0403           C    OPER,@CTL @
0404           BE   PRINT1
0405 *
0406           C    OPER,@JOB @
0407           BU   NOTJOB
0408           MLC  RECORD&71,HEADNG
0409           MLC  PARAMT&4,SETUP-1
0410           LCA  SETUP-1,180
0411           NOP  JOBACK&4           1ST-TIME-ONLY NOP
0412           MLC  @B@,*-10
0413           B    GETOVF
0414 JOBACK    B    PRINT1
0415           B    OVFLO
0416           B    PRINT1
0417 *
0418 NOTJOB    C    OPER,@DS  @
0419           BE   DS
0420           C    OPER,@END @
0421           BE   END
0422           BW   PRINT2,RECORD
0423           BCE  INSTRT-8,LABEL-5,
0424           BWZ  *&5,LABEL-5,2
0425           B    INSTRT-8
0426           BW   *&9,FSTIME
0427           SW   FSTIME
0428           B    CDFULL
0429           CW   FSTIME
0430           SW   ISOLAT
0431           BCE  CONST,ICOUNT,
0432 *
0433 INSTRT    MLC  POSCNT,SPACE#4
0434           A    ICOUNT,POSCNT
0435           C    POSCNT,@0039@
0436           BL   CDFULL
0437           BCE  CDFULL,COUNT,7
0438           A    @1@,COUNT
0439           MLC  POSCNT,SPACE
0440           LCA  LOCATN,SWADDR&X2
0441           A    @3@,X2
0442           LCA  SWADDR-3&X2,SWADDR&X2
0443           ZA   ICOUNT,HOLD
0444           MLC  SWADDR&X2,ADDR
0445           B    MODAD
0446 P4SK1     LCA  RESULT-1,SWADDR&X2
0447           A    ICOUNT,X3
0448           B    SETXX
0449           NOP
0450           NOP
0451           NOP
0452           BCE  IDONE,ICOUNT,1
0453           BCE  ADMOD,ICOUNT,2
0454           MLC  AOPND,ASSMBD-4
0455           BCE  BRANCH,ICOUNT,4
0456           BCE  BDMOD,ICOUNT,5
0457           MLC  BOPND,ASSMBD-1
0458           BCE  NODMOD,ICOUNT,7
0459           MLC  PARAMT&60,ASSMBD
0460           MLC  ASSMBD,100&X3
0461           B    ASSOUT
0462 IDONE     MLC  ASSMBD-7,100&X3
0463           B    ASSOUT
0464 ADMOD     MLC  PARAMT&60,ASSMBD-6
0465           MLC  ASSMBD-6,100&X3
0466           B    ASSOUT
0467 BRANCH    MLC  ASSMBD-4,100&X3
0468           B    ASSOUT
0469 BDMOD     MLC  PARAMT&60,ASSMBD-3
0470           MLC  ASSMBD-3,100&X3
0471           B    ASSOUT
0472 NODMOD    MLC  ASSMBD-1,100&X3
0473 ASSOUT    CS   332
0474           CS
0475           MLC  ICOUNT,284
0476           SW   303,299
0477           SW   295,293
0478           MLC  ASSMBD,303
0479           MLC  ASSMBD-1,301
0480           MLC  ASSMBD-4,297
0481           MLC  ASSMBD-7,293
0482           MLC  @        @,ASSMBD
0483           BCE  *&5,PARAMT&60,G
0484           B    PRINT
0485           MLC  PARAMT&64,309
0486           B    PRINT
0487 *
0488 CONST     C    OPER,@DA  @
0489           BE   DAOUT
0490           BCE  NUMOUT,PARAMT&60,M
0491           BW   *&5,PARAMT&65
0492           B    *&21
0493           BW   *&9,FSTIME
0494           SW   FSTIME
0495           B    CDFULL
0496           CW   FSTIME                                           )))
0497           C    OPER&1,@DC   @
0498           BU   *&5
0499           CW   ERRPOS-1
0500           MLC  POSCNT,SPACE
0501           A    LITCNT,POSCNT
0502           C    POSCNT,@0039@
0503           BL   TSTLNG
0504           BCE  CDFULL,COUNT,7
0505           A    @1@,COUNT                                        )))
0506           MLC  POSCNT,SPACE
0507           BW   NOWM1,SPLIT&5      ON 2ND HALF OF LONG CONSTANT
0508           C    OPER,@DC  @
0509           BE   NOWM
0510 FSTCON    BCE  *&5,COUNT,1
0511           B    CONBCK-14
0512           MLC  LOCATN,SWADDR
0513           ZA   @1@,HOLD
0514           A    @3@,X2
0515           LCA  SWADDR-3&X2,SWADDR&X2
0516           B    CONBCK&7
0517           A    @3@,X2
0518           LCA  SWADDR-3&X2,SWADDR&X2
0519 CONBCK    MLC  LITCNT,HOLD
0520           MLC  SWADDR&X2,ADDR
0521           B    MODAD
0522 P4SK2     MLC  RESULT-1,SWADDR&X2
0523           A    LITCNT,X3
0524           MLC  LITCNT,X1                                        )))
0525           MLC  @M@,P4SK2&14
0526           BCE  DSA,OPER-1,A
0527           BW   SETLIT,RECORD&3
0528           BCE  NUMALF,PARAMT,@
0529           BWZ  NUMALF,PARAMT,2
0530           BCE  *&20,PARAMT,&
0531           BCE  *&12,PARAMT,-
0532           MLC  AOPND,100&X3
0533           B    NUMOUT
0534           BWZ  *&12,PARAMT&1,2
0535           MLC  @  @,PARAMT&19
0536           B    *-29
0537           MZ   PARAMT,PARAMT&X1
0538 NUMALF    SW   PARAMT&1
0539           MLC  PARAMT&X1,100&X3
0540           CW   PARAMT&1
0541           B    NUMOUT
0542 *
0543 DSA       MLC  AOPND,100&X3
0544           B    NUMOUT
0545 *
0546 SETLIT    SW   PARAMT&30,LITCTL
0547           BCE  *&8,RECORD&20,#
0548           MLC  PARAMT&29&X1,100&X3
0549           CW   PARAMT&30
0550           BCE  *&5,RECORD&20,@
0551           B    NUMOUT
0552           MLC  @@@,RECORD&21&X1
0553 NUMOUT    CS   332
0554           CS
0555           BW   CONST,TSTLNG&9     SUPPRESS PRINTING ON 1ST HALF
0556           BW   *&5,SPLIT&5        RESTORE LONG CONSTANT FOR PRINT
0557           B    NOTLNG
0558           CW   SPLIT&5
0559           A    @0039@,LITCNT
0560 NOTLNG    MCS  LITCNT,284
0561           SW   AOPND-2
0562           MLC  AOPND,296
0563           SW   PARAMT&60
0564           MLC  PARAMT&64,309
0565           BCE  PRINT1,PARAMT&60,M
0566 *
0567 PRINT     MCS  CARDCT,314
0568           MLC  LOCATN,ADDR                                      )))
0569           B    DECOD
0570           MLC  @Z@,PRINT
0571           LCA  EDIT,290
0572           MCE  WORK,290
0573           C    WORK,@00080@
0574           BL   PRINT1
0575           MLC  @ADDR@,319
0576           A    @1@,ERRCNT
0577 *
0578 PRINT1    MLC  LABEL,219
0579           SW   214,221
0580           SW   227,201
0581           CW   RECORD&3,RECORD&4
0582           MLC  OPER&1,225
0583           MLC  RECORD&71,278
0584           SW   RECORD,RECORD&2
0585           SW   RECORD&75
0586           MCS  RECORD&79,204
0587           MCS  RECORD&1,207
0588           MLC  RECORD&4,211
0589           BW   *&5,ERRPOS
0590           B    *&19
0591           MLC  @INVALID@,322
0592           A    @1@,ERRCNT
0593           B    TSTOVF
0594           BW   *&5,ERRPOS-1
0595           B    *&15
0596           MLC  @OPER@,325
0597           A    @1@,ERRCNT
0598           BW   *&5,ERRPOS-2
0599           B    *&15
0600           MLC  @SYM@,330
0601           A    @1@,ERRCNT
0602 TSTOVF    W
0603           BCV  OVFLO
0604           B    GETOBJ
0605 *
0606 NOWM      BCE  *&5,COUNT,1
0607           B    CONBCK
0608           MLC  LOCATN,ADDR                                      )))
0609           ZS   LITCNT,HOLD
0610           A    @1@,HOLD
0611           B    MODAD
0612           MLC  RESULT-1,SWADDR&6
0613           MLC  SWADDR&6,SWADDR&3
0614           MLC
0615           MLC  SWADDR&6,ADDR
0616           MLC  LITCNT,HOLD
0617           B    MODAD
0618           MLC  RESULT-1,SWADDR&9
0619           MLC  @3@,COUNT
0620           MLC  @9@,X2
0621           MLC  @)@,147
0622           B    P4SK2&7
0623 NOWM1     MLC  LOCATN,ADDR
0624           ZA   PARAMT&69,HOLD
0625           B    MODAD
0626           MLC  RESULT-1,LOCATN
0627           SW   PARAMT&40
0628           MLC  @0039@,X1
0629           MLC  @A@,P4SK2&14
0630           B    NOWM&12
0631 *                        TEST FOR CONSTANTS LONGER THAN 39 CHARS
0632 TSTLNG    BW   REST,TSTLNG&9
0633           BW   ERRLIT,ERRPOS
0634           BW   SPLIT,REST&5
0635           C    LITCNT,@040@
0636           BH   CDFULL             SHORT CONSTANT
0637           C    LITCNT,@53@
0638           BH   *&9
0639           SW   ERRPOS
0640           B    CDFULL
0641           SW   REST&5
0642           B    CDFULL             RELEASE PREVIOUS CARD
0643 ERRLIT    MLC  @N@,PRINT
0644           B    NUMOUT
0645 *                        SET UP FIRST 39 POSITIONS OF LONG CONSTANT
0646 SPLIT     CW   REST&5
0647           LCA  LITCNT,PARAMT&69   SAVE ORIGINAL LENGTH
0648           MLC  @0039@,LITCNT      SET LENGTH TO 39
0649           MLC  @0039@,POSCNT
0650           S    @0039@,PARAMT&69   FIGURE REMAINDER
0651           MLC  LOCATN,ADDR
0652           ZS   PARAMT&69,HOLD
0653           B    MODAD
0654           MLC  RESULT-1,LOCATN
0655           SW   TSTLNG&9
0656           B    FSTCON-34
0657 *                        PUNCH THE FIRST 39 POSITIONS
0658 REST      CW   TSTLNG&9
0659           MLC  PARAMT&69,LITCNT
0660           MZ   @ @,LITCNT
0661           SW   SPLIT&5
0662           B    CDFULL
0663 *
0664 PRINT2    BCV  OVFLO
0665           CS   332
0666           CS
0667           C    OPER,@EQU @
0668           BE   CTL
0669           BW   *&9,FSTIME
0670           SW   FSTIME
0671           B    CDFULL
0672           CW   FSTIME
0673           SW   305
0674           BCE  *&5,PARAMT&60,G
0675           B    *&8
0676           MLC  PARAMT&64,309
0677           MLC  LOCATN,ADDR
0678           B    DECOD
0679           LCA  EDIT,297
0680           MCE  WORK,297
0681           MLC  @L@,140
0682           B    PRINT1
0683 *
0684 CTL       MLC  LOCATN,ADDR
0685           BCE  CDFULL-11,LOCATN-2,%
0686           B    DECOD
0687           LCA  EDIT,290
0688           MCE  WORK,290
0689           BWZ  PRINT1,LOCATN-1,2
0690           MLC  @X@,292
0691           B    PRINT1
0692           MLC  LOCATN,290
0693           B    PRINT1
0694 *
0695 CDFULL    CW   ISOLAT,LITCTL
0696           BCE  AGAIN,COUNT,0
0697           MLC  SWADDR&X2,ADDR
0698           MLC  @040@,SWADDR&X2
0699           MLC  SWADDR&18,167
0700           MLC
0701           MLC  SWADDR&12,160
0702           MLC
0703           MLC  SWADDR&6,153
0704           MLC
0705           ZS   @1@,HOLD
0706           B    MODAD
0707 P4SK3     MLC  RESULT-1,146
0708           SW   141
0709           MLC  SPACE,143
0710           MLC  CARDCT,175
0711           A    @1@,CARDCT
0712           P
0713           CS   139
0714           MLC  RESULT-1,ADDR
0715           B    DECOD
0716           C    WORK,@04000@
0717           BH   *&5
0718           SW   EXCEED
0719           LCA  @040@,SWADDR&18
0720           LCA  SWADDR&18,SWADDR&15
0721           CHAIN5
0727           LCA  SETUP-1,180
0728           B    REINIT
0729 *
0730 COMMNT    SW   RECORD&5
0731           BCV  OVFLO
0732           CS   0332
0733           CS
0734           CW   RECORD&15,RECORD&20
0735           MLC  RECORD&71,280
0736           SW   RECORD,RECORD&2
0737           MCS  RECORD&1,207
0738           MLC  RECORD&4,211
0739           MCS  RECORD&79,204
0740           BCV  OVFLO
0741           W    GETOBJ
0742 *
0743 DS        BW   *&9,FSTIME
0744           SW   FSTIME
0745           B    CDFULL
0746           CW   FSTIME
0747           CS   332
0748           CS
0749           B    PRINT&7
0750 *         ***  CONSTANTS  ***
0751 EDIT      DCW  @ 0    @
0752 SWADDR    DCW  @040@
0753           DCW  @040@
0754           DCW  @040@
0755           DCW  @040@
0756           DCW  @040@
0757           DCW  @040@
0758           DCW  @040@
0759           DCW  @040@
0760 SETUP     DCW  @L      ,040040,040040,0400401040         |@
0761 *                        COPY OF ROUTINE TO MODIFY MACHINE ADDRESS
0762 *                             BY A PLUS OR MINUS ADJUSTMENT VALUE
0763 *                           * ADDRESS PLACED AT ADDR
0764 *                           * ADJUSTMENT VALUE TAKEN FROM PARAMT&10
0765 *                           * MODIFIED ADDRESS PLACED AT RESULT-1
0766 MODAD     SBR  MDEXIT&3
0767           BAV  *&1
0768           CW   NEG1#1
0769           BM   DECR1,HOLD#3
0770 SETIN     NOP  @?0@
0771           ORG  SETIN
0772           MLC  ADDR,RESULT-1
0773           MZ   @ @,RESULT-1
0774           A    HOLD,RESULT-1
0775           MZ   ADDR,RESULT-1
0776           MZ   RESULT-3,YYY
0777           MZ   ADDR-2,XXX
0778           BW   MDEXIT&4,NEG1
0779           C    XXX,YYY
0780           BH   *&5
0781           B    MDEXIT
0782           SW   RESULT-1
0783           A    @|0@,RESULT#4
0784           CW   RESULT-1
0785 MDEXIT    B    000
0786           BAV  MDEXIT
0787           C    XXX,YYY
0788           BH   MDEXIT
0789           SW   RESULT-1
0790           A    @?0@,RESULT
0791           B    MDEXIT-4
0792 XXX       DCW  @2@
0793 YYY       DCW  @2@
0794 DECR1     SW   NEG1
0795           A    @999@,HOLD
0796           A    @?01@,HOLD
0797           B    SETIN
0798 MODZR     MLC  HOLD,RESULT-1
0799           B    MDEXIT
0800           H
0801 *
0802 *                        INPUT RECORD AREA
0803 *
Z 04 RECORD    DA   1X80,|
Z 05 LABEL          11
Z 06 OPER           19
Z 07 PARTBL    DA   1X90,|
0808 AADDR          1,1
0809 BADDR          2,2
0810 ERRPOS         6
0811 ICOUNT         7,7
0812 LITCNT         8,10
0813 ACTOP          11,11
0814 LOCATN         12,14
0815 PARAMT         15,15
0816 AOPND          85,87
0817 BOPND          88,90
0818 *
0819           ORG  RECORD&1
0820 HSKPG     MLC  @0004@,CARDCT#4
0821           MLC  @0000@,ERRCNT#4
0822           CW   FSTIME#1,SUBNXT#1
0823           CW   ISOLAT#1,LITCTL#1
0824           CW   EXCEED#1
0825           CS   139
0826           CS   80
0827           SW   21
0828           B    HSKPG1
0829           H
0830           LTORGPARTBL&91
0831 *
0832 *                        CALLING LINKAGE FOR PHASE 9 SUBROUTINES
0833 *                             ON SYSTEMS TAPE
0834 *
0835 *                        ***  PAGE OVERFLOW CALL  ***
0836 OVFLO     SBR  OVFEXT
0837           CC   1
0838           B    GETOVF
0839 OVFOUT    B    JOBACK
0840 OVFEXT    EQU  *
0841           NOP  PAGENO#3
0842 *
0843 *                        ***  DA HEADER CALL  ***
0844 DAOUT     BW   DAHDR,FSTIME
0845           B    GETDA
0846 *
0847 *                        ***  DA SUBSEQUENT ENTRY CALL  ***
0848 SUBDA     NOP  000,000,0
0849           NOP  FSTIME
0850           BCE  GETSUB,OPER-3,
0851           A    @1@,COUNT
0852 DADONE    CW   SUBNXT,FSTIME
0853           BCE  REINIT,COUNT,0
0854           B    P4SK3&18
0855 *
0856 *                        ***  EX AND XFR CALL  ***
0857 EXECUT    BW   SETEXC,FSTIME
0858           B    GETEX
0859 *
0860 *                        ***  END CARD - END OF JOB CALL  ***
0861 END       BW   END2,FSTIME
0862           SW   FSTIME
0863           B    GETEND
0864 *
0865 *
0866 *                        ROUTINE TO ORDER THE DESIRED SUBROUTINE
0867 GETEND    RTW  1,OVRLAY
0868 GETEX     RTW  1,OVRLAY
0869 GETSUB    RTW  1,OVRLAY
0870 GETDA     RTW  1,OVRLAY
0871 GETOVF    RTW  1,OVRLAY
0872           BER  TPERR
0873           BEF  *&1
0874           B    SUBRT
0875 *
0876 *                        ROUTINE TO REPOSITION SYSTEMS TAPE AFTER
0877 *                             SUBROUTINE IS FINISHED
0878 BSP5      BSP  1
0879 BSP4      BSP  1
0880 BSP3      BSP  1
0881 BSP2      BSP  1
0882 BSP1      BSP  1
0883           B    OVRLAY             EXIT FROM SUBRT ITS FIRST INSTR
0884 *
0885           LTORG*
0886 *
0887 *                        *****  COMMON AREA FOR SUBROUTINES  *****
0888 *
0889 OVRLAY    H
0890 *
0891 3998      DCW  @}@
0892 *
0893           ORG  3975
0894 SETXX     SW   AOPND-12
0895           MLC  ACTOP,ASSMBD-7
0896           B    P4SK1&21
0897           EX   SYSTEM
0898           JOB  PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD         2TAP9
0899 *
0900 *                        OVERLAY SYSTEMS TAPE CONTROL TO WRITE FROM
0901 *                             COMMON OVERLAY AREA FOR SUBROUTINES
0902           ORG  SYSTEM
0903           WTW  1,OVRLAY
0904 *
0905           ORG  OVRLAY
0906           B    OVFOUT
0907 SUBRT     CS   332                FIRST INSTRUCTION OF SUBRT
0908           CS
0909           SW   21
0910           MLC  HEADNG,278
0911           SW   286
0912           MLC  SETUP-1,290
0913           MLC  @PAGE@,307
0914           A    @1@,PAGENO
0915           MCS  PAGENO,314
0916           CC   T
0917           W
0918           CS   332
0919           CS
0920           LCA  LEFT,234
0921           LCA  RIGHT,314
0922           CC   S
0923           W
0924           CS   332
0925           CS
0926           B    BSP1
0927 HEADNG    EQU  72
0928 LEFT      DCW  @ SEQ PG LIN  LABEL  OP    OPERANDS@
0929 RIGHT     DCW  @CT  LOCN  INSTRUCTION TYPE  CARD@
0930           LTORG*
0931           ORG  GM1
0932 *
0933           DCW  @}@                GROUP MARK - SUBROUTINE HIGH LOC
0934 *
0935           XFR  SYSTEM
0936           JOB  PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD             2TAP9
0937 *
0938           ORG  OVRLAY
0939           B    PRINT1
0940 *
0941           SW   FSTIME
0942           B    CDFULL
0943 DAHDR     CS   332
0944           CS
0945           CW   FSTIME
0946           MLC  LOCATN,ADDR
0947           B    DECOD
0948           LCA  EDIT,290
0949           MCE  WORK,290
0950           LCA  LOADXX,146
0951           LCA  LOCATN,ADDR
0952           B    SETWM
0953           NOP
0954           NOP
0955           NOP
0956           MLC  LITCNT,ADDR
0957           B    DECOD
0958           A    290,WORK
0959           S    PARAMT&67,WORK
0960           S    @1@,WORK
0961           MZ   @ @,WORK
0962           LCA  EDIT,297
0963           MCE  WORK,297
0964           MCS  CARDCT,314
0965           SW   SUBNXT
0966           CW   ERRPOS-1,ERRPOS-2
0967           MLC  @000@,TEMP
0968           MLC  PARAMT&9,TEMP
0969           MLC  LOCATN,ADDR
0970           MLC  @000@,HOLD
0971           MLC  PARAMT&19,HOLD
0972           A    PARAMT&60,HOLD
0973 SUB       S    @1@,TEMP
0974           MZ   @ @,TEMP
0975           C    @000@,TEMP
0976           BE   BSP2
0977           B    MODAD
0978           MLC  RESULT-1,ADDR
0979 DABACK    B    SETWM
0980           B    SUB
0981           DS   30
0982 *                        ROUTINE TO SET UP WORDMARKS FOR DA ENTRIES
0983 SETWM     SBR  SWOUT&10
0984           NOP  SW1,COUNT,0
0985           BCE  SW2,COUNT,0
0986           BCE  SW3,COUNT,1
0987           BCE  SW4,COUNT,2
0988           BCE  SW5,COUNT,3
0989           BCE  SW6,COUNT,4
0990           BCE  SW7,COUNT,5
0991           H    1,1
0992           B    *-10
0993 SW1       H    002,002
0994           B    SWOUT
0995 SW2       LCA  ADDR,150
0996           B    SWOUT
0997 SW3       LCA  ADDR,153
0998           B    SWOUT
0999 SW4       LCA  ADDR,157
1000           B    SWOUT
1001 SW5       LCA  ADDR,160
1002           B    SWOUT
1003 SW6       LCA  ADDR,164
1004           B    SWOUT
1005 SW7       LCA  ADDR,167
1006           MLC  CARDCT,175
1007           P
1008           A    @1@,CARDCT
1009           MLC  @0@,COUNT
1010           B    SWOUT&7
1011 SWOUT     A    @1@,COUNT
1012           B    0
1013           H    TEMP#3
1014           DCW  @,@
1015           LTORG*
1016 GM1       DCW  @}@
1017           DCW  @}@                GROUP MARK - HIGH STORAGE POINT
1018 *
1019           ORG  3751
1020           LCA  1,1
1021 LOADXX    EQU  *
1022           EX   SYSTEM
1023           JOB  PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD   2TAP9
1024 *
1025           ORG  OVRLAY
1026           B    DADONE
1027 *
1028           BCE  *&5,OPER-3,
1029           B    BSP3
1030           CW   ERRPOS-1,ERRPOS-2
1031           CS   332
1032           CS
1033           MLC  LOCATN,ADDR
1034           B    DECOD
1035           LCA  EDIT,290
1036           MCE  WORK,290
1037           MLC  LOCATN,ADDR
1038           ZS   LITCNT,HOLD
1039           A    @1@,HOLD
1040           B    MODAD
1041           MLC  RESULT-1,ADDR
1042           MLC  @000@,TEMP
1043           MLC  PARAMT&9,TEMP
1044           MLC  @000@,HOLD
1045           MLC  PARAMT&19,HOLD
1046           A    PARAMT&60,HOLD
1047           C    LITCNT,@000@
1048           BE   SUBFLD
1049           MCS  CARDCT,314
1050           MLC  @FIELD@,309
1051           B    SETWM
1052 DECRMT    S    @1@,TEMP
1053           MZ   @ @,TEMP
1054           C    @000@,TEMP
1055           BE   BSPXX
1056           B    MODAD
1057 SUBACK    MLC  RESULT-1,ADDR
1058           B    SETWM
1059           B    DECRMT
1060 SUBFLD    MLC  @SBFLD@,309
1061           B    BSPXX
1062 *
1063           LTORG*
1064           ORG  3751
1065 BSPXX     BSP  1
1066           BSP  1
1067           BSP  1
1068           B    PRINT1
1069           EX   SYSTEM
1070           JOB  PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD            2TAP9
1071 *
1072           ORG  OVRLAY
1073           B    PRINT1
1074 *
1075           SW   FSTIME
1076           BCE  *&5,COUNT,0
1077           B    CDFULL
1078 SETEXC    CW   FSTIME
1079           MLC  @B@,168
1080           MLC  AOPND,171
1081           CS   332
1082           CS
1083           MLC  @B@,293
1084           MLC  AOPND,297
1085           MCS  CARDCT,314
1086           MLC  @N000000@,146
1087           MLC  CARDCT,175
1088           A    @1@,CARDCT
1089           P
1090           LCA  SETEX1,180
1091           SW   176
1092           MLC  SETUP-1,180
1093           MLC  CARDCT,175
1094           A    @1@,CARDCT
1095           P
1096           LCA  SETEX2,180
1097           SW   176
1098           MLC  SETUP-1,180
1099           MLC  CARDCT,175
1100           A    @1@,CARDCT
1101           P
1102           CS   180
1103           LCA  SETUP-1,180
1104           B    BSP4
1105           DCW  @,015022)024056,029036,040047,0540611001,@
1106 SETEX1    DC   @001008B001     ,001008B001              @
1107           DCW  @,068072)063067/061039                   @
1108 SETEX2    DC   @                    ,0010011040         @
1109 *
1110           EX   SYSTEM
1111           JOB  PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0   2TAP0
1112           ORG  OVRLAY
1113           DCW  @0@
1114           H
1115           H
1116           H
1117           B    CDFULL
1118 END2      B    MOVXX
1119           CS   332
1120           CS
1121           MLC  @/@,140
1122           BCE  NOEND,AADDR,
1123 SETEND    MLC  AOPND,143
1124           MLC  @080@,146
1125           SW   176
1126           MLC  SETUP-1,180
1127           MLC  CARDCT,175
1128           MLC  @/@,293
1129           MLC  AOPND,297
1130           MLC  @080@,301
1131           MCS  CARDCT,314
1132           CW   FSTIME
1133           P    PRINT1
1134 NOEND     MLC  @$$$@,AOPND
1135           SW   ERRPOS-2
1136           B    SETEND
1137 EOF4      RWD  2
1138           RWD  1
1139           CC   1
1140           BW   *&5,EXCEED
1141           B    TSTERR
1142           CW   EOJ&1
1143           CS   332
1144           CS
1145           MLC  @OBJECT CORE EXCEEDED@,    220
1146           CC   T
1147           W
1148 TSTERR    C    ERRCNT,@0000@
1149           BE   EOJ
1150           CS   332
1151           CS
1152           MCS  ERRCNT,204
1153           MLC  @ERRORS@,211
1154           CC   T
1155           W
1156 EOJ       CS   332
1157           CS
1158           MLC  @END OF ASSEMBLY@,215
1159           CC   A
1160           W
1161           CS   180
1162           P
1163           SS   4
1164           H    999,999
1165           B    *-10
1166           H
1167           LTORG*
1168           DCW  @}@
1169           ORG  3796
1170 MOVXX     MLC  NOPXX,TSTOVF&1
1171           CS   180
1172           B    END2&4
1173 NOPXX     NOP
1174           EX   SYSTEM
1175 *
1176           ORG  SYSTEM
1177           WTW  1,CHECK
1178           ORG  CHECK
1179           DCW  @%@
1180           ORG  *&2
1181           DCW  @}@
1182           EX   SYSTEM
1183           END  SYSTEM
1PID0348 1401 1.1.018  2 TAPE AUTOCODER                     01-01  8052   4 SMF
 05 G             042767                   0175    2845                        -| 05               042767                   0350    2820                         | 05               042767                   0175    2821                         |
 05               042767                   0175    2746                         | 05               042767                   0175    8107                         | 05               042767                   0175    8110                         |
 05               042767                   0175    2861                         | 06               042767                   0175    3068                         | 06               042767                   0175    6365                         |
 06               042767                   0175    3067                         | 06               042767                   0175    3112                         | 06 G             042767                   0175    3187                        -|
 06               042767                   0175    8216                         | 06 G             042767                   0175    3185                        -| 06 G             042767                   0175    3236                        -|
 06               042767                   0175    3229                         | 06               042767                   0175    3213                         | 06               042767                   0175    3236                         |
|8W              S>6776X                  |#77V   T36>|                        |||0W              |>6777X                  |#77V   T39:V                        |||0W              S>6677X                  |#77V   T39@V                        ||
|8W              S>6776X                  |#77V   T36@Y                        |||0W              |>6776X                  S#77V   T323T                        |||>W              |>6777X                  S#77V   T373W                        ||
 06               042767                   0175    3222                         | 06               042767                   0175    3214                         | 06               042767                   0175    3230                         |
 06               042767                   0175    3212                         | 06               042767                   0175    3208                         | 06               042767                   0175    3179                         |
 06               042767                   0175    3218                         | 06               042767                   0175    3249                         | 06               042767                   0175    3231                         |
 06               042767                   0175    3293                         | 06               042767                   0175    3297                         | 06               042767                   0175    8115                         |
 06               042767                   0175    3272                         | 06               042767                   0175    3273                         | 06               042767                   0175    3187                         |
 06               042767                   0175    3288                         | 06               042767                   0175    3270                         | 06               042767                   0175    8114                         |
 06               042767                   0085    3236                         | 06               042767                   0125    3257                         | 06               042767                   0125    3261                         |
 06               042767                   0125    3273                         | 06               042767                   0125    3214                         | 06               042767                   0125    3183                         |
 06               042767                   0125    3282                         | 06               042767                   0125    3260                         | 06               042767                   0125    3289                         |
 06               042767                   0125    3197                         | 06               042767                   0125    3229                         | 06               042767                   0125    3277                         |
 06               042767                   0125    3218                         | 06               042767                   0125    3251                         | 06               042767                   0125    3266                         |
 06               042767                   0125    3236                         | 06               042767                   0125    3297                         | 06               042767                   0125    3189                         |
 06               042767                   0125    3286                         | 06               042767                   0125    3275                         | 06               042767                   0125    3238                         |
 06 G             042767                   0125    3214                        -| 06               042767                   0125    3068                         | 06               042767                   0125    3049                         |
 06               042767                   0125    8179                         | 06 G             042767                   0125    3277                        -| 06               042767                   0125    6512                         |
 06               042767                   0125    3037                         | 06 G             042767                   0125    3179                        -| 06 G             042767                   0125    3275                        -|
 06 G             042767                   0250    3238                        -| 06               042767                   0125    8185                         | 06               042767                   0125    2489                         |
 06               042767                   0000    9425                         | 06               042767                   0000    9430                         | 06               042767                   0000    9440                         |
 06               042767                   0000    9432                         | 12               042767                   0125    3437                         | 12 G             042767                   0125    3581                        -|
 12 G             042767                   0250    3639                        -| 12               042767                   0125    3485                         | 12               042767                   0000    9470                         |
 12               042767                   0125    3521                         | 12               042767                   0125    3340                         | 12 G             042767                   0125    3699                        -|
 12               042767                   0125    6624                         | 12               042767                   0000    9447                         | 12               042767                   0125    3614                         |
 12               042767                   0125    3661                         | 12               042767                   0125    3589                         | 12               042767                   0125    3692                         |
 12               042767                   0125    3580                         | 12               042767                   0125    3712                         | 12               042767                   0125    3656                         |
 12               042767                   0125    3693                         | 12               042767                   0125    3581                         | 12               042767                   0125    3679                         |
 12               042767                   0125    3639                         | 12               042767                   0125    3706                         | 12               042767                   0125    3623                         |
 12               042767                   0125    3677                         | 12               042767                   0125    3621                         | 12               042767                   0125    3587                         |
 12               042767                   0125    3660                         | 12               042767                   0125    3699                         | 12               042767                   0125    3632                         |
 12               042767                   0125    3710                         | 12               042767                   0125    3663                         | 12               042767                   0125    3293                         |
 12               042767                   0125    3629                         | 12               042767                   0175    3716                         | 12               042767                   0175    3725                         |
 12               042767                   0175    8119                         | 12               042767                   0175    8117                         | 12               042767                   0175    8120                         |
 12               042767                   0000    9447                         | 12               042767                   0175    3499                         | 12               042767                   0175    7804                         |
 12 G             042767                   0175    3716                        -| 12               042767                   0175    3530                         | 12 G             042767                   0175    3702                        -|
 12 G             042767                   0175    3630                        -| 12 G             042767                   0175    3725                        -| 12               042767                   0175    3308                         |
 12               042767                   0350    8214                         | 12               042767                   0350    3549                         | 07               042767                   0085    4116                         |
 07               042767                   0250    3748                         | 07               042767                   0125    3888                         | 07               042767                   0250    4002                         |
 07               042767                   0125    4070                         | 07 G             042767                   0250    4070                        -| 07               042767                   0125    4121                         |
 07               042767                   0125    3976                         | 07               042767                   0125    4059                         | 07               042767                   0125    4042                         |
 07               042767                   0125    4067                         | 07 G             042767                   0250    4130                        -| 07               042767                   0125    4130                         |
 07 G             042767                   0125    2913                        -| 07               042767                   0125    4046                         | 07               042767                   0125    4123                         |
 07               042767                   0125    4053                         | 07               042767                   0125    4108                         | 07               042767                   0125    4109                         |
 07               042767                   0125    3933                         | 07 G             042767                   0125    4044                        -| 07               042767                   0125    4044                         |
 07               042767                   0000    9429                         | 07               042767                   0125    3978                         | 07               042767                   0175    8123                         |
 07               042767                   0175    8316                         | 07               042767                   0175    8122                         | 07               042767                   0175    2305                         |
 07               042767                   0175    3870                         | 07               042767                   0175    3741                         | 07               042767                   0175    3911                         |
 07               042767                   0175    3953                         | 07               042767                   0175    8125                         | 07               042767                   0175    3772                         |
 07 G             042767                   0175    4108                        -| 07               042767                   0175    4108                         | 07               042767                   0175    3798                         |
 07               042767                   0175    4039                         | 07               042767                   0175    3814                         | 07               042767                   0175    4053                         |
 07               042767                   0175    8338                         | 07               042767                   0175    3437                         | 07               042767                   0175    4127                         |
 07 G             0 2767                   1925    4127                        -| 08               042767                   0085    4546                         | 08               042767                   0125    4396                         |
 08               042767                   0125    4522                         | 08               042767                   0125    6774                         | 08               042767                   0125    4531                         |
 08               042767                   0125    4502                         | 08               042767                   0125    4462                         | 08               042767                   0125    4565                         |
 28               042767                   0125    4536                         | 08               042767                   0125    4562                         | 08               042767                   0125     164                         |
 08               042767                   0125    4546                         | 08               042767                   0125    4554                         | 08               042767                   0125    4470                         |
 08               042767                   0125    4483                         | 08               042767                   0125    4529                         | 08               042767                   0125    4566                         |
 08               042767                   0125    8342                         | 08               042767                   0175    8132                         | 08               042767                   0175    4287                         |
 08               042767                   0175    2865                         | 08               042767                   0175    4428                         | 08               042767                   0175    8131                         |
 08               042767                   0175    8130                         | 08               042767                   0175    4185                         | 08               042767                   0350    8342                         |
 08               042767                   0175    4546                         | 08               042767                   0175    4531                         | 08               042767                   0350    4458                         |
 08               042767                   0175    4441                         | 08               042767                   0175    4290                         | 08               042767                   0175    8192                         |
 08               042767                   0175    8128                         | 08               042767                   0175    4564                         | 08               042767                   0175    4301                         |
 08               042767                   0175    4569                         | 08               042767                   0350    4570                         | 08               042767                   0350    4568                         |
 10               042767                   0085    4898                         | 10               042767                   0085    3653                         | 10               042767                   0085    4730                         |
 10 G             042767                   0085    4971                        -| 10               042767                   0085    4653                         | 10               042767                   0125    4824                         |
 10               042767                   0125    4730                         | 10               042767                   0125    5044                         | 10               042767                   0125    4971                         |
 10               042767                   0125    4911                         | 10               042767                   0125    4964                         | 10 G             042767                   0125    4964                        -|
 10               042767                   0125    4938                         | 10               042767                   0125    4931                         | 10               042767                   0125    2111                         |
 10               042767                   0125    8191                         | 10               042767                   0125    5024                         | 10 G             042767                   0125    5024                        -|
 10               042767                   0125    4954                         | 10               042767                   0125    4943                         | 10               042767                   0125    5020                         |
 10               042767                   0125    5026                         | 10               042767                   0125    4978                         | 10               042767                   0125    4907                         |
 10 G             042767                   0125    8137                        -| 10               042767                   0125    4721                         | 10               042767                   0125    5037                         |
 10               042767                   0125    4988                         | 10               042767                   0250    4594                         | 10               042767                   0125    5002                         |
 10               042767                   0125    5000                         | 10               042767                   0125    5030                         | 10               042767                   0125    4991                         |
 10               042767                   0125    4918                         | 10               042767                   0125    4990                         | 10               042767                   0125    4922                         |
 10               042767                   0125    4970                         | 10               042767                   0125    2074                         | 10               042767                   0125    4953                         |
 10               042767                   0125    4597                         | 10               042767                   0125    4948                         | 10               042767                   0125    2838                         |
 10               042767                   0175    5038                         | 10               042767                   0175    4876                         | 10               042767                   0175    4787                         |
 10               042767                   0175    4721                         | 10               042767                   0175    4898                         | 10 G             042767                   0175    1746                        -|
 10               042767                   0175    8135                         | 10               042767                   0175    6384                         | 10               042767                   0175    4877                         |
 10               042767                   0175    4662                         | 10               042767                   0175    4907                         | 10               042767                   0175    5039                         |
 10               042767                   0175    4906                         | 10               042767                   0350    4828                         | 10               042767                   0175    4693                         |
 10               042767                   0175    4784                         | 11               042767                   0175    9551                         | 11               042767                   0125    5399                         |
 11               042767                   0125    5389                         | 11               042767                   0125    5345                         | 11               042767                   0125    5404                         |
 11               042767                   0125    5384                         | 11               042767                   0125    8126                         | 11               042767                   0125    5352                         |
 11               042767                   0125    5391                         | 11               042767                   0125    5351                         | 11               042767                   0125    4926                         |
 11               042767                   0125    5410                         | 11               042767                   0125    5414                         | 11               042767                   0125    5434                         |
 11               042767                   0125    5261                         | 11               042767                   0125    2565                         | 11               042767                   0125    5441                         |
 11               042767                   0125    5396                         | 11               042767                   0125    5413                         | 11               042767                   0125    5363                         |
 11               042767                   0125    2517                         | 11               042767                   0125    5747                         | 11               042767                   0125    3230                         |
 11               042767                   0125    2551                         | 11               042767                   0125    2147                         | 11               042767                   0125    5686                         |
 11               042767                   0125    1704                         | 11               042767                   0125    3650                         | 11               042767                   0125    5374                         |
 11               042767                   0125    5016                         | 11               042767                   0125    1303                         | 11               042767                   0125    5371                         |
 11               042767                   0125    3255                         | 11               042767                   0125    5712                         | 11               042767                   0125    5403                         |
 11               042767                   0125    4905                         | 11               042767                   0125    5154                         | 11               042767                   0125    5098                         |
 11 G             042767                   0125    5396                        -| 11               042767                   0125    5085                         | 11               042767                   0125    5051                         |
 11 G             042767                   0250    5345                        -| 11               042767                   0175    5163                         | 11               042767                   0175    5085                         |
 11               042767                   0175    5285                         | 11               042767                   0175    5283                         | 11               042767                   0175    5438                         |
 11               042767                   0175    5397                         | 11               042767                   0175    8141                         | 11               042767                   0175    8124                         |
 11               042767                   0175    5371                         | 09               042767                   0175    5652                         | 09 G             042767                   0175    5499                        -|
 09 G             042767                   0175    5595                        -| 09 G             042767                   0175    5490                        -| 09 G             042767                   0175    5617                        -|
 09 G             042767                   0175    5550                        -| 09 G             042767                   0175    5465                        -| 09 G             042767                   0175    5566                        -|
 09               042767                   0175    5651                         | 09               042767                   0175    5694                         | 09               042767                   0175    5657                         |
 09               042767                   0175    5665                         | 09               042767                   0175    5656                         | 09               042767                   0175    5710                         |
|2Z              S>6777X                  |#77V   V775V                        |||0Z               >6277X                  |#77V   V776|                        |||#Z              S>6777X                  |#77V   V7{#/                        ||
 09               042767                   0175    5735                         | 09               042767                   0175    5734                         | 09               042767                   0175    5704                         |
 09               042767                   0175    5679                         | 09               042767                   0175    5662                         | 09               042767                   0175/   5675                         |
 09               042767                   0175    5677                         | 09               042767                   0175    5650                         | 09               042767                   0175    5681                         |
 09               042767                   0175    5667                         | 09               042767                   0175    5693                         | 09               042767                   0175    5751                         |
 09               042767                   0175    5687                         | 09               042767                   0175    5668                         | 09               042767                   0175    5682                         |
 09               042767                   0175    5739                         | 09               042767                   0175    5747                         | 09               042767                   0175    5712                         |
 09               042767                   0175    5721                         | 09               042767                   0175    5733                         | 09               042767                   0175    5659                         |
 09               042767                   0175    5702                         | 09               042767                   0175    5718                         | 09               042767                   0175    8147                         |
 09               042767                   0175    3262                         | 09               042767                   0175    8145                         | 09               042767                   0175    8146                         |
 09               042767                   0175    5729                         | 09               042767                   0175    5500                         | 09               042767                   0085    5702                         |
 09               042767                   0125    5704                         | 09 G             042767                   0500    5704                        -| 09               042767                   0125    5736                         |
 09 G             042767                   0125    5736                        -| 09 G             042767                   0125    5485                        -| 09 G             042767                   0250    5621                        -|
 09 G             042767                   0125    5502                        -| 09               042767                   0125    5709                         | 09 G             042767                   0375    5709                        -|
 09               042767                   0125    5733                         | 09               042767                   0125    5691                         | 09               042767                   0125    5725                         |
 09               042767                   0125    5737                         | 09               042767                   0125    5740                         | 09               042767                   0125    5726                         |
 09               042767                   0125    5667                         | 09               042767                   0125    5734                         | 09               042767                   0125    5656                         |
 09 G             042767                   0125    1099                        -| 09               042767                   0125    5705                         | 09               042767                   0125    5715                         |
 09               042767                   0125    5693                         | 09               042767                   0125    5718                         | 09               042767                   0125    5663                         |
 09               042767                   0125    5679                         | 09               042767                   0125    5727                         | 09 G             042767                   0125    8107                        -|
 09               042767                   0125    5738                         | 09               042767                   0125    5651                         | 09               042767                   0125    5677                         |
 09               042767                   0125    5675                         | 09               042767                   0125    5729                         | 09               042767                   0125    5721                         |
 09               042767                   0125    5694                         | 09               042767                   0125    4106                         | 09               042767                   0125    5364                         |
 09               042767                   0125    3597                         | 09               042767                   0125    1329                         | 09               042767                   0125    5748                         |
 09 G             042767                   0125    5516                        -| 22               042767                   0085    3653                         | 22               042767                   0085    2863                         |
 22 G             042767                   0125    7223                        -| 22               042767                   0125    8003                         | 22               042767                   0125    8363                         |
 22 G             042767                   0125    8363                        -| 22 G             042767                   0125    8363                        -| 22               042767                   0125    8361                         |
 22               042767                   0125    2863                         | 22               042767                   0125    8046                         | 22               042767                   0000    9445                         |
 22               042767                   0125    8344                         | 22 G             042767                   0125    7093                        -| 22               042767                   0125    8367                         |
 22               042767                   0125    8325                         | 22               042767                   0175    8363                         | 22 G             042767                   0175    7093                        -|
 22               042767                   0175    8003                         | 22               042767                   0175    8325                         | 22               042767                   0175    8313                         |
 22               042767                   0175    8321                         | 22               042767                   0175    8367                         | 22               042767                   0175    7382                         |
 22               042767                   0175    2863                         | 22 G             042767                   0175    7157                        -| 23               042767                   0170    7081                         |
 23               042767                   0170    7081                         | 23               042767                   0125    7080                         | 23               042767                   0125    8106                         |
 23               042767                   0125    8312                         | 23               042767                   0375    8312                         | 23               042767                   0125    7081                         |
 23 G             042767                   0125    1284                        -| 23               042767                   0125    7084                         | 23               042767                   0170    7077                         |
 23               042767                   0085    6881                         | 23 G             042767                   0085    1701                        -| 23               042767                   0125    7076                         |
 23               042767                   0175    7887                         | 23               042767                   0175    7080                         | 23               042767                   0175    6881                         |
 23               042767                   0175    6957                         | 23               042767                   0175    6910                         | 24 G             042767                   0085    9025                        -|
 24 G             042767                   0175    7446                        -| 24 G             042767                   0175    7555                        -| 24 G             042767                   0175    7510                        -|
 24 G             042767                   0350    3088                        -| 24 G             042767                   0175    7431                        -| 13 G             042767                   0010    7456                        -|
 13 G             042767                   0120    7589                        -| 13 G             042767                   0070    7451                        -| 13 G             042767                   0015    7413                        -|
 13 G             042767                   0080    7461                        -| 13 G             042767                   0020    7398                        -| 13 G             042767                   0020    7536                        -|
 13 G             042767                   0010    7512                        -| 13 G             042767                   0010    7395                        -| 13 G             042767                   0035    7494                        -|
 13 G             042767                   0070    7434                        -| 13 G             042767                   0035    7598                        -| 13 G             042767                   0010    7582                        -|
 13 G             042767                   0030    7400                        -| 13 G             042767                   0100    7395                        -| 13 G             042767                   0080    7536                        -|
 13 G             042767                   0105    7449                        -| 13 G             042767                   0020    7582                        -| 13 G             042767                   0035    7453                        -|
 13 G             042767                   0065    7449                        -| 13 G             042767                   0040    7486                        -| 13 G             042767                   0045    7599                        -|
 13 P             042767                   0055    7461                        -0   G             042767                   0020    7531                        -0 13 G             042767                   0050    7452                        -|
 13 G             042767                   0055    7455                        -| 13 G             042767                   0050    7586                        -| 13 G             042767                   0070    7471                        -|
 13 G             042767                   0120    7386                        -| 13 G             042767                   0070    7524                        -| 13 G             042767                   0035    7551                        -|
 13 G             042767                   0010    7526                        -| 13 G             042767                   0020    7408                        -| 25               042767                   0085    7764                         |
 25               042767                   0085    8228                         | 25               042767                   0085    8247                         | 25               042767                   0085    8241                         |
 25               042767                   0085    7872                         | 25               042767                   0125    8218                         | 25               042767                   0125    8223                         |
 25               042767                   0250    8105                         | 25               042767                   0125    8228                         | 25               042767                   0125    8235                         |
 25               042767                   0125    8221                         | 25               042767                   0125    8247                         | 25               042767                   0125    8243                         |
 25               042767                   0125    8245                         | 25               042767                   0125    8213                         | 25               042767                   0125    8236                         |
 25               042767                   0125    7800                         | 25               042767                   0125    7795                         | 25               042767                   0125    8250                         |
 25               042767                   0125    7748                         | 25               042767                   0125    8147                         | 25               042767                   0125    7693                         |
 25               042767                   0125    4906                         | 25               042767                   0175    8241                         | 25               042767                   0175    8249                         |
 25               042767                   0175    8225                         | 25               042767                   0175    8129                         | 25               042767                   0175    8234                         |
 25               042767                   0175    7693                         | 25               042767                   0175    8223                         | 25               042767                   0175    7899                         |
 25               042767                   0175    8344                         | 25               042767                   0175    8213                         | 25               042767                   0175    2448                         |
 25               042767                   0175    7773                         | 25               042767                   0175    8247                         | 25               042767                   0175    8369                         |
 25               042767                   0175    8001                         | 25               042767                   0350    8222                         | 25               042767                   0175    7749                         |
 21               042767                   0125    8214                         | 21               042767                   0125    8362                         | 21 G             042767                   0125    8124                        -|
 21               042767                   0125    6114                         | 21               042767                   0125    8108                         | 21               042767                   0125    2514                         |
 21               042767                   0125    6000                         | 21 G             042767                   0125    8098                        -| 21               042767                   0125    3828                         |
 21               042767                   0175    8136                         | 21               042767                   0175    8133                         | 21               042767                   0175    8121                         |
 21               042767                   0175    8105                         | 21               042767                   0175    8134                         | 21               042767                   0175    8103                         |
 21 G             042767                   0175    2514                        -| 21               042767                   0175    6789                         | 21               042767                   0175    5825                         |
 21 G             042767                   0175    8105                        -| 35               042767                   0125    8051                         | 35               042767                   0040    8009                         |
 35               042767                   0075    7994                         | 35               042767                   0050    8002                         | 35               042767                   0125    8000                         |
 35               042767                   0130    8006                         | 35               042767                   0115    8007                         | 35               042767                   0125    7990                         |
 35               042767                   0075    7995                         | 35               042767                   0100    7991                         | 35               042767                   0140    7985                         |
 35               042767                   0125    7993                         | 35               042767                   0105    7988                         | 35               042767                   0035    7997                         |
 35               042767                   0105    7989                         | 35               042767                   0180    8329                         | 35               042767                   0085    8242                         |
 50 G             042767                   0450    4526                        -| 50               042767                   0135    4237                         | 50               042767                   0125    4540                         |
 50 G             042767                   0035    1589                        -| 50 G             042767                   0030    3948                        -| 50 G             042767                   0070    2064                        -|
 50 G             042767                   0000    9410                        -| 50 G             042767                   0610    1789                        -| 50 G             042767                   0825    1434                        -|
 50 G             042767                   0385    7367                        -| 28               042767                   0065    9041                         | 28               042767                   0490    8572                         |
 28               042767                   0230    8487                         | 28               042767                   0085    9194                         | 28               042767                   0220    9057                         |
 28               042767                   0140    8528                         | 28               042767                   0175    9114                         | 28               042767                   0090    8627                         |
 28               042767                   0140    9113                         | 28               042767                   0150    9151                         | 28               042767                   0070    8436                         |
 28               042767                   0145    8904                         | 28               042767                   0150    9193                         | 28               042767                   0220    8764                         |
 28               042767                   0105    8596                         | 28               042767                   0165    8583                         | 28               042767                   0105    8945                         |
 28               042767                   0125    8734                         | 28               042767                   0105    8967                         | 28               042767                   0690    8946                         |
 28               042767                   0210    8817                         | 28               042767                   0105    8790                         | 28               042767                   0080    9001                         |
 28               042767                   0055    9012                         | 28               042767                   0100    8479                         | 28               042767                   0215    8814                         |
 28               042767                   0060    8754                         | 28               042767                   0050    9191                         | 28               042767                   0185    8604                         |
 28               042767                   0140    8693                         | 28               042767                   0230    8690                         | 28               042767                   0135    8882                         |
 28               042767                   0080    9145                         | 28               042767                   0070    8746                         | 28               042767                   0080    8953                         |
 28               042767                   0130    8910                         | 28               042767                   0105    8740                         | 28               042767                   0095    8560                         |
 28               042767                   0115    9185                         | 28               042767                   0145    9186                         | 28               042767                   0105    8704                         |
 28               042767                   0125    9134                         | 28               042767                   0085    8551                         | 28               042767                   0105    8581                         |
 28               042767                   0155    9040                         | 28               042767                   0150    9167                         | 28               042767                   0125    8701                         |
 28               042767                   0150    8511                         | 28               042767                   0085    8857                         | 28               042767                   0170    8904                         |
 28               042767                   0075    8602                         | 28               042767                   0245    8806                         | 28               042767                   0100    9170                         |
 28               042767                   0120    8411                         | 28               042767                   0065    8897                         | 28               042767                   0250    8980                         |
 28               042767                   0125    8684                         | 28               042767                   0125    8491                         | 28               042767                   0095    9122                         |
 28               042767                   0145    9154                         | 28               042767                   0100    8612                         | 28               042767                   0055    9099                         |
 28               042767                   0100    8545                         | 28               042767                   0055    8557                         | 28               042767                   0060    8516                         |
 28               042767                   0280    8537                         | 28               042767                   0295    8542                         | 28               042767                   0110    8450                         |
 2                242767                   0105    9052                         | 28               042767                   0105    8809                         | 28               042767                   0282    8505                         |
 28               042767                   0110    9108                         | 28               042767                   0065    8715                         | 28               042767                   0105    8420                         |
 28               042767                   0110    8933                         | 28               042767                   0125    8687                         | 28               042767                   0105    9048                         |
 28               042767                   0115    8880                         | 28               042767                   0135    9132                         | 28               042767                   0095    8990                         |
 28               042767                   0080    8791                         | 28               042767                   0110    8884                         | 28               042767                   0060    8618                         |
 28               042767                   0125    9084                         | 28               042767                   0100    8710                         | 28               042767                   0090    8430                         |
 28               042767                   0085    9143                         | 28               042767                   0085    8512                         | 28               042767                   0080    8838                         |
 28               042767                   0095    9178                         | 01 G             042867                   0085    1270                        -| 01 G             042867                   0175    1270                        -|
 01               042867                   0000    9459                         | 01               042867                   0000    9427                         | 01               042867                   0085    1354                         |
 01               0428 7                   0125    1278                         | 01               042867                   0125    8089                         | 01               0428 7                   0125    8179                         |
 01               0428 7                   0125    1048                         | 01               0428 7                   0125    1129                         | 01               042867                   0125    1350                         |
 01 G             042867                   0125    1275                        -| 01               042867                   0125    1322                         | 01               042867                   0125    1284                         |
 01 G             042867                   0125    1284                        -| 01               042867                   0125    1366                         | 01 G             042867                   0125    4086                        -|
 01               042867                   0125    1334                         | 01 G             042867                   0125    8365                        -| 01               042867                   0125    1357                         |
 01               042867                   0125    1336                         | 01 G             0428 7                   0125    5613                        -| 01 G             042827                   0125    1299                        -|
 01               042867                   0125    1299                         | 01               042867                   0125    1321                         | 01 G             042867                   0125    1055                        -|
 01 G             042867                   0125    1005                        -| 01               042867                   0125    1362                         | 01               042867                   0125    1347                         |
 01               042867                   0125    1304                         | 01 G             042867                   0250    4458                        -| 01               042867                   0125    1329                         |
 01               042867                   0125    1307                         | 01               042867                   0125    1342                         | 01               042867                   0125    1352                         |
 01               042867                   0125    1365                         | 01               042867                   0125    5024                         | 01 G             042867                   0125    1035                        -|
 01 G             042867                   0125    1153                        -| 01 G             042867                   0125    8088                        -| 01 G             042867                   0125    1241                        -|
 01 G             042867                   0125    1151                        -| 01               042867                   0125    1367                         | 01 G             042867                   0125    1704                        -|
 01               042867                   0125    1303                         | 01               042867                   0125    3255                         | 01               042867                   0125    5747                         |
 01               042867                   0125    1302                         | 01 G             042867                   0125    4693                        -| 01               042867                   0125    1361                         |
 01 G             042867                   0175    1117                        -| 01 G             042867                   0175    1060                        -| 01               042867                   0175    1364                         |
 01 G             042867                   0175    3722                        -| 01 G             042867                   0175    1008                        -| 01 G             042867                   0175    1180                        -|
 01 G             042867                   0175    1160                        -| 01 G             042867                   0175    1129                        -| 01 G             042867                   0175    7093                        -|
 01 G             042867                   0350    1275                        -| 01 G             042867                   0175    1153                        -| 01 G             042867                   0175    5233                        -|
 01 G             042827                   0175    4828                        -| 01 G             0428 7                   0175    1053                        -| 01 G             042867                   0175    1135                        -|
 01               042867                   0175    8089                         | 01 G             042867                   0175    1034                        -| 01               042867                   0175    1366                         |
 01 G             042867                   0350    1144                        -| 01 G             042867                   0175    1124                        -| 01 G             042867                   0175    5896                        -|
 01 P             042867                   0175    5957                        -| 01 G             042867                   0175    4458                        -0 01 G             042867                   0175    1002                        -|
 01 G             0428 7                   0175    1151                        -| 01               0428 7                   0175    8088                         | 01 G             042867                   0175    1099                        -|
 01 G             042847                   0175    1352                        -| 01               0428>7                   0175    1352                         | 01 G             042867                   0175    3663                        -|
 01 G             042867                   0175    1174                        -| 01 G             042867                   0175    1081                        -| 01 G             042867                   0175    1051                        -|
 01 G             042867                   0175    1001                        -| 02               042867                   0125    9551                         | 02               042867                   0085    1805                         |
 02               042867                   0085    1469                         | 02               042867                   0125    1469                         | 02               042867                   0250    1659                         |
 02               042867                   0125    1418                         | 02               042867                   0125    1734                         | 02               042867                   0125    1799                         |
 02               042867                   0125    4087                         | 02               042867                   0125    1664                         | 02               042867                   0125    1789                         |
 02               042867                   0125    1762                         | 02               042827                   0125    1620                         | 02               0428 7                   0125    1717                         |
 02               042867                   0125    1710                         | 02               042867                   0125    1781                         | 02               042867                   0125    1464                         |
 02               042867                   0125    1721                         | 02               042867                   0125    1788                         | 02               042867                   0125    1764                         |
 02               042867                   0125    1739                         | 02 G             042867                   0125    3621                        -| 02               042867                   0125    1719                         |
 02 G             042867                   0125    3621                        -| 02               042867                   0125    1748                         | 02 G             042867                   0125    1748                        -|
 02               042867                   0125    1718                         | 02 G             042867                   0125    1286                        -| 02               042867                   0125    1784                         |
 02               042867                   0125    2861                         | 02 G             042867                   0125    1784                        -| 02               042867                   0125    1787                         |
 02               042867                   0125    1741                         | 02               042867                   0125    1696                         | 02               042867                   0125    1730                         |
 02               042867                   0125    8094                         | 02               042867                   0125    1780                         | 02 G             042867                   0125    1780                        -|
 02               042867                   0125    1763                         | 02 G             042867                   0125    1763                        -| 02               042867                   0125    1615                         |
 02               042867                   0125    1769                         | 02 G             042867                   0125    1769                        -| 02               042867                   0125    1701                         |
 02               042867                   0125    1402                         | 02               042867                   0125    1713                         | 02               042867                   0175    6311                         |
|0S              |>62>7X                  |#77V   Y0##|                        |||8S              |>62>7X                  |#77V   Y0#:V                        ||S0S              |>62>7X                  |#77V   W77>Y                        ||
 02               042867                   0175    5783                         | 02               042867                   0175    1665                         | 02               042867                   0175    1652                         |
 @244444444444444 0428 7                   0175    1620                         | 02               0428 7                   0175    1426                         | 02               0428 7                   0175    1793                         |
 02               042867                   0175    8094                         | 02               042867                   0175    4290                         | 02               042867                   0175    1617                         |
 02               042867                   0175    1569                         | 02               042867                   0175    5170                         | 02               042867                   0175    1537                         |
 02               042867                   0525    6044                         | 02               042867                   0175    6706                         | 02               042867                   0175    7778                         |
 02               042867                   0700    1566                         | 02               042867W                  0175    6070                         | 02               042867                   0175    6651                         |
 02               042867                   0175    6318                         | 02               042867                   0175    6765                         | 02               042867                   0175    1741                         |
 02 G             042867                   0175    1741                        -| 02               042867                   0175    1402                         | 02               042867                   0175    8216                         |
 02               042867                   0175    1636                         | 02               042867                   0175    1458                         | 02               042867                   0525    1629                         |
 02               042867                   0175    1604                         | 03               042867                   0085    2081                         | 03               042867                   0085    1937                         |
 03               042867                   0085    1942                         | 03 G             042867                   0125    2085                        -| 03               042867                   0125    2085                         |
 03               042867                   0125    2101                         | 03               042867                   0125    2143                         | 03               042867                   0125    2115                         |
 03               042867                   0125    2112                         | 03               0428 7                   0125    5413                         | 03               042867                   0125    1833                         |
 03               042867                   0125    2138                         | 03               042827                   0125    2125                         | 03               0428 7                   0125    4954                         |
 03               042867                   0125    2074                         | 03               042867                   0125    4074                         | 03               042867                   0125    4096                         |
 03               042867                   0125    2083                         | 03               042867                   0125    2120                         | 03               042867                   0125    2139                         |
 03               042867                   0125    4061                         | 03               042867                   0125    3614                         | 03 G             042867                   0125    2139                        -|
 03               042867                   0125    5026                         | 03               042867                   0125    2928                         | 03               042867                   0125    2098                         |
 03               042867                   0125    2090                         | 03               042867                   0125    2160                         | 03               042867                   0125    7900                         |
 83               042867                   0125    8175                         | 03               042827                   0125    8097                         | 03               042867                   0125    2170                         |
 83               042827                   0125    1911                         | 03               0428 7                   0125    1921                         | 03               0428 7                   0175    1911                         |
 03               042867                   0175    8098                         | 03               042867                   0175    1967                         | 03               042867                   0175    1920                         |
 03               042867                   0175    1991                         | 03               042867                   0175    1910                         | 03               042867                   0350    2064                         |
 03               042867                   0175    1820                         | 03               042827                   0175    1842                         | 03               042867                   0175    1904                         |
 03               042867                   0175    2152                         | 03               042867                   0175    1918                         | 03               042867                   0175    2839                         |
 03               042867                   0175    8100                         | 03               042867                   0175    1878                         | 03               042867                   0175    8097                         |
 03               042867                   0175    2014                         | 03               042867                   0175    1899                         | 03               042867                   0350    1880                         |
 03               042867                   0175    1864                         | 03               042867                   0175    6635                         | 03               042867                   0175    2159                         |
 03               042867                   0175    1980                         | 03               042867                   0175    1978                         | 03               042867                   0175    1903                         |
 03               042867                   0175    6642                         | 03               042867                   0175    1840                         | 03               042867                   0175    1850                         |
 03               042867                   0175    1849                         | 04 G             042867                   0085    8104                        -| 04 G             042867                   0125    2452                        -|
 04 G             042867                   0125    2279                        -| 04 G             042867                   0125    2446                        -| 04               042867                   0125    2548                         |
 04 G             042867                   0125    2484                        -| 04               042867                   0125    2526                         | 04               042867                   0125    2562                         |
 04               042867                   0125    2528                         | 04 G             042867                   0125    2526                        -| 04 G             042867                   0125    6228                        -|
 04 G             042867                   0125    3709                        -| 04 G             042867                   0125    2507                        -| 04               042867                   0125    2538                         |
 04 G             042867                   0125    8106                        -| 04 G             042867                   0125    2367                        -| 04 G             042867                   0125    2318                        -|
 04 G             042867                   0125    2385                        -| 04               042867                   0125    2520                         | 04 G             042867                   0175    2264                        -|
 04 G             0428 7                   0175    2484                        -| 04 G             0428 7                   0175    2315                        -| 04 G             042867                   0175    2243                        -|
 04 G             042867                   0175    2390                        -| 04               0428 7                   0175    2523                         | 04 G             042867                   0175    2184                        -|
 04 G             042867                   0175    2276                        -| 04 G             042867                   0175    2312                        -| 04 G             042867                   0175    2453                        -|
 04 G             042867                   0175    2330                        -| 04 G             042867                   0175    2237                        -| 04 G             042867                   0175    2296                        -|
 04 G             042867                   0700    2329                        -| 04 G             042867                   0525    6333                        -| 04               042867                   0175    2558                         |
 04 G             042867                   0175    2208                        -| 04 G             042867                   0175    2361                        -| 04 G             042867                   0175    2378                        -|
 05               0428 7                   0085    2756                         | 05               0428 7                   0085    2913                         | 05               042827                   8085    2871                         |
 05               042867                   0085    2865                         | 05               042867                   0125    2591                         | 05               042867                   0125    2923                         |
 05               042867                   0125    2912                         | 05 G             0428 7                   0125    2542                        -| 05               0428 7                   0125    4554                         |
 05 G             042867                   0125    2858                        -| 05               0428>7                   0125    2858                         | 05               042867                   0125    2843                         |
 05               042867                   0125    2896                         | 05               0428 7                   0125    2865                         | 05               042867                   0125    2913                         |
 05               042867                   0125    2848                         | 05               042867                   0125    2921                         | 05               042867                   0125    2892                         |
 05               042867                   0125    2885                         | 05               042867                   0125    4546                         | 05               042867                   0125    2733                         |
|0V              |>42>77                  |03{|   W6{0T                        |||0V              |>42>77                  |{77V   W672V                        |||{V               >42>77                  |#77V    2##8                        ||
 05               042867                   0175    2813                         | 05               042867                   0175    2653                         | 05               042867                   0175    2663                         |
 05               042827                   0175    8108                         | 05               0428 7                   0175    2735                         | 05               042827                   0350     214                         |
 05               042867                   0175    2724                         | 05               042867                   0175    2604                         | 05               042867                   0175    6617                         |
 05               042867                   0175    2652                         | 05               042867                   0175    2861                         | 05               042867                   0175    2820                         |
 05               042867                   0175    2824                         | 05               042867                   0175    2730                         | 05               042867                   0175    2700                         |
 05               042867                   0175    2747                         | 05               042867                   0175    2628                         | 05               042867                   0175    2746                         |
 86               042827                   0000    9460                         | 06               042827                   0175    8114                         | 06               042867                   0175    3179                         |
 06               042867                   0175    3288                         | 06               042867                   0175    3270                         | 06               042867                   0175    3273                         |
 06               0428 7                   0175    8112                         | 06               042867                   0175    8112                         | 06               042867                   0175    8115                         |
 06               042867                   0175    3282                         | 06               042867                   0175    4158                         | 06               042867                   0175    2972                         |
 06               042867                   0175    2986                         | 06               042867                   0175    2997                         | 06               042867                   0175    3029                         |
 06               042867                   0175    3008                         | 06               042867                   0175    3033                         | 06               042867                   0175    3080                         |
 06               0428 7                   0175    3024                         | 06               042827                   0175    1217                         | 06               042867                   0175    6718                         |
 06S              042867                   0175    3039                         | 06               042867                   0175    2982                         | 06               042867                   0175    6601                         |
 06               042827                   0525    3083                         | 06               0428 7                   0175    3052                         | 06               0428 7                   0085    3037                         |
 06               042867                   0085    3035                         | 06               042827                   0085    8318                         | 06               0428 7                   0125    3277                         |
 06               042867                   0125    8181                         | 06               042867                   0125    3068                         | 06 G             042867                   0125    3289                        -|
 06               042867                   0250    3035                         | 06               042867                   0125    3218                         | 06               042867                   0125    3230                         |
 06               042867                   0125    3269                         | 06               042867                   0125    2151                         | 06               042867                   0125    3223                         |
 06               042867                   0125    3208                         | 06               042867                   0125    3199                         | 06               042867                   0125    3197                         |
 06               042867                   0125    3216                         | 06               042867                   0125    3256                         | 06               042867                   0125    3236                         |
 06               042867                   0125    3244                         | 06               042867                   0125    1724                         | 06               042867                   0125    3266                         |
 06               042867                   0125    3229                         | 06               042867                   0125    3289                         | 06               042867                   0125    3222                         |
 06               042867                   0125    3273                         | 06               042867                   0125    3262                         | 06               042867                   0125    3286                         |
 12               042867                   0000    9447                         | 12 G             042867                   0125    3692                        -| 12               042867                   0125    3488                         |
 12               042867                   0125    3460                         | 12               042867                   0000    9470                         | 12               042867                   0125    3344                         |
 12               042867                   0125    3437                         | 12               042867                   0250    6503                         | 12               042867                   0125    3526                         |
 12               042867                   0125    3578                         | 12               042867                   0125    6627                         | 12               042867                   0125    3552                         |
 12               042867                   0125    2482                         | 12               042867                   0125    3485                         | 12               042867                   0000    9447                         |
 12 G             042867                   0125    3714                        -| 12               042867                   0125    3712                         | 12               042867                   0125    3692                         |
 12               042867                   0125    2169                         | 12               042867                   0125    1371                         | 12               042867                   0125    4926                         |
 12               042867                   0125    3659                         | 12               042867                   0125    3693                         | 12               042867                   0125    3623                         |
 12               042867                   0125    3610                         | 12               042867                   0125    3660                         | 12               042867                   0125    3710                         |
 12               042867                   0125    3656                         | 12               042867                   0125    3718                         | 12               042867                   0125    1733                         |
 12               042867                   0125    3702                         | 12               042867                   0125    3589                         | 12               042867                   0125    3706                         |
 12               042867                   0125    3597                         | 12               042867                   0125    3723                         | 12               042867                   0125    3663                         |
 12               042867                   0125    3587                         | 12               042867                   0125    3650                         | 12               042867                   0125    3585                         |
 12               042867                   0125    3714                         | 12               042867                   0175    5899                         | 12 G             042867                   0175    3623                        -|
  2               042 67                   0175    3552                         S 12               042 61                   017     3333                         | 12               042 67                   017     348                          |
 12 G             042867                   0175    3706                        -| 12 G             042867                   0525    3630                        -| 12               042867                   0175    3344                         |
 12               042867                   0175    3348                         | 12 G             042867                   0175    3610                        -| 12 G             042867                   0525    3661                        -|
 12               042867                   0175    2318                         | 12 G             042867                   0525    3677                        -| 12               042867                   0175    3391                         |
 12               042867                   0175    3447                         | 12 G             042867                   0175    3635                        -| 12 G             042867                   0175    3692                        -|
 12               042867                   0175    3365                         | 12               042867                   0175    3399                         | 12               042867                   0175    3524                         |
 12               042867                   0175    3384                         | 12               042867                   0175    3510                         | 12               042867                   0175    3398                         |
 12 G             042867                   0175    3714                        -| 12               042867                   0175    3549                         | 12               042867                   0175    3729                         |
 12               042867                   0175    3692                         | 12               042867                   0175    3635                         | 12               042867                   0175    3714                         |
 12               042867                   0175    8117                         | 12               042867                   0175    3716                         | 12               042867                   0175    4072                         |
 12               042867                   0175    3725                         | 12               042867                   0175    3661                         | 12               042867                   0175    3610                         |
 12               042867                   0175    5413                         | 12               042867                   0175    3630                         | 12               042867                   0175    3706                         |
 12               042867                   0175    3623                         | 12               042867                   0175    3589                         | 07               042867                   0050    3748                         |
 07 G             042867                   0125    8126                        -| 07 G             042867                   0125    2550                        -| 07               042867                   0125    3974                         |
 07               042867                   0125    4036                         | 07               042867                   0125    4133                         | 07 G             042867                   0125    8124                        -|
 07               042867                   0250    3871                         | 07               042867                   0125    4059                         | 07               042867                   0125    4011                         |
 07               042867                   0125    8185                         | 07               042867                   0125    3765                         | 07               042867                   0125    4042                         |
 07               042867                   0125    4045                         | 07               042867                   0375    3824                         | 07               042867                   0125    4095                         |
 07               042867                   0125    4136                         | 07 G             042867                   0125    4044                        -| 07               042867                   0125    4044                         |
 07               042867                   0125    4072                         | 07               042867                   0125    4000                         | 07               042867                   0125    4108                         |
 07               042867                   0125    4135                         | 07               042867                   0125    3828                         | 07               042867                   0175    3786                         |
 07               042867                   0175    8121                         | 07               042867                   0175    8123                         | 07               042867                   0175    3905                         |
 07               042867                   0175    8126                         | 07 G             042867                   0175    8126                        -| 07               042867                   0175    8124                         |
 07               042867                   0175    3820                         | 07               042867                   0175    4006                         | 07               042867                   0175    8338                         |
 07               042867                   0175    3946                         | 07               042867                   0175    4039                         | 07               042867                   0175    3751                         |
 07               042867                   0175    8346                         | 07 G             042867                   0175    8346                        -| 07               042867                   0175    3791                         |
 07               042867                   0175    5831                         | 07               042867                   0175    3958                         | 07               042867                   0175    3973                         |
 07               042867                   0175    5929                         | 07               042867                   0175    3912                         | 07               042867                   0175    6422                         |
 07               042867                   0175    3771                         | 07               042867                   0175    4135                         | 07               042867                   0175    4009                         |
 07               042867                   0175    3974                         | 07               042867                   0350    4002                         | 07               042867                   0175    4011                         |
 08               042867                   0085    4546                         | 08               042867                   0085    4156                         | 08               042867                   0125    4287                         |
 08 G             042867                   0125    4465                        -| 08               042867                   0125    4465                         | 08               042867                   0125    4156                         |
 08               042867                   0125    4502                         | 08 G             042867                   0250    4462                        -| 08               042867                   0125    4462                         |
 08               042867                   0125    4512                         | 08               042867                   0125    7937                         | 08               042867                   0125    4428                         |
 08               042867                   0125    4290                         | 08               042867                   0125    4562                         | 08               042867                   0125    4491                         |
 08               042867                   0125    4536                         | 08               042867                   0125    4540                         | 08               042867                   0125    4531                         |
 08               042867                   0125    8338                         | 08               042867                   0125    4409                         | 08               042867                   0125    4529                         |
 08               042867                   0125    4487                         | 08               042867                   0125    2546                         | 08               042867                   0125    4233                         |
 08               042867                   0250    8127                         | 08               042867                   0000    9427                         | 08               042867                   0175    8129                         |
 08               042867                   0175    4252                         | 08               042867                   0175    8132                         | 08               042867                   0175    4502                         |
 08               042867                   0175    8132                         | 08               042867                   0175    8128                         | 08               042867                   0175    4220                         |
 08               042867                   0175    4531                         | 08               042867                   0175    4546                         | 08               042867                   0175    4267                         |
 08               042867                   0175    4268                         | 08               042867                   0175    4555                         | 08               042867                   0175    4555                         |
 08               042867                   0175    2933                         | 08               042867                   0175    4294                         | 08               042867                   0175    4260                         |
 08               042867                   0175    4251                         | 08               042867                   0175    4295                         | 08               042867                   0175    4263                         |
 08               042867                   0350    8127                         | 08               042867                   0175    4569                         | 08               042867                   0175    4270                         |
 08               042867                   0175    4205                         | 08               042867                   0350    4254                         | 08               042867                   0175    4185                         |
 08               042867                   0175    4279                         | 08               042867                   0175    4233                         | 08               042867                   0175    2073                         |
 08               042867                   0175    4390                         | 10               042867                   0085    4786                         | 10               042867                   0085    4898                         |
 10               042867                   0085    4617                         | 10               042867                   0085    4918                         | 10               042867                   0125    1434                         |
 10               042867                   0125    4759                         | 10               042867                   0125    4931                         | 10               042867                   0125    2111                         |
 10               042867                   0125    4906                         | 10               042867                   0125    4796                         | 10               042867                   0125    4858                         |
 10               042867                   0125    4938                         | 10               042867                   0125    8137                         | 10               042867                   0000    9417                         |
 10               042867                   0125    4969                         | 10               042867                   0125    4936                         | 10               042867                   0125    5000                         |
 10               042867                   0125    4959                         | 10               042867                   0125    4916                         | 10               042867                   0125    5028                         |
 10               042867                   0125    4971                         | 10               042867                   0125    4943                         | 10 G             042867                   0125    5380                        -|
 10               042867                   0250    3819                         | 10               042867                   0125    4990                         | 10               042867                   0125    4721                         |
 10               042867                   0125    5037                         | 10               042867                   0125    4915                         | 10               042867                   0125    5038                         |
 10               042867                   0125    3717                         | 10               042867                   0125    4964                         | 10               042867                   0125    4942                         |
 10               042867                   0125    4814                         | 10               042867                   0125    4911                         | 10               042867                   0125    8347                         |
 10               042867                   0125    4988                         | 10               042867                   0125    2838                         | 10               042867                   0125    5030                         |
 10               042867                   0125    4630                         | 10               042867                   0125    5016                         | 10               042867                   0125    4935                         |
 10               042867                   0125    4701                         | 10               042867                   0175    5983                         | 10               042867                   0175    4855                         |
 10               042867                   0175    8138                         | 10               042867                   0175    4898                         | 10               042867                   0175    4683                         |
 10               042867                   0350    4906                         | 10               042867                   0175    6594                         | 10               042867                   0350    4617                         |
 10               042867                   0175    4829                         | 10               042867                   0175    4878                         | 10               042867                   0175    5039                         |
 10               042867                   0175    4793                         | 10               042867                   0175    5036                         | 10               042867                   0175    6115                         |
 10               042867                   0175    4618                         | 10               042867                   0175    5774                         | 10               042867                   0175    4907                         |
 10               042867                   0175    4754                         | 10               042867                   0175    5495                         | 10               042867                   0175    1156                         |
 10               042867                   0175    5208                         | 10               042867                   0175    4796                         | 10               042867                   0175    4662                         |
 10               042867                   0175    4596                         | 10               042867                   0175    4629                         | 10               042867                   0175    4876                         |
 10               042867                   0175    1824                         | 10               042867                   0175    4710                         | 10               042867                   0175    4733                         |
 10               042867                   0175    4731                         | 10               042867                   0175    3653                         | 10               042867                   0175    4693                         |
 10               042867                   0175    4852                         | 10               042867                   0350    4875                         | 10               042867                   0175    4869                         |
 10               042867                   0700    4593                         | 11               042867                   0125    5363                         | 11               042867                   0125    5384                         |
 11               042867                   0125    5378                         | 11               042867                   0125    5345                         | 11               042867                   0125    5371                         |
 11               042867                   0125    8058                         | 11               042867                   0125    5368                         | 11               042867                   0125    3713                         |
 11               042867                   0125    5439                         | 11               042867                   0125    5441                         | 11               042867                   0125    5403                         |
 11               042867                   0125    1746                         | 11               042867                   0125    1807                         | 11               042867                   0125    5370                         |
 11               042867                   0125    5404                         | 11               042867                   0125    5390                         | 11 G             042867                   0125    5397                        -|
 11               042867                   0125    5397                         | 11               042867                   0125    5418                         | 11               042867                   0125    5358                         |
 11               042867                   0125    5414                         | 11               042867                   0125    5958                         | 11               042867                   0125    5159                         |
 11               042867                   0125    5832                         | 11               042867                   0125    5308                         | 11               042867                   0125    5139                         |
 11               042867                   0125    6451                         | 11               042867                   0125    6329                         | 11               042867                   0125    5099                         |
 11               042867                   0175    5175                         | 11               042867                   0175    5305                         | 11               042867                   0175    5147                         |
 11               042867                   0175    8320                         | 11               042867                   0175    6451                         | 11               042867                   0175    6329                         |
 11               042867                   0350    5156                         | 11               042867                   0175    5110                         | 11               042867                   0175    5273                         |
 11               042867                   0175    5256                         | 11               042867                   0175    5252                         | 11               042867                   0525    6665                         |
 11               042867                   0175    8133                         | 11               042867                   0175    6747                         | 11               042867                   0700    5258                         |
 11               042867                   0175    5130                         | 11               042867                   0175    5069                         | 11               042867                   0175    5229                         |
 11               042867                   0175    5397                         | 11               042867                   0175    5438                         | 11               042867                   0175    8143                         |
 09 G             042867                   0175    8904                        -| 09               042867                   0175    8904                         | 09               042867                   0175    5751                         |
 09               042867                   0175    8144                         | 09               042867                   0175    8146                         | 09               042867                   0000    9427                         |
 09               042867                   0175    8147                         | 09               042867                   0175    5702                         | 09 G             042867                   0175    5751                        -|
 09 G             042867                   0175    5545                        -| 09 G             042867                   0175    5504                        -| 09 G             042867                   0175    5517                        -|
 09 G             042867                   0350    5541                        -| 09 G             042867                   0175    5447                        -| 09 G             042867                   0175    5499                        -|
 09 G             042867                   0175    5549                        -| 09 G             042867                   0175    5589                        -| 09 G             042867                   0175    5523                        -|
 09 G             042867                   0175    5487                        -| 09 G             042867                   0175    2070                        -| 09 G             042867                   0175    5474                        -|
 09 G             042867                   0175    5608                        -| 09 G             042867                   0175    5550                        -| 09 G             042867                   0175    5456                        -|
 09 G             042867                   0175    5453                        -| 09 G             042867                   0175    5490                        -| 09 G             042867                   0175    5636                        -|
 09 G             042867                   0175    5466                        -| 09 G             042867                   0175    5491                        -| 09 G             042867                   0175    5613                        -|
 09 G             042867                   0175    5581                        -| 09 G             042867                   0175    5583                        -| 09 G             042867                   0175    5566                        -|
 09 G             042867                   0175    5528                        -| 09               042867                   0125    5707                         | 09               042867                   0000    9433                         |
 09               042867                   0125    5735                         | 09               042867                   0125    5721                         | 09               042867                   0125    5733                         |
 09               042867                   0125    5659                         | 09               042867                   0125    5718                         | 09               042867                   0125    2551                         |
 09 G             042867                   0625    5718                        -| 09               042867                   0125    5709                         | 09               042867                   0125    5705                         |
 09               042867                   0125    5677                         | 09               042867                   0125    5704                         | 09               042867                   0125    5663                         |
 09               042867                   0125    5662                         | 09               042867                   0125    5725                         | 09               042867                   0125    8123                         |
 09               042867                   0125    5734                         | 09               042867                   0125    5675                         | 09               042867                   0125    5730                         |
 09               042867                   0125    5713                         | 09 G             042867                   0250    5719                        -| 09               042867                   0125    5719                         |
 09               042867                   0125    5656                         | 09               042867                   0125    5665                         | 09               042867                   0125    4555                         |
 09               042867                   0125    5738                         | 09               042867                   0125    5679                         | 09               042867                   0125    5694                         |
 09               042867                   0125    5651                         | 09               042867                   0125    5712                         | 09               042867                   0125    5690                         |
 09               042867                   0125    5729                         | 09 G             042867                   0125    9997                        -| 09 G             042867                   0125    9997                        -|
 09 G             042867                   0125    9997                        -| 09 G             042867                   0125    9997                        -| 22               042867                   0000    9457                         |
 22               042867                   0085    2863                         | 22               042867                   0125    8003                         | 22               042867                   0125    8361                         |
 22               042867                   0125    8320                         | 22               042867                   0125    8363                         | 22 G             042867                   0125    8363                        -|
 22               042867                   0125    7928                         | 22               042867                   0125    8344                         | 22 G             042867                   0125    7093                        -|
 22               042867                   0125    8049                         | 22 G             042867                   0125    8049                        -| 22               042867                   0125    8216                         |
 22               042867                   0175    8363                         | 22               042867                   0175    8321                         | 22               042867                   0175    8344                         |
 22               042867                   0175    8369                         | 22 G             042867                   0175    8344                        -| 22               042867                   0175    8313                         |
 22               042867                   0175    8008                         | 22               042867                   0175    8003                         | 22               042867                   0175    8361                         |
 23               042867                   0250    7081                         | 23               042867                   0125    7078                         | 23               042867                   0250    8312                         |
 23               042867                   0125    8312                         | 23               042867                   0125    7083                         | 23               042867                   0125    7081                         |
 23               042867                   0125    7081                         | 23               042867                   0125    8315                         | 23               042867                   0125    8315                         |
 23               042867                   0125    7081                         | 23               042867                   0125    7080                         | 23               042867                   0125    7081                         |
 23               042867                   0175    8193                         | 23               042867                   0175    7016                         | 23               042867                   0175    6851                         |
 23               042867                   0175    7010                         | 23               042867                   0350    6938                         | 24               042867                   0000    9445                         |
 24 G             042867                   0075    8146                        -| 24 G             042867                   0065    7555                        -| 24 G             042867                   0080    7510                        -|
 24 G             042867                   0095    8319                        -| 24 G             042867                   0090    7438                        -| 24 G             042867                   0125    3088                        -|
 24 G             042867                   0175    7586                        -| 24 G             042867                   0175    7555                        -| 24 G             042867                   0175    7458                        -|
 24 G             042867                   0175    7602                        -| 24 G             042867                   0175    7510                        -| 24 G             042867                   0175    7582                        -|
 24 G             042867                   0175    8241                        -| 24 G             042867                   0175    7523                        -| 24 G             042867                   0175    7474                        -|
 24 G             042867                   0175    7590                        -| 24 G             042867                   0175    7468                        -| 24 G             042867                   0175    7487                        -|
 13 G             042867                   0010    7520                        -| 13 G             042867                   0020    7386                        -| 13 G             042867                   0015    7386                        -|
 13 G             042867                   0050    7556                        -| 13 G             042867                   0130    7478                        -| 13 G             042867                   0035    7551                        -|
 13 G             042867                   0050    7508                        -| 13 G             042867                   0035    7494                        -| 13 G             042867                   0050    7592                        -|
 13 G             042867                   0015    7449                        -| 13 G             042867                   0025    7392                        -| 13 G             042867                   0090    7449                        -|
 13 G             042867                   0020    7395                        -| 13 G             042867                   0100    7558                        -| 13 G             042867                   0070    7392                        -|
 13 G             042867                   0010    7395                        -| 25               042867                   0125    8247                         | 25               042867                   0125    7773                         |
 25               042867                   0125    7804                         | 25               042867                   0125    7826                         | 25               042867                   0125    8245                         |
 25               042867                   0125    7695                         | 25               042867                   0125    8249                         | 25               042867                   0125    3275                         |
 25               042867                   0125    8011                         | 25               042867                   0125    8226                         | 25               042867                   0125    7932                         |
 25               042867                   0125    8213                         | 25               042867                   0125    8147                         | 25               042867                   0125    8223                         |
 25               042867                   0125    7924                         | 25               042867                   0125    8243                         | 25               042867                   0375    7778                         |
 25               042867                   0125    8212                         | 25               042867                   0250    8228                         | 25               042867                   0125    8239                         |
 25               042867                   0085    7872                         | 25               042867                   0085    8228                         | 25               042867                   0085    8214                         |
 25               042867                   0175    7795                         | 25               042867                   0175    7639                         | 25               042867                   0175    8217                         |
 25               042867                   0175    8245                         | 25               042867                   0175    8228                         | 25               042867                   0175    8001                         |
 25               042867                   0175    7851                         | 25               042867                   0175    8213                         | 25               042867                   0175    8247                         |
 25               042867                   0175    7773                         | 25               042867                   0175    7899                         | 25               042867                   0175    7693                         |
 25               042867                   0175    7804                         | 25               042867                   0175    7669                         | 21               042867                   0125    6784                         |
 21               042867                   0125    5874                         | 21               042867                   0125    6564                         | 21               042867                   0125    6670                         |
 21 G             042867                   0125    2514                        -| 21               042867                   0125    2514                         | 21               042867                   0125    6748                         |
 21               042867                   0375    6347                         | 21               042867                   0125    6115                         | 21               042867                   0125    6105                         |
 21               042867                   0175    5862                         | 21               042867                   0175    5874                         | 21               042867                   0175    5958                         |
 21               042867                   0175    5757                         | 21               042867                   0175    6670                         | 21               042867                   0175    6789                         |
 21               042867                   0175    6347                         | 21 G             042867                   0175    8105                        -| 21               042867                   0175    8099                         |
 21               042867                   0175    8105                         | 21               042867                   0175    8135                         | 21               042867                   0175    8134                         |
 21               042867                   0175    8103                         | 21               042867                   0175    8104                         | 35               042867                   0110    7990                         |
 35               042867                   0100    8010                         | 35               042867                   0100    7985                         | 35               042867                   0110    8000                         |
 35               042867                   0115    8329                         | 35               042867                   0120    7993                         | 35               042867                   0085    7989                         |
 35               042867                   0100    8007                         | 35               042867                   0115    8057                         | 35               042867                   0110    8006                         |
 35               042867                   0010    8242                         | 35               042867                   0120    7986                         | 35               042867                   0095    7997                         |
 35               042867                   0110    8002                         | 35               042867                   0130    7991                         | 35               042867                   0085    7994                         |
 35               042867                   0155    8051                         | 35               042867                   0010    7992                         | 35               042867                   0025    8216                         |
 50 G             042867                   0085    2064                        -| 50 G             042867                   0185    1793                        -| 50 G             042867                   0165    6715                        -|
 50 G             042867                   0850    9425                        -| 50 G             042867                   0125    2081                        -| 50 G             042867                   0125    4318                        -|
 50 G             042867                   0265    1306                        -| 50 G             042867                   0000    9428                        -| 50 G             042867                   0105    5082                        -|
 50 G             042867                   0375    1591                        -| 50 G             042867                   1605    1350                        -| 28               042867                   0130    8418                         |
 28               042867                   0250    9151                         | 28               042867                   0085    8443                         | 28               042867                   0070    9194                         |
 28               042867                   0175    8663                         | 28               042867                   0105    8853                         | 28               042867                   0235    8421                         |
 28               042867                   0060    8859                         | 28               042867                   0070    8922                         | 28               042867                   0115    8764                         |
 28               042867                   0085    8790                         | 28               042867                   0130    8904                         | 28               042867                   0180    9001                         |
 28               042867                   0100    9067                         | 28               042867                   0100    8661                         | 28               042867                   0055    9191                         |
 28               042867                   0065    8618                         | 28               042867                   0135    9135                         | 28               042867                   0185    8799                         |
 28               042867                   0470    8642                         | 28               042867                   0150    9134                         | 28               042867                   0085    8817                         |
 28               042867                   0115    9109                         | 28               042867                   0115    8468                         | 28               042867                   0075    8704                         |
 28               042867                   0100    8497                         | 28               042867                   0105    8946                         | 28               042867                   0130    8698                         |
 28               042867                   0075    9139                         | 28               042867                   0070    8516                         | 28               042867                   0100    8557                         |
 28               042867                   0055    8599                         | 28               042867                   0210    8979                         | 28               042867                   0075    8560                         |
 28               042867                   0330    8554                         | 28               042867                   0100    8684                         | 28               042867                   0200    8720                         |
 28               042867                   0070    8715                         | 28               042867                   0130    9144                         | 28               042867                   0070    8746                         |
 28               042867                   0100    9094                         | 28               042867                   0085    8926                         | 28               042867                   0140    9014                         |
 28               042867                   0105    9122                         | 28               042867                   0115    8882                         | 28               042867                   0115    8511                         |
 28               042867                   0120    8701                         | 28               042867                   0125    8596                         | 28               042867                   0230    8687                         |
 28               042867                   0100    8571                         | 28               042867                   0085    8638                         | 28               042867                   0080    8732                         |
 28               042867                   0085    9023                         | 28               042867                   0100    8572                         | 28               042867                   0060    8598                         |
 28               042867                   0065    8627                         | 28               042867                   0160    8820                         | 28               042867                   0115    8632                         |
 28               042867                   0070    8754                         | 28               042867                   0085    8791                         | 28               042867                   0185    8806                         |
 28               042867                   0100    9123                         | 28               042867                   0115    8542                         | 28               042867                   0130    8689                         |
 28               042867                   0115    8848                         | 28               042867                   0150    9186                         | 01 G             042967                   0125    1270                        -|
 01 G             042967                   0175    1270                        -| 01 G             042967                   0185    1270                        -| 01 G             042967                   0085    1153                        -|
 01 G             042967                   0085    1194                        -| 01 G             042967                   0125    1180                        -| 01 G             042967                   0125    1033                        -|
 01 G             042967                   0125    1060                        -| 01 G             042967                   0125    1129                        -| 01 G             042967                   0125    1143                        -|
 01 G             042967                   0125    8089                        -| 01 G             042967                   0125    1198                        -| 01 G             042967                   0125    6131                        -|
 01 G             042967                   0125    1153                        -| 01               042967                   0125    1362                         | 01 G             042967                   0125    6175                        -|
 01 G             042967                   0125    1160                        -| 01 G             042967                   0125    1124                        -| 01 G             042967                   0125    1034                        -|
 01 G             042967                   0125    1031                        -| 01 G             042967                   0125    6642                        -| 01               042967                   0125    1284                         |
 01               042967                   0125    1352                         | 01               042967                   0125    1286                         | 01               042967                   0125    1351                         |
 01 G             042967                   0125    1351                        -| 01 G             042967                   0250    1051                        -| 01 G             042967                   0125    1081                        -|
 01               042967                   0125    8087                         | 01               042967                   0125    8088                         | 01               042967                   0125    1276                         |
 01               042967                   0125    1357                         | 01               042967                   0125    1299                         | 01 G             042967                   0625    1337                        -|
 01               042967                   0125    1337                         | 01               042967                   0125    1759                         | 01               042967                   0125    1336                         |
 01               042967                   0125    1735                         | 01               042967                   0125    1350                         | 01 G             042967                   0125    2330                        -|
 01               042967                   0125    1347                         | 01               042967                   0125    2917                         | 01 G             042967                   0125    1002                        -|
 01               042967                   0125    1344                         | 01 G             042967                   0375    1344                        -| 01 G             042967                   0125    1099                        -|
 01 G             042967                   0125    1001                        -| 01 G             042967                   0125    1235                        -| 01 G             042967                   0125    1231                        -|
 01 G             042967                   1400    1161                        -| 01 G             042967                   0175    1156                        -| 01 G             042967                   0175    1033                        -|
 01 G             042967                   0175    1124                        -| 01 G             042967                   0175    1160                        -| 01 G             042967                   0175    1002                        -|
 01 G             042967                   0175    6309                        -| 01 G             042967                   0175    1024                        -| 01 G             042967                   0175    1170                        -|
 01 G             042967                   0175    1031                        -| 01 G             042967                   0175    1219                        -| 01 G             042967                   0175    4415                        -|
 01 G             042967                   0175    1022                        -| 01               042967                   0175    8089                         | 01               042967                   0175    8085                         |
 01 G             042967                   0175    1034                        -| 01 G             042967                   0175    1001                        -| 01 G             042967                   0175    1145                        -|
 01               042967                   0175    1329                         | 01 G             042967                   0175    1093                        -| 01 G             042967                   0175    6392                        -|
 01 G             042967                   0175    6175                        -| 01 G             042967                   0175    1099                        -| 01 G             042967                   0175    1143                        -|
 01 G             042967                   0175    1084                        -| 01 G             042967                   0175    7718                        -| 01               042967                   0175    1362                         |
 01 G             042967                   0175    4693                        -| 01               042967                   0175    1284                         | 01 G             042967                   0175    1299                        -|
 01               042967                   0175    1299                         | 01 G             042967                   0175    6235                        -| 01 G             042967                   0175    1178                        -|
 01 G             042967                   0350    8087                        -| 01 G             042967                   0175    7683                        -| 01 G             042967                   0175    7678                        -|
 01 G             042967                   0175    1097                        -| 01 G             042967                   0175    1081                        -| 01 G             042967                   0175    6642                        -|
 02               042967                   0085    1805                         | 02               042967                   0125    6311                         | 02               042967                   0125    1469                         |
 02               042967                   0125    1418                         | 02               042967                   0125    1561                         | 02               042967                   0125    1508                         |
 02               042967                   0125    6568                         | 02               042967                   0125    5783                         | 02               042967                   0125    2342                         |
 02               042967                   0125    6706                         | 02               042967                   0125    1533                         | 02               042967                   0125    8094                         |
 02               042967                   0125    1652                         | 02               042967                   0125    1612                         | 02               042967                   0125    1636                         |
 02               042967                   0125    1415                         | 02               042967                   0125    1518                         | 02               042967                   0125    6399                         |
 02               042967                   0125    1522                         | 02               042967                   0125    1710                         | 02               042967                   0125    1620                         |
 02               042967                   0125    1426                         | 02               042967                   0125    6190                         | 02               042967                   0125    6636                         |
 02               042967                   0125    6318                         | 02               042967                   0125    6651                         | 02               042967                   0125    6070                         |
 02               042967                   0125    1569                         | 02               042967                   0125    2341                         | 02               042967                   0125    1788                         |
 02               042967                   0125    1416                         | 02               042967                   0125    2312                         | 02               042967                   0125    6765                         |
 02               042967                   0125    1632                         | 02               042967                   0125    6083                         | 02               042967                   0125    1458                         |
 02               042967                   0125    1787                         | 02 G             042967                   0125    1777                        -| 02               042967                   0125    1777                         |
 02               042967                   0125    1601                         | 02               042967                   0125    6357                         | 02               042967                   0125    2352                         |
 02               042967                   0125    8212                         | 02               042967                   0125    2317                         | 02               042967                   0125    1492                         |
 02               042967                   0125    1574                         | 02               042967                   0125    1591                         | 02               042967                   0125    1501                         |
 02               042967                   0175    1652                         | 02               042967                   0175    1603                         | 02               042967                   0175    5817                         |
 02               042967                   0175    8095                         | 02               042967                   0175    6070                         | 02               042967                   0175    5920                         |
 02               042967                   0175    5882                         | 02               042967                   0175    6482                         | 02               042967                   0175    8091                         |
 02               042967                   0175    7666                         | 02               042967                   0175    7729                         | 02               042967                   0175    1484                         |
 02               042967                   0175    1442                         | 02               042967                   0175    1561                         | 02               042967                   0175    1620                         |
 02               042967                   0175    1518                         | 02               042967                   0175    1671                         | 02               042967                   0175    6765                         |
 02               042967                   0175    6083                         | 02               042967                   0175    1617                         | 02               042967                   0175    1574                         |
 02               042967                   0175    1416                         | 02               042967                   0175    1426                         | 02               042967                   0175    3313                         |
 02               042967                   0175    1491                         | 02               042967                   0175    1555                         | 02               042967                   0175    1503                         |
 02               042967                   0175    1659                         | 02               042967                   0175    1625                         | 02               042967                   0175    1631                         |
 02               042967                   0175    1492                         | 02               042967                   0175    6200                         | 02               042967                   0175    5850                         |
 02               042967                   0175    6318                         | 02               042967                   0175    1510                         | 02               042967                   0175    1632                         |
 02               042967                   0175    1425                         | 02               042967                   0175    1502                         | 02               042967                   0175    1402                         |
 02               042967                   0175    1611                         | 02               042967                   0175    6357                         | 02               042967                   0175    1569                         |
 02               042967                   0350    1644                         | 02               042967                   0175    8094                         | 03               042967                   0125    2028                         |
 03               042967                   0125    1896                         | 03               042967                   0125    1820                         | 03               042967                   0125    1918                         |
 03               042967                   0125    2041                         | 03               042967                   0125    2101                         | 03               042967                   0125    2058                         |
 03               042967                   0125    5290                         | 03               042967                   0250    2023                         | 03               042967                   0250    2064                         |
 03               042967                   0125    1875                         | 03               042967                   0125    8098                         | 03               042967                   0125    1911                         |
 03               042967                   0125    1944                         | 03               042967                   0125    8097                         | 03               042967                   0125    8318                         |
 03               042967                   0250    1981                         | 03               042967                   0125    2143                         | 03 G             042967                   0125    2143                        -|
 03               042967                   0125    2117                         | 03 G             042967                   0125    2117                        -| 03               042967                   0125    1920                         |
 03               042967                   0125    1842                         | 03               042967                   0125    1863                         | 03               042967                   0125    1968                         |
 03               042967                   0250    2059                         | 03               042967                   0125    1848                         | 03               042967                   0125    1934                         |
 03               042967                   0250    1227                         | 03               042967                   0375    1942                         | 03               042967                   0125    1855                         |
 03               042967                   0125    5844                         | 03               042967                   0125    1938                         | 03               042967                   0125    2093                         |
 03               042967                   0250    1850                         | 03               042967                   0125    2024                         | 03               042967                   0125    1864                         |
 03               042967                   0175    1954                         | 03               042967                   0175    1820                         | 03               042967                   0175    4686                         |
 03               042967                   0175    2049                         | 03               042967                   0175    1992                         | 03               042967                   0175    1855                         |
 03               042967                   0175    2058                         | 03               042967                   0175    1922                         | 03               042967                   0175    8098                         |
 03               042967                   0175    1967                         | 03               042967                   0175    5258                         | 03               042967                   0175    2070                         |
 03               042967                   0175    1980                         | 03               042967                   0175    1842                         | 03               042967                   0175    6150                         |
 03               042967                   0175    6178                         | 03               042967                   0175    1827                         | 03               042967                   0175    1996                         |
 03               042967                   0175    1825                         | 03               042967                   0175    1918                         | 03               042967                   0175    1875                         |
 03               042967                   0175    1863                         | 03               042967                   0175    1968                         | 03               042967                   0175    1879                         |
 03               042967                   0175    1927                         | 03               042967                   0175    2015                         | 03               042967                   0175    2000                         |
 03               042967                   0175    6457                         | 03               042967                   0175    5844                         | 03               042967                   0175    2059                         |
 03               042967                   0175    1864                         | 03               042967                   0175    1911                         | 03               042967                   0175    8097                         |
 03               042967                   0175    2028                         | 03               042967                   0175    1896                         | 03               042967                   0175    2041                         |
 03               042967                   0175    1846                         | 03               042967                   0350    2064                         | 03               042967                   0175    1895                         |
 03               042967                   0175    1851                         | 03               042967                   0175    1965                         | 04 G             042967                   0175    2434                        -|
 04 G             042967                   0175    2352                        -| 04 G             042967                   0175    2330                        -| 04 G             042967                   0175    6426                        -|
 04 G             042967                   0175    5759                        -| 04 G             042967                   0175    2243                        -| 04 G             042967                   0175    2197                        -|
 04 G             042967                   0175    2264                        -| 04 G             042967                   0175    2279                        -| 04 G             042967                   0175    2453                        -|
 04               042967                   0175    2526                         | 04 G             042967                   0175    2526                        -| 04 G             042967                   0175    2432                        -|
 04 G             042967                   0350    2193                        -| 04 G             042967                   0175    2312                        -| 04 G             042967                   0175    2376                        -|
 04 G             042967                   0175    2390                        -| 04 G             042967                   0175    2270                        -| 04 G             042967                   0175    2195                        -|
 04 G             042967                   0175    2309                        -| 04 G             042967                   0175    5815                        -| 04 G             042967                   0175    2320                        -|
 04 G             042967                   0175    2351                        -| 04 G             042967                   0175    6098                        -| 04 G             042967                   0175    2344                        -|
 04 G             042967                   0175    2315                        -| 04 G             042967                   0175    2289                        -| 04 G             042967                   0175    2433                        -|
 04 G             042967                   0175    2319                        -| 04 G             042967                   0175    2252                        -| 04 G             042967                   0175    2397                        -|
 04 G             042967                   0175    6680                        -| 04 G             042967                   0175    5900                        -| 04 G             042967                   0175    6028                        -|
 04 G             042967                   0175    2188                        -| 04 G             042967                   0175    2341                        -| 04 G             042967                   0175    2295                        -|
 04 G             042967                   0175    2194                        -| 04 G             042967                   0175    8102                        -| 04               042967                   0175    8102                         |
 04 G             042967                   0175    2224                        -| 04 G             042967                   0175    6065                        -| 04 G             042967                   0175    2670                        -|
 04 G             042967                   0175    2358                        -| 04               042967                   0175    2541                         | 04 G             042967                   0525    2541                        -|
 04 G             042967                   0175    6322                        -| 04 G             042967                   0175    2210                        -| 05               042967                   0085    6030                         |
 05               042967                   0125    2628                         | 05               042967                   0125    2663                         | 05               042967                   0125    2730                         |
 05               042967                   0125    2700                         | 05               042967                   0125    5903                         | 05               042967                   0125    2767                         |
 05               042967                   0125    6030                         | 05               042967                   0125    2785                         | 05               042967                   0125    2733                         |
 05               042967                   0125    2724                         | 05               042967                   0125    2868                         | 05               042967                   0125    2871                         |
 05               042967                   0125    2808                         | 05               042967                   0125    2771                         | 05               042967                   0125    2823                         |
 05               042967                   0375    2766                         | 05               042967                   0125    2705                         | 05               042967                   0125    2676                         |
 05 G             042967                   0125    2853                        -| 05               042967                   0125    2853                         | 05               042967                   0125    2908                         |
 05               042967                   0125    2744                         | 05               042967                   0125    2604                         | 05               042967                   0125    2802                         |
 05               042967                   0125    2928                         | 05               042967                   0125    2652                         | 05               042967                   0125    2582                         |
 05               042967                   0125    2764                         | 05               042967                   0125    2194                         | 05               042967                   0125    2747                         |
 05               042967                   0125    2824                         | 05               042967                   0175    5978                         | 05               042967                   0175    2741                         |
 05               042967                   0175    8111                         | 05               042967                   0175    2611                         | 05               042967                   0175    6730                         |
 05               042967                   0175    2934                         | 05               042967                   0175    4219                         | 05               042967                   0175    2802                         |
 05               042967                   0175    2823                         | 05               042967                   0175    6375                         | 05               042967                   0350    2634                         |
 05               042967                   0175    2928                         | 05               042967                   0175    2724                         | 05               042967                   0175    2821                         |
 05               042967                   0175    2820                         | 05               042967                   0175    2824                         | 05               042967                   0175    2747                         |
 05               042967                   0175    2614                         | 05               042967                   0175    2582                         | 05               042967                   0175    2653                         |
 05               042967                   0175    2628                         | 05               042967                   0175    8110                         | 05               042967                   0175    2663                         |
 05               042967                   0175    2652                         | 05               042967                   0175    2746                         | 05               042967                   0175    2810                         |
 06               042967                   0085    3236                         | 06               042967                   0125    3273                         | 06               042967                   0125    3218                         |
 06               042967                   0125    3213                         | 06               042967                   0125    3255                         | 06               042967                   0125    3282                         |
 06 G             042967                   0125    3179                        -| 06               042967                   0125    2390                         | 06               042967                   0125    3052                         |
 06               042967                   0125    2994                         | 06               042967                   0125    3105                         | 06 G             042967                   0125    3663                        -|
 06               042967                   0125    2986                         | 06               042967                   0125    2984                         | 06               042967                   0125    6708                         |
 06               042967                   0125    3101                         | 06               042967                   0125    3077                         | 06               042967                   0125    3029                         |
 06               042967                   0125    6601                         | 06 G             042967                   0125    8138                        -| 06               042967                   0125    8316                         |
 06               042967                   0125    6718                         | 06               042967                   0125    4686                         | 06               042967                   0125    1657                         |
 06 G             042967                   0175    8112                        -| 06               042967                   0175    8115                         | 06               042967                   0175    3273                         |
 06               042967                   0175    8112                         | 06               042967                   0175    8114                         | 06               042967                   0175    3044                         |
 06               042967                   0175    3039                         | 06               042967                   0175    7703                         | 06               042967                   0175    7728                         |
 06               042967                   0175    6601                         | 06               042967                   0175    2986                         | 06               042967                   0175    3099                         |
 06               042967                   0175    2994                         | 06               042967                   0175    3080                         | 06               042967                   0350    3054                         |
 06               042967                   0175    3032                         | 06               042967                   0175    3024                         | 06               042967                   0175    1657                         |
 06               042967                   0175    3110                         | 06               042967                   0175    3062                         | 06               042967                   0175    3974                         |
 06               042967                   0175    3052                         | 12               042967                   0125    3388                         | 12               042967                   0125    3653                         |
 12               042967                   0125    4739                         | 12               042967                   0125    3725                         | 12               042967                   0125    3716                         |
 12               042967                   0125    1320                         | 12               042967                   0125    3589                         | 12               042967                   0125    3675                         |
 12               042967                   0125    3660                         | 12               042967                   0125    3614                         | 12               042967                   0125    3333                         |
 12               042967                   0125    6627                         | 12               042967                   0125    3530                         | 12               042967                   0125    3357                         |
 12               042967                   0125    3329                         | 12 G             042967                   0125    3653                        -| 12               042967                   0125    3395                         |
 12               042967                   0125    7779                         | 12 G             042967                   0500    3716                        -| 12               042967                   0125    3485                         |
 12               042967                   0125    3387                         | 12               042967                   0125    5899                         | 12               042967                   0125    6695                         |
 12               042967                   0125    3318                         | 12 G             042967                   0125    3675                        -| 12               042967                   0375    6306                         |
 12               042967                   0125    3554                         | 12               042967                   0125    3451                         | 12               042967                   0125    3365                         |
 12               042967                   0250    3374                         | 12               042967                   0125    6711                         | 12               042967                   0175    3589                         |
 12               042967                   0175    8120                         | 12               042967                   0175    8117                         | 12               042967                   0175    3524                         |
 12               042967                   0175    3396                         | 12               042967                   0175    3500                         | 12               042967                   0175    3451                         |
 12               042967                   0175    3489                         | 12               042967                   0175    3364                         | 12               042967                   0175    7841                         |
 12               042967                   0175    3499                         | 12               042967                   0175    3482                         | 12               042967                   0350    5899                         |
 12               042967                   0175    3531                         | 12               042967                   0175    3398                         | 12               042967                   0175    3549                         |
 12               042967                   0175    3387                         | 12               042967                   0175    3457                         | 12               042967                   0175    3528                         |
 12               042967                   0175    3388                         | 12               042967                   0175    3498                         | 12               042967                   0175    3530                         |
 12               042967                   0175    7779                         | 12               042967                   0175    3301                         | 12               042967                   0175    3488                         |
 12               042967                   0175    3395                         | 12               042967                   0350    3514                         | 12               042967                   0175    6627                         |
 12               042967                   0175    3384                         | 12               042967                   0175    3355                         | 12               042967                   0175    3333                         |
 07               042967                   0085    3912                         | 07               042967                   0125    3791                         | 07               042967                   0125    4072                         |
 07 G             042967                   0125    8124                        -| 07               042967                   0125    8123                         | 07               042967                   0125    3849                         |
 07               042967                   0000    9427                         | 07               042967                   0125    3850                         | 07               042967                   0125    3828                         |
 07               042967                   0125    3914                         | 07               042967                   0125    4059                         | 07               042967                   0125    2385                         |
 07               042967                   0250    3783                         | 07               042967                   0125    4130                         | 07               042967                   0125    4000                         |
 07               042967                   0625    3911                         | 07               042967                   0125    6422                         | 07 G             042967                   0875    4127                        -|
 07               042967                   0125    4127                         | 07               042967                   0125    3786                         | 07 G             042967                   0250    8126                        -|
 07               042967                   0125    3958                         | 07               042967                   0125    2073                         | 07               042967                   0125    4011                         |
 07               042967                   0125    3974                         | 07               042967                   0125    2453                         | 07               042967                   0175    3914                         |
 07               042967                   0175    3763                         | 07               042967                   0175    4005                         | 07               042967                   0175    8123                         |
 07               042967                   0175    4039                         | 07               042967                   0525    6655                         | 07               042967                   0175    3991                         |
 07               042967                   0175    3786                         | 07               042967                   0175    3318                         | 07               042967                   0175    3941                         |
 07               042967                   0175    8125                         | 07               042967                   0175    8124                         | 07 G             042967                   0175    8126                        -|
 07               042967                   0175    8126                         | 07               042967                   0175    4088                         | 07 G             042967                   0350    4088                        -|
 07               042967                   0175    2861                         | 07               042967                   0175    3911                         | 07               042967                   0175    6378                         |
 07               042967                   0175    5790                         | 07               042967                   0175    3933                         | 07               042967                   0175    3853                         |
 07               042967                   0175    4006                         | 07               042967                   0175    3887                         | 07               042967                   0175    3892                         |
 07               042967                   0175    2073                         | 07               042967                   0175    4011                         | 07               042967                   0175    3771                         |
 07               042967                   0175    6441                         | 08               042967                   0085    6204                         | 08               042967                   0085    6204                         |
 08               042967                   0085    6204                         | 08               042967                   0085    4546                         | 08               042967                   0125    8130                         |
 08               042967                   0125    8132                         | 08               042967                   0125    8127                         | 08               042967                   0128    8131                         |
 08               042967                   0125    4318                         | 08               042967                   0125    4233                         | 08               042967                   0125    8183                         |
 08               042967                   0125    4156                         | 08               042967                   0125    4502                         | 08               042967                   0125    4546                         |
 08               042967                   0125    4262                         | 08               042967                   0125    4244                         | 08               042967                   0125    3771                         |
 08               042967                   0125    2280                         | 08               042967                   0125    4426                         | 08               042967                   0125    2266                         |
 08               042967                   0125    4164                         | 08               042967                   0125    2276                         | 08               042967                   0125    4217                         |
 08               042967                   0125    4487                         | 08               042967                   0125    4565                         | 08               042967                   0125    4225                         |
 08               042967                   0125    4294                         | 08               042967                   0125    4195                         | 08               042967                   0125    4224                         |
 08               042967                   0125    4360                         | 08               042967                   0125    4529                         | 08               042967                   0125    4268                         |
 08               042967                   0125    4465                         | 08               042967                   0250    4428                         | 08               042967                   0125    4198                         |
 08               042967                   0125    4327                         | 08               042967                   0125    4290                         | 08               042967                   0125    4286                         |
 08               042967                   0125    4204                         | 08               042967                   0125    4243                         | 08               042967                   0125    4279                         |
 08               042967                   0125    8174                         | 08               042967                   0125    4372                         | 08               042967                   0125    4185                         |
 08               042967                   0175    4185                         | 08               042967                   0175    4502                         | 08               042967                   0175    4546                         |
 08               042967                   0175    6774                         | 08               042967                   0175    8130                         | 08               042967                   0175    4422                         |
 08               042967                   0175    4260                         | 08               042967                   0175    4164                         | 08               042967                   0175    4285                         |
 08               042967                   0175    5859                         | 08               042967                   0175    4234                         | 08               042967                   0175    5862                         |
 08               042967                   0175    8140                         | 08               042967                   0175    4170                         | 08               042967                   0175    4209                         |
 08               042967                   0175    4351                         | 08               042967                   0175    4267                         | 08               042967                   0175    4318                         |
 08               042967                   0175    4195                         | 08               042967                   0175    4268                         | 08               042967                   0175    4278                         |
 08               042967                   0175    4151                         | 08               042967                   0175    4241                         | 08               042967                   0175    4345                         |
 08               042967                   0175    4340                         | 08               042967                   0175    4217                         | 08               042967                   0175    4293                         |
 08               042967                   0175    4373                         | 08               042967                   0175    4426                         | 08               042967                   0175    4222                         |
 08               042967                   0175    4279                         | 08               042967                   0175    4205                         | 08               042967                   0175    6356                         |
 08               042967                   0175    4286                         | 08               042967                   0175    4244                         | 10               042967                   0085    4617                         |
 10               042967                   0085    4753                         | 10               042967                   0085    4693                         | 10               042967                   0050    6118                         |
 10               042967                   0125    5016                         | 10               042967                   0125    4878                         | 10               042967                   0125    4266                         |
 10               042967                   0125    6115                         | 10               042967                   0125    4820                         | 10               042967                   0125    4588                         |
 10               042967                   0125    1824                         | 10               042967                   0125    4943                         | 10               042967                   0125    6670                         |
 10               042967                   0125    6468                         | 10               042967                   0125    4898                         | 10               042967                   0125    4855                         |
 10               042967                   0125    4893                         | 10               042967                   0125    4897                         | 10               042967                   0125    4733                         |
 10               042967                   0125    4596                         | 10               042967                   0125    4641                         | 10               042967                   0125    4885                         |
 10               042967                   0125    2838                         | 10               042967                   0125    4971                         | 10               042967                   0125    4626                         |
 10               042967                   0125    4757                         | 10               042967                   0125    4640                         | 10               042967                   0125    4907                         |
 10               042967                   0125    4955                         | 10               042967                   0125    4915                         | 10               042967                   0125    4611                         |
 10               042967                   0125    5024                         | 10               042967                   0125    2892                         | 10               042967                   1125    5024                         |
 10               042967                   0125    4754                         | 10               042967                   0125    4642                         | 10               042967                   0125    4639                         |
 10               042967                   0125    4980                         | 10 G             042967                   0250    4980                        -| 10 G             042967                   0125    2111                        -|
 10               042967                   0125    4931                         | 10               042967                   0125    4737                         | 10               042967                   0375    4607                         |
 10               042967                   0125    4618                         | 10               042967                   0125    4796                         | 10               042967                   0175    4898                         |
 10               042967                   0350    5991                         | 10               042967                   0175    2838                         | 10               042967                   0175    4698                         |
 10               042967                   0175    4687                         | 10               042967                   0175    4843                         | 10               042967                   0175    8138                         |
 10               042967                   0175    7662                         | 10               042967                   0175    7655                         | 10               042967                   0175    4798                         |
 10               042967                   0175    4796                         | 10 G             042967                   0175    8119                        -| 10               042967                   0175    4893                         |
 10               042967                   0175    4855                         | 10               042967                   0175    4733                         | 10               042967                   0175    7691                         |
 10               042967                   0350    7723                         | 10               042967                   0175    4735                         | 10               042967                   0175    7688                         |
 10               042967                   0175    4633                         | 10               042967                   0175    4648                         | 10               042967                   0175    4641                         |
 10               042967                   0175    4669                         | 10               042967                   0175    4885                         | 10               042967                   0175    4588                         |
 10               042967                   0175    6634                         | 10               042967                   0175    6468                         | 10               042967                   0175    7672                         |
 10               042967                   0175    7663                         | 10               042967                   0175    4684                         | 10               042967                   0175    4878                         |
 10               042967                   0350    4605                         | 10               042967                   0175    4753                         | 10               042967                   0175    6115                         |
 10               042967                   0175    4852                         | 10               042967                   0175    4618                         | 10               042967                   0175    4642                         |
 10               042967                   0175    6518                         | 10               042967                   0175    4892                         | 11               042967                   0175    9551                         |
 11               042967                   0125    5391                         | 11               042967                   0125    5418                         | 11               042967                   0125    5371                         |
 11               042967                   0125    5374                         | 11               042967                   0125    5358                         | 11               042967                   0125    8139                         |
 11               042967                   0125    5252                         | 11               042967                   0125    5215                         | 11               042967                   0125    5180                         |
 11 G             042967                   0250    5418                        -| 11               042967                   0375    5167                         | 11               042967                   0125    5160                         |
 11               042967                   0125    2741                         | 11               042967                   0125    5261                         | 11               042967                   0125    5130                         |
 11               042967                   0250    5156                         | 11               042967                   0125    5210                         | 11               042967                   0125    5258                         |
 11               042967                   0125    5207                         | 11               042967                   0125    5111                         | 11               042967                   0125    5207                         |
 11               042967                   0175    5397                         | 11               042967                   0175    6451                         | 11               042967                   0175    6329                         |
 11               042967                   0175    5261                         | 11               042967                   0175    5121                         | 11               042967                   0175    5128                         |
 11               042967                   0175    6078                         | 11               042967                   0175    6269                         | 11               042967                   0175    5958                         |
 11               042967                   0175    5057                         | 11               042967                   0175    5111                         | 11               042967                   0175    5212                         |
 11               042967                   0175    5239                         | 11               042967                   0175    5169                         | 11               042967                   0175    5172                         |
 11               042967                   0175    5130                         | 11               042967                   0175    5099                         | 11               042967                   0175    5060                         |
 11               042967                   0175    5184                         | 11 G             042967                   0175    5397                        -| 11               042967                   0175    5210                         |
 11               042967                   0175    5114                         | 11               042967                   0175    5126                         | 09 G             042967                   0125    5504                        -|
 09 G             042967                   0125    5545                        -| 09 G             042967                   0125    5488                        -| 09 G             042967                   0125    5499                        -|
 09 G             042967                   0125    5449                        -| 09               042967                   0125    5726                         | 09               042967                   0125    5704                         |
 09               042967                   0125    8146                         | 09               042967                   0125    5730                         | 09 G             042967                   0250    5730                        -|
 09               042967                   0125    5662                         | 09               042967                   0125    5734                         | 09               042967                   0125    5702                         |
 09 G             042967                   0125    5496                        -| 09 G             042967                   0125    5523                        -| 09 G             042967                   0125    5546                        -|
 09 G             042967                   0125    5447                        -| 09 G             042967                   0125    5465                        -| 09 G             042967                   0125    5581                        -|
 09 G             042967                   0500    5550                        -| 09 G             042967                   0125    5519                        -| 09 G             042967                   0125    5474                        -|
 09 G             042967                   0125    5487                        -| 09 G             042967                   0125    5608                        -| 09 G             042967                   0125    5554                        -|
 09 G             042967                   0125    5490                        -| 09 G             042967                   0125    5495                        -| 09 G             042967                   0125    5549                        -|
 09 G             042967                   0125    5446                        -| 09 G             042967                   0125    5591                        -| 09 G             042967                   0125    5537                        -|
 09 G             042967                   0125    5556                        -| 09 G             042967                   0125    5485                        -| 09 G             042967                   0125    5589                        -|
 09 G             042967                   0125    5517                        -| 09 G             042967                   0125    5630                        -| 09 G             042967                   0125    4870                        -|
 09 G             042967                   0125    5532                        -| 09 G             042967                   0125    3396                        -| 09 G             042967                   0125    5864                        -|
 09 G             042967                   0125    6195                        -| 09 G             042967                   0125    5456                        -| 09 G             042967                   0175    5478                        -|
 09 G             042967                   0175    5523                        -| 09 G             042967                   0175    5584                        -| 09 G             042967                   0175    5551                        -|
 09 G             042967                   0175    6575                        -| 09 G             042967                   0175    6195                        -| 09 G             042967                   0175    5587                        -|
 09 G             042967                   0175    5499                        -| 09 G             042967                   0175    6569                        -| 09 G             042967                   0175    6690                        -|
 09 G             042967                   0175    5453                        -| 09 G             042967                   0175    5537                        -| 09 G             042967                   0175    5581                        -|
 09 G             042967                   0175    5586                        -| 09 G             042967                   0175    5506                        -| 09 G             042967                   0175    5504                        -|
 09 G             042967                   0175    5591                        -| 09 G             042967                   0175    5532                        -| 09 G             042967                   0175    5488                        -|
 09 G             042967                   0175    5497                        -| 09 G             042967                   0175    6350                        -| 09 G             042967                   0175    5449                        -|
 09 G             042967                   0175    5496                        -| 09 G             042967                   0175    5608                        -| 09 G             042967                   0175    5534                        -|
 09 G             042967                   0175    5474                        -| 09 G             042967                   0175    5476                        -| 09 G             042967                   0175    5530                        -|
 09 G             042967                   0175    5589                        -| 09 G             042967                   0175    5573                        -| 09 G             042967                   0175    5569                        -|
 09 G             042967                   0175    5487                        -| 09 G             042967                   0175    5556                        -| 09 G             042967                   0175    5579                        -|
 09 G             042967                   0175    5552                        -| 09 G             042967                   0175    5519                        -| 09 G             042967                   0175    5546                        -|
 09 G             042967                   0175    5447                        -| 09 G             042967                   0175    5495                        -| 09 G             042967                   0175    6004                        -|
 09 G             042967                   0175    5619                        -| 09 G             042967                   0175    5576                        -| 09 G             042967                   0175    5864                        -|
 09 G             042967                   0175    5554                        -| 09 G             042967                   0175    5635                        -| 09 G             042967                   0175    5446                        -|
 09 G             042967                   0175    5549                        -| 09 G             042967                   0175    5620                        -| 09 G             042967                   0175    5491                        -|
 09 G             042967                   0175    5542                        -| 09 G             042967                   0175    5617                        -| 09 G             042967                   0175    5490                        -|
 09 G             042967                   0175    5517                        -| 09 G             042967                   0175    5550                        -| 09 G             042967                   0175    5541                        -|
 09 G             042967                   0175    1205                        -| 09 G             042967                   0175    5458                        -| 09 G             042967                   0175    5485                        -|
 09 G             042967                   0175    5456                        -| 22 G             042967                   0125    7354                        -| 22               042967                   0125    7382                         |
 22 G             042967                   0125    7308                        -| 22 G             042967                   0125    7184                        -| 22 G             042967                   0125    7093                        -|
 22 G             042967                   0125    7129                        -| 22               042967                   0125    8363                         | 22               042967                   0125    8367                         |
 22               042967                   0175    8057                         | 22 G             042967                   0175    9503                        -| 22 G             042967                   0175    7308                        -|
 22 G             042967                   0175    7354                        -| 22               042967                   0175    8363                         | 22 G             042967                   0175    8363                        -|
 22 G             042967                   0175    7323                        -| 22 G             042967                   0175    7117                        -| 22               042967                   0175    8004                         |
 22 G             042967                   0175    7129                        -| 22 G             042967                   0175    7184                        -| 23               042967                   0085    7887                         |
 23               042967                   0125    6966                         | 23               042967                   0125    7081                         | 23               042967                   0125    8111                         |
 23               042967                   0085    6881                         | 23               042967                   0175    7887                         | 23               042967                   0175    6966                         |
 23               042967                   0175    6851                         | 24 G             042967                   0095    7393                        -| 24 G             042967                   0050    7484                        -|
 24 G             042967                   0100    7586                        -| 24 G             042967                   0025    7555                        -| 24 G             042967                   0075    7477                        -|
 24 G             042967                   0020    7545                        -| 24 G             042967                   0065    3088                        -| 24 G             042967                   0080    7510                        -|
 24 G             042967                   0100    8319                        -| 24 G             042967                   0105    7446                        -| 24 G             042967                   0175    7545                        -|
 24 G             042967                   0175    7469                        -| 24 G             042967                   0175    7462                        -| 24 G             042967                   0175    7452                        -|
 24 G             042967                   0175    7446                        -| 24 G             042967                   0175    7436                        -| 24 G             042967                   0175    7555                        -|
 24 G             042967                   0175    7510                        -| 24 G             042967                   0175    7512                        -| 24 G             042967                   0175    7414                        -|
 24 G             042967                   0175    7493                        -| 24 G             042967                   0175    7590                        -| 24 G             042967                   0175    7546                        -|
 24 G             042967                   0525    7502                        -| 24 G             042967                   0175    7410                        -| 25               042967                   0085    7669                         |
 25               042967                   0085    7676                         | 25               042967                   0085    7832                         | 25               042967                   0085    8241                         |
 25               042967                   0085    8247                         | 25               042967                   0125    7854                         | 25               042967                   0125    8246                         |
 25               042967                   0375    7706                         | 25               042967                   0125    7669                         | 25               042967                   0125    7801                         |
 25               042967                   0125    8147                         | 25               042967                   0125    7639                         | 25               042967                   0125    7693                         |
 25               042967                   0125    7698                         | 25               042967                   0125    7664                         | 25               042967                   0125    8213                         |
 25               042967                   0125    7795                         | 25               042967                   0125    7723                         | 25               042967                   0125    7701                         |
 25               042967                   0125    7684                         | 25               042967                   0125    6851                         | 25               042967                   0125    8214                         |
 25               042967                   0375    7775                         | 25               042967                   0125    7843                         | 25               042967                   0125    7778                         |
 25               042967                   0125    7924                         | 21               042967                   0125    8125                         | 21               042967                   0125    6730                         |
 21               042967                   0125    5793                         | 21               042967                   0125    5991                         | 21               042967                   0125    5991                         |
 21               042967                   0375    6344                         | 21               042967                   0125    6740                         | 21               042967                   0125    6192                         |
 21               042967                   0125    5759                         | 21               042967                   0125    6347                         | 21               042967                   0125    6164                         |
 21               042967                   0125    5874                         | 21               042967                   0125    6118                         | 21               042967                   0125    6617                         |
 21               042967                   0125    3912                         | 21               042967                   0125    6098                         | 21               042967                   0125    6680                         |
 21               042967                   0125    5958                         | 21               042967                   0125    5756                         | 21               042967                   0625    5949                         |
 21               042967                   0375    6333                         | 21               042967                   0250    5948                         | 21               042967                   0175    8104                         |
 21               042967                   0175    8134                         | 21               042967                   0175    8105                         | 21               042967                   0175    6657                         |
 21               042967                   0175    5873                         | 21               042967                   0175    6399                         | 21               042967                   0175    6237                         |
 21               042967                   0175    6118                         | 21               042967                   0350    6503                         | 21               042967                   0175    5756                         |
 21               042967                   0175    6346                         | 21               042967                   0175    6747                         | 21               042967                   0175    6347                         |
 21               042967                   0175    6740                         | 21               042967                   0175    6506                         | 21               042967                   0175    6670                         |
 21               042967                   0350    5465                         | 21               042967                   0175    5881                         | 35               042967                   0100    8050                         |
 35               042967                   0085    7995                         | 35               042967                   0115    8002                         | 35               042967                   0125    7383                         |
 35               042967                   0125    8010                         | 35               042967                   0135    8006                         | 35               042967                   0100    7989                         |
 35               042967                   0100    7997                         | 35               042967                   0130    8000                         | 35               042967                   0115    7990                         |
 35               042967                   0115    8007                         | 35               042967                   0130    7993                         | 35               042967                   0045    8011                         |
 35               042967                   0150    7994                         | 22               030867                   0175    8168                         | 02               030967                   0175    3270                         |
 50 G             032067                   0150    1511                        -| 28               032067                   0075    9082                         | 28               032067                   0055    8899                         |
 28               032067                   0090    8705                         | 25               032867                   0125    5391                         | 21 G             032967                   0075    3286                        -|
 21 G             033067                   0075    3286                        -| 21 G             033167                   0085    3286                        -| 12               040367                   0175    3729                         |
 10               040367                   0175    5048                         | 12 G             040467                   0125    3636                        -| 12               040467                   0125    3636                         |
 02               040667                   0175    9550                         | 02               040667                   0175    3270                         | 08               040667                   0175    4573                         |
 24 G             040767                   0080    7548                        -| 10               041067                   0175    9600                         | 10               041067                   0175    9602                         |
 25               041167                   0125    2132                         | 09               041167                   0125    5651                         | 50 G             041367                   0715    5378                        -|
 50 G             041367                   0000    9455                        -| 09               041367                   0125    5651                         | 02               041367                   0175    1808                         |
 02 G             041367                   0175    1808                        -| 02               041367                   0175    9551                         | 07               041467                   0175    8125                         |
 02               041567                   0125    9551                         | 02 G             041567                   0125    9551                        -| 06               041567                   0085    3236                         |
 06               041567                   0085    6600                         | 13               041767                   0020    7586                         | 25               041867                   0000    9445                         |
 11               041967                   0175    5444                         | 01               042067                   0125    1375                         | 01               042067                   0125    1376                         |
 08               042067                   0175    4574                         | 09               042067                   0175    5652                         | 07               042167                   0000    9459                         |
 50 G             042167                   0165    2001                        -| 13               042267                   0140    7461                         | 01               042467                   0175    1375                         |
 10               042467                   0175    9601                         | 12               042467                   0125    5730                         | 50               042767                   0000    9427                         |
 50 G             042767                   0610    9425                        -| 50               042767                   0000    9428                         |                                                                                |
