CLEAR STORAGE 1     ,008015,022026,030037,044,049,053053N000000N00001026                                         1
 CLEAR STORAGE 2     L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?                      2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
0                          1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3       3711L               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101  1 01   000    JOB   1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3
  102  1 02          CTL   630 1
  103  1 03   SYSTP  EQU   %U1                                                         %U1
  104  1 04   CARD   EQU   0                                                           0000
  105  1 05   PRINT  EQU   200                                                         0200
  106  1 06          ORG   87                                                                 0087
  107  1 07   XR1    DCW   000                                                      3  0089                       4
  108  1 08          DC    00                                                       2  0091                       4
  109  1 09   XR2    DCW   000                                                      3  0094                       4
  110  1 10          DC    00                                                       2  0096                       4
  111  1 11   XR3    DCW   000                                                      3  0099                       4
  112  1 12          DC    000000                                                   6  0105                       4
  113  1 13   ZONE   DCW   @2SKB@                                                   4  0109                       4
  114  1 14   ABIT   EQU   ZONE-2                                                      0107
  115  1 15   NOBIT  EQU   ZONE-3                                                      0106
  116  1 16   XXXX   EQU   0                                                           0000
  117  1 17   *
  118  1 18   * START OF MAIN LINE
  119  1 19   *
  120  1 20          ORG   333                                                                0333
  121  1 21   START  RWD   SYSTP                                                    5  0333  U %U1 R              5
  122  1 22          CC    1                                                        2  0338  F 1                  5
  123  1 23          MCW   @GENERATING 1401 AUTOCODER SYSTEM@,PRINT&32              7  0340  M '83 232            5
  124  1 24          W                                                              1  0347  2                    5
  125  1 25          CC    1                                                        2  0348  F 1                  5
  126  1 26          CS    PRINT&132                                                4  0350  / 332                5
  127  1 27          CS                                                             1  0354  /                    5
  128  1 28          MCW   CARD&75,SEQNO#4                                          7  0355  M 075 '87            6
  129  1 29   *
  130  1 30   * START UP NEXT BLOCK
  131  1 31   *
  132  1 32   NXTBK  R                                                              1  0362  1                    6
  133  1 33          C     CARD&12,@CONTROL@                                        7  0363  C 012 '94            6
  134  1 34          BU    MACRO                                                    5  0370  B 792 /              6
  135  1 35          BWZ   CKSEQ,CARD&80,2   COMMENT OUT TO TURN OFF SEQ CHK        8  0375  V 726 080 2          6
  136  1 36          BCE   EOJOB,CARD&78,9                                          8  0383  B 877 078 9          6
  137  1 37          SW    CARD&21                                                  4  0391  , 021                7
  138  1 38          ZA    CARD&25,HOLD5#5                                          7  0395  ? 025 '99            7
  139  1 39          CW    CARD&21                                                  4  0402  ) 021                7
  140  1 40   *
  141  1 41   * FLOAT ADDRESS TO FIVE CHARACTERS
  142  1 42   *
  143  1 43   FLOAT  BCE   *&5,HOLD5,&                                              8  0406  B 418 '99 &          7
  144  1 44          B     COMP1                                                    4  0414  B 429                7
  145  1 45          ZA    HOLD5-1,HOLD5                                            7  0418  ? '98 '99            7
  146  1 46          B     FLOAT                                                    4  0425  B 406                7
  147  1 47   *
1                          1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3       3711L               PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148  1 48   * TEST ADDRESS AGAINST HOME ADDRESS
  149  1 49   * TO DEVELOP INDEX VALUE
  150  1 50   *
  151  1 51   COMP1  MZ    NOBIT,HOLD5                                              7  0429  Y 106 '99            8
  152  1 52          S     XR1&2                                                    4  0436  S 091                8
  153  1 53          C     HOLD5,@01500@                                            7  0440  C '99 /04            8
  154  1 54          BE    DOCOR                                                    5  0447  B 538 S              8
  155  1 55          BH    SUB1                                                     5  0452  B 527 U              8
  156  1 56          S     @01500@,HOLD5                                            7  0457  S /09 '99            8
  157  1 57          MCW   @16000@,WORK5#5                                          7  0464  M /14 /19            9
  158  1 58   SUB2   S     HOLD5,WORK5                                              7  0471  S '99 /19            9
  159  1 59   *
  160  1 60   * CONVERT INDEX VALUE TO 3 DIGIT MACHINE ADDRESS
  161  1 61   *
  162  1 62   CNVRT  BAV   *&1                                                      5  0478  B 483 Z              9
  163  1 63          A     @96@,WORK5-3                                             7  0483  A /21 /16            9
  164  1 64          BAV   CNVRT&5                                                  5  0490  B 483 Z              9
  165  1 65          MZ    WORK5-4,WORK5                                            7  0495  Y /15 /19            9
  166  1 66          MN    WORK5-3,*&4                                              7  0502  D /16 512           10
  167  1 67          MZ    ZONE,WORK5-2                                             7  0509  Y 109 /17           10
  168  1 68          MCW   WORK5,XR1                                                7  0516  M /19 089           10
  169  1 69          B     DOCOR                                                    4  0523  B 538               10
  170  1 70   SUB1   MCW   @01500@,WORK5                                            7  0527  M /26 /19           10
  171  1 71          B     SUB2                                                     4  0534  B 471               10
  172  1 72   *
  173  1 73   * READ CONDENSED CARDS
  174  1 74   *
  175  1 75   DOCOR  R                                                              1  0538  1                   10
  176  1 76          MCW   @045@,XR3                                                7  0539  M /29 099           11
  177  1 77          MCW   @042@,XR2                                                7  0546  M /32 094           11
  178  1 78          BWZ   CKSEQ,CARD&80,2   COMMENT OUT TO TURN OFF SEQ CHK        8  0553  V 726 080 2         11
  179  1 79          BCE   WTAP1,CARD&68,B                                          8  0561  B 675 068 B         11
  180  1 80          BCE   SETWM,CARD&40,N                                          8  0569  B 596 040 N         11
  181  1 81          C     CARD&46,@001@                                            7  0577  C 046 /35           12
  182  1 82          BE    SETWM                                                    5  0584  B 596 S             12
  183  1 83          MZ    ABIT,CARD&45                                             7  0589  Y 107 045           12
  184  1 84   *
  185  1 85   * SET RETURN ADDRESS
  186  1 86   *
  187  1 87   SETWM  MCW   &DOCOR,CARD&71                                           7  0596  M /38 071           12
  188  1 88          MCW   @B@                                                      4  0603  M /39               12
  189  1 89   *
  190  1 90   * INDEX WORD MARK ADDRESSES
  191  1 91   *
  192  1 92   COMP2  C     XR2,@063@                                                7  0607  C 094 /42           12
  193  1 93          BE    CARD&40                                                  5  0614  B 040 S             13
  194  1 94          A     &7,XR3                                                   7  0619  A /43 099           13
  195  1 95          A     &7,XR2                                                   7  0626  A /43 094           13
  196  1 96          C     CARD&1&X2,@040@                                          7  0633  C 0!1 /46           13
  197  1 97          BE    *&8                                                      5  0640  B 652 S             13
1                          1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3       3711L               PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 98          MZ    ABIT,CARD&X2                                             7  0645  Y 107 0!0           13
  199  1 99          C     CARD&1&X3,@040@                                          7  0652  C 0?1 /46           14
  200  2 00          BE    COMP2                                                    5  0659  B 607 S             14
  201  2 01          MZ    ABIT,CARD&X3                                             7  0664  Y 107 0?0           14
  202  2 02          B     COMP2                                                    4  0671  B 607               14
  203  2 03   *
  204  2 04   * WRITE CORE ON TAPE
  205  2 05   *
  206  2 06   WTAP1  LCA   @}@,3998                                                 7  0675  L /47 I98           14
  207  2 07          WTW   SYSTP,1500                                               8  0682  L %U1 V00 W         14
  208  2 08          BER   WTERR                                                    5  0690  B 973 L             15
  209  2 09   *
  210  2 10   * CLEAR INPUT AREA
  211  2 11   *
  212  2 12          MCW   @I99@,CLEAR&3                                            7  0695  M /50 705           15
  213  2 13   CLEAR  CS    XXXX                                                     4  0702  / 000               15
  214  2 14          SBR   CLEAR&3                                                  4  0706  H 705               15
  215  2 15          C     CLEAR&3,@U99@                                            7  0710  C 705 /53           15
  216  2 16          BU    CLEAR                                                    5  0717  B 702 /             15
  217  2 17          B     NXTBK                                                    4  0722  B 362               15
  218  2 18   *
  219  2 19   * CHECK CARD SEQUENCE
  220  2 20   *
  221  2 21   CKSEQ  SBR   SEQXT&3                                                  4  0726  H 759               16
  222  2 22          A     &1,SEQNO                                                 7  0730  A /54 '87           16
  223  2 23          C     CARD&75,SEQNO                                            7  0737  C 075 '87           16
  224  2 24          MCW   CARD&75,SEQNO                                            7  0744  M 075 '87           16
  225  2 25          BU    SEQER                                                    5  0751  B 760 /             16
  226  2 26   SEQXT  B     XXXX                                                     4  0756  B 000               16
  227  2 27   *
  228  2 28   * CARD SEQUENCE ERROR
  229  2 29   *
  230  2 30   SEQER  MCW   CARD&80,PRINT&80                                         7  0760  M 080 280           17
  231  2 31          CHAIN 6                                                                             MACRO
  232                MCW                                                            1  0767  M           GEN     17
  233                MCW                                                            1  0768  M           GEN     17
  234                MCW                                                            1  0769  M           GEN     17
  235                MCW                                                            1  0770  M           GEN     17
  236                MCW                                                            1  0771  M           GEN     17
  237                MCW                                                            1  0772  M           GEN     17
  238  2 32          MCW   @SEQUENCE ERROR@,PRINT&98                                7  0773  M /68 298           18
  239  2 33          W                                                              1  0780  2                   18
  240  2 34          H     0,176                                                    7  0781  . 000 176           18
  241  2 35          B     DOSEQ                                                    4  0788  B 941               18
  242  2 36   *
  243  2 37   * PROCESS MACRO LIBRARY
  244  2 38   *
  245  2 39   MACRO  NOP   CRDER                                                    4  0792  N 917               18
  246  2 40          C     CARD&20,@HEADR@                                          7  0796  C 020 /73           18
  247  2 41          BU    CRDER                                                    5  0803  B 917 /             18
1                          1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3       3711L               PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248  2 42          BWZ   CKSEQ,CARD&80,2  COMMENT OUT TO TURN OF SEQ CHK          8  0808  V 726 080 2         19
  249  2 43          MCW   @B@,MACRO                                                7  0816  M /39 792           19
  250  2 44          LCA   @}@,81                                                   7  0823  L /47 081           19
  251  2 45   *
  252  2 46   * WRITE SKELETON INSTRUCTIONS ON TAPE
  253  2 47   *
  254  2 48   WTAP2  WT    SYSTP,CARD&1                                             8  0830  M %U1 001 W         19
  255  2 49          BER   WTERR                                                    5  0838  B 973 L             19
  256  2 50          C     CARD&11,@999999@                                         7  0843  C 011 /79           20
  257  2 51          BE    WTTM                                                     5  0850  B 868 S             20
  258  2 52          R                                                              1  0855  1                   20
  259  2 53          BWZ   CKSEQ,CARD&80,2  COMMENT OUT TO TURN OF SEQ CHK          8  0856  V 726 080 2         20
  260  2 54          B     WTAP2                                                    4  0864  B 830               20
  261  2 55   WTTM   WTM   SYSTP                                                    5  0868  U %U1 M             20
  262  2 56          B     NXTBK                                                    4  0873  B 362               20
  263  2 57   *
  264  2 58   * END OF GENERATION
  265  2 59   *
  266  2 60   EOJOB  WTM   SYSTP                                                    5  0877  U %U1 M             21
  267  2 61          RWD   SYSTP                                                    5  0882  U %U1 R             21
  268  2 62          CW    @}@                                                      4  0887  ) /47               21
  269  2 63          CS    PRINT&132                                                4  0891  / 332               21
  270  2 64          CS                                                             1  0895  /                   21
  271  2 65          MCW   @1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1@,246     7  0896  M S25 246           21
  272  2 66          W                                                              1  0903  2                   21
  273  2 67          CC    1                                                        2  0904  F 1                 22
  274  2 68   *
  275  2 69   * FINAL HALT
  276  2 70   *
  277  2 71   HALT   H     0,142                                                    7  0906  . 000 142           22
  278  2 72          B     HALT                                                     4  0913  B 906               22
  279  2 73   *
  280  2 74   * MISSING CONTROL CARD
  281  2 75   *
  282  2 76   CRDER  CS    PRINT&132                                                4  0917  / 332               22
  283  2 77          CS                                                             1  0921  /                   22
  284  2 78          MCW   @SYSTEM CONTROL CARD MISSING@,PRINT&27                   7  0922  M S52 227           22
  285  2 79          W                                                              1  0929  2                   22
  286  2 80   HALT2  H     0,177                                                    7  0930  . 000 177           23
  287  2 81          B     HALT2                                                    4  0937  B 930               23
  288  2 82   *
  289  2 83   * AFTER SEQUENCE ERROR, CHECK BALANCE OF DECK
  290  2 84   *
  291  2 85   DOSEQ  R                                                              1  0941  1                   23
  292  2 86          BWZ   CKSEQ,CARD&80,2                                          8  0942  V 726 080 2         23
  293  2 87          BCE   ENDSQ,CARD&78,9                                          8  0950  B 962 078 9         23
  294  2 88          B     DOSEQ                                                    4  0958  B 941               23
  295  2 89   ENDSQ  H     0,152                                                    7  0962  . 000 152           23
  296  2 90          B     ENDSQ                                                    4  0969  B 962               24
  297  2 91   *
1                          1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3       3711L               PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  298  2 92   * WRITE REDUNDANCY ROUTINE
  299  2 93   *
  300  2 94   WTERR  SBR   WTXT&3                                                   4  0973  H '36               24
  301  2 95          SBR   XR3                                                      4  0977  H 099               24
  302  2 96          MZ    &9,XR3                                                   7  0981  Y S53 099           24
  303  2 97          MCW   4000-6&X3,RETRY&7                                        7  0988  M II4 '27           24
  304  2 98   BSP    BSP   SYSTP                                                    5  0995  U %U1 B             24
  305  2 99          SKP   SYSTP                                                    5  1000  U %U1 E             24
  306  3 00          BCE   SUBCT,WTCT-1,1                                           8  1005  B '37 S54 1         25
  307  3 01          A     &1,WTCT#2                                                7  1013  A /54 S55           25
  308  3 02   RETRY  WT    SYSTP,XXXX                                               8  1020  M %U1 000 W         25
  309  3 03          BER   BSP                                                      5  1028  B 995 L             25
  310  3 04   WTXT   B     XXXX                                                     4  1033  B 000               25
  311  3 05   SUBCT  S     WTCT                                                     4  1037  S S55               25
  312  3 06          H     0,161                                                    7  1041  . 000 161           26
  313  3 07          B     RETRY                                                    4  1048  B '20               26
                     DCW   @GENERATING 1401 AUTOCODER SYSTEM@                      32  1083              LIT     27
              SEQNO  DCW   #04                                                      4  1087              AREA    27
                     DCW   @CONTROL@                                                7  1094              LIT     28
              HOLD5  DCW   #05                                                      5  1099              AREA    28
                     DCW   @01500@                                                  5  1104              LIT     28
                     DCW   @01500@                                                  5  1109              LIT     28
                     DCW   @16000@                                                  5  1114              LIT     28
              WORK5  DCW   #05                                                      5  1119              AREA    28
                     DCW   @96@                                                     2  1121              LIT     28
                     DCW   @01500@                                                  5  1126              LIT     29
                     DCW   @045@                                                    3  1129              LIT     29
                     DCW   @042@                                                    3  1132              LIT     29
                     DCW   @001@                                                    3  1135              LIT     29
                     DCW   &DOCOR                                                   3  1138  538         ADCON   29
                     DCW   @B@                                                      1  1139              LIT     29
                     DCW   @063@                                                    3  1142              LIT     29
                     DCW   &7                                                       1  1143              LIT     30
                     DCW   @040@                                                    3  1146              LIT     30
                     DCW   @}@                                                      1  1147              LIT     30
                     DCW   @I99@                                                    3  1150              LIT     30
                     DCW   @U99@                                                    3  1153              LIT     30
                     DCW   &1                                                       1  1154              LIT     30
                     DCW   @SEQUENCE ERROR@                                        14  1168              LIT     30
                     DCW   @HEADR@                                                  5  1173              LIT     31
                     DCW   @999999@                                                 6  1179              LIT     31
                     DCW   @1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1@        46  1225              LIT     33
                     DCW   @SYSTEM CONTROL CARD MISSING@                           27  1252              LIT     33
                     DCW   &9                                                       1  1253              LIT     33
              WTCT   DCW   #02                                                      2  1255              AREA    33
  314  3 08          EX    START                                                             B 333               34
1                          AUTOCODER-PASS 1 SELECT PROGRAM           -VERSION 3       3712L               PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  315  3 09          JOB   AUTOCODER-PASS 1 SELECT PROGRAM           -VERSION 3
  316  3 10          SFX   B                                                    B
  317  3 11   PASSA  EQU   1650                                                 B      1650
  318  3 12   DOPSA  EQU   1900                                                 B      1900
  319  3 13   SYSTP  EQU   %U1                                                  B      %U1
  320  3 14   *
  321  3 15   * BRANCH FROM TAPE LOAD ROUTINE
  322  3 16   *
  323  3 17          ORG   1                                                    B             0001
  324  3 18          B     333                                                  B   4  0001  B 333               37  ADDR
  325  3 19          H     *-3                                                  B   4  0005  . 005               37  ADDR
  326  3 20   LOADD  DCW   @599@                                                B   3  0011                      37  ADDR
  327  3 21          ORG   87                                                   B             0087
  328  3 22   XR1    DCW   000                                                  B   3  0089                      38
  329  3 23          DC    00                                                   B   2  0091                      38
  330  3 24          DCW   000                                                  B   3  0094                      38
  331  3 25          DC    00                                                   B   2  0096                      38
  332  3 26          DCW   000                                                  B   3  0099                      38
  333  3 27          DC    00                                                   B   2  0101                      38
  334  3 28   *
  335  3 29   * BEGIN PROGRAM
  336  3 30   *
  337  3 31          ORG   333                                                  B             0333
  338  3 32          BER   HALT1                                                B   5  0333  B 407 L             39
  339  3 33          SW    GMRK1                                                B   4  0338  , 835               39
  340  3 34   CLEAR  CS    3999                                                 B   4  0342  / I99               39
  341  3 35          SBR   CLEAR&3                                              B   4  0346  H 345               39
  342  3 36          C     CLEAR&3,@U99@                                        B   7  0350  C 345 787           39
  343  3 37          BU    CLEAR                                                B   5  0357  B 342 /             39
  344  3 38   *
  345  3 39   * GET PAST LIBRARY
  346  3 40   *
  347  3 41   LOOP1  SW    GMRK1                                                B   4  0362  , 835               39
  348  3 42          RT    SYSTP,GMRK1-21                                       B   8  0366  M %U1 814 R         40
  349  3 43          C     GMRK1-2,@999999    HEADR@                            B   7  0374  C 833 802           40
  350  3 44          BU    LOOP1                                                B   5  0381  B 362 /             40
  351  3 45          SW    GMRK1                                                B   4  0386  , 835               40
  352  3 46          RT    SYSTP,GMRK1-1                                        B   8  0390  M %U1 834 R         40
  353  3 47          BEF   TSTSS                                                B   5  0398  B 418 K             40
  354  3 48          B     LOOP1                                                B   4  0403  B 362               41
  355  3 49   *
  356  3 50   * REDUNDANCY ON TAPE LOAD
  357  3 51   *
  358  3 52   HALT1  H     0,199                                                B   7  0407  . 000 199           41
  359  3 53          B     HALT1                                                B   4  0414  B 407               41
  360  3 54   TSTSS  BSS   LIBRN,F                                              B   5  0418  B 521 F             41
  361  3 55   *
  362  3 56   * RETRIEVE PASS 2 FOR ASSEMBLY RUN
  363  3 57   *
  364  3 58          SW    GMRK1                                                B   4  0423  , 835               41
