 CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
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
  108         81     DC    @}@                GROUP MARK WITHOUT WORD MARK          1  0081                       5
  109  1 09          ORG   100                                                                0100
  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
  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
  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
  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
  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
  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

  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
  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
  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
  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
  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
  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
  191  1 69   0089   DCW   @   @                                                    3  0089                      18
  192  1 70   X2     EQU   0094                                                        0094
  193  1 71   0094   DCW   @   @                                                    3  0094                      19
  194  1 72   X3     EQU   0099                                                        0099
  195  1 73   0099   DCW   @   @                                                    3  0099                      20
  196  1 74   *                   GET RECORD ROUTINE
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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

  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  583  5 681  3942   DCW   #4                                                       4  3942                      84
  584  5 682  XHOLD  EQU   3942                                                        3942
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  703  6 77   RECRD2 DA    1X171,|                                                     3347   3518              104
  704  6 78   PAR          96                                                          3442              SBFLD
                     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
  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
  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
  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
                     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
  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
                     DC    @|@                                                      1  3776              RMARK  111
  740  7 42   OPER   EQU   RECORD&18                                                   3623
  741         SAVLOC ORG   RECORD&15                                                   3777   3620
  742                DCW   @JOB  @                                                  5  3624                     112
  743                ORG   SAVLOC                                                             3777
  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
  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
  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
  768  7 27   DMOD   DC    @ @                                                      1  3838                     116
  769  7 28   PERCNT DCW   @%@                                                      1  3839                     116
  770  7 43   3998   DCW   @}@                                                      1  3998                     117
  771  7 431  ORGA   ORG   3587                                                        3840   3587
  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
  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
  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
         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
         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
                           @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
                           @  @                                                     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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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

  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
 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
 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
 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
 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

 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 1271         CLEARX CW    PARAMT&60                                                4  2901  ) G60              198
 1272                B     PUT                                                      4  2905  B T83              198
 1273                ORG   2601                                                               2601
 1274         LOADXX LCA   XLIMIT,15                                                7  2601  L O55 015          199
 1275                B     LOAD                                                     4  2608  B 100              199
 1276         2655   DSA   1053                                                     3  2655  |53                200
 1277         XLIMIT EQU   2655                                                        2655
 1278                ORG   2701                                                               2701
 1279         PUTYYY SW    RECORD                                                   4  2701  , F05              201
 1280                B     PUT                                                      4  2705  B T83              201
 1281                ORG   ORGB                                                               2443
         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
                           @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
         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
         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
                           @*@                                                      1  2540              LIT    206
                           @S@                                                      1  2541              LIT    206
 1282                EX    SYSTEM                                                            B 167              207
 1283 11 30          END   SYSTEM                                                            / 167 080          210
1CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
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
  113    12   CHECK  DCW   @ @                                                      1  0082                       5
  114    13          DCW   @  }@                                                    3  0085                       5
  115    14   X1     EQU   89                                                          0089
  116    15   0089   DCW   @000@                                                    3  0089                       6
  117    16   X2     EQU   94                                                          0094
  118    17   0094   DCW   @000@                                                    3  0094                       7
  119    18   X3     EQU   99                                                          0099
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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         *
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
                     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
  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
                     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
  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
  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
  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
                     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
                           @?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
         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
                           @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
                           @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
  649  5 66   LABTBL DC    @         @                                              9  2813                      88
  650  5 67   3998   DCW   @}@                                                      1  3998                      89
  651  5 68   *
  652                ORG   3889                                                               3889
  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
  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
  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   *
  676         2802   DCW   @}@                                                      1  2802                      96
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
         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
         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
  899  8 613         DCW   @}@                                                      1  2757                     136
  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
  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
  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
  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
  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
  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
  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

  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 1209 12 10          DCW   #1                                                       1  2757                     189
 1210 12 11          LTORG HOLDZN&1                                                           2715
         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
         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
                           @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
                           @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
                           @ @                                                      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
                           @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
 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
 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
 1222                B     TLUFST&8                                                 4  1961  B L93              198
 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
 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
 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
 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
 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
 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

 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
 1278 12 69   HIGH5  DCW   @}@                                                      1  0580                     209
 1279 12 70          H                                                              1  0581  .                  209
 1280 12 71          ORG   HIGH1                                                              2757
 1281 12 72          DCW   @|@                                                      1  2757                     210
 1282 12 73          ORG   HIGH3&1                                                            2802
 1283 12 74          DCW   #1                                                       1  2802                     211
 1284 12 75          EX    SYSTEM                                                            B 167              212
 1285 12 76          END   SYSTEM                                                            / 167 080          215
1CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
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
  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
  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         *
  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
  136         0089   DCW   @000@                                                    3  0089                       8
  137         X2     EQU   94                                                          0094
  138         0094   DCW   @000@                                                    3  0094                       9
  139         X3     EQU   99                                                          0099
  140         0099   DCW   @000@                                                    3  0099                      10
  141         *
  142         *                        PHASE 8 IDENTIFICATION AT 0333
  143         *
  144                ORG   333                                                                0333
  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
  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
  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
  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
  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
  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
  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
  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
  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
                           @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         *
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  295         TITLE  DCW   @SYMBOL TABLE|@                                         13  1113                      34
  296         *
  297                ORG   *&X00                                                              1200
  298         LINE   DA    1X132,X2,|,C                                                1200   1332               38
                     DC    @|@                                                      1  1332              RMARK   39
  299         *
  300         AREA   DA    1X180                                                       1333   1512               39
  301         *
  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
  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
  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
  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
  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
  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
  340                B     ENDPH8                                                   4  1715  B 338               46
  341                H                                                              1  1719  .                   46
  342                DCW   @,008015,019026,030,034041,045,053,057057@              40  1759                      48
  343         BOOT1  DC    @1026                                    @              40  1799                      50
  344                DCW   @L068112,102106,113/101099/I99,027A070028@              40  1839                      52
  345         BOOT2  DC    @)027B0010270B0261,001/001113I0          @              40  1879                      54
  346                DCW   @,008015,022029,036040,047054,061068,072/@              40  1919                      56
  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
         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
                           @&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
         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
  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
  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
  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
  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         *
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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

  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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         *
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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

  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
  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
  770         SETIN  NOP   @?0@                                                     4  2833  N B97              129
  771                ORG   SETIN                                                              2833
  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
  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
  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
  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
  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
                     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
  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
                     DC    @|@                                                      1  3157              RMARK  137
  818         *
  819                ORG   RECORD&1                                                           2987
  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
  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
                     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
                           @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
         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
                           @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
         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
                           @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
         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
                           @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
         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
  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
  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
  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
  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
  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         *
  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

  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
  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
  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
  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
  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
  928         LEFT   DCW   @ SEQ PG LIN  LABEL  OP    OPERANDS@                    34  3637                     163
  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         *
  933                DCW   @}@                GROUP MARK - SUBROUTINE HIGH LOC      1  3968                     165
  934         *
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
 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
 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
                           @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
 1020                LCA   1,1                                                      7  3751  L 001 001          183
 1021         LOADXX EQU   *                                                           3757
 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
 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
 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
 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
 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
 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
                           @ @                                                      1  3733              LIT    193
        1060               @SBFLD@                                                  5  3738              LIT    193
 1064                ORG   3751                                                               3751
 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
 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
 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
 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
 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
 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
 1105                DCW   @,015022)024056,029036,040047,0540611001,@              40  3724                     204
 1106         SETEX1 DC    @001008B001     ,001008B001              @              40  3764                     206
 1107                DCW   @,068072)063067/061039                   @              40  3804                     208
 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         *
 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
 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
 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
 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
 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
 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
 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
 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
 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
        1158               @END OF ASSEMBLY@                                       15  3795              LIT    223
 1168                DCW   @}@                                                      1  3796                     223
 1169                ORG   3796                                                               3796
 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
 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
 1179                DCW   @%@                                                      1  0082                     229
 1180                ORG   *&2                                                                0085
 1181                DCW   @}@                                                      1  0085                     230
 1182                EX    SYSTEM                                                            B 167              231
 1183                END   SYSTEM                                                            / 167 080          234
