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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 1161                CS    180                                                      4  3725  / 180              221
 1162                P                                                              1  3729  4                  221
 1163                SS    4                                                        2  3730  K 4                221
 1164                H     999,999                                                  7  3732  . 999 999          221
 1165                B     *-10                                                     4  3739  B G32              221
&FA2/1804K4.999999BG32                  L021G42,G24G25,G29G30,G32G39104002212TAP0
 1166                H                                                              1  3743  .                  222
 1167                LTORG *                                                                  3744
                     DCW   @/@                                                      1  3744              LIT    222
                           @080@                                                    3  3747              LIT    222
                           @$$$@                                                    3  3750              LIT    222
        1145               @OBJECT CORE EXCEEDED@                                  20  3770              LIT    222
                           @0000@                                                   4  3774              LIT    222
        1153               @ERRORS@                                                 6  3780              LIT    222
&./080$$$OBJECT CORE EXCEEDED0000ERRORS L038G80,G44G45,G48G51,G71G75104002222TAP0
        1158               @END OF ASSEMBLY@                                       15  3795              LIT    223
 1168                DCW   @}@                                                      1  3796                     223
 1169                ORG   3796                                                               3796
&END OF ASSEMBLY}                       L016G96,G96040,040040,040040104002232TAP0
 1170         MOVXX  MLC   NOPXX,TSTOVF&1                                           7  3796  M H11 !00          224
 1171                CS    180                                                      4  3803  / 180              224
 1172                B     END2&4                                                   4  3807  B E30              224
 1173         NOPXX  NOP                                                            1  3811  N                  224
&MH11!00/180BE30N                       L016H11,H03H07,H11040,040040104002242TAP0
&                                       N000000,040040,040040,040040B16702252TAP0
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02262TAP0
&,068072)063067/061039                                       ,001001104002272TAP0
 1174                EX    SYSTEM                                                            B 167              225
 1175         *
 1176                ORG   SYSTEM                                                             0167
 1177                WTW   1,CHECK                                                  8  0167  L %U1 082 W        228
 1178                ORG   CHECK                                                              0082
&L%U1082W                               L008174,040040,040040,040040104002282TAP0
 1179                DCW   @%@                                                      1  0082                     229
 1180                ORG   *&2                                                                0085
&%                                      L001082,040040,040040,040040104002292TAP0
 1181                DCW   @}@                                                      1  0085                     230
&}                                      L001085,040040,040040,040040104002302TAP0
&                                       N000000,040040,040040,040040B16702312TAP0
&,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02322TAP0
&,068072)063067/061039                                       ,001001104002332TAP0
 1182                EX    SYSTEM                                                            B 167              231
&                                       /167080                         02342TAP0
 1183                END   SYSTEM                                                            / 167 080          234