1                          AUTOCODER-PASS 1 SELECT PROGRAM           -VERSION 3       3712L               PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  365  3 59          LCA   GMRK1,3998                                           B   7  0427  L 835 I98           41
  366  3 60          MCW   &PASSA&13,NOIS2&6                                    B   7  0434  M 805 658           41
  367  3 61   *
  368  3 62   * GET PAST LIBRARIAN
  369  3 63   *
  370  3 64   LOOP2  BCE   LOPSA,BYCT,4                                         B   8  0441  B 476 807 4         42
  371  3 65          SW    3998                                                 B   4  0449  , I98               42
  372  3 66          RTW   SYSTP,PASSA                                          B   8  0453  L %U1 W50 R         42
  373  3 67          B     NOISE                                                B   4  0461  B 637               42
  374  3 68          A     &1,BYCT#1                                            B   7  0465  A 806 807           42
  375  3 69          B     LOOP2                                                B   4  0472  B 441               42
  376  3 70   *
  377  3 71   * PASS 2 FOUND
  378  3 72   *
  379  3 73   LOPSA  RTW   SYSTP,PASSA                                          B   8  0476  L %U1 W50 R         43
  380  3 74          B     NOISE                                                B   4  0484  B 637               43
  381  3 75          BER   RDERR                                                B   5  0488  B 676 L             43
  382  3 76          CW    GMRK1                                                B   4  0493  ) 835               43
  383  3 77   CLR    CS    PASSA-1                                              B   4  0497  / W49               43
  384  3 78          SBR   CLR&3                                                B   4  0501  H 500               43
  385  3 79          C     CLR&3,LOADD                                          B   7  0505  C 500 011           43
  386  3 80          BU    CLR                                                  B   5  0512  B 497 /             44
  387  3 81          B     DOPSA                                                B   4  0517  B Z00               44
  388  3 82   *
  389  3 83   * LIBRARY RUN
  390  3 84   *
  391  3 85   LIBRN  MCW   @!13@,NOIS2&6                                        B   7  0521  M 810 658           44
  392  3 86          CW    GMRK1                                                B   4  0528  ) 835               44
  393  3 87          BSS   OUTPT,B                                              B   5  0532  B 558 B             44
  394  3 88   *
  395  3 89   * RETRIEVE UPDATE PROGRAM
  396  3 90   *
  397  3 91          RTW   SYSTP,2000                                           B   8  0537  L %U1 !00 R         44
  398  3 92          B     NOISE                                                B   4  0545  B 637               44
  399  3 93          BER   RDERR                                                B   5  0549  B 676 L             45
  400  3 94          B     2000                                                 B   4  0554  B !00               45
  401  3 95   *
  402  3 96   * RETRIEVE OUTPUT PROGRAM
  403  3 97   *
  404  3 98   OUTPT  RTW   SYSTP,2000                                           B   8  0558  L %U1 !00 R         45
  405  3 99          B     NOISE                                                B   4  0566  B 637               45
  406  4 00          SW    GMRK1                                                B   4  0570  , 835               45
  407  4 01          LCA   GMRK1,3998                                           B   7  0574  L 835 I98           45
  408  4 02          RTW   SYSTP,2000                                           B   8  0581  L %U1 !00 R         46
  409  4 03          B     NOISE                                                B   4  0589  B 637               46
  410  4 04          RTW   SYSTP,2000                                           B   8  0593  L %U1 !00 R         46
  411  4 05          B     NOISE                                                B   4  0601  B 637               46
  412  4 06          SW    3998                                                 B   4  0605  , I98               46
  413  4 07          RTW   SYSTP,2000                                           B   8  0609  L %U1 !00 R         46
  414  4 08          B     NOISE                                                B   4  0617  B 637               47
1                          AUTOCODER-PASS 1 SELECT PROGRAM           -VERSION 3       3712L               PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  415  4 09          BER   RDERR                                                B   5  0621  B 676 L             47
  416  4 10          CW    GMRK1,3998                                           B   7  0626  ) 835 I98           47
  417  4 11          B     2000                                                 B   4  0633  B !00               47
  418  4 12   *
  419  4 13   * TEST FOR NOISE RECORDS
  420  4 14   *
  421  4 15   NOISE  SBR   NOSXT&3                                              B   4  0637  H 675               47
  422  4 16          SBR   XR1                                                  B   4  0641  H 089               47
  423  4 17          MZ    &9,XR1                                               B   7  0645  Y 811 089           47
  424  4 18   NOIS2  BCE   4000-12&X1,0,}                                       B   8  0652  B IY8 000 } GMARK   48
  425  4 19          CHAIN 12                                                   B                        MACRO
  426                BCE                                                        B   1  0660  B           GEN     48
  427                BCE                                                        B   1  0661  B           GEN     48
  428                BCE                                                        B   1  0662  B           GEN     48
  429                BCE                                                        B   1  0663  B           GEN     48
  430                BCE                                                        B   1  0664  B           GEN     48
  431                BCE                                                        B   1  0665  B           GEN     48
  432                BCE                                                        B   1  0666  B           GEN     49
  433                BCE                                                        B   1  0667  B           GEN     49
  434                BCE                                                        B   1  0668  B           GEN     49
  435                BCE                                                        B   1  0669  B           GEN     49
  436                BCE                                                        B   1  0670  B           GEN     49
  437                BCE                                                        B   1  0671  B           GEN     49
  438  4 20   NOSXT  B     0                                                    B   4  0672  B 000               49
  439  4 21   *
  440  4 22   * READ REDUNDANCY ROUTINE
  441  4 23   *
  442  4 24   RDERR  SBR   XR1                                                  B   4  0676  H 089               50
  443  4 25          SBR   RDXT&3                                               B   4  0680  H 726               50
  444  4 26          MZ    &9,XR1                                               B   7  0684  Y 811 089           50
  445  4 27          MCW   4000-10&X1,RDTRY&7                                   B   7  0691  M IZ0 717           50
  446  4 28   BSP    BSP   SYSTP                                                B   5  0698  U %U1 B             50
  447  4 29          MCW   &9,RDCT#1                                            B   7  0703  M 811 812           50
  448  4 30   RDTRY  RTW   SYSTP,0                                              B   8  0710  L %U1 000 R         51
  449  4 31          BER   *&5                                                  B   5  0718  B 727 L             51
  450  4 32   RDXT   B     0                                                    B   4  0723  B 000               51
  451  4 33          BSP   SYSTP                                                B   5  0727  U %U1 B             51
  452  4 34          S     &1,RDCT                                              B   7  0732  S 806 812           51
  453  4 35          BWZ   RDTRY,RDCT,B                                         B   8  0739  V 710 812 B         51
  454  4 36          H     0,191                                                B   7  0747  . 000 191           52
  455  4 37          MCW   RDTRY&7,*&8                                          B   7  0754  M 717 768           52
  456  4 38          RTW   SYSTP,0                                              B   8  0761  L %U1 000 R         52
  457  4 39          BSS   BSP,E                                                B   5  0769  B 698 E             52
  458  4 40          H     0,111                                                B   7  0774  . 000 111           52
  459  4 41          B     RDXT                                                 B   4  0781  B 723               52
  460  4 42          LTORG *                                                    B             0785
                     DCW   @U99@                                                B   3  0787              LIT     53
                     DCW   @999999    HEADR@                                    B  15  0802              LIT     53
                     DCW   &PASSAB&13                                           B   3  0805  W63         ADCON   53
                     DCW   &1                                                   B   1  0806              LIT     53
1                          AUTOCODER-PASS 1 SELECT PROGRAM           -VERSION 3       3712L               PAGE    9
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
              BYCTB  DCW   #01                                                  B   1  0807              AREA    53
                     DCW   @!13@                                                B   3  0810              LIT     53
                     DCW   &9                                                   B   1  0811              LIT     53
              RDCTB  DCW   #01                                                  B   1  0812              AREA    54
  461  4 43          DCW   #22                                                  B  22  0834                      54
  462  4 44   GMRK1  DCW   @}@                                                  B   1  0835              GMARK   54
  463  4 45          EX    0                                                    B            B 000               55
1                          AUTOCODER-PASS 1 RETRIEVE UPDATE          -VERSION 3       3713L               PAGE   10
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  464  4 46          JOB   AUTOCODER-PASS 1 RETRIEVE UPDATE          -VERSION 3 B
  465  4 47          SFX   R                                                    R
  466  4 48   SYSTP  EQU   %U1                                                  R      %U1
  467  4 49   LTAPSW EQU   2725                                                 R      2725
  468  4 50          ORG   2000                                                 R             2000
  469  4 51          BSS   LIST,G                                               R   5  2000  B J26 G             58
  470  4 52          CW    ENDRT                                                R   4  2005  ) K12               58
  471  4 53   START  RTW   SYSTP,1                                              R   8  2009  L %U1 001 R         58
  472  4 54          BCE   START,013,}                                          R   8  2017  B !09 013 } GMARK   58
  473  4 55          CHAIN 12                                                   R                        MACRO
  474                BCE                                                        R   1  2025  B           GEN     58
  475                BCE                                                        R   1  2026  B           GEN     58
  476                BCE                                                        R   1  2027  B           GEN     58
  477                BCE                                                        R   1  2028  B           GEN     59
  478                BCE                                                        R   1  2029  B           GEN     59
  479                BCE                                                        R   1  2030  B           GEN     59
  480                BCE                                                        R   1  2031  B           GEN     59
  481                BCE                                                        R   1  2032  B           GEN     59
  482                BCE                                                        R   1  2033  B           GEN     59
  483                BCE                                                        R   1  2034  B           GEN     59
  484                BCE                                                        R   1  2035  B           GEN     60
  485                BCE                                                        R   1  2036  B           GEN     60
  486  4 56          BER   RDERR                                                R   5  2037  B !46 L             60
  487  4 57          B     333                                                  R   4  2042  B 333               60
  488  4 58   RDERR  BSP   SYSTP                                                R   5  2046  U %U1 B             60
  489  4 59          MCW   &9,RDCT#1                                            R   7  2051  M K06 K07           60
  490  4 60   RDTRY  RTW   SYSTP,1                                              R   8  2058  L %U1 001 R         60
  491  4 61          BER   *&5                                                  R   5  2066  B !75 L             61
  492  4 62          B     333                                                  R   4  2071  B 333               61
  493  4 63          BSP   SYSTP                                                R   5  2075  U %U1 B             61
  494  4 64          S     &1,RDCT                                              R   7  2080  S K08 K07           61
  495  4 65          BWZ   RDTRY,RDCT,B                                         R   8  2087  V !58 K07 B         61
  496  4 66          H     0,191                                                R   7  2095  . 000 191           61
  497  4 67   AGAIN  RTW   SYSTP,1                                              R   8  2102  L %U1 001 R         62
  498  4 68          BSS   RDERR,E                                              R   5  2110  B !46 E             62
  499  4 69          H     0,111                                                R   7  2115  . 000 111           62
  500  4 70          B     333                                                  R   4  2122  B 333               62
  501  4 71   LIST   SW    ENDRT                                                R   4  2126  , K12               62
  502  4 72          LCA   ENDRT,1998                                           R   7  2130  L K12 Z98           62
  503  4 73          RTW   SYSTP,333                                            R   8  2137  L %U1 333 R         63
  504  4 74          BEF   GET                                                  R   5  2145  B J54 K             63
  505  4 75          B     LIST                                                 R   4  2150  B J26               63
  506  4 76   GET    BSP   SYSTP                                                R   5  2154  U %U1 B             63
  507  4 77          BSP   SYSTP                                                R   5  2159  U %U1 B             63
  508  4 78          CW    ENDRT,1998                                           R   7  2164  ) K12 Z98           63
  509  4 79          SW    LTAPSW                                               R   4  2171  , P25               63
  510  4 80          MCW   @333@,RDTRY&6                                        R   7  2175  M K11 !64           64
  511  4 81          MCW   @333@,AGAIN&6                                        R   7  2182  M K11 J08           64
  512  4 82          RTW   SYSTP,333                                            R   8  2189  L %U1 333 R         64
  513  4 83          BER   RDERR                                                R   5  2197  B !46 L             64
1                          AUTOCODER-PASS 1 RETRIEVE UPDATE          -VERSION 3       3713L               PAGE   11
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  514  4 84          B     333                                                  R   4  2202  B 333               64
  515  4 85          LTORG *                                                    R             2206
                     DCW   &9                                                   R   1  2206              LIT     64
              RDCTR  DCW   #01                                                  R   1  2207              AREA    64
                     DCW   &1                                                   R   1  2208              LIT     65
                     DCW   @333@                                                R   3  2211              LIT     65
  516  4 86   ENDRT  DCW   @}@                                                  R   1  2212              GMARK   65
  517  4 87          EX    0                                                    R            B 000               66
1                          AUTOCODER-PASS 1 COPY SYSTEM TAPE         -VERSION 3       3714L               PAGE   12
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  518  4 88          JOB   AUTOCODER-PASS 1 COPY SYSTEM TAPE         -VERSION 3 R
  519  4 89          SFX   U                                                    U
  520  4 90          ORG   87                                                   U             0087
  521  4 91   XR1    DCW   000                                                  U   3  0089                      69
  522  4 92          DC    00                                                   U   2  0091                      69
  523  4 93   XR2    DCW   000                                                  U   3  0094                      69
  524  4 94          DC    00                                                   U   2  0096                      69
  525  4 95   XR3    DCW   000                                                  U   3  0099                      69
  526  4 96          DC    00                                                   U   2  0101                      69
  527  4 97   SYSTP  EQU   %U1                                                  U      %U1
  528  4 98   OUTAP  EQU   %U6                                                  U      %U6
  529  4 99   INPUT  EQU   1500                                                 U      1500
  530  5 00   *
  531  5 01   * BEGIN PROGRAM
  532  5 02   *
  533  5 03          ORG   333                                                  U             0333
  534  5 04          SW    ENDUP                                                U   4  0333  , /39               70
  535  5 05          RWD   SYSTP                                                U   5  0337  U %U1 R             70
  536  5 06          RWD   OUTAP                                                U   5  0342  U %U6 R             70
  537  5 07          CC    1                                                    U   2  0347  F 1                 70
  538  5 08          CS    332                                                  U   4  0349  / 332               70
  539  5 09          CS                                                         U   1  0353  /                   70
  540  5 10          B     CLEAR                                                U   4  0354  B '21               70
  541  5 11          BSS   COPY,C                                               U   5  0358  B 525 C             71
  542  5 12   *
  543  5 13   * RETRIEVE UPDATE PROGRAM
  544  5 14   *
  545  5 15          RTW   SYSTP,INPUT                                          U   8  0363  L %U1 V00 R         71
  546  5 16          SBR   XR1                                                  U   4  0371  H 089               71
  547  5 17          MN    0&X1                                                 U   4  0375  D 0'0               71
  548  5 18          SW                                                         U   1  0379  ,                   71
  549  5 19          DCW   @N0000@                                              U   5  0384                      71
  550  5 20          B     NOISE                                                U   4  0385  B 759               71
  551  5 21          BER   RDERR                                                U   5  0389  B 798 L             72
  552  5 22          WTW   OUTAP,INPUT                                          U   8  0394  L %U6 V00 W         72
  553  5 23          BER   WTERR                                                U   5  0402  B 928 L             72
  554  5 24          B     CLEAR                                                U   4  0407  B '21               72
  555  5 25   BYPSS  RTW   SYSTP,INPUT                                          U   8  0411  L %U1 V00 R         72
  556  5 26          C     INPUT&19,@999999    HEADR@                           U   7  0419  C V19 '70           72
  557  5 27          BU    BYPSS                                                U   5  0426  B 411 /             73
  558  5 28          RTW   SYSTP,INPUT                                          U   8  0431  L %U1 V00 R         73
  559  5 29          BEF   GETUP                                                U   5  0439  B 448 K             73
  560  5 30          B     BYPSS                                                U   4  0444  B 411               73
  561  5 31   GETUP  BCE   LDUPD,BYCT,3                                         U   8  0448  B 498 '72 3         73
  562  5 32          RTW   SYSTP,INPUT                                          U   8  0456  L %U1 V00 R         73
  563  5 33          DCW   @N0000000000000@                                     U  14  0477                      74
  564  5 34          B     NOISE                                                U   4  0478  B 759               74
  565  5 35          BER   RDERR                                                U   5  0482  B 798 L             74
  566  5 36          A     &1,BYCT#1                                            U   7  0487  A '71 '72           74
  567  5 37          B     GETUP                                                U   4  0494  B 448               74
1                          AUTOCODER-PASS 1 COPY SYSTEM TAPE         -VERSION 3       3714L               PAGE   13
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  568  5 38   LDUPD  CS    199                                                  U   4  0498  / 199               74
  569  5 39          CS    80                                                   U   4  0502  / 080               75
  570  5 40          SW    6,16                                                 U   7  0506  , 006 016           75
  571  5 41          SW    21                                                   U   4  0513  , 021               75
  572  5 42          B     HEAD                                                 U   4  0517  B N32               75
  573  5 43          B     BEGIN                                                U   4  0521  B V00               75
  574  5 44   *
  575  5 45   * COPY SYSTEM
  576  5 46   *
  577  5 47   COPY   RTW   SYSTP,INPUT                                          U   8  0525  L %U1 V00 R         75
  578  5 48          SBR   XR1                                                  U   4  0533  H 089               75
  579  5 49          MN    0&X1                                                 U   4  0537  D 0'0               76
  580  5 50          SW                                                         U   1  0541  ,                   76
  581  5 51          BEF   EOF                                                  U   5  0542  B 601 K             76
  582  5 52          B     NOISE                                                U   4  0547  B 759               76
  583  5 53          BER   RDERR                                                U   5  0551  B 798 L             76
  584  5 54   *
  585  5 55   * TEST END OF LIBRARY
  586  5 56   *
  587  5 57   SWICH  NOP   WTAP1                                                U   4  0556  N 580               76
  588  5 58          SW    LIBSW                                                U   4  0560  , '79               76
  589  5 59          C     INPUT&10,@999999@                                    U   7  0564  C V10 '78           77
  590  5 60          BU    WTAP1                                                U   5  0571  B 580 /             77
  591  5 61          CW    LIBSW#1                                              U   4  0576  ) '79               77
  592  5 62   *
  593  5 63   * WRITE TAPE
  594  5 64   *
  595  5 65   WTAP1  WTW   OUTAP,INPUT                                          U   8  0580  L %U6 V00 W         77
  596  5 66          BER   WTERR                                                U   5  0588  B 928 L             77
  597  5 67   *
  598  5 68   * DO NEXT BLOCK
  599  5 69   *
  600  5 70   REOUT  B     CLEAR                                                U   4  0593  B '21               77
  601  5 71          B     COPY                                                 U   4  0597  B 525               77
  602  5 72   *
  603  5 73   * END OF FILE
  604  5 74   *
  605  5 75   EOF    WTM   OUTAP                                                U   5  0601  U %U6 M             78
  606  5 76          BW    ISMOR,EOFSW#1                                        U   8  0606  V 727 '80 1         78
  607  5 77          B     CLEAR                                                U   4  0614  B '21               78
  608  5 78          LCA   ENDUP,3998                                           U   7  0618  L /39 I98           78
  609  5 79          BW    ERASE,UPDSW                                          U   8  0625  V 637 /26 1         78
  610  5 80          B     HALT1                                                U   4  0633  B 669               78
  611  5 81   *
  612  5 82   * ERASE TAPE
  613  5 83   *
  614  5 84   ERASE  SKP   OUTAP                                                U   5  0637  U %U6 E             79
  615  5 85          WT    OUTAP,INPUT                                          U   8  0642  M %U6 V00 W         79
  616  5 86          BCE   HALT1,SKPCT-1,2                                      U   8  0650  B 669 '81 2         79
  617  5 87          A     &1,SKPCT#2                                           U   7  0658  A '71 '82           79
1                          AUTOCODER-PASS 1 COPY SYSTEM TAPE         -VERSION 3       3714L               PAGE   14
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  618  5 88          B     ERASE                                                U   4  0665  B 637               79
  619  5 89   *
  620  5 90   * END OF COPY RUN
  621  5 91   *
  622  5 92   HALT1  MCW   @1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6@,243    U   7  0669  M /25 243           79
  623  5 93          W                                                          U   1  0676  2                   80
  624  5 94          CC    1                                                    U   2  0677  F 1                 80
  625  5 95          BW    CPYND,UPDSW#1                                        U   8  0679  V 692 /26 1         80
  626  5 96          RWD   OUTAP                                                U   5  0687  U %U6 R             80
  627  5 97   CPYND  RWD   SYSTP                                                U   5  0692  U %U1 R             80
  628  5 98          H     0,122                                                U   7  0697  . 000 122           80
  629  5 99          B     CLEAR                                                U   4  0704  B '21               80
  630  6 00          S     SKPCT                                                U   4  0708  S '82               81
  631  6 01          MCW   @N@,SWICH                                            U   7  0712  M /27 556           81
  632  6 02          SW    EOFSW                                                U   4  0719  , '80               81
  633  6 03          B     COPY                                                 U   4  0723  B 525               81
  634  6 04   *
  635  6 05   * SET UP COPY OF REST OF SYSTEM
  636  6 06   *
  637  6 07   ISMOR  BW    BDEOF,LIBSW                                          U   8  0727  V 750 '79 1         81
  638  6 08          CW    EOFSW                                                U   4  0735  ) '80               81
  639  6 09          MCW   @B@,SWICH                                            U   7  0739  M /28 556           81
  640  6 10          B     REOUT                                                U   4  0746  B 593               82
  641  6 11   *
  642  6 12   * FALSE END OF FILE
  643  6 13   *
  644  6 14   BDEOF  BSP   OUTAP                                                U   5  0750  U %U6 B             82
  645  6 15          B     REOUT                                                U   4  0755  B 593               82
  646  6 16   *
  647  6 17   * TEST FOR NOISE RECORDS
  648  6 18   *
  649  6 19   NOISE  SBR   NOSXT&3                                              U   4  0759  H 797               82
  650  6 20          SBR   XR2                                                  U   4  0763  H 094               82
  651  6 21          MZ    &9,XR2                                               U   7  0767  Y /29 094           82
  652  6 22   NOIS2  BCE   4000-26&X2,INPUT&13,}                                U   8  0774  B IP4 V13 } GMARK   82
  653  6 23          CHAIN 12                                                   U                        MACRO
  654                BCE                                                        U   1  0782  B           GEN     83
  655                BCE                                                        U   1  0783  B           GEN     83
  656                BCE                                                        U   1  0784  B           GEN     83
  657                BCE                                                        U   1  0785  B           GEN     83
  658                BCE                                                        U   1  0786  B           GEN     83
  659                BCE                                                        U   1  0787  B           GEN     83
  660                BCE                                                        U   1  0788  B           GEN     83
  661                BCE                                                        U   1  0789  B           GEN     84
  662                BCE                                                        U   1  0790  B           GEN     84
  663                BCE                                                        U   1  0791  B           GEN     84
  664                BCE                                                        U   1  0792  B           GEN     84
  665                BCE                                                        U   1  0793  B           GEN     84
  666  6 24   NOSXT  B     0                                                    U   4  0794  B 000               84
  667  6 25   *
