 CLEAR 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