1                          AUTOCODER-PASS 1 COPY SYSTEM TAPE         -VERSION 3       3714L               PAGE   15
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  668  6 26   * READ REDUNDANCY ROUTINE
  669  6 27   *
  670  6 28   RDERR  SBR   RDXT&3                                               U   4  0798  H 855               84
  671  6 29          SBR   XR3                                                  U   4  0802  H 099               85
  672  6 30          MZ    &9,XR3                                               U   7  0806  Y /29 099           85
  673  6 31          MCW   4000-24&X3,RDTRY&7                                   U   7  0813  M IG6 846           85
  674  6 32          MN    RDTRY&3,BSP1&3                                       U   7  0820  D 842 830           85
  675  6 33   BSP1   BSP   SYSTP                                                U   5  0827  U %U1 B             85
  676  6 34          MCW   &9,RDCT#1                                            U   7  0832  M /29 /30           85
  677  6 35   RDTRY  RT    SYSTP,0                                              U   8  0839  M %U1 000 R         86
  678  6 36          BER   *&5                                                  U   5  0847  B 856 L             86
  679  6 37   RDXT   B     0                                                    U   4  0852  B 000               86
  680  6 38          MN    RDTRY&3,BSP2&3                                       U   7  0856  D 842 866           86
  681  6 39   BSP2   BSP   SYSTP                                                U   5  0863  U %U1 B             86
  682  6 40          S     &1,RDCT                                              U   7  0868  S '71 /30           86
  683  6 41          BWZ   RDTRY,RDCT,B                                         U   8  0875  V 839 /30 B         87
  684  6 42          MN    RDTRY&3,*&7                                          U   7  0883  D 842 896           87
  685  6 43          H     0,190                                                U   7  0890  . 000 190           87
  686  6 44          MCW   RDTRY&7,*&8                                          U   7  0897  M 846 911           87
  687  6 45          RT    SYSTP,0                                              U   8  0904  M %U1 000 R         87
  688  6 46          BSS   BSP1,E                                               U   5  0912  B 827 E             88
  689  6 47          H     0,111                                                U   7  0917  . 000 111           88
  690  6 48          B     RDXT                                                 U   4  0924  B 852               88
  691  6 49   *
  692  6 50   * WRITE REDUNDANCY ROUTINE
  693  6 51   *
  694  6 52   WTERR  SBR   WTXT&3                                               U   4  0928  H 998               88
  695  6 53          SBR   XR3                                                  U   4  0932  H 099               88
  696  6 54          MZ    &9,XR3                                               U   7  0936  Y /29 099           88
  697  6 55          MCW   4000-6&X3,WTTRY&7                                    U   7  0943  M II4 989           88
  698  6 56          MN    WTTRY&3,BSP3&3                                       U   7  0950  D 985 960           89
  699  6 57   BSP3   BSP   OUTAP                                                U   5  0957  U %U6 B             89
  700  6 58          SKP   SYSTP                                                U   5  0962  U %U1 E             89
  701  6 59          BCE   SUBCT,WTCT-1,1                                       U   8  0967  B 999 /31 1         89
  702  6 60          A     &1,WTCT#2                                            U   7  0975  A '71 /32           89
  703  6 61   WTTRY  WT    OUTAP,0                                              U   8  0982  M %U6 000 W         90
  704  6 62          BER   BSP3                                                 U   5  0990  B 957 L             90
  705  6 63   WTXT   B     0                                                    U   4  0995  B 000               90
  706  6 64   SUBCT  S     WTCT                                                 U   4  0999  S /32               90
  707  6 65          MN    WTTRY&3,*&7                                          U   7  1003  D 985 '16           90
  708  6 66          H     0,160                                                U   7  1010  . 000 160           90
  709  6 67          B     WTTRY                                                U   4  1017  B 982               90
  710  6 68   *
  711  6 69   * CLEAR OUTPUT AREA
  712  6 70   *
  713  6 71   CLEAR  SBR   CLRXT&3                                              U   4  1021  H '55               91
  714  6 72          MCW   @I99@,CLR&3                                          U   7  1025  M /35 '35           91
  715  6 73   CLR    CS    3999                                                 U   4  1032  / I99               91
  716  6 74          SBR   CLR&3                                                U   4  1036  H '35               91
  717  6 75          C     CLR&3,&INPUT-1                                       U   7  1040  C '35 /38           91
1                          AUTOCODER-PASS 1 COPY SYSTEM TAPE         -VERSION 3       3714L               PAGE   16
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  718  6 76          BU    CLR                                                  U   5  1047  B '32 /             91
  719  6 77   CLRXT  B     0                                                    U   4  1052  B 000               91
  720  6 78          LTORG *                                                    U             1056
                     DCW   @999999    HEADR@                                    U  15  1070              LIT     92
                     DCW   &1                                                   U   1  1071              LIT     92
              BYCTU  DCW   #01                                                  U   1  1072              AREA    92
                     DCW   @999999@                                             U   6  1078              LIT     92
              LIBSWU DCW   #01                                                  U   1  1079              AREA    92
              EOFSWU DCW   #01                                                  U   1  1080              AREA    92
              SKPCTU DCW   #02                                                  U   2  1082              AREA    92
                     DCW   @1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6@        U  43  1125              LIT     94
              UPDSWU DCW   #01                                                  U   1  1126              AREA    94
                     DCW   @N@                                                  U   1  1127              LIT     94
                     DCW   @B@                                                  U   1  1128              LIT     94
                     DCW   &9                                                   U   1  1129              LIT     94
              RDCTU  DCW   #01                                                  U   1  1130              AREA    95
              WTCTU  DCW   #02                                                  U   2  1132              AREA    95
                     DCW   @I99@                                                U   3  1135              LIT     95
                     DCW   &INPUTU-1                                            U   3  1138  U99         ADCON   95
  721  6 79   ENDUP  DCW   @}@                                                  U   1  1139              GMARK   95
  722  6 80          EX    0                                                    U            B 000               96
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   17
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  723  6 81          JOB   AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3 U
  724  6 82   IMAGE  EQU   101                                                  U      0101
  725  6 83   *
  726  6 84   * BEGIN UPDATE
  727  6 85   *
  728  6 86          ORG   INPUT                                                U             1500
  729  6 87   BEGIN  RWD   SYSTP                                                U   5  1500  U %U1 R             99
  730  6 88          CW    HEDSW,ENDSW                                          U   7  1505  ) ?91 ?98           99
  731  6 89          MCW   &IMAGE&13,NOIS2&6                                    U   7  1512  M ?30 780           99
  732  6 90          LCA   ENDUP,IMAGE&80                                       U   7  1519  L /39 181           99
  733  6 91          RT    SYSTP,IMAGE                                          U   8  1526  M %U1 101 R         99
  734  6 92          DCW   @N0000000000000@                                     U  14  1547                     100
  735  6 93          B     NOISE                                                U   4  1548  B 759              100
  736  6 94          CS    IMAGE&79                                             U   4  1552  / 180              100
  737  6 95          B     RDTP                                                 U   4  1556  B M17              100
  738  6 96   REBEG  B     READ                                                 U   4  1560  B L24              100
  739  6 97          BW    SERCH,INSW                                           U   8  1564  V V84 ?73 1        100
  740  6 98          BW    SERCH,DELSW                                          U   8  1572  V V84 ?79 1        101
  741  6 99          B     REBEG                                                U   4  1580  B V60              101
  742  7 00   *
  743  7 01   * SEARCH FOR CORRECT SUBROUTINE
  744  7 02   *
  745  7 03   SERCH  B     DOCTL                                                U   4  1584  B N94              101
  746  7 04          C     11,@999999@                                          U   7  1588  C 011 ?36          101
  747  7 05          BE    CLNUP                                                U   5  1595  B K40 S            101
  748  7 06          C     8,NAME#3                                             U   7  1600  C 008 ?39          101
  749  7 07          BE    FOUND                                                U   5  1607  B X30 S            102
  750  7 08          BH    QUIT                                                 U   5  1612  B P75 U            102
  751  7 09          MCW   8,NAME                                               U   7  1617  M 008 ?39          102
  752  7 10          S     SEQNO                                                U   4  1624  S A67              102
  753  7 11   LOOP1  BW    HEADR,HEDSW                                          U   8  1628  V W56 ?91 1        102
  754  7 12          B     RDTP                                                 U   4  1636  B M17              102
  755  7 13          BW    HEADR,HEDSW                                          U   8  1640  V W56 ?91 1        103
  756  7 14   MORE   B     WTAP2                                                U   4  1648  B M95              103
  757  7 15          B     LOOP1                                                U   4  1652  B W28              103
  758  7 16   *
  759  7 17   * HEADER LOCATED ON TAPE
  760  7 18   *
  761  7 19   HEADR  BW    PAST,ENDSW                                           U   8  1656  V W89 ?98 1        103
  762  7 20          C     IMAGE&7,NAME                                         U   7  1664  C 108 ?39          103
  763  7 21          BE    FOUND                                                U   5  1671  B X30 S            103
  764  7 22          CW    HEDSW                                                U   4  1676  ) ?91              104
  765  7 23          BL    PAST                                                 U   5  1680  B W89 T            104
  766  7 24          B     MORE                                                 U   4  1685  B W48              104
  767  7 25   *
  768  7 26   * SUBROUTINE NOT ON TAPE
  769  7 27   *
  770  7 28   PAST   BSP   SYSTP                                                U   5  1689  U %U1 B            104
  771  7 29          CS    IMAGE&79                                             U   4  1694  / 180              104
  772  7 30          CW    HEDSW                                                U   4  1698  ) ?91              104
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   18
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  773  7 31          BW    UNKWN,DELSW                                          U   8  1702  V Q01 ?79 1        104
  774  7 32          C     22,@  @                                              U   7  1710  C 022 ?41          105
  775  7 33          BU    UNKWN                                                U   5  1717  B Q01 /            105
  776  7 34   BACK   B     PTCTL                                                U   4  1722  B O37              105
  777  7 35          B     INSER                                                U   4  1726  B Y06              105
  778  7 36   *
  779  7 37   * SUBROUTINE FOUND
  780  7 38   *
  781  7 39   FOUND  C     22,@  @                                              U   7  1730  C 022 ?41          105
  782  7 40          BU    PARTL                                                U   5  1737  B Y46 /            105
  783  7 41   *
  784  7 42   * DELETE AND/OR INSERT WHOLE SUBROUTINES
  785  7 43   *
  786  7 44   ALL    MCW   @DELET@,218                                          U   7  1742  M ?46 218          105
  787  7 45          B     PTCTL                                                U   4  1749  B O37              106
  788  7 46          S     SEQNO                                                U   4  1753  S A67              106
  789  7 47   LOOP2  B     PRINT                                                U   4  1757  B O72              106
  790  7 48          B     RDTP                                                 U   4  1761  B M17              106
  791  7 49          BW    EXIT,HEDSW                                           U   8  1765  V X77 ?91 1        106
  792  7 50          B     LOOP2                                                U   4  1773  B X57              106
  793  7 51   EXIT   BSP   SYSTP                                                U   5  1777  U %U1 B            106
  794  7 52          CS    IMAGE&79                                             U   4  1782  / 180              107
  795  7 53          CW    HEDSW                                                U   4  1786  ) ?91              107
  796  7 54          BW    REBEG,DELSW                                          U   8  1790  V V60 ?79 1        107
  797  7 55   *
  798  7 56   * INSERTION OF WHOLE SUBROUTINE
  799  7 57   *
  800  7 58          B     DOCTL                                                U   4  1798  B N94              107
  801  7 59          B     PTCTL                                                U   4  1802  B O37              107
  802  7 60   INSER  S     SEQNO                                                U   4  1806  S A67              107
  803  7 61   LOOP3  B     READ                                                 U   4  1810  B L24              107
  804  7 62          BW    SERCH,INSW                                           U   8  1814  V V84 ?73 1        108
  805  7 63          BW    SERCH,DELSW                                          U   8  1822  V V84 ?79 1        108
  806  7 64          B     DOOUT                                                U   4  1830  B L07              108
  807  7 65          B     PRINT                                                U   4  1834  B O72              108
  808  7 66          B     WTAP2                                                U   4  1838  B M95              108
  809  7 67          B     LOOP3                                                U   4  1842  B Y10              108
  810  7 68   *
  811  7 69   * DELETE AND/OR INSERT PARTS
  812  7 70   *
  813  7 71   PARTL  S     XR3&2                                                U   4  1846  S 101              108
  814  7 72          BWZ   SOME,21,2                                            U   8  1850  V Y81 021 2        109
  815  7 73          C     24,@  @                                              U   7  1858  C 024 ?41          109
  816  7 74          BE    ALL                                                  U   5  1865  B X42 S            109
  817  7 75          A     &2,XR3                                               U   7  1870  A ?47 099          109
  818  7 76          SW    23                                                   U   4  1877  , 023              109
  819  7 77   *
  820  7 78   * SCAN FOR VALUES OF OPERANDS
  821  7 79   *
  822  7 80   SOME   SW    OPSW#1                                               U   4  1881  , ?48              109
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   19
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  823  7 81   TEST1  BCE   TWOOP,21&X3,,                                        U   8  1885  B Z16 0B1 ,        110
  824  7 82          C     22&X3,@  @                                           U   7  1893  C 0B2 ?41          110
  825  7 83          BE    TWOOP                                                U   5  1900  B Z16 S            110
  826  7 84          A     &1,XR3                                               U   7  1905  A ?49 099          110
  827  7 85          B     TEST1                                                U   4  1912  B Y85              110
  828  7 86   TWOOP  ZA    20&X3,WK1#4                                          U   7  1916  ? 0B0 ?53          110
  829  7 87          A     @0@,WK1                                              U   7  1923  A ?54 ?53          111
  830  7 88          BCE   NXTOP,21&X3,,                                        U   8  1930  B Z42 0B1 ,        111
  831  7 89          B     OUT                                                  U   4  1938  B !08              111
  832  7 90   NXTOP  SW    22&X3                                                U   4  1942  , 0B2              111
  833  7 91          SBR   XR2                                                  U   4  1946  H 094              111
  834  7 92   ADD    A     &1,XR3                                               U   7  1950  A ?49 099          111
  835  7 93          C     22&X3,@  @                                           U   7  1957  C 0B2 ?41          112
  836  7 94          BU    ADD                                                  U   5  1964  B Z50 /            112
  837  7 95          ZA    20&X3,WK2#4                                          U   7  1969  ? 0B0 ?58          112
  838  7 96          A     @0@,WK2                                              U   7  1976  A ?54 ?58          112
  839  7 97          C     WK1,WK2                                              U   7  1983  C ?53 ?58          112
  840  7 98          BL    BADST                                                U   5  1990  B Q59 T            112
  841  7 99          BE    ONOP                                                 U   5  1995  B K20 S            113
  842  8 00   IS2OP  CW    OPSW                                                 U   4  2000  ) ?48              113
  843  8 01   CLRWM  CW    1&X2                                                 U   4  2004  ) 0!1              113
  844  8 02   OUT    CW    23                                                   U   4  2008  ) 023              113
  845  8 03          BW    *&8,OPSW                                             U   8  2012  V !27 ?48 1        113
  846  8 04          MCW   @DELET@,218                                          U   7  2020  M ?63 218          113
  847  8 05          B     PTCTL                                                U   4  2027  B O37              113
  848  8 06   *
  849  8 07   * SEARCH FOR FIRST STATEMENT
  850  8 08   *
  851  8 09   COMP   C     WK1,SEQNO                                            U   7  2031  C ?53 A67          114
  852  8 10          BE    GOTIT                                                U   5  2038  B !70 S            114
  853  8 11          A     &1,SEQNO                                             U   7  2043  A ?49 A67          114
  854  8 12          B     WTAP2                                                U   4  2050  B M95              114
  855  8 13          B     RDTP                                                 U   4  2054  B M17              114
  856  8 14          BW    NTFND,HEDSW                                          U   8  2058  V Q84 ?91 1        114
  857  8 15          B     COMP                                                 U   4  2066  B !31              114
  858  8 16   *
  859  8 17   * FIRST STATEMENT FOUND
  860  8 18   *
  861  8 19   GOTIT  BW    QINSR,OPSW                                           U   8  2070  V J46 ?48 1        115
  862  8 20   *
  863  8 21   * SEARCH FOR SECOND STATEMENT
  864  8 22   *
  865  8 23   COMP2  B     PRINT                                                U   4  2078  B O72              115
  866  8 24          B     RDTP                                                 U   4  2082  B M17              115
  867  8 25          C     WK2,SEQNO                                            U   7  2086  C ?58 A67          115
  868  8 26          BH    BSPC                                                 U   5  2093  B J10 U            115
  869  8 27          BW    NTFND,HEDSW                                          U   8  2098  V Q84 ?91 1        115
  870  8 28          B     COMP2                                                U   4  2106  B !78              116
  871  8 29   *
  872  8 30   * SECOND STATEMENT FOUND
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   20
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  873  8 31   *
  874  8 32   BSPC   BSP   SYSTP                                                U   5  2110  U %U1 B            116
  875  8 33          CS    IMAGE&79                                             U   4  2115  / 180              116
  876  8 34          S     &1,SEQNO                                             U   7  2119  S ?49 A67          116
  877  8 35   THRU   BW    LOOP3,DELSW                                          U   8  2126  V Y10 ?79 1        116
  878  8 36          B     DOCTL                                                U   4  2134  B N94              116
  879  8 37          B     PTCTL                                                U   4  2138  B O37              116
  880  8 38          B     INSR&4                                               U   4  2142  B J77              117
  881  8 39   *
  882  8 40   * TEST INSERT OR DELETE
  883  8 41   *
  884  8 42   QINSR  BW    INSR,INSW                                            U   8  2146  V J73 ?73 1        117
  885  8 43          B     PRINT                                                U   4  2154  B O72              117
  886  8 44          S     &1,SEQNO                                             U   7  2158  S ?49 A67          117
  887  8 45          CS    IMAGE&79                                             U   4  2165  / 180              117
  888  8 46          B     THRU                                                 U   4  2169  B J26              117
  889  8 47   *
  890  8 48   * INSERT STATEMENTS
  891  8 49   *
  892  8 50   INSR   B     WTAP2                                                U   4  2173  B M95              117
  893  8 51          B     READ                                                 U   4  2177  B L24              118
  894  8 52          BW    SERCH,INSW                                           U   8  2181  V V84 ?73 1        118
  895  8 53          BW    SERCH,DELSW                                          U   8  2189  V V84 ?79 1        118
  896  8 54          B     DOOUT                                                U   4  2197  B L07              118
  897  8 55          CW    SEQSW#1                                              U   4  2201  ) ?64              118
  898  8 56          B     PRINT                                                U   4  2205  B O72              118
  899  8 57          S     &1,SEQNO                                             U   7  2209  S ?49 A67          118
  900  8 58          B     INSR                                                 U   4  2216  B J73              119
  901  8 59   ONOP   BW    IS2OP,INSW                                           U   8  2220  V !00 ?73 1        119
  902  8 60          SW    OPSW                                                 U   4  2228  , ?48              119
  903  8 61          B     CLRWM                                                U   4  2232  B !04              119
  904  8 62   *
  905  8 63   * REPLICATE LIBRARY
  906  8 64   *
  907  8 65   REPET  B     WTAP2                                                U   4  2236  B M95              119
  908  8 66   CLNUP  B     RDTP                                                 U   4  2240  B M17              119
  909  8 67          B     WTAP2                                                U   4  2244  B M95              119
  910  8 68          BW    FINAL,ENDSW                                          U   8  2248  V K60 ?98 1        120
  911  8 69          B     CLNUP                                                U   4  2256  B K40              120
  912  8 70   *
  913  8 71   * END OF UPDATE - GO TO COPY ROUTINE
  914  8 72   *
  915  8 73   FINAL  WTM   OUTAP                                                U   5  2260  U %U6 M            120
  916  8 74          MCW   &INPUT&13,NOIS2&6                                    U   7  2265  M ?67 780          120
  917  8 75          CW    LIBSW,EOFSW                                          U   7  2272  ) '79 '80          120
  918  8 76          CW    UPDSW                                                U   4  2279  ) /26              120
  919  8 77          CS    332                                                  U   4  2283  / 332              120
  920  8 78          CS                                                         U   1  2287  /                  121
  921  8 79          CC    1                                                    U   2  2288  F 1                121
  922  8 80   BYP1   RT    SYSTP,IMAGE                                          U   8  2290  M %U1 101 R        121
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   21
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  923  8 81          BEF   REOUT                                                U   5  2298  B 593 K            121
  924  8 82          B     BYP1                                                 U   4  2303  B K90              121
  925  8 83   *
  926  8 84   * SET UP INSERT CARD
  927  8 85   *
  928  8 86   DOOUT  SBR   OUTXT&3                                              U   4  2307  H L23              121
  929  8 87          MCW   80,IMAGE&79                                          U   7  2311  M 080 180          121
  930  8 88          MCW                                                        U   1  2318  M                  122
  931  8 89          MCW                                                        U   1  2319  M                  122
  932  8 90   OUTXT  B     0                                                    U   4  2320  B 000              122
  933  8 91   *
  934  8 92   * READ CARD SUBROUTINE
  935  8 93   *
  936  8 94   READ   SBR   CDXT&3                                               U   4  2324  H M08              122
  937  8 95          BW    RDCD,LSTSW                                           U   8  2328  V L40 ?85 1        122
  938  8 96          B     CLNUP                                                U   4  2336  B K40              122
  939  8 97   RDCD   R                                                          U   1  2340  1                  122
  940  8 98          CW    INSW,DELSW                                           U   7  2341  ) ?73 ?79          123
  941  8 99          C     20,@INSER@                                           U   7  2348  C 020 ?72          123
  942  9 00          BU    CKDEL                                                U   5  2355  B L68 /            123
  943  9 01          SW    INSW#1                                               U   4  2360  , ?73              123
  944  9 02          B     CDXT-5                                               U   4  2364  B M00              123
  945  9 03   CKDEL  C     20,@DELET@                                           U   7  2368  C 020 ?78          123
  946  9 04          BU    CKREP                                                U   5  2375  B L88 /            123
  947  9 05          SW    DELSW#1                                              U   4  2380  , ?79              124
  948  9 06          B     CDXT-5                                               U   4  2384  B M00              124
  949  9 07   CKREP  C     20,@REPET@                                           U   7  2388  C 020 ?84          124
  950  9 08          BE    REPET                                                U   5  2395  B K36 S            124
  951  9 09          BLC   LSTCD                                                U   5  2400  B M09 A            124
  952  9 10   CDXT   B     0                                                    U   4  2405  B 000              124
  953  9 11   LSTCD  CW    LSTSW#1                                              U   4  2409  ) ?85              124
  954  9 12          B     CDXT                                                 U   4  2413  B M05              125
  955  9 13   *
  956  9 14   * READ TAPE SUBROUTINE
  957  9 15   *
  958  9 16   RDTP   SBR   RTXT&3                                               U   4  2417  H M94              125
  959  9 17          RT    SYSTP,IMAGE                                          U   8  2421  M %U1 101 R        125
  960  9 18          SW    IMAGE&80                                             U   4  2429  , 181              125
  961  9 19          DCW   @N000000000@                                         U  10  2442                     125
  962  9 20          B     NOISE                                                U   4  2443  B 759              125
  963  9 21          BER   RDERR                                                U   5  2447  B 798 L            125
  964  9 22          CW    HEDSW,ENDSW                                          U   7  2452  ) ?91 ?98          126
  965  9 23          C     IMAGE&19,@HEADR@                                     U   7  2459  C 120 ?90          126
  966  9 24          BU    RTXT                                                 U   5  2466  B M91 /            126
  967  9 25          SW    HEDSW#1                                              U   4  2471  , ?91              126
  968  9 26          C     IMAGE&10,@999999@                                    U   7  2475  C 111 ?97          126
  969  9 27          BU    RTXT                                                 U   5  2482  B M91 /            126
  970  9 28          SW    ENDSW#1                                              U   4  2487  , ?98              126
  971  9 29   RTXT   B     0                                                    U   4  2491  B 000              127
  972  9 30   *
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   22
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  973  9 31   * WRITE TAPE SUBROUTINE
  974  9 32   *
  975  9 33   WTAP2  SBR   WT2XT&3                                              U   4  2495  H N31              127
  976  9 34          C     IMAGE&79,BLANK                                       U   7  2499  C 180 ?27          127
  977  9 35          BE    WT2XT                                                U   5  2506  B N28 S            127
  978  9 36          WT    OUTAP,IMAGE                                          U   8  2511  M %U6 101 W        127
  979  9 37          BER   WTERR                                                U   5  2519  B 928 L            127
  980  9 38          CS    IMAGE&79                                             U   4  2524  / 180              127
  981  9 39   WT2XT  B     0                                                    U   4  2528  B 000              128
  982  9 40   *
  983  9 41   * PRINT HEADING
  984  9 42   *
  985  9 43   HEAD   SBR   HDXT&3                                               U   4  2532  H N93              128
  986  9 44          CS    332                                                  U   4  2536  / 332              128
  987  9 45          CS                                                         U   1  2540  /                  128
  988  9 46          MCW   @1401 AUTOCODER - LIBRARY CHANGES@,251               U   7  2541  M A30 251          128
  989  9 47          MCW   @PAGE@,275                                           U   7  2548  M A34 275          128
  990  9 48          A     &1,PGNO#3                                            U   7  2555  A ?49 A37          128
  991  9 49          MCS   PGNO,279                                             U   7  2562  Z A37 279          129
  992  9 50          W                                                          U   1  2569  2                  129
  993  9 51          CC    K                                                    U   2  2570  F K                129
  994  9 52          CS    279                                                  U   4  2572  / 279              129
  995  9 53          MCW   @SEQ  LABEL  OP    OPERANDS@,227                     U   7  2576  M A63 227          129
  996  9 54          W                                                          U   1  2583  2                  129
  997  9 55          CC    K                                                    U   2  2584  F K                129
  998  9 56          CS    228                                                  U   4  2586  / 228              130
  999  9 57   HDXT   B     0                                                    U   4  2590  B 000              130
 1000  9 58   *
 1001  9 59   * SET UP CONTROL CARD FOR PRINTING
 1002  9 60   *
 1003  9 61   DOCTL  SBR   CTLXT&3                                              U   4  2594  H O36              130
 1004  9 62          CC    K                                                    U   2  2598  F K                130
 1005  9 63          CS    332                                                  U   4  2600  / 332              130
 1006  9 64          CS                                                         U   1  2604  /                  130
 1007  9 65          MCW   72,271                                               U   7  2605  M 072 271          130
 1008  9 66          MCW   22,221                                               U   7  2612  M 022 221          131
 1009  9 67          MCW   20,218                                               U   7  2619  M 020 218          131
 1010  9 68          MCW   11,212                                               U   7  2626  M 011 212          131
 1011  9 69   CTLXT  B     0                                                    U   4  2633  B 000              131
 1012  9 70   *
 1013  9 71   * PRINT CONTROL CARD
 1014  9 72   *
 1015  9 73   PTCTL  SBR   PTCXT&3                                              U   4  2637  H O57              131
 1016  9 74          W                                                          U   1  2641  2                  131
 1017  9 75          CC    J                                                    U   2  2642  F J                131
 1018  9 76          CS    332                                                  U   4  2644  / 332              132
 1019  9 77          CS                                                         U   1  2648  /                  132
 1020  9 78          BCV   NEWPG                                                U   5  2649  B O58 @            132
 1021  9 79   PTCXT  B     0                                                    U   4  2654  B 000              132
 1022  9 80   *
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   23
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1023  9 81   * NEW PAGE
 1024  9 82   *
 1025  9 83   NEWPG  SBR   NEWXT&3                                              U   4  2658  H O71              132
 1026  9 84          CC    1                                                    U   2  2662  F 1                132
 1027  9 85          B     HEAD                                                 U   4  2664  B N32              132
 1028  9 86   NEWXT  B     0                                                    U   4  2668  B 000              133
 1029  9 87   *
 1030  9 88   * PRINT STATEMENTS
 1031  9 89   *
 1032  9 90   PRINT  SBR   PTXT&3                                               U   4  2672  H P74              133
 1033  9 91          SW    220,214                                              U   7  2676  , 220 214          133
 1034  9 92          SW    207                                                  U   4  2683  , 207              133
 1035  9 93          BCE   COMNT,IMAGE&5,*                                      U   8  2687  B P32 106 *        133
 1036  9 94          MCW   IMAGE&71,271                                         U   7  2695  M 172 271          133
 1037  9 95          MCW   IMAGE&19,218                                         U   7  2702  M 120 218          134
 1038  9 96          MCW   IMAGE&10,212                                         U   7  2709  M 111 212          134
 1039  9 97   TSTSQ  BW    SEQNC,SEQSW                                          U   8  2716  V P45 ?64 1        134
 1040  9 98          SW    SEQSW                                                U   4  2724  , ?64              134
 1041  9 99          B     BUMP                                                 U   4  2728  B P53              134
 1042 10 00   COMNT  MCW   IMAGE&71,273                                         U   7  2732  M 172 273          134
 1043 10 01          MCW                                                        U   1  2739  M                  134
 1044 10 02          MCW                                                        U   1  2740  M                  135
 1045 10 03          B     TSTSQ                                                U   4  2741  B P16              135
 1046 10 04   SEQNC  MN    SEQNO,204                                            U   7  2745  D A67 204          135
 1047 10 05          MCS                                                        U   1  2752  Z                  135
 1048 10 06   BUMP   A     &1,SEQNO#4                                           U   7  2753  A ?49 A67          135
 1049 10 07          W                                                          U   1  2760  2                  135
 1050 10 08          CS    332                                                  U   4  2761  / 332              135
 1051 10 09          CS                                                         U   1  2765  /                  136
 1052 10 10          BCV   NEWPG                                                U   5  2766  B O58 @            136
 1053 10 11   PTXT   B     0                                                    U   4  2771  B 000              136
 1054 10 12   *
 1055 10 13   * SEQUENCE ERROR
 1056 10 14   *
 1057 10 15   QUIT   CS    332                                                  U   4  2775  / 332              136
 1058 10 16          CS                                                         U   1  2779  /                  136
 1059 10 17          MCW   @INPUT CARDS OUT OF SEQUENCE - START OVER@,240       U   7  2780  M B07 240          136
 1060 10 18          W                                                          U   1  2787  2                  136
 1061 10 19          CC    1                                                    U   2  2788  F 1                137
 1062 10 20   HALT2  H     0,133                                                U   7  2790  . 000 133          137
 1063 10 21          B     HALT2                                                U   4  2797  B P90              137
 1064 10 22   *
 1065 10 23   * SUBROUTINE UNKNOWN
 1066 10 24   *
 1067 10 25   UNKWN  BWZ   ISUNK,21,2                                           U   8  2801  V Q21 021 2        137
 1068 10 26          C     24,@  @                                              U   7  2809  C 024 ?41          137
 1069 10 27          BE    BACK                                                 U   5  2816  B X22 S            137
 1070 10 28   ISUNK  MCW   @SUBROUTINE UNKNOWN@,299                             U   7  2821  M B25 299          138
 1071 10 29          W                                                          U   1  2828  2                  138
 1072 10 30          CC    L                                                    U   2  2829  F L                138
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   24
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1073 10 31          CS    299                                                  U   4  2831  / 299              138
 1074 10 32   LOOP4  B     READ                                                 U   4  2835  B L24              138
 1075 10 33          BW    SERCH,INSW                                           U   8  2839  V V84 ?73 1        138
 1076 10 34          BW    SERCH,DELSW                                          U   8  2847  V V84 ?79 1        138
 1077 10 35          B     LOOP4                                                U   4  2855  B Q35              139
 1078 10 36   *
 1079 10 37   * BAD CONTROL CARD
 1080 10 38   *
 1081 10 39   BADST  MCW   @BAD STATEMENT@,299                                  U   7  2859  M B38 299          139
 1082 10 40          W                                                          U   1  2866  2                  139
 1083 10 41          CC    L                                                    U   2  2867  F L                139
 1084 10 42          CS    299                                                  U   4  2869  / 299              139
 1085 10 43          CW    1&X2,23                                              U   7  2873  ) 0!1 023          139
 1086 10 44          B     LOOP4                                                U   4  2880  B Q35              139
 1087 10 45   *
 1088 10 46   * STATEMENT DOES NOT EXIST IN SUBROUTINE
 1089 10 47   *
 1090 10 48   NTFND  MCW   @STATEMENT DOES NOT EXIST@,299                       U   7  2884  M B62 299          140
 1091 10 49          W                                                          U   1  2891  2                  140
 1092 10 50          CC    L                                                    U   2  2892  F L                140
 1093 10 51          CS    299                                                  U   4  2894  / 299              140
 1094 10 52          BW    END99,ENDSW                                          U   8  2898  V R10 ?98 1        140
 1095 10 53          B     LOOP4                                                U   4  2906  B Q35              140
 1096 10 54   *
 1097 10 55   * END OF LIBRARY REACHED BEFORE ROUTINE FOUND
 1098 10 56   *
 1099 10 57   END99  MCW   @SUBROUTINE UNKNOWN@,299                             U   7  2910  M B80 299          140
 1100 10 58          W                                                          U   1  2917  2                  141
 1101 10 59          CC    L                                                    U   2  2918  F L                141
 1102 10 60          CS    299                                                  U   4  2920  / 299              141
 1103 10 61          MCW   @END OF LIBRARY REACHED@,222                         U   7  2924  M C02 222          141
 1104 10 62          W                                                          U   1  2931  2                  141
 1105 10 63          BSP   SYSTP                                                U   5  2932  U %U1 B            141
 1106 10 64          CS    IMAGE&79                                             U   4  2937  / 180              141
 1107 10 65   LOOP6  B     READ                                                 U   4  2941  B L24              142
 1108 10 66          B     LOOP6                                                U   4  2945  B R41              142
 1109 10 67          DCW   #50                                                  U  50  2998                     144
 1110 10 68   BLANK  DC    #29                                                  U  29  3027                     145
 1111 10 69          LTORG *                                                    U             3028
                     DCW   &IMAGEU&13                                           U   3  3030  114         ADCON  145
                     DCW   @999999@                                             U   6  3036              LIT    145
              NAMEU  DCW   #03                                                  U   3  3039              AREA   146
                     DCW   @  @                                                 U   2  3041              LIT    146
                     DCW   @DELET@                                              U   5  3046              LIT    146
                     DCW   &2                                                   U   1  3047              LIT    146
              OPSWU  DCW   #01                                                  U   1  3048              AREA   146
                     DCW   &1                                                   U   1  3049              LIT    146
              WK1U   DCW   #04                                                  U   4  3053              AREA   146
                     DCW   @0@                                                  U   1  3054              LIT    147
              WK2U   DCW   #04                                                  U   4  3058              AREA   147
1                          AUTOCODER-PASS 1 UPDATE LIBRARY           -VERSION 3       3715L               PAGE   25
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
                     DCW   @DELET@                                              U   5  3063              LIT    147
              SEQSWU DCW   #01                                                  U   1  3064              AREA   147
                     DCW   &INPUTU&13                                           U   3  3067  V13         ADCON  147
                     DCW   @INSER@                                              U   5  3072              LIT    147
              INSWU  DCW   #01                                                  U   1  3073              AREA   147
                     DCW   @DELET@                                              U   5  3078              LIT    148
              DELSWU DCW   #01                                                  U   1  3079              AREA   148
                     DCW   @REPET@                                              U   5  3084              LIT    148
              LSTSWU DCW   #01                                                  U   1  3085              AREA   148
                     DCW   @HEADR@                                              U   5  3090              LIT    148
              HEDSWU DCW   #01                                                  U   1  3091              AREA   148
                     DCW   @999999@                                             U   6  3097              LIT    148
              ENDSWU DCW   #01                                                  U   1  3098              AREA   149
                     DCW   @1401 AUTOCODER - LIBRARY CHANGES@                   U  32  3130              LIT    149
                     DCW   @PAGE@                                               U   4  3134              LIT    149
              PGNOU  DCW   #03                                                  U   3  3137              AREA   150
                     DCW   @SEQ  LABEL  OP    OPERANDS@                         U  26  3163              LIT    150
              SEQNOU DCW   #04                                                  U   4  3167              AREA   150
                     DCW   @INPUT CARDS OUT OF SEQUENCE - START OVER@           U  40  3207              LIT    152
                     DCW   @SUBROUTINE UNKNOWN@                                 U  18  3225              LIT    152
                     DCW   @BAD STATEMENT@                                      U  13  3238              LIT    152
                     DCW   @STATEMENT DOES NOT EXIST@                           U  24  3262              LIT    153
                     DCW   @SUBROUTINE UNKNOWN@                                 U  18  3280              LIT    154
                     DCW   @END OF LIBRARY REACHED@                             U  22  3302              LIT    155
 1112 10 70   3998   DCW   @}@                                                  U   1  3998              GMARK  156
 1113 10 71          EX    0                                                    U            B 000              157
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   26
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1114 10 72          JOB   AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3 U
 1115 10 73          SFX   P                                                    P
 1116 10 74   SYSTP  EQU   %U1                                                  P      %U1
 1117 10 75   XR1    EQU   89                                                   P      0089
 1118 10 76   *
 1119 10 77   * BEGIN PROGRAM
 1120 10 78   *
 1121 10 79          ORG   2000                                                 P             2000
 1122 10 80          SW    ENDOT                                                P   4  2000  , ?44              160
 1123 10 81          LCA   ENDOT,181                                            P   7  2004  L ?44 181          160
 1124 10 82          CS                                                         P   1  2011  /                  160
 1125 10 83          CS    80                                                   P   4  2012  / 080              160
 1126 10 84          SW    6,16                                                 P   7  2016  , 006 016          160
 1127 10 85          CS    332                                                  P   4  2023  / 332              160
 1128 10 86          CS                                                         P   1  2027  /                  160
 1129 10 87          CC    1                                                    P   2  2028  F 1                161
 1130 10 88          RWD   SYSTP                                                P   5  2030  U %U1 R            161
 1131 10 89          RT    SYSTP,101                                            P   8  2035  M %U1 101 R        161
 1132 10 90          CS    180                                                  P   4  2043  / 180              161
 1133 10 91          SW    106,116                                              P   7  2047  , 106 116          161
 1134 10 92          SW    121                                                  P   4  2054  , 121              161
 1135 10 93          BSS   DOALL,E                                              P   5  2058  B L28 E            161
 1136 10 94   *
 1137 10 95   * PRINT AND/OR PUNCH SELECTED MACROS
 1138 10 96   *
 1139 10 97          CW    HDRSW                                                P   4  2063  ) R32              162
 1140 10 98   READ   CC    1                                                    P   2  2067  F 1                162
 1141 10 99          B     PRTHD                                                P   4  2069  B N59              162
 1142 11 00          R                                                          P   1  2073  1                  162
 1143 11 01          MCW   @2@,OPCOD                                            P   7  2074  M Q90 O69          162
 1144 11 02          C     20,@PRINT@                                           P   7  2081  C 020 Q95          162
 1145 11 03          BE    SELMC                                                P   5  2088  B J19 S            162
 1146 11 04          C     20,@PUNCH@                                           P   7  2093  C 020 R00          163
 1147 11 05          BU    ERROR                                                P   5  2100  B N06 /            163
 1148 11 06   *
 1149 11 07   * PUNCH OPTION
 1150 11 08   *
 1151 11 09          A     &4,OPCOD                                             P   7  2105  A R01 O69          163
 1152 11 10          MN    &4,OPSAV#1                                           P   7  2112  D R01 R02          163
 1153 11 11   *
 1154 11 12   * SEARCH FOR MACRO
 1155 11 13   *
 1156 11 14   SELMC  C     8,NAME#3                                             P   7  2119  C 008 R05          163
 1157 11 15          BE    TSTLC                                                P   5  2126  B K96 S            163
 1158 11 16          MCW   20,218                                               P   7  2131  M 020 218          164
 1159 11 17          MCW   11,212                                               P   7  2138  M 011 212          164
 1160 11 18          BL    RDTP2                                                P   5  2145  B J85 T            164
 1161 11 19          RWD   SYSTP                                                P   5  2150  U %U1 R            164
 1162 11 20          LCA   ENDOT,181                                            P   7  2155  L ?44 181          164
 1163 11 21          RT    SYSTP,101                                            P   8  2162  M %U1 101 R        164
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   27
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1164 11 22          CS    180                                                  P   4  2170  / 180              165
 1165 11 23          SW    106,116                                              P   7  2174  , 106 116          165
 1166 11 24          SW    121                                                  P   4  2181  , 121              165
 1167 11 25   RDTP2  RT    SYSTP,101                                            P   8  2185  M %U1 101 R        165
 1168 11 26          B     NOISE                                                P   4  2193  B P67              165
 1169 11 27          BER   RDERR                                                P   5  2197  B Q06 L            165
 1170 11 28          C     111,@999999@                                         P   7  2202  C 111 R11          165
 1171 11 29          BE    UNKN                                                 P   5  2209  B L05 S            166
 1172 11 30          C     120,@HEADR@                                          P   7  2214  C 120 R16          166
 1173 11 31          BU    RDTP2                                                P   5  2221  B J85 /            166
 1174 11 32          C     8,108                                                P   7  2226  C 008 108          166
 1175 11 33          BU    RDTP2                                                P   5  2233  B J85 /            166
 1176 11 34   *
 1177 11 35   * DESIRED MACRO FOUND
 1178 11 36   *
 1179 11 37          MCW   8,NAME                                               P   7  2238  M 008 R05          166
 1180 11 38          CC    K                                                    P   2  2245  F K                166
 1181 11 39          W                                                          P   1  2247  2                  167
 1182 11 40          S     SEQNO                                                P   4  2248  S R48              167
 1183 11 41          B     INSER                                                P   4  2252  B N17              167
 1184 11 42          CC    K                                                    P   2  2256  F K                167
 1185 11 43   PTAGN  B     PRINT                                                P   4  2258  B N81              167
 1186 11 44          RT    SYSTP,101                                            P   8  2262  M %U1 101 R        167
 1187 11 45          B     NOISE                                                P   4  2270  B P67              167
 1188 11 46          BER   RDERR                                                P   5  2274  B Q06 L            168
 1189 11 47          C     120,@HEADR@                                          P   7  2279  C 120 R21          168
 1190 11 48          BU    PTAGN                                                P   5  2286  B K58 /            168
 1191 11 49          BSP   SYSTP                                                P   5  2291  U %U1 B            168
 1192 11 50   *
 1193 11 51   * TEST END OF RUN
 1194 11 52   *
 1195 11 53   TSTLC  BLC   EOJOB                                                P   5  2296  B M54 A            168
 1196 11 54          B     READ                                                 P   4  2301  B !67              168
 1197 11 55   *
 1198 11 56   * MACRO NOT ON TAPE
 1199 11 57   *
 1200 11 58   UNKN   MCW   @UNKNOWN@,299                                        P   7  2305  M R28 299          168
 1201 11 59          W                                                          P   1  2312  2                  169
 1202 11 60          CS    299                                                  P   4  2313  / 299              169
 1203 11 61          MCW   @999@,NAME                                           P   7  2317  M R31 R05          169
 1204 11 62          B     TSTLC                                                P   4  2324  B K96              169
 1205 11 63   *
 1206 11 64   * PRINT AND/OR PUNCH ALL OR PRINT HEADERS ONLY
 1207 11 65   *
 1208 11 66   DOALL  BSS   SETUP,D                                              P   5  2328  B L60 D            169
 1209 11 67          CW    HDRSW#1                                              P   4  2333  ) R32              169
 1210 11 68          BSS   *&5,G                                                P   5  2337  B L46 G            169
 1211 11 69          B     SETUP                                                P   4  2342  B L60              170
 1212 11 70   *
 1213 11 71   * PUNCH ALL
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   28
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1214 11 72   *
 1215 11 73          A     &4,OPCOD                                             P   7  2346  A R01 O69          170
 1216 11 74          MN    &4,OPSAV                                             P   7  2353  D R01 R02          170
 1217 11 75   SETUP  B     HEAD1                                                P   4  2360  B P19              170
 1218 11 76          CW    HDSW1#1                                              P   4  2364  ) R33              170
 1219 11 77          B     PRTHD                                                P   4  2368  B N59              170
 1220 11 78   RDTP   RT    SYSTP,101                                            P   8  2372  M %U1 101 R        170
 1221 11 79          B     NOISE                                                P   4  2380  B P67              171
 1222 11 80          BER   RDERR                                                P   5  2384  B Q06 L            171
 1223 11 81          C     111,@999999@                                         P   7  2389  C 111 R39          171
 1224 11 82          BE    EOJOB                                                P   5  2396  B M54 S            171
 1225 11 83          C     120,@HEADR@                                          P   7  2401  C 120 R44          171
 1226 11 84          BU    DOPNT                                                P   5  2408  B M35 /            171
 1227 11 85          B     INSER                                                P   4  2413  B N17              171
 1228 11 86          CC    K                                                    P   2  2417  F K                172
 1229 11 87          SBR   PRTXT&3,*&6                                          P   7  2419  H O83 M31          172
 1230 11 88          BCV   NEWPG                                                P   5  2426  B O97 @            172
 1231 11 89          S     SEQNO#4                                              P   4  2431  S R48              172
 1232 11 90   DOPNT  B     PRINT                                                P   4  2435  B N81              172
 1233 11 91          SW    106,116                                              P   7  2439  , 106 116          172
 1234 11 92          SW    121                                                  P   4  2446  , 121              172
 1235 11 93          B     RDTP                                                 P   4  2450  B L72              173
 1236 11 94   *
 1237 11 95   * END OF JOB
 1238 11 96   *
 1239 11 97   EOJOB  CS    332                                                  P   4  2454  / 332              173
 1240 11 98          CS                                                         P   1  2458  /                  173
 1241 11 99          CC    K                                                    P   2  2459  F K                173
 1242 12 00          MCW   @END OF LIBRARY@,214                                 P   7  2461  M R62 214          173
 1243 12 01          W                                                          P   1  2468  2                  173
 1244 12 02          CC    1                                                    P   2  2469  F 1                173
 1245 12 03          CS    180                                                  P   4  2471  / 180              174
 1246 12 04          BCE   CLRPH,OPSAV,4                                        P   8  2475  B M99 R02 4        174
 1247 12 05   RWD    RWD   SYSTP                                                P   5  2483  U %U1 R            174
 1248 12 06   HALT   H     0,155                                                P   7  2488  . 000 155          174
 1249 12 07          B     HALT                                                 P   4  2495  B M88              174
 1250 12 08   CLRPH  P                                                          P   1  2499  4                  174
 1251 12 09          SS    8                                                    P   2  2500  K 8                174
 1252 12 10          B     RWD                                                  P   4  2502  B M83              175
 1253 12 11   *
 1254 12 12   * INCORRECT INPUT CARD
 1255 12 13   *
 1256 12 14   ERROR  H     0,144                                                P   7  2506  . 000 144          175
 1257 12 15          B     TSTLC                                                P   4  2513  B K96              175
 1258 12 16   INSER  SBR   INSXT&3                                              P   4  2517  H N58              175
 1259 12 17          MCW   @     @,105                                          P   7  2521  M R67 105          175
 1260 12 18          MCW   @INSER@,120                                          P   7  2528  M R72 120          175
 1261 12 19          BCE   *&5,OPSAV,4                                          P   8  2535  B N47 R02 4        176
 1262 12 20          B     *&2                                                  P   4  2543  B N48              176
 1263 12 21          P                                                          P   1  2547  4                  176
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   29
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1264 12 22          MCW   @HEADR@,120                                          P   7  2548  M R77 120          176
 1265 12 23   INSXT  B     0                                                    P   4  2555  B 000              176
 1266 12 24   *
 1267 12 25   * PRINT HEADING
 1268 12 26   *
 1269 12 27   PRTHD  SBR   HDXT&3                                               P   4  2559  H N80              176
 1270 12 28          MCW   @SEQ  LABEL  OP    OPERANDS@,227                     P   7  2563  M ?03 227          176
 1271 12 29          W                                                          P   1  2570  2                  177
 1272 12 30          CC    K                                                    P   2  2571  F K                177
 1273 12 31          CS    228                                                  P   4  2573  / 228              177
 1274 12 32   HDXT   B     0                                                    P   4  2577  B 000              177
 1275 12 33   *
 1276 12 34   * PRINT STATEMENT
 1277 12 35   *
 1278 12 36   PRINT  SBR   PRTXT&3                                              P   4  2581  H O83              177
 1279 12 37          C     120,@HEADR@                                          P   7  2585  C 120 ?08          177
 1280 12 38          BE    DOHDR                                                P   5  2592  B O05 S            177
 1281 12 39          BW    CLR,HDRSW                                            P   8  2597  V O70 R32 1        178
 1282 12 40   DOHDR  CS    332                                                  P   4  2605  / 332              178
 1283 12 41          CS                                                         P   1  2609  /                  178
 1284 12 42          BCE   COMNT,106,*                                          P   8  2610  B O84 106 *        178
 1285 12 43          MCW   172,271                                              P   7  2618  M 172 271          178
 1286 12 44          MCW   120,218                                              P   7  2625  M 120 218          178
 1287 12 45          MCW   111,212                                              P   7  2632  M 111 212          179
 1288 12 46   DOSEQ  MN    SEQNO,204                                            P   7  2639  D R48 204          179
 1289 12 47          MCS                                                        P   1  2646  Z                  179
 1290 12 48          MN    SEQNO,104                                            P   7  2647  D R48 104          179
 1291 12 49          MCW                                                        P   1  2654  M                  179
 1292 12 50          A     &1,SEQNO                                             P   7  2655  A ?09 R48          179
 1293 12 51          MCW   @ @,105                                              P   7  2662  M ?10 105          179
 1294 12 52   OPCOD  W                                                          P   1  2669  2                  180
 1295 12 53   CLR    CS    332                                                  P   4  2670  / 332              180
 1296 12 54          CS                                                         P   1  2674  /                  180
 1297 12 55          BCV   NEWPG                                                P   5  2675  B O97 @            180
 1298 12 56   PRTXT  B     0                                                    P   4  2680  B 000              180
 1299 12 57   COMNT  MCW   172,273                                              P   7  2684  M 172 273          180
 1300 12 58          MCW                                                        P   1  2691  M                  180
 1301 12 59          MCW                                                        P   1  2692  M                  181
 1302 12 60          B     DOSEQ                                                P   4  2693  B O39              181
 1303 12 61   *
 1304 12 62   * START NEW PAGE
 1305 12 63   *
 1306 12 64   NEWPG  CC    1                                                    P   2  2697  F 1                181
 1307 12 65          BW    *&5,HDSW1                                            P   8  2699  V P11 R33 1        181
 1308 12 66          B     HEAD1                                                P   4  2707  B P19              181
 1309 12 67          B     PRTHD                                                P   4  2711  B N59              181
 1310 12 68          B     PRTXT                                                P   4  2715  B O80              181
 1311 12 69   *
 1312 12 70   * PRINT MAIN HEADING
 1313 12 71   *
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   30
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
 1314 12 72   HEAD1  SBR   HD2XT&3                                              P   4  2719  H P66              182
 1315 12 73          CS    332                                                  P   4  2723  / 332              182
 1316 12 74          CS                                                         P   1  2727  /                  182
 1317 12 75          MCW   @1401 AUTOCODER - LIBRARY@,243                       P   7  2728  M ?34 243          182
 1318 12 76          MCW   @PAGE@,275                                           P   7  2735  M ?38 275          182
 1319 12 77          A     &1,PGNO#3                                            P   7  2742  A ?09 ?41          182
 1320 12 78          MCS   PGNO,279                                             P   7  2749  Z ?41 279          182
 1321 12 79          W                                                          P   1  2756  2                  183
 1322 12 80          CC    L                                                    P   2  2757  F L                183
 1323 12 81          CS    299                                                  P   4  2759  / 299              183
 1324 12 82   HD2XT  B     0                                                    P   4  2763  B 000              183
 1325 12 83   *
 1326 12 84   * TEST FOR NOISE RECORDS
 1327 12 85   *
 1328 12 86   NOISE  SBR   NOSXT&3                                              P   4  2767  H Q05              183
 1329 12 87          SBR   XR1                                                  P   4  2771  H 089              183
 1330 12 88          MZ    &9,XR1                                               P   7  2775  Y ?42 089          183
 1331 12 89          BCE   4000-12&X1,113,}                                     P   8  2782  B IY8 113 } GMARK  184
 1332 12 90          CHAIN 12                                                   P                        MACRO
 1333                BCE                                                        P   1  2790  B           GEN    184
 1334                BCE                                                        P   1  2791  B           GEN    184
 1335                BCE                                                        P   1  2792  B           GEN    184
 1336                BCE                                                        P   1  2793  B           GEN    184
 1337                BCE                                                        P   1  2794  B           GEN    184
 1338                BCE                                                        P   1  2795  B           GEN    184
 1339                BCE                                                        P   1  2796  B           GEN    185
 1340                BCE                                                        P   1  2797  B           GEN    185
 1341                BCE                                                        P   1  2798  B           GEN    185
 1342                BCE                                                        P   1  2799  B           GEN    185
 1343                BCE                                                        P   1  2800  B           GEN    185
 1344                BCE                                                        P   1  2801  B           GEN    185
 1345 12 91   NOSXT  B     0                                                    P   4  2802  B 000              185
 1346 12 92   *
 1347 12 93   * READ REDUNDANCY ROUTINE
 1348 12 94   *
 1349 12 95   RDERR  SBR   RDXT&3                                               P   4  2806  H Q38              186
 1350 12 96   BSP    BSP   SYSTP                                                P   5  2810  U %U1 B            186
 1351 12 97          MCW   &9,RDCT#1                                            P   7  2815  M ?42 ?43          186
 1352 12 98   RDTRY  RT    SYSTP,101                                            P   8  2822  M %U1 101 R        186
 1353 12 99          BER   *&5                                                  P   5  2830  B Q39 L            186
 1354 13 00   RDXT   B     0                                                    P   4  2835  B 000              186
 1355 13 01          BSP   SYSTP                                                P   5  2839  U %U1 B            186
 1356 13 02          S     &1,RDCT                                              P   7  2844  S ?09 ?43          187
 1357 13 03          BWZ   RDTRY,RDCT,B                                         P   8  2851  V Q22 ?43 B        187
 1358 13 04          H     0,191                                                P   7  2859  . 000 191          187
 1359 13 05          RT    SYSTP,101                                            P   8  2866  M %U1 101 R        187
 1360 13 06          BSS   BSP,E                                                P   5  2874  B Q10 E            187
 1361 13 07          H     0,111                                                P   7  2879  . 000 111          188
 1362 13 08          B     RDXT                                                 P   4  2886  B Q35              188
 1363 13 09          LTORG *                                                    P             2890
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   31
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
                     DCW   @2@                                                  P   1  2890              LIT    188
                     DCW   @PRINT@                                              P   5  2895              LIT    188
                     DCW   @PUNCH@                                              P   5  2900              LIT    188
                     DCW   &4                                                   P   1  2901              LIT    188
              OPSAVP DCW   #01                                                  P   1  2902              AREA   188
              NAMEP  DCW   #03                                                  P   3  2905              AREA   189
                     DCW   @999999@                                             P   6  2911              LIT    189
                     DCW   @HEADR@                                              P   5  2916              LIT    189
                     DCW   @HEADR@                                              P   5  2921              LIT    189
                     DCW   @UNKNOWN@                                            P   7  2928              LIT    189
                     DCW   @999@                                                P   3  2931              LIT    189
              HDRSWP DCW   #01                                                  P   1  2932              AREA   189
              HDSW1P DCW   #01                                                  P   1  2933              AREA   190
                     DCW   @999999@                                             P   6  2939              LIT    190
                     DCW   @HEADR@                                              P   5  2944              LIT    190
              SEQNOP DCW   #04                                                  P   4  2948              AREA   190
                     DCW   @END OF LIBRARY@                                     P  14  2962              LIT    190
                     DCW   @     @                                              P   5  2967              LIT    190
                     DCW   @INSER@                                              P   5  2972              LIT    191
                     DCW   @HEADR@                                              P   5  2977              LIT    191
                     DCW   @SEQ  LABEL  OP    OPERANDS@                         P  26  3003              LIT    191
                     DCW   @HEADR@                                              P   5  3008              LIT    192
                     DCW   &1                                                   P   1  3009              LIT    192
                     DCW   @ @                                                  P   1  3010              LIT    192
                     DCW   @1401 AUTOCODER - LIBRARY@                           P  24  3034              LIT    192
                     DCW   @PAGE@                                               P   4  3038              LIT    192
              PGNOP  DCW   #03                                                  P   3  3041              AREA   192
                     DCW   &9                                                   P   1  3042              LIT    192
              RDCTP  DCW   #01                                                  P   1  3043              AREA   193
 1364 13 10   ENDOT  DCW   @}@                                                  P   1  3044              GMARK  193
 1365 13 11          EX    0                                                    P            B 000              194
 1366 13 12          END   0                                                    P            / 000 080
1                          AUTOCODER-PASS 1 OUTPUT LIBRARY           -VERSION 3       3716L               PAGE   32
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ABIT      107    ADDU     1950    AGAINR   2102    ALLU     1742    BACKU    1722    BADSTU   2859    BDEOFU    750   
 BEGINU   1500    BLANKU   3027    BSP       995    BSP1U     827    BSP2U     863    BSP3U     957    BSPB      698   
 BSPCU    2110    BSPP     2810    BUMPU    2753    BYCTB     807    BYCTU    1072    BYP1U    2290    BYPSSU    411   
 CARD        0    CDXTU    2405    CKDELU   2368    CKREPU   2388    CKSEQ     726    CLEAR     702    CLEARB    342   
 CLEARU   1021    CLNUPU   2240    CLRB      497    CLRP     2670    CLRPHP   2499    CLRU     1032    CLRWMU   2004   
 CLRXTU   1052    CNVRT     478    COMNTP   2684    COMNTU   2732    COMP1     429    COMP2     607    COMP2U   2078   
 COMPU    2031    COPYU     525    CPYNDU    692    CRDER     917    CTLXTU   2633    DELSWU   3079    DOALLP   2328   
 DOCOR     538    DOCTLU   2594    DOHDRP   2605    DOOUTU   2307    DOPNTP   2435    DOPSAB   1900    DOSEQ     941   
 DOSEQP   2639    END99U   2910    ENDOTP   3044    ENDRTR   2212    ENDSQ     962    ENDSWU   3098    ENDUPU   1139   
 EOFSWU   1080    EOFU      601    EOJOB     877    EOJOBP   2454    ERASEU    637    ERRORP   2506    EXITU    1777   
 FINALU   2260    FLOAT     406    FOUNDU   1730    GETR     2154    GETUPU    448    GMRK1B    835    GOTITU   2070   
 HALT      906    HALT1B    407    HALT1U    669    HALT2     930    HALT2U   2790    HALTP    2488    HD2XTP   2763   
 HDRSWP   2932    HDSW1P   2933    HDXTP    2577    HDXTU    2590    HEAD1P   2719    HEADRU   1656    HEADU    2532   
 HEDSWU   3091    HOLD5    1099    IMAGEU    101    INPUTU   1500    INSERP   2517    INSERU   1806    INSRU    2173   
 INSWU    3073    INSXTP   2555    IS2OPU   2000    ISMORU    727    ISUNKU   2821    LDUPDU    498    LIBRNB    521   
 LIBSWU   1079    LISTR    2126    LOADDB     11    LOOP1B    362    LOOP1U   1628    LOOP2B    441    LOOP2U   1757   
 LOOP3U   1810    LOOP4U   2835    LOOP6U   2941    LOPSAB    476    LSTCDU   2409    LSTSWU   3085    LTAPSW   2725   
 MACRO     792    MOREU    1648    NAMEP    2905    NAMEU    3039    NEWPGP   2697    NEWPGU   2658    NEWXTU   2668   
 NOBIT     106    NOIS2B    652    NOIS2U    774    NOISEB    637    NOISEP   2767    NOISEU    759    NOSXTB    672   
 NOSXTP   2802    NOSXTU    794    NTFNDU   2884    NXTBK     362    NXTOPU   1942    ONOPU    2220    OPCODP   2669   
 OPSAVP   2902    OPSWU    3048    OUTAPU  %U6      OUTPTB    558    OUTU     2008    OUTXTU   2320    PARTLU   1846   
 PASSAB   1650    PASTU    1689    PGNOP    3041    PGNOU    3137    PRINT     200    PRINTP   2581    PRINTU   2672   
 PRTHDP   2559    PRTXTP   2680    PTAGNP   2258    PTCTLU   2637    PTCXTU   2654    PTXTU    2771    QINSRU   2146   
 QUITU    2775    RDCDU    2340    RDCTB     812    RDCTP    3043    RDCTR    2207    RDCTU    1130    RDERRB    676   
 RDERRP   2806    RDERRR   2046    RDERRU    798    RDTP2P   2185    RDTPP    2372    RDTPU    2417    RDTRYB    710   
 RDTRYP   2822    RDTRYR   2058    RDTRYU    839    RDXTB     723    RDXTP    2835    RDXTU     852    READP    2067   
 READU    2324    REBEGU   1560    REOUTU    593    REPETU   2236    RETRY    1020    RTXTU    2491    RWDP     2483   
 SELMCP   2119    SEQER     760    SEQNCU   2745    SEQNO    1087    SEQNOP   2948    SEQNOU   3167    SEQSWU   3064   
 SEQXT     756    SERCHU   1584    SETUPP   2360    SETWM     596    SKPCTU   1082    SOMEU    1881    START     333   
 STARTR   2009    SUB1      527    SUB2      471    SUBCT    1037    SUBCTU    999    SWICHU    556    SYSTP   %U1     
 SYSTPB  %U1      SYSTPP  %U1      SYSTPR  %U1      SYSTPU  %U1      TEST1U   1885    THRUU    2126    TSTLCP   2296   
 TSTSQU   2716    TSTSSB    418    TWOOPU   1916    UNKNP    2305    UNKWNU   2801    UPDSWU   1126    WK1U     3053   
 WK2U     3058    WORK5    1119    WT2XTU   2528    WTAP1     675    WTAP1U    580    WTAP2     830    WTAP2U   2495   
 WTCT     1255    WTCTU    1132    WTERR     973    WTERRU    928    WTTM      868    WTTRYU    982    WTXT     1033   
 WTXTU     995    XR1        89    XR1B       89    XR1P       89    XR1U       89    XR2        94    XR2U       94   
 XR3        99    XR3U       99    XXXX        0    ZONE      109   
      *****  **     3 Errors                                                                             ERROR



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


 101 000       JOB  1401 autocoder-pass 1-generate system tape-version 3   3711l
 102           ctl  630 1
 103 systp     equ  %u1
 104 card      equ  0
 105 print     equ  200
 106           org  87
 107 xr1       dcw  000
 108           dc   00
 109 xr2       dcw  000
 110           dc   00
 111 xr3       dcw  000
 112           dc   000000
 113 zone      dcw  @2skb@
 114 abit      equ  zone-2
 115 nobit     equ  zone-3
 116 xxxx      equ  0
 117 *
 118 * Start of main line
 119 *
 120           org  333
 121 start     rwd  systp
 122           cc   1
 123           mcw  @generating 1401 autocoder system@,print&32
 124           w
 125           cc   1
 126           cs   print&132
 127           cs
 128           mcw  card&75,seqno#4
 129 *
 130 * start up next block
 131 *
 132 nxtbk     r
 133           c    card&12,@control@
 134           bu   macro
 135           bwz  ckseq,card&80,2   Comment out to turn off seq chk
 136           bce  eojob,card&78,9
 137           sw   card&21
 138           za   card&25,hold5#5
 139           cw   card&21
 140 *
 141 * float address to five characters
 142 *
 143 float     bce  *&5,hold5,&
 144           b    comp1
 145           za   hold5-1,hold5
 146           b    float
 147 *
 148 * test address against home address
 149 * to develop index value
 150 *
 151 comp1     mz   nobit,hold5
 152           s    xr1&2
 153           c    hold5,@01500@
 154           be   docor
 155           bh   sub1
 156           s    @01500@,hold5
 157           mcw  @16000@,work5#5
 158 sub2      s    hold5,work5
 159 *
 160 * convert index value to 3 digit machine address
 161 *
 162 cnvrt     bav  *&1
 163           a    @96@,work5-3
 164           bav  cnvrt&5
 165           mz   work5-4,work5
 166           mn   work5-3,*&4
 167           mz   zone,work5-2
 168           mcw  work5,xr1
 169           b    docor
 170 sub1      mcw  @01500@,work5
 171           b    sub2
 172 *
 173 * read condensed cards
 174 *
 175 docor     r
 176           mcw  @045@,xr3
 177           mcw  @042@,xr2
 178           bwz  ckseq,card&80,2   Comment out to turn off seq chk
 179           bce  wtap1,card&68,b
 180           bce  setwm,card&40,n
 181           c    card&46,@001@
 182           be   setwm
 183           mz   abit,card&45
 184 *
 185 * set return address
 186 *
 187 setwm     mcw  &docor,card&71
 188           mcw  @B@
 189 *
 190 * index word mark addresses
 191 *
 192 comp2     c    xr2,@063@
 193           be   card&40
 194           a    &7,xr3
 195           a    &7,xr2
 196           c    card&1&x2,@040@
 197           be   *&8
 198           mz   abit,card&x2
 199           c    card&1&x3,@040@
 200           be   comp2
 201           mz   abit,card&x3
 202           b    comp2
 203 *
 204 * write core on tape
 205 *
 206 wtap1     lca  @}@,3998
 207           wtw  systp,1500
 208           ber  wterr
 209 *
 210 * clear input area
 211 *
 212           mcw  @I99@,clear&3
 213 clear     cs   xxxx
 214           sbr  clear&3
 215           c    clear&3,@u99@
 216           bu   clear
 217           b    nxtbk
 218 *
 219 * check card sequence
 220 *
 221 ckseq     sbr  seqxt&3
 222           a    &1,seqno
 223           c    card&75,seqno
 224           mcw  card&75,seqno
 225           bu   seqer
 226 seqxt     b    xxxx
 227 *
 228 * card sequence error
 229 *
 230 seqer     mcw  card&80,print&80
 231           chain6
 232           mcw  @sequence error@,print&98
 233           w
 234           h    0,176
 235           b    doseq
 236 *
 237 * process macro library
 238 *
 239 macro     nop  crder
 240           c    card&20,@headr@
 241           bu   crder
 242           bwz  ckseq,card&80,2  comment out to turn of seq chk
 243           mcw  @B@,macro
 244           lca  @}@,81
 245 *
 246 * write skeleton instructions on tape
 247 *
 248 wtap2     wt   systp,card&1
 249           ber  wterr
 250           c    card&11,@999999@
 251           be   wttm
 252           r
 253           bwz  ckseq,card&80,2  comment out to turn of seq chk
 254           b    wtap2
 255 wttm      wtm  systp
 256           b    nxtbk
 257 *
 258 * end of generation
 259 *
 260 eojob     wtm  systp
 261           rwd  systp
 262           cw   @}@
 263           cs   print&132
 264           cs
 265           mcw  @1401 autocoder system generated on tape unit 1@,246
 266           w
 267           cc   1
 268 *
 269 * final halt
 270 *
 271 halt      h    0,142
 272           b    halt
 273 *
 274 * missing control card
 275 *
 276 crder     cs   print&132
 277           cs
 278           mcw  @system control card missing@,print&27
 279           w
 280 halt2     h    0,177
 281           b    halt2
 282 *
 283 * after sequence error, check balance of deck
 284 *
 285 doseq     r
 286           bwz  ckseq,card&80,2
 287           bce  endsq,card&78,9
 288           b    doseq
 289 endsq     h    0,152
 290           b    endsq
 291 *
 292 * write redundancy routine
 293 *
 294 wterr     sbr  wtxt&3
 295           sbr  xr3
 296           mz   &9,xr3
 297           mcw  4000-6&x3,retry&7
 298 bsp       bsp  systp
 299           skp  systp
 300           bce  subct,wtct-1,1
 301           a    &1,wtct#2
 302 retry     wt   systp,xxxx
 303           ber  bsp
 304 wtxt      b    xxxx
 305 subct     s    wtct
 306           h    0,161
 307           b    retry
 308           ex   start
 309           job  autocoder-pass 1 select program           -version 3   3712l
 310           sfx  b
 311 passa     equ  1650
 312 dopsa     equ  1900
 313 systp     equ  %u1
 314 *
 315 * branch from tape load routine
 316 *
 317           org  1
 318           b    333
 319           h    *-3
 320 loadd     dcw  @599@
 321           org  87
 322 xr1       dcw  000
 323           dc   00
 324           dcw  000
 325           dc   00
 326           dcw  000
 327           dc   00
 328 *
 329 * begin program
 330 *
 331           org  333
 332           ber  halt1
 333           sw   gmrk1
 334 clear     cs   3999
 335           sbr  clear&3
 336           c    clear&3,@U99@
 337           bu   clear
 338 *
 339 * get past library
 340 *
 341 loop1     sw   gmrk1
 342           rt   systp,gmrk1-21
 343           c    gmrk1-2,@999999    headr@
 344           bu   loop1
 345           sw   gmrk1
 346           rt   systp,gmrk1-1
 347           bef  tstss
 348           b    loop1
 349 *
 350 * redundancy on tape load
 351 *
 352 halt1     h    0,199
 353           b    halt1
 354 tstss     bss  librn,f
 355 *
 356 * retrieve pass 2 for assembly run
 357 *
 358           sw   gmrk1
 359           lca  gmrk1,3998
 360           mcw  &passa&13,nois2&6
 361 *
 362 * get past librarian
 363 *
 364 loop2     bce  lopsa,byct,4
 365           sw   3998
 366           rtw  systp,passa
 367           b    noise
 368           a    &1,byct#1
 369           b    loop2
 370 *
 371 * pass 2 found
 372 *
 373 lopsa     rtw  systp,passa
 374           b    noise
 375           ber  rderr
 376           cw   gmrk1
 377 clr       cs   passa-1
 378           sbr  clr&3
 379           c    clr&3,loadd
 380           bu   clr
 381           b    dopsa
 382 *
 383 * library run
 384 *
 385 librn     mcw  @!13@,nois2&6
 386           cw   gmrk1
 387           bss  outpt,b
 388 *
 389 * retrieve update program
 390 *
 391           rtw  systp,2000
 392           b    noise
 393           ber  rderr
 394           b    2000
 395 *
 396 * retrieve output program
 397 *
 398 outpt     rtw  systp,2000
 399           b    noise
 400           sw   gmrk1
 401           lca  gmrk1,3998
 402           rtw  systp,2000
 403           b    noise
 404           rtw  systp,2000
 405           b    noise
 406           sw   3998
 407           rtw  systp,2000
 408           b    noise
 409           ber  rderr
 410           cw   gmrk1,3998
 411           b    2000
 412 *
 413 * test for noise records
 414 *
 415 noise     sbr  nosxt&3
 416           sbr  xr1
 417           mz   &9,xr1
 418 nois2     bce  4000-12&x1,0,}
 419           chain12
 420 nosxt     b    0
 421 *
 422 * read redundancy routine
 423 *
 424 rderr     sbr  xr1
 425           sbr  rdxt&3
 426           mz   &9,xr1
 427           mcw  4000-10&x1,rdtry&7
 428 bsp       bsp  systp
 429           mcw  &9,rdct#1
 430 rdtry     rtw  systp,0
 431           ber  *&5
 432 rdxt      b    0
 433           bsp  systp
 434           s    &1,rdct
 435           bwz  rdtry,rdct,b
 436           h    0,191
 437           mcw  rdtry&7,*&8
 438           rtw  systp,0
 439           bss  bsp,e
 440           h    0,111
 441           b    rdxt
 442           ltorg*
 443           dcw  #22
 444 gmrk1     dcw  @}@
 445           ex   0
 446           job  autocoder-pass 1 retrieve update          -version 3   3713l
 447           sfx  r
 448 systp     equ  %u1
 449 ltapsw    equ  2725
 450           org  2000
 451           bss  list,g
 452           cw   endrt
 453 start     rtw  systp,1
 454           bce  start,013,}
 455           chain12
 456           ber  rderr
 457           b    333
 458 rderr     bsp  systp
 459           mcw  &9,rdct#1
 460 rdtry     rtw  systp,1
 461           ber  *&5
 462           b    333
 463           bsp  systp
 464           s    &1,rdct
 465           bwz  rdtry,rdct,b
 466           h    0,191
 467 again     rtw  systp,1
 468           bss  rderr,e
 469           h    0,111
 470           b    333
 471 list      sw   endrt
 472           lca  endrt,1998
 473           rtw  systp,333
 474           bef  get
 475           b    list
 476 get       bsp  systp
 477           bsp  systp
 478           cw   endrt,1998
 479           sw   ltapsw
 480           mcw  @333@,rdtry&6
 481           mcw  @333@,again&6
 482           rtw  systp,333
 483           ber  rderr
 484           b    333
 485           ltorg*
 486 endrt     dcw  @}@
 487           ex   0
 488           job  autocoder-pass 1 copy system tape         -version 3   3714l
 489           sfx  u
 490           org  87
 491 xr1       dcw  000
 492           dc   00
 493 xr2       dcw  000
 494           dc   00
 495 xr3       dcw  000
 496           dc   00
 497 systp     equ  %u1
 498 outap     equ  %u6
 499 input     equ  1500
 500 *
 501 * begin program
 502 *
 503           org  333
 504           sw   endup
 505           rwd  systp
 506           rwd  outap
 507           cc   1
 508           cs   332
 509           cs
 510           b    clear
 511           bss  copy,c
 512 *
 513 * retrieve update program
 514 *
 515           rtw  systp,input
 516           sbr  xr1
 517           mn   0&x1
 518           sw
 519           dcw  @N0000@
 520           b    noise
 521           ber  rderr
 522           wtw  outap,input
 523           ber  wterr
 524           b    clear
 525 bypss     rtw  systp,input
 526           c    input&19,@999999    headr@
 527           bu   bypss
 528           rtw  systp,input
 529           bef  getup
 530           b    bypss
 531 getup     bce  ldupd,byct,3
 532           rtw  systp,input
 533           dcw  @N0000000000000@
 534           b    noise
 535           ber  rderr
 536           a    &1,byct#1
 537           b    getup
 538 ldupd     cs   199
 539           cs   80
 540           sw   6,16
 541           sw   21
 542           b    head
 543           b    begin
 544 *
 545 * copy system
 546 *
 547 copy      rtw  systp,input
 548           sbr  xr1
 549           mn   0&x1
 550           sw
 551           bef  eof
 552           b    noise
 553           ber  rderr
 554 *
 555 * test end of library
 556 *
 557 swich     nop  wtap1
 558           sw   libsw
 559           c    input&10,@999999@
 560           bu   wtap1
 561           cw   libsw#1
 562 *
 563 * write tape
 564 *
 565 wtap1     wtw  outap,input
 566           ber  wterr
 567 *
 568 * do next block
 569 *
 570 reout     b    clear
 571           b    copy
 572 *
 573 * end of file
 574 *
 575 eof       wtm  outap
 576           bw   ismor,eofsw#1
 577           b    clear
 578           lca  endup,3998
 579           bw   erase,updsw
 580           b    halt1
 581 *
 582 * erase tape
 583 *
 584 erase     skp  outap
 585           wt   outap,input
 586           bce  halt1,skpct-1,2
 587           a    &1,skpct#2
 588           b    erase
 589 *
 590 * end of copy run
 591 *
 592 halt1     mcw  @1401 autocoder system copied on tape unit 6@,243
 593           w
 594           cc   1
 595           bw   cpynd,updsw#1
 596           rwd  outap
 597 cpynd     rwd  systp
 598           h    0,122
 599           b    clear
 600           s    skpct
 601           mcw  @n@,swich
 602           sw   eofsw
 603           b    copy
 604 *
 605 * set up copy of rest of system
 606 *
 607 ismor     bw   bdeof,libsw
 608           cw   eofsw
 609           mcw  @b@,swich
 610           b    reout
 611 *
 612 * false end of file
 613 *
 614 bdeof     bsp  outap
 615           b    reout
 616 *
 617 * test for noise records
 618 *
 619 noise     sbr  nosxt&3
 620           sbr  xr2
 621           mz   &9,xr2
 622 nois2     bce  4000-26&x2,input&13,}
 623           chain12
 624 nosxt     b    0
 625 *
 626 * read redundancy routine
 627 *
 628 rderr     sbr  rdxt&3
 629           sbr  xr3
 630           mz   &9,xr3
 631           mcw  4000-24&x3,rdtry&7
 632           mn   rdtry&3,bsp1&3
 633 bsp1      bsp  systp
 634           mcw  &9,rdct#1
 635 rdtry     rt   systp,0
 636           ber  *&5
 637 rdxt      b    0
 638           mn   rdtry&3,bsp2&3
 639 bsp2      bsp  systp
 640           s    &1,rdct
 641           bwz  rdtry,rdct,b
 642           mn   rdtry&3,*&7
 643           h    0,190
 644           mcw  rdtry&7,*&8
 645           rt   systp,0
 646           bss  bsp1,e
 647           h    0,111
 648           b    rdxt
 649 *
 650 * write redundancy routine
 651 *
 652 wterr     sbr  wtxt&3
 653           sbr  xr3
 654           mz   &9,xr3
 655           mcw  4000-6&x3,wttry&7
 656           mn   wttry&3,bsp3&3
 657 bsp3      bsp  outap
 658           skp  systp
 659           bce  subct,wtct-1,1
 660           a    &1,wtct#2
 661 wttry     wt   outap,0
 662           ber  bsp3
 663 wtxt      b    0
 664 subct     s    wtct
 665           mn   wttry&3,*&7
 666           h    0,160
 667           b    wttry
 668 *
 669 * clear output area
 670 *
 671 clear     sbr  clrxt&3
 672           mcw  @I99@,clr&3
 673 clr       cs   3999
 674           sbr  clr&3
 675           c    clr&3,&input-1
 676           bu   clr
 677 clrxt     b    0
 678           ltorg*
 679 endup     dcw  @}@
 680           ex   0
 681           job  autocoder-pass 1 update library           -version 3   3715l
 682 image     equ  101
 683 *
 684 * begin update
 685 *
 686           org  input
 687 begin     rwd  systp
 688           cw   hedsw,endsw
 689           mcw  &image&13,nois2&6
 690           lca  endup,image&80
 691           rt   systp,image
 692           dcw  @N0000000000000@
 693           b    noise
 694           cs   image&79
 695           b    rdtp
 696 rebeg     b    read
 697           bw   serch,insw
 698           bw   serch,delsw
 699           b    rebeg
 700 *
 701 * search for correct subroutine
 702 *
 703 serch     b    doctl
 704           c    11,@999999@
 705           be   clnup
 706           c    8,name#3
 707           be   found
 708           bh   quit
 709           mcw  8,name
 710           s    seqno
 711 loop1     bw   headr,hedsw
 712           b    rdtp
 713           bw   headr,hedsw
 714 more      b    wtap2
 715           b    loop1
 716 *
 717 * header located on tape
 718 *
 719 headr     bw   past,endsw
 720           c    image&7,name
 721           be   found
 722           cw   hedsw
 723           bl   past
 724           b    more
 725 *
 726 * subroutine not on tape
 727 *
 728 past      bsp  systp
 729           cs   image&79
 730           cw   hedsw
 731           bw   unkwn,delsw
 732           c    22,@  @
 733           bu   unkwn
 734 back      b    ptctl
 735           b    inser
 736 *
 737 * subroutine found
 738 *
 739 found     c    22,@  @
 740           bu   partl
 741 *
 742 * delete and/or insert whole subroutines
 743 *
 744 all       mcw  @delet@,218
 745           b    ptctl
 746           s    seqno
 747 loop2     b    print
 748           b    rdtp
 749           bw   exit,hedsw
 750           b    loop2
 751 exit      bsp  systp
 752           cs   image&79
 753           cw   hedsw
 754           bw   rebeg,delsw
 755 *
 756 * insertion of whole subroutine
 757 *
 758           b    doctl
 759           b    ptctl
 760 inser     s    seqno
 761 loop3     b    read
 762           bw   serch,insw
 763           bw   serch,delsw
 764           b    doout
 765           b    print
 766           b    wtap2
 767           b    loop3
 768 *
 769 * delete and/or insert parts
 770 *
 771 partl     s    xr3&2
 772           bwz  some,21,2
 773           c    24,@  @
 774           be   all
 775           a    &2,xr3
 776           sw   23
 777 *
 778 * scan for values of operands
 779 *
 780 some      sw   opsw#1
 781 test1     bce  twoop,21&x3,,
 782           c    22&x3,@  @
 783           be   twoop
 784           a    &1,xr3
 785           b    test1
 786 twoop     za   20&x3,wk1#4
 787           a    @0@,wk1
 788           bce  nxtop,21&x3,,
 789           b    out
 790 nxtop     sw   22&x3
 791           sbr  xr2
 792 add       a    &1,xr3
 793           c    22&x3,@  @
 794           bu   add
 795           za   20&x3,wk2#4
 796           a    @0@,wk2
 797           c    wk1,wk2
 798           bl   badst
 799           be   onop
 800 is2op     cw   opsw
 801 clrwm     cw   1&x2
 802 out       cw   23
 803           bw   *&8,opsw
 804           mcw  @delet@,218
 805           b    ptctl
 806 *
 807 * search for first statement
 808 *
 809 comp      c    wk1,seqno
 810           be   gotit
 811           a    &1,seqno
 812           b    wtap2
 813           b    rdtp
 814           bw   ntfnd,hedsw
 815           b    comp
 816 *
 817 * first statement found
 818 *
 819 gotit     bw   qinsr,opsw
 820 *
 821 * search for second statement
 822 *
 823 comp2     b    print
 824           b    rdtp
 825           c    wk2,seqno
 826           bh   bspc
 827           bw   ntfnd,hedsw
 828           b    comp2
 829 *
 830 * second statement found
 831 *
 832 bspc      bsp  systp
 833           cs   image&79
 834           s    &1,seqno
 835 thru      bw   loop3,delsw
 836           b    doctl
 837           b    ptctl
 838           b    insr&4
 839 *
 840 * test insert or delete
 841 *
 842 qinsr     bw   insr,insw
 843           b    print
 844           s    &1,seqno
 845           cs   image&79
 846           b    thru
 847 *
 848 * insert statements
 849 *
 850 insr      b    wtap2
 851           b    read
 852           bw   serch,insw
 853           bw   serch,delsw
 854           b    doout
 855           cw   seqsw#1
 856           b    print
 857           s    &1,seqno
 858           b    insr
 859 onop      bw   is2op,insw
 860           sw   opsw
 861           b    clrwm
 862 *
 863 * replicate library
 864 *
 865 repet     b    wtap2
 866 clnup     b    rdtp
 867           b    wtap2
 868           bw   final,endsw
 869           b    clnup
 870 *
 871 * end of update - go to copy routine
 872 *
 873 final     wtm  outap
 874           mcw  &input&13,nois2&6
 875           cw   libsw,eofsw
 876           cw   updsw
 877           cs   332
 878           cs
 879           cc   1
 880 byp1      rt   systp,image
 881           bef  reout
 882           b    byp1
 883 *
 884 * set up insert card
 885 *
 886 doout     sbr  outxt&3
 887           mcw  80,image&79
 888           mcw
 889           mcw
 890 outxt     b    0
 891 *
 892 * read card subroutine
 893 *
 894 read      sbr  cdxt&3
 895           bw   rdcd,lstsw
 896           b    clnup
 897 rdcd      r
 898           cw   insw,delsw
 899           c    20,@inser@
 900           bu   ckdel
 901           sw   insw#1
 902           b    cdxt-5
 903 ckdel     c    20,@delet@
 904           bu   ckrep
 905           sw   delsw#1
 906           b    cdxt-5
 907 ckrep     c    20,@repet@
 908           be   repet
 909           blc  lstcd
 910 cdxt      b    0
 911 lstcd     cw   lstsw#1
 912           b    cdxt
 913 *
 914 * read tape subroutine
 915 *
 916 rdtp      sbr  rtxt&3
 917           rt   systp,image
 918           sw   image&80
 919           dcw  @n000000000@
 920           b    noise
 921           ber  rderr
 922           cw   hedsw,endsw
 923           c    image&19,@headr@
 924           bu   rtxt
 925           sw   hedsw#1
 926           c    image&10,@999999@
 927           bu   rtxt
 928           sw   endsw#1
 929 rtxt      b    0
 930 *
 931 * write tape subroutine
 932 *
 933 wtap2     sbr  wt2xt&3
 934           c    image&79,blank
 935           be   wt2xt
 936           wt   outap,image
 937           ber  wterr
 938           cs   image&79
 939 wt2xt     b    0
 940 *
 941 * print heading
 942 *
 943 head      sbr  hdxt&3
 944           cs   332
 945           cs
 946           mcw  @1401 autocoder - library changes@,251
 947           mcw  @page@,275
 948           a    &1,pgno#3
 949           mcs  pgno,279
 950           w
 951           cc   k
 952           cs   279
 953           mcw  @seq  label  op    operands@,227
 954           w
 955           cc   k
 956           cs   228
 957 hdxt      b    0
 958 *
 959 * set up control card for printing
 960 *
 961 doctl     sbr  ctlxt&3
 962           cc   k
 963           cs   332
 964           cs
 965           mcw  72,271
 966           mcw  22,221
 967           mcw  20,218
 968           mcw  11,212
 969 ctlxt     b    0
 970 *
 971 * print control card
 972 *
 973 ptctl     sbr  ptcxt&3
 974           w
 975           cc   j
 976           cs   332
 977           cs
 978           bcv  newpg
 979 ptcxt     b    0
 980 *
 981 * new page
 982 *
 983 newpg     sbr  newxt&3
 984           cc   1
 985           b    head
 986 newxt     b    0
 987 *
 988 * print statements
 989 *
 990 print     sbr  ptxt&3
 991           sw   220,214
 992           sw   207
 993           bce  comnt,image&5,*
 994           mcw  image&71,271
 995           mcw  image&19,218
 996           mcw  image&10,212
 997 tstsq     bw   seqnc,seqsw
 998           sw   seqsw
 999           b    bump
1000 comnt     mcw  image&71,273
1001           mcw
1002           mcw
1003           b    tstsq
1004 seqnc     mn   seqno,204
1005           mcs
1006 bump      a    &1,seqno#4
1007           w
1008           cs   332
1009           cs
1010           bcv  newpg
1011 ptxt      b    0
1012 *
1013 * sequence error
1014 *
1015 quit      cs   332
1016           cs
1017           mcw  @input cards out of sequence - start over@,240
1018           w
1019           cc   1
1020 halt2     h    0,133
1021           b    halt2
1022 *
1023 * subroutine unknown
1024 *
1025 unkwn     bwz  isunk,21,2
1026           c    24,@  @
1027           be   back
1028 isunk     mcw  @subroutine unknown@,299
1029           w
1030           cc   l
1031           cs   299
1032 loop4     b    read
1033           bw   serch,insw
1034           bw   serch,delsw
1035           b    loop4
1036 *
1037 * bad control card
1038 *
1039 badst     mcw  @bad statement@,299
1040           w
1041           cc   l
1042           cs   299
1043           cw   1&x2,23
1044           b    loop4
1045 *
1046 * statement does not exist in subroutine
1047 *
1048 ntfnd     mcw  @statement does not exist@,299
1049           w
1050           cc   l
1051           cs   299
1052           bw   end99,endsw
1053           b    loop4
1054 *
1055 * end of library reached before routine found
1056 *
1057 end99     mcw  @subroutine unknown@,299
1058           w
1059           cc   l
1060           cs   299
1061           mcw  @end of library reached@,222
1062           w
1063           bsp  systp
1064           cs   image&79
1065 loop6     b    read
1066           b    loop6
1067           dcw  #50
1068 blank     dc   #29
1069           ltorg*
1070 3998      dcw  @}@
1071           ex   0
1072           job  autocoder-pass 1 output library           -version 3   3716l
1073           sfx  p
1074 systp     equ  %u1
1075 xr1       equ  89
1076 *
1077 * begin program
1078 *
1079           org  2000
1080           sw   endot
1081           lca  endot,181
1082           cs
1083           cs   80
1084           sw   6,16
1085           cs   332
1086           cs
1087           cc   1
1088           rwd  systp
1089           rt   systp,101
1090           cs   180
1091           sw   106,116
1092           sw   121
1093           bss  doall,e
1094 *
1095 * print and/or punch selected macros
1096 *
1097           cw   hdrsw
1098 read      cc   1
1099           b    prthd
1100           r
1101           mcw  @2@,opcod
1102           c    20,@print@
1103           be   selmc
1104           c    20,@punch@
1105           bu   error
1106 *
1107 * punch option
1108 *
1109           a    &4,opcod
1110           mn   &4,opsav#1
1111 *
1112 * search for macro
1113 *
1114 selmc     c    8,name#3
1115           be   tstlc
1116           mcw  20,218
1117           mcw  11,212
1118           bl   rdtp2
1119           rwd  systp
1120           lca  endot,181
1121           rt   systp,101
1122           cs   180
1123           sw   106,116
1124           sw   121
1125 rdtp2     rt   systp,101
1126           b    noise
1127           ber  rderr
1128           c    111,@999999@
1129           be   unkn
1130           c    120,@headr@
1131           bu   rdtp2
1132           c    8,108
1133           bu   rdtp2
1134 *
1135 * desired macro found
1136 *
1137           mcw  8,name
1138           cc   k
1139           w
1140           s    seqno
1141           b    inser
1142           cc   k
1143 ptagn     b    print
1144           rt   systp,101
1145           b    noise
1146           ber  rderr
1147           c    120,@headr@
1148           bu   ptagn
1149           bsp  systp
1150 *
1151 * test end of run
1152 *
1153 tstlc     blc  eojob
1154           b    read
1155 *
1156 * macro not on tape
1157 *
1158 unkn      mcw  @unknown@,299
1159           w
1160           cs   299
1161           mcw  @999@,name
1162           b    tstlc
1163 *
1164 * print and/or punch all or print headers only
1165 *
1166 doall     bss  setup,d
1167           cw   hdrsw#1
1168           bss  *&5,g
1169           b    setup
1170 *
1171 * punch all
1172 *
1173           a    &4,opcod
1174           mn   &4,opsav
1175 setup     b    head1
1176           cw   hdsw1#1
1177           b    prthd
1178 rdtp      rt   systp,101
1179           b    noise
1180           ber  rderr
1181           c    111,@999999@
1182           be   eojob
1183           c    120,@headr@
1184           bu   dopnt
1185           b    inser
1186           cc   k
1187           sbr  prtxt&3,*&6
1188           bcv  newpg
1189           s    seqno#4
1190 dopnt     b    print
1191           sw   106,116
1192           sw   121
1193           b    rdtp
1194 *
1195 * end of job
1196 *
1197 eojob     cs   332
1198           cs
1199           cc   k
1200           mcw  @end of library@,214
1201           w
1202           cc   1
1203           cs   180
1204           bce  clrph,opsav,4
1205 rwd       rwd  systp
1206 halt      h    0,155
1207           b    halt
1208 clrph     p
1209           ss   8
1210           b    rwd
1211 *
1212 * incorrect input card
1213 *
1214 error     h    0,144
1215           b    tstlc
1216 inser     sbr  insxt&3
1217           mcw  @     @,105
1218           mcw  @inser@,120
1219           bce  *&5,opsav,4
1220           b    *&2
1221           p
1222           mcw  @headr@,120
1223 insxt     b    0
1224 *
1225 * print heading
1226 *
1227 prthd     sbr  hdxt&3
1228           mcw  @seq  label  op    operands@,227
1229           w
1230           cc   k
1231           cs   228
1232 hdxt      b    0
1233 *
1234 * print statement
1235 *
1236 print     sbr  prtxt&3
1237           c    120,@headr@
1238           be   dohdr
1239           bw   clr,hdrsw
1240 dohdr     cs   332
1241           cs
1242           bce  comnt,106,*
1243           mcw  172,271
1244           mcw  120,218
1245           mcw  111,212
1246 doseq     mn   seqno,204
1247           mcs
1248           mn   seqno,104
1249           mcw
1250           a    &1,seqno
1251           mcw  @ @,105
1252 opcod     w
1253 clr       cs   332
1254           cs
1255           bcv  newpg
1256 prtxt     b    0
1257 comnt     mcw  172,273
1258           mcw
1259           mcw
1260           b    doseq
1261 *
1262 * start new page
1263 *
1264 newpg     cc   1
1265           bw   *&5,hdsw1
1266           b    head1
1267           b    prthd
1268           b    prtxt
1269 *
1270 * print main heading
1271 *
1272 head1     sbr  hd2xt&3
1273           cs   332
1274           cs
1275           mcw  @1401 autocoder - library@,243
1276           mcw  @page@,275
1277           a    &1,pgno#3
1278           mcs  pgno,279
1279           w
1280           cc   l
1281           cs   299
1282 hd2xt     b    0
1283 *
1284 * test for noise records
1285 *
1286 noise     sbr  nosxt&3
1287           sbr  xr1
1288           mz   &9,xr1
1289           bce  4000-12&x1,113,}
1290           chain12
1291 nosxt     b    0
1292 *
1293 * read redundancy routine
1294 *
1295 rderr     sbr  rdxt&3
1296 bsp       bsp  systp
1297           mcw  &9,rdct#1
1298 rdtry     rt   systp,101
1299           ber  *&5
1300 rdxt      b    0
1301           bsp  systp
1302           s    &1,rdct
1303           bwz  rdtry,rdct,b
1304           h    0,191
1305           rt   systp,101
1306           bss  bsp,e
1307           h    0,111
1308           b    rdxt
1309           ltorg*
1310 endot     dcw  @}@
1311           ex   0
1312           end  0



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



,008015,022026,030037,044,049,053053N000000N00001026                   00013722L
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023722L
,008015,022029,036040,047054,061068,072/061039              ,001001104000033722L
00000000000000U%U4RU%U5RU%U6R          L029115,001092,097101,106111104000043722L
BP32BB774C018W05B157/F1M0802802        L031146,121125,132137,139146104000053722L
N1B721B774C018W08B642/B6230241D022191  L037183,149153,157164,169177104000063722L
B623W11 BBB627                         L014197,192193,194201,206040104000073722L
B681*   ,;;                            L017349,337338,341342,343344104000083722L
;;;;;;;                                L007356,351352,353354,355356104000093722L
;;;;;;;                                L007363,358359,360361,362363104000103722L
;   ;;   ;         ;         ;         L030393,365369,370374,384040104000113722L
         ;;         ;         ;;   ;;  L037430,404405,415425,426430104000123722L
;;;;  ;    ;         ;                 L022452,432433,434435,438443104000133722L
    ;         ;         ;         ;    L035487,458468,478040,040040104000143722L
         ;         ;         ;         L030517,498508,040040,040040104000153722L
         ;         ;         ;;;;;     L034551,528538,548549,550551104000163722L
  ;;         ;  ,                      L017568,555556,565566,567568104000173722L
;;;         ;;;                        L015583,570571,572581,582583104000183722L
;;;;;;;                                L007590,585586,587588,589590104000193722L
;;;;;;;                                L007597,592593,594595,596597104000203722L
;;;;;;;                                L007604,599600,601602,603604104000213722L
;;;;;;;                                L007611,606607,608609,610611104000223722L
;;;     ;;;                            L011622,613614,615620,621622104000233722L
S337M026W12B721B774C020V71B670SB634006*L039661,627634,638642,649654104000243722L
BO98BV06MW13743B721B774B677006*C018W16 L038699,666670,677681,685693104000253722L
B713SB721B821BO98BJ68H761M086I97       L032731,705709,713717,721725104000263722L
,I98M773I98NW17I86BS22N764B000000      L033764,736743,750754,758762104000273722L
M%U6I12W}H809/086B798CBM46A1K8061      L033797,774778,782787,792793104000283722L
BS22N812B000M46M%U4001R)W18B681021     L035832,802806,810813,821825104000293722L
HO66O75S095H099H46C0080?0H099B984S     L034866,840844,851858,862040104000303722L
B6810?0@AW19094B851B/13612B/73         L033899,875882,886890,893897104000313722L
BO14F95BO14F82BO14G08B/13              L025924,904907,911914,918921104000323722L
611B992   B/13593BO14F20               L024948,928932,935939,942946104000333722L
BO14E77BO14E52B/47581B/47              L025973,953956,960963,967970104000343722L
620BO14E33S100B8Q6LW20571BO14          L029'02,977981,984988,992999104000353722L
F69H/04MW23W26S095C0B2W28,021B'90S     L034'36,'06'10,'17'21,'28'32104000363722L
B/050B1,C099W30B'97SM0B1WK4AW31094     L034'70,'45'52,'57'64,040040104000373722L
B/050943AW31099B'21AW31099,W18B000BN55 L038/08,'79'86,'90'97,/01/05104000383722L
B/01H089M0'2089C023W34B/43/LW200'0B333 L038/46,/13/17,/24/31,/36/43104000393722L
H089M0'2089BN55L0A90'0B681HO66/87BO14  L037/83,/51/58,/62/69,/73/80104000403722L
G27CW26W37BO75/BN55BO750A9 M0A9607BO75 L038S21,/87/94,/99S03,S11S18104000413722L
H094HT43M0!3094M0!8T01M0!0T13,T19      L033S54,S26S30,S37S44,S51040104000423722L
M0!7T21AW39T21)T19DS97U28DT01U28MW40W41L039S93,S62S69,S73S80,S87040104000433722L
M%U0000RBT35T01WB000KBS94000}BBB       L032T25,T02T10,T15T23,T24T25104000443722L
BBBBBBB                                L007T32,T27T28,T29T30,T31T32104000453722L
BBBT44LB000SW31W41DS97T61U%U0B         L030T62,T34T35,T40T44,T51T58104000463722L
BT83T01WVU22W41KBS94AW31W43U%U6E       L032T94,T71T79,T83T90,040040104000473722L
BU07W425BS87SW43.000202BS87.000200BS87EL039U33,U03U07,U11U18,U22U29104000483722L
MT01U48M%U0000R.000201BT40L622567L     L034U67,U41U49,U56U60,U67040104000493722L
H336M06MW46O93L186086B721BL91BC49U%U4B L038V05,U75U82,U89U93,U97V01104000503722L
M%U1I97RM%U1I97RHP30341BS22NP23B341H089L039V44,V14V22,V29V33,V37V41104000513722L
M0'2089,021M0213U9BM06DIOCSBN55A0A9W01 L038V82,V52V56,V63V67,V72V76104000523722L
LW01373SW02B3330000?JOBCTL456          L029W11,V90V94,V98W03,W06W09104000533722L
 MDTFW 7$                              L009W20,W13W14,W17W18,W19W20104000543722L
        521YESTAP                      L017W37,W24W27,W29W31,W32W35104000553722L
129   3U9                              L009W46,W40W41,W42W44,040040104000563722L
}                                      L001W49,040040,040040,040040104000573722L
                                       N000000,040040,040040,040040B00000583722L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     00593721L
,068072)063067/061039                                       ,001001104000603721L
H099H03HO66O75BM06021 )W18C007H48B!31S L038W87,W57W64,W72W76,W83040104000613721L
S095C0080?0H099BZ35SBM060?0@AH49094BW92L039X26,W92W99,X03X08,X16X23104000623721L
BO14E00B!89554B!89457BN37              L025X51,X31X34,X38X41,X45X48104000633721L
452BO14D87BO14D74BZ81                  L024X75,X55X59,X62X66,X69X73104000643721L
B!89424B!89414B!71   B!89              L025Y00,X80X83,X87X90,X94X97104000653721L
403BZ47393BV72373BV41020               L024Y24,Y04Y08,Y11Y15,Y18Y22104000663721L
B!89368BO14D55BV41011BV41              L025Y49,Y29Y32,Y36Y39,Y43Y46104000673721L
010BO14D30BO14D23BV41009               L024Y73,Y53Y57,Y60Y64,Y67Y71104000683721L
B!89547B/13342BV41206B!06              L025Y98,Y78Y81,Y85Y88,Y92Y95104000693721L
 L%U1001RBZ21L)W49B101U%U1BN288        L031Z29,Z00Z08,Z13Z17,Z21Z26104000703721L
.BZ00S100,021BXK7BN55L0A9393           L028Z57,Z31Z35,Z39Z43,Z47Z51104000713721L
V333W181BN55L0A9383B333HO66Z95BO14E20  L037Z94,Z66Z70,Z77Z81,Z88Z92104000723721L
L0A9429BO75HO66!20BO14E13L0A9565BO75   L036!30,!02!06,!13!17,!20!27104000733721L
MH52094D008093S100BN55L0A93M9LH53343   L036!66,!38!45,!49!53,!60040104000743721L
BM06D022404YH54404BM06H089V333W181     L034J00,!71!78,!85!89,!93040104000753721L
M0'2089BN55L0A90'0H089VM06W181BJ08H761 L038J38,J08J12,J19J23,J31J35104000763721L
M086I97,I92M773I92MH55I85B750DH56768   L036J74,J46J50,J57J64,J68040104000773721L
/086MH61020H099622BK01/086,001H089021  L037K11,J79J86,J93J97,K01K05104000783721L
MH62073M0?0L89H094M089H65P0!10'0H089   L036K47,K19K26,K30K37,K44040104000793721L
MH670'0BL01073'MH65089,0'0MH69080M079  L037K84,K55K63,K70K74,K81040104000803721L
)0'0BJ35)I92BJ97M0?00?0H099C0?0H54     L034L18,K89K93,K97L01,L08L12104000813721L
Q099BL12SAH70099BL470?0,BK19MH690'0    L035L53,L23L28,L35L43,L47040104000823721L
MH54073BJ35)I92DH71768BU60          '  L037L90,L61L65,L69L76,L80040104000833721L
S100BN55L0A9349B774BM30006*C020H76BM46/L039M29,L95L99,M06M10,M18M25104000843721L
B721BM06006*BW50DH56768H099567BO98     L034M63,M34M42,M46M53,M60040104000853721L
HQ99U97C018H79/086MH84020BN05SHL79V06  L037N00,M71M78,M82M89,M94040104000863721L
BK01HL79N16BK01L%U1341RU%U1B)568BU60   L036N36,N05N12,N16N24,N29N33104000873721L
BN55M0A9452B!89442HO13,021C0B2H69      L033N69,N41N48,N52N55,N59N63104000883721L
AH70099BO02SBO060B0,C099H86BN59/,W18   L036O05,N77N82,N90N97,O02040104000893721L
,0B1B000H094M0!2H89B'06MH89094CW260!0  L037O42,O10O14,O18O25,O29O36104000903721L
H094M0!0089Q094BO87SBO750!0@BO36       L032O74,O47O54,O58O63,O71040104000913721L
V333W181BO25LH535X6BO75HP20/186,101    L035P09,O83O87,O94O98,P02P06104000923721L
M086186B000   L%U1101R,332M773332      L033P42,P17P21,P24P32,P36040104000933721L
M%U1101RBS22NP23B101BS22NA35MI19340    L035P77,P51P55,P59P63,P67P71104000943721L
B119CU%U4BHN00Q88H6651C018H92BQ96/     L034Q11,P83P88,P95P99,Q00Q07104000953721L
BC19BR43BS22NA35CI95I02B?05SCI29H95    L035Q46,Q16Q20,Q24Q28,Q35Q40104000963721L
BQ60/B205B220CI29H98B119SMI97086,I10   L036Q82,Q52Q56,Q60Q67,Q72Q79104000973721L
BA44GVR04I101BO98BU97VR27I091DH56768   L036R18,Q88Q96,R00R04,R12040104000983721L
BJ35BR32U%U4BL331186BU97H?04,I03       L032R50,R23R27,R32R39,R43R47104000993721L
)W18S100BN55?0A9I02VR93W181BN55?0A9I07 L038R88,R55R59,R63R70,R78R82104001003721L
)I03/086,001B000V?37I031CI95I07B?37S   L036?24,R93R97,?01?05,?13?20104001013721L
BS22NA35B?13BQ88A1C018H92BQ12S         L030?54,?29?33,?37?42,?43?50104001023721L
C018H95B?75/B205B175C018H98B138S       L032?86,?62?67,?71?75,?82040104001033721L
VA03I031)I10BQ83BC19)I09H182Q72H234    L035A21,?95?99,A03A07,A11A18104001043721L
MI08131BQ40Q88M%U4I12RVA85I091H684A74  L037A58,A29A33,A36A44,A52040104001053721L
HB02B68)I10B642M331086,I09H684B03      L033A91,A66A70,A74A81,A85040104001063721L
HM09C08B642/086VB41I101BC34A1C018H92   L036B27,A99B03,B07B15,B20B21104001073721L
BB68/BC19BR43BC49CI95I02BB72S,I10      L033B60,B33B37,B41B45,B52B57104001083721L
MI97086B685)I10VB61I031CI95I07BB03SBS22L039B99,B68B72,B76B84,B91B96104001093721L
NA35BB84HB71M10BB03HC33M086331B000     L034C33,C04C08,C15C19,C23C30104001103721L
,I10MI08B52BB41HC80BS22NA35BC53I86Y    L035C68,C38C45,C49C53,C57C61104001113721L
BC53I86ZB000@001INP002OUT              L025C93,C77C81,C82C85,C88C91104001123721L
003TAP004REA005PUN008                  L021D14,C97D00,D03D06,D09D12104001133721L
CHE006PRI@007LOA@                      L017D31,D18D21,D24D25,D28D31104001143721L
012BLO013UNB014FIX015                  L021D52,D35D38,D41D44,D47D50104001153721L
VAR@081STA082NON083                    L019D71,D56D57,D60D63,D66D69104001163721L
TM @084ALL085IDE@                      L017D88,D75D76,D79D82,D85D88104001173721L
199UNL200NOR@2019                      L019E07,D92D95,D98E01,E02E05104001183721L
20212 @076REC@I9C                      L017E24,E11E14,E15E18,E21E22104001193721L
OUTI9DINP@045REL046                    L019E43,E28E31,E34E35,E38E41104001203721L
STO006OVE@007TAP008                    L019E62,E47E50,E53E54,E57E60104001213721L
REA009PUN010PRI@011                    L019E81,E66E69,E72E75,E78E79104001223721L
STA012NON013MIX014CHE                  L021F02,E85E88,E91E94,E97F00104001233721L
015IDE026RDL016TM @                    L019F21,F06F09,F12F15,F18F21104001243721L
0181  0192  0203  021                  L021F42,F25F28,F31F34,F37F40104001253721L
4  0225  0236  0247                    L021F63,F46F49,F52F55,F58F61104001263721L
0258  @027729028733                    L019F82,F67F70,F71F74,F77F80104001273721L
@029NOR030UNL@037                      L017F99,F84F87,F90F93,F96F97104001283721L
REC038HAS@034CLE033                    L019G18,G03G06,G09G10,G13G16104001293721L
PRO032SCA@OVEFORCOB                    L019G37,G22G25,G28G29,G32G35104001303721L
VARCHAFILMODCARALTREC                  L021G58,G41G44,G47G50,G53G56104001313721L
SIZPADBLOIOAWORINDEOF                  L021G79,G62G65,G68G71,G74G77104001323721L
WLRTOTTYPCHEHEASERREE                  L021H00,G83G86,G89G92,G95G98104001333721L
REW@TAPCHEDIOFEAIOD                    L019H19,H04H05,H08H11,H14H17104001343721L
LABALTEXIVARCOUDRIRWD                  L021H40,H23H26,H29H32,H35H38104001353721L
REAINPEX71 8$                          L014H54,H44H47,H49H50,H53H54104001363721L
*555555'   ,                           L015H69,H56H57,H62H63,H66H68104001373721L
16     DTF3333352                      L020H89,H71H72,H77H80,H85H87104001383721L
ALTJOBCTL         N                    L019I08,H93H96,H99I03,I04I08104001393721L
                                       L002I10,I10I12,040040,040040104001403721L
"                                      L001I98,040040,040040,040040104001413721L
                                       N000000,040040,040040,040040B00001423721L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01433723L
,068072)063067/061039                                       ,001001104001443723L
,;;      ;;;                           L012352,342343,344350,351352104001453723L
;;;;;;;                                L007359,354355,356357,358359104001463723L
;;;;;   ;;                             L010369,361362,363364,365369104001473723L
   ;         ;         ;         ;;    L035404,374384,394404,040040104001483723L
         ;         ;;   ;;;;           L028432,415425,426430,431432104001493723L
;;  ;    ;         ;    ;         ;    L035467,434435,438443,453458104001503723L
         ;         ;         ;         L030497,478488,040040,040040104001513723L
         ;         ;         ;         L030527,508518,040040,040040104001523723L
         ;         ;;;;;  ;            L027554,538548,549550,551552104001533723L
;         ;  }                         L014568,556565,566567,568040104001543723L
                                       N000000,040040,040040,040040B00001553723L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01563724L
,068072)063067/061039                                       ,001001104001573724L
)332U%U1BU%U1BBP63MI97086B662CH182Q20  L037137,105110,115119,126131104001583724L
B1670241D022160B167237 BBB171S337      L033170,146153,161162,163167104001593724L
B183B721B?37H204M238Q67M238?82B000     L034204,175179,183187,194201104001603724L
H219,Q51?66B000MI97086B721BQ20456      L033237,209216,220227,231235104001613724L
N                                      L001238,246040,040040,040040104001623724L
}                                      L001332,040040,040040,040040104001633724L
                                       N000000,040040,040040,040040B00001643724L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01653725L
,068072)063067/061039                                       ,001001104001663725L
D432768HJ60433L186086BJ35)I92,606      L033373,348355,362366,370040104001673725L
M773606BS22N412)606U%U5RBS22N423       L032405,381385,389393,398402104001683725L
BZ00   L%U5434W   L%U1W50R5N           L028433,410413,421424,432433104001693725L
C!73W14B450SBT08BO33U%U5RU%U1BU%U1B    L035468,441446,450454,459464104001703725L
U%U6MU%U6RMW01003LI98036M%U5001WU%U5M  L037505,474479,486493,501040104001713725L
U%U4R)187036)100M%U1I97R,I98B543KB522  L037542,511518,522530,534539104001723725L
M%U1I97R,I98S605604V574604KB543/466/   L036578,551555,562570,574578104001733725L
/BW50N594BM65Y34L%U1K10R11             L026604,580584,588592,595603104001743725L
A}                                     L002606,606040,040040,040040104001753725L
                                       N000000,040040,040040,040040B00001763725L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     01773728L
,068072)063067/061039                                       ,001001104001783728L
000000000000000                        L015101,001092,097040,040040104001793728L
}                                      L001100)100100,101040,040040104001803728L
}00***                                 L006192)187187,190040,040040104001813728L
/!73//086BW50N132B141074NB541          L029129,105106,110114,118126104001823728L
141M%U5001RM172N74M176B467/086BW50     L034163,133141,148152,156160104001833728L
N132BN751/086                          L013176,168172,173201,461040104001843728L
HL04510C!73W14B506SBT08B506C!73W14BS64/L039505,474481,486490,494501104001853728L
B525B686CB686A/0861H509O33M'15U62      L033538,510515,520524,525532104001863728L
MMC018'18B697006*B697/S090BM19         L030568,540541,548556,561565104001873728L
?0/9'22BW50N922M'23I96,I98CI95'22B631S L038606,576580,584591,595602104001883728L
CI29'26B'02SBW50NO24B576B6510S0,BW50   L036642,614619,623627,631639104001893728L
NO24BL01BM19?0/9'22CI95'22B931SBW50    L035677,647651,655662,669674104001903728L
N922B662M'27602B576,001HO99L01BO48006* L038715,682686,693697,701708104001913728L
C018'30BO48SC018'33BH11SC018'36B879S   L036751,723728,735740,747040104001923728L
C018'39BU33SC018'42B474SC018'26BU78S   L036787,759764,771776,783040104001933728L
C019W05BJ51SC020U59BJ51SC020T57B494S   L036823,795800,807812,819040104001943728L
H099T74C0180?0H099BP00SB8590?0#B831    L035858,831838,842847,855040104001953728L
BO48020 BO48016 BP00BO331B879008*      L033891,867875,879883,884040104001963728L
C016'26BU78SC016'36B879/B506000M%U4I12RL039930,899904,911916,920923104001973728L
B943I86RBL01BW50N922CI31W16B943SM'27958L039969,939943,947951,958963104001983728L
B943I86SB943I86CU%U4BM943958B510MI97086L039'08,978986,991998,'02040104001993728L
BU78SCRALT    RENDN                    L019'27,'13'16,'19'23,'24'27104002003728L
MLCCHAENTMA EX }                       L016'43,'31'34,'37'40,'43040104002013728L
                                       N000000,040040,040040,040040B00002023728L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02033727L
,068072)063067/061039                                       ,001001104002043727L
000000000000000                        L015101,001092,097101,040040104002053727L
}00***                                 L006192)187187,190040,040040104002063727L
}/!73/B1181891B132                     L018117)100100,101105,106114104002073727L
M959764M959780,885,779,762B467H07*     L034151,125132,136140,144040104002083727L
M959526M959533B467                     L018169,159166,201461,040040104002093727L
B653,001HO99467B758006*C020964BH11S    L035501,471475,482490,497040104002103727L
C020969B758SC018972B795SC020977BU33S   L036537,509514,521526,533040104002113727L
C020982B857SC018985BU78SC019W05BJ51S   L036573,545550,557562,569040104002123727L
C020U59BJ51SC020990B918SH099T74C0180?0 L038611,581586,593598,605040104002133727L
H099BP00SB6330?0#B605B758020 B758016   L037648,616621,629633,641040104002143727L
BP00H696/086B677CB934A1                L023671,653657,661665,666671104002153727L
K6931BW50N699B708074NB471934M%U5001R   L036707,677681,685693,697700104002163727L
)665779D991703)762885C!73999B745SBT08  L037744,715722,729736,741040104002173727L
M994U62MMB693BO41CNM995763             L026770,752753,754758,763764104002183727L
BO41B795C8H917803M959O37BO33B653       L032802,775780,781788,795799104002193727L
M996O37H917471B775008*C016985BU78S     L034836,810817,825832,040040104002203727L
C016972B775/BO33B467C!73999B758SBT08   L036872,844849,853857,864869104002213727L
BO33B467B896C1K1M959763HX65X71         L030902,877881,886887,889896104002223727L
HX70914BX71B471C!73999BS64/B758/086    L035937,910914,918925,930934104002233727L
,001M'05019BU78881X71NCHAIN            L027964,942949,953956,959960104002243727L
MLCWAENTMA   EX   ENDLTORG4            L027991,970973,978983,986991104002253727L
SCR8B   END$$$                         L014'05,995996,997'00,040040104002263727L
U%U1RSH72BL01VD680'3KB/19MW160'5M089W11L039'82,'49'53,'57'65,'69'76104002273727L
M099094BG46AW11089M0?00'1MW11089BA48   L036/18,'90'94,/01/08,/15040104002283727L
HS63MW16099MW16W19D0'2W19SW17W19       L032/50,/23/30,/37/44,040040104002293727L
V/70W19KAW18099B/44B!74UI00MW16W19     L034/84,/59/66,/70/78,040040104002303727L
MUI2099D0'3W19SW17W19M0?00?0QW22       L032S16,/92/99,S06S13,040040104002313727L
B!740?0,VS44W19KMW22099B/99B!740?0;    L035S51,S25S33,S40S44,040040104002323727L
VD410'3SB000MW27020MW28075BO33BD79/086 L038S89,S60S64,S71S78,S82S86104002333727L
MT58021MU61075BK97HT41,001/186L086186  L037T26,S97T04,T08T12,T16T20104002343727L
BD79L186086B000D83M%U1001RLTORG*#      L033T59,T31T38,T42T45,T53T59104002353727L
RLSGETPUTDTFOPEHU14/086                L023T82,T63T66,T69T72,T75T79104002363727L
MW29086MW36020MU61075MW37006B000MW29L01L039U21,T90T97,U04U11,U15040104002373727L
MW38N66BE90MU62075BO33MW39018BP18INCLD L038U59,U29U33,U40U44,U51U55104002383727L
ZYWBT75M192011BK97BW50                 L022U81,U61U62,U63U67,U74U78104002393727L
NV89B434466                            L011U92,U86U90,U93U96,U99V02104002403727L
LW400?0H099                            L011V30,V05V08,V11V14,V17V27104002413727L
AW18095BH220953AW41089,0S1BV200S1,     L034V64,V38V46,V53V57,040040104002423727L
M095H10BN39MH10095BP79   L%U5434R0000  L037W01,V72V76,V83V87,V90V99104002433727L
CALL!73        A3                      L018W19,W06W09,W12W17,W18W19104002443727L
   ORG  LBUNKNOWN*N                    L019W38,W23W28,W29W30,W37W38104002453727L
D;1                                    L003W41,W40W41,040040,040040104002463727L
}                                      L001W49,040040,040040,040040104002473727L
                                       N000000,040040,040040,040040B00002483727L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     02493726L
,068072)063067/061039                                       ,001001104002503726L
H094HX70M0!3094M0!8X29M0!0X41,X47      L033W82,W54W58,W65W72,W79040104002513726L
M0!7X49AY93X49)X47DX25Y55DX29Y55MY94Y95L039X21,W90W97,X01X08,X15040104002523726L
M%U0000RBX62X29WB000KBX22000}BBB       L032X53,X30X38,X43X51,X52X53104002533726L
BBBBBBB                                L007X60,X55X56,X57X58,X59X60104002543726L
BBX71LB000SY96Y95DX25X88U%U0BBY10X29W  L037X97,X62X67,X71X78,X85X90104002553726L
VY49Y95KBX22AY96Y98U%U6EBY34Y975BX15   L036Y33,Y06Y10,Y17Y22,Y30040104002563726L
SY98.000202BX15.000200BX15EMX29Y75     L034Y67,Y38Y45,Y49Y56,Y61040104002573726L
M%U0000R.000201BX67HEADR129            L028Y95,Y76Y83,Y87Y92,Y94Y95104002583726L
1                                      L003Y98,Y97040,040040,040040104002593726L
M340H10MMW12!55BW50NZ68)W49,I98        L031Z30,Z07Z08,Z15Z19,Z23Z27104002603726L
M187I98)I95I97BZ77BU%U1RM!55189B101Y34 L038Z68,Z38Z45,Z50Z55,Z62Z66104002613726L
L%U1001RBW50NZ68)'43U%U1RMH10W01M!58L04L039!07,Z77Z81,Z85Z89,Z94!01104002623726L
HN73156M!59O41M!59O37M!59O89B101H07*   L036!43,!15!22,!29!36,040040104002633726L
M!59759B101 106N                       L016!59,!51!55,!56!59,Z00040104002643726L
VJ080'3SVD410'3BMH44086)0'10'4B?41     L034J07,!82!90,!97J04,040040104002653726L
MW140'3B!97MH45L01MH44N66MU60075BJ58   L036J43,J15J19,J26J33,J40040104002663726L
MH44K20MU62075MW08094,021BK90092Y      L033J76,J51J58,J65J69,040040104002673726L
C0!0H48BK09SC0!0023Q094BK16SBJ69M0230!0L039K15,J84J89,J96K00,K05K09104002683726L
)021NR17BO33BL01020DM011466H099S090    L035K50,K20K24,K28K36,K43K47104002693726L
BM19,001L0/90?0H099BL090S0 BN390S0,BK51L039K89,K55K59,K66K70,K78K86104002703726L
MH49086BO33B467BU15LH500?0/086M466011  L037L26,K97L01,L05L09,L16L20104002713726L
M460025Q099MH44016MU61075M099H53MH53099L039L65,L34L38,L45L52,L59040104002723726L
)024BO33/086BL010?0 MH56018M099094BG46 L038M03,L70L74,L78L86,L93M00104002733726L
M0?00S1Q099BL45HN12,021BN130S1@BM980S1,L039M42,M11M15,M19M23,M27M35104002743726L
C0S1H58BN09SAH59089C089H61BM23/C072H58 L038M80,M50M55,M62M69,M74040104002753726L
BN09SBN09072 BN02,0S2AH59089B000?H64090L039N19,M86M94,M98N02,N09N13104002763726L
BM550S1@SH66090BN20HO21BN54AH59089     L034N53,N28N35,N39N43,N47040104002773726L
C089H61BO06/NG80B653NMU62075BO33       L032N85,N61N66,N70N74,N75N82104002783726L
BN70006*S090BV20021,BN470S1 ,0S1B000Y34L039O24,N94N98,O06O14,O18O22104002793726L
M%U6I12WHO99BO48M955X65M086I97BO89I85* L038O62,O33O37,O41O48,O55040104002803726L
MW13I85,I98M187I98BW50NO24M958X65B000  L037O99,O70O74,O81O85,O89O96104002813726L
MH67075BO33AH59W01M018192SV19SS        L031P30,P07P11,P18P25,P29P30104002823726L
SSSSSSS096                             L010P40,P32P33,P34P35,P36P37104002833726L
AH68095M011466H099S090BQ25021 BV20021, L038P78,P48P55,P59P63,P71040104002843726L
AH68095BH330953BM19L0/90?0H099BV200S1, L038Q16,P86P94,P98Q05,Q09040104002853726L
BV650S0,LH690?0/086CH72192MH75H72BR65S L038Q54,Q25Q32,Q36Q43,Q50040104002863726L
BQ65UU%U1R,100BW50NB18C020Y91BQ65/     L034Q88,Q60Q65,Q69Q73,Q77Q84104002873726L
C008H75BU63SC008192BQ65/BR65MH45K20    L035R23,Q96R01,R08R13,R17040104002883726L
MU60075BO33BR65020DMH80020)188MU61075  L037R60,R31R35,R43R50,R54040104002893726L
BO33/086,001100M187100BW50NB29C020Y91  L037R97,R65R69,R76R83,R87R91104002903726L
M008H72BL01SC008H83B?26/,188?H86090    L035?32,?05?10,?17?22,?26040104002913726L
BB380'1)SH66090C089H88B?33/S090BM19    L035?67,?41?48,?55?60,?64040104002923726L
)0210S1C089H90BA26TC0S1H58B?64/BA26006*L039A06,?75?82,?87?94,?99040104002933726L
,0S1MW12072M072)0S1MH93089HJ07A48      L033A39,A11A18,A22A26,A33040104002943726L
B'570'1)SH66090C089H95BA40/HJ07?41     L034A73,A48A55,A62A67,040040104002953726L
N466011MH45A74C019W05BJ44SC020U59BJ44S L038B11,A81A88,A95B00,B07040104002963726L
BR50U63M%U1001R'44M%U1001RB?410'2      L034B45,B16B19,B27B30,B38040104002973726L
,0'10'4VC560'3KB/19M099H98S099W22      L033B78,B53B61,B65B72,040040104002983726L
YW16W22MI01099SW22099MI02097C099I05    L035C13,B86B93,C00C07,040040104002993726L
BC78TM0G7073HC47)0'4MH98099M0?0000)0'1 L038C51,C19C26,C30C34,C41C48104003003726L
B?41M069072MW01)0'10'4B?41L073I84      L033C84,C56C63,C67C74,C78040104003013726L
)0'10'4MW14072BD22099HMI84072HC47BD33  L037D21,C92C99,D07D14,D18040104003023726L
MI84071HC47)I/5BC30VD531881BR65MI06A74 L038D59,D29D33,D37D41,D49D53104003033726L
)188BR65MW01011BA67HG45U%U1R)V98       L032D91,D64D68,D75D79,D83D88104003043726L
,100M187100BW50NT44C020Y91BD92/C008H75 L038E29,D96E03,E07E11,E18E23104003053726L
BF56SMW08089BD92087Y,006C0'0008Q089    L035E64,E35E42,E50E54,E61040104003063726L
BE42/VD920'11)006,0'1,V98BW50NT44      L033E97,E70E78,E82E86,E90E94104003073726L
C019W05BJ19SC020U59BJ19SC020Y91BE23S   L036F33,F05F10,F17F22,F29040104003083726L
MU61075LI98100BO33BE90MW08089BG26087Y  L037F70,F41F48,F52F56,F63040104003093726L
C0'0H48Q089BG26SVF630'11VD83V981BT75   L036G06,F78F82,F87F95,G03040104003103726L
,0'1M0'3011BO33BF63/!73/)100           L028G34,G11G18,G22G26,G30G31104003113726L
MH75H72B000HG57S090V0000!01SI08095     L034G68,G42G46,G50G54,G62040104003123726L
AH59089BG54/086BW50NT44MU60075,001     L034H02,G76G80,G84G88,G92G99104003133726L
BN82    MH67075BK97M099UR2BV46M099UR2  L037H39,H07H11,H18H22,H29H33104003143726L
BP94BN   7                             L014H53,H44H45,H46H49,H50H51104003153726L
DCW  1525101?R                         L014H67,H57H59,H60H62,H65H67104003163726L
3,   999B    )00690                    L019H86,H69H70,H73H76,H81H84104003173726L
155101504   I99I                       L016I02,H89H91,H94H96,H99I02104003183726L
I9FM10                                 L006I08,I06I07,I12040,040040104003193726L
"                                      L001I98,040040,040040,040040104003203726L
                                       N000000,040040,040040,040040B00003213726L
,015022)024056,029036,040047,0540611001,001008B001     ,001008B001     03223726L
,068072)063067/061039                                       ,001001104003233726L
                                       /Z00080                         03243726L