Source image: P1030141.JPG
                PROGM   080      4     0     GENERATOR                                                             
                ENTRY   166      3                                                                                 
                    D1       14      2    195    0                                                                 
                    B1       15      2     75    0                                                                 
                    A1        7      2     75    0                                                                 
                    A2        8      0     75    0                                                                 
                    A6        7      0     75    0                                                                 
                                                                                                                   
      CHAPS    9   100   101   200   326   445   557   558   559   564                                             
      INDEX    3     1     2     2     2     2     2     2     1     2                                             
                                                                                                                   
          *1001        3      24    0       2                                                                      
          *1002        4      50    0       2                                                                      
          *1003        6     450    0       2                                                                      
          *1004       17      50    0       2                                                                      
          *1005       22     225    0       2                                                                      
          *1006       19     330    0       2                                                                      
          *1007       21     120    0       2                                                                      
          *1008       94      50    0       2                                                                      
          *1009       42      26    0       2                                                                      
          *1010       40      26    0       2                                                                      
          *1011       41     500    0       2                                                                      
          *1012       44       5    0       2                                                                      
          *1013        2       5    0       1                                                                      
          *1014       18    1250    0       1                                                                      
          *1015       25     120    0       1                                                                      
          *1016        1      23    0       3                                                                      
          *1017       28      23    0       3                                                                      
          *1018       29      22    0       3                                                                      
          *1019       66      12    0       4                                                                      
          *1020       67       2    0       4                                                                      
          *1021       61      60    0       4                                                                      
          *1022       72      16    0       5                                                                      
          *1023       53       0    0       3                                                                      
          *1024       77      22    0       3                                                                      
  Source image: P1030142.JPG
          *1025       70       0    0       3                                                                      
          *1026       54      80    0       3                                                                      
          *1027       55      25    0       3                                                                      
          *1028       92      19    0       2                                                                      
          *1029       23      24    0       2                                                                      
          *1030       27      10    0       2                                                                      
          *1031       10     195    1       2                                                                      
          *1032        5      75    1       1                                                                      
          *1033        7      75    1       2                                                                      
          *1034       24       6    0       2                                                                      
          *1035        8      75    1       1                                                                      
          *1036        9      75    1       1                                                                      
          *1037       11      10    0       5                                                                      
          *1038       13      16    0       5                                                                      
          *1039       16      20    0       5                                                                      
          *1040       15      50    0       5                                                                      
          *1041       26     540    0       5                                                                      
          *1042       12      60    0       3                                                                      
          *1043       93     225    0       3                              PASS 1 OLD/NEW PROCR INDEX              
          *1044       97     330    0       3                                                                      
          *1045       52     120    0       3                                                                      
          *1046       20     150    0       4                              PASS 2 100 ACTIVE SEQ CHANGES FORWA     
          *1047       91     516    0       9                              IPS ANNEXE                              
          *1048       14       0    0       4                              DUMMY                                   
                                                                                                                   
          10000    PROCR   100       100     CHAPTER ONE                                                           
          10001     NOTES                         MAIN OVERLAY ORDER TO RECALL PASS 0                              SELECT
    16615>10002    152     101      2   0  0              0        101                                             OVERLAY
          10003    C       445      2   0  0              0        445                                             
          10004    76      555      3   0  0              0        555     >ENTER IPS                              JUMP unconditional
    17012>                                                                                                         
    32914>                                                                                                         
    48323>                                                                                                         
    53750>                                                                                                         
    53756>10005    152     101      2   0  0              0        101                                             OVERLAY
          10006    C       101      2   0  0              0        101                                             
          10007    76      166      2   0  0              0        166     >PASS 0                                 JUMP unconditional
                                                                                                                   
          10100    PROCR   101       101     CALL PASS 1                                                           
    18238>10102    152     101      2   0  0              0        101                                             OVERLAY
          10103    C       200      2   0  0              0        200                                             
                                                                                                                   
          10200    PROCR   102       102     STORE REGISTER,SEARCH FOR FIRST BLOCK,TEST M/T FILE                   
          10201     NOTES          RADIX                                                                           SELECT
    16938>10202    10               0   0  0              1                CD INDICATOR                            SELECT LITERAL
          10203    5       153      4   1  0              0        153                                             TRANSFER
          10204            27       9   0  0              0                                                        SELECT
          10205    71      105     56   0  0              0        105     >OPEN A9                                JUMP IF A != 0
          10206            27       8   0  0              0                                                        SELECT
          10207    5       152     19   0  0              0        152     >W/L                                    TRANSFER
          10208    100     999      0   0  3              0                BINARY              OPEN PRINTER        set radix
          10209    101             19   1  3              0                                                        select literal address
          10210    80      136      2   0  0              0        136     >                                       ENTER SUBROUTINE
    10573>10211    40      A1       0   0  0              1                MT IN                                   OPEN FILE
          10212    83      133      2   0  0              1        133     DON'T TEST UNTIL PROCR                  SET SWITCH(ES) AT LITERAL VALUE
          10213    60               0   0  0              0                                                        SET DECIMAL RADIX
          10214    54      41       0   0  0           1000                                                        BULK CLEAR
          10215    80      190      2   0  0              0        190     >SET TO PASS1                           ENTER SUBROUTINE
          10216            40       6   2  0              0                STORE OLD SER                           SELECT
          10217    5       155      4   1  0              0        155                                             TRANSFER
  Source image: P1030143.JPG
          10218            40       4   2  0              0                                                        SELECT
          10219    5       155      2   1  0              0        155     STORE PROG ID                           TRANSFER
                                                                                                                   
          10300    PROCR   103       103     FORM UP CONTROL BLOCK                                                 
          10301     NOTES          RADIX          0                                                                SELECT
          10302    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10303    83      140      2   0  0              1        140     BEFORE ROUTES                           SET SWITCH(ES) AT LITERAL VALUE
          10304    5       150     18   1  0              0        150     CLEAR                                   TRANSFER
          10305    54      153     10   0  0              6        153                                             BULK CLEAR
          10306    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10307    101             15   1  3              0                OPEN B1                                 select literal address
          10308    104     152     22   0  0              0        152     0=PT 1=CARDS                            add (N) to (A)
          10309    118              5   0  1              0                                                        shift arithmetic
          10310    104     999      8   0  0              0                                                        add (N) to (A)
          10311    100     152     24   1  2              0        152                                             replace (B) by (N)
          10312    125           4096   1  1              0                                                        clear indicators
          10313    124     999      0   0  3              0                                                        modify address of next
          10314    123            160   0  2              0                >ENTER MASTER                           enter master routine
          10315    80      135      2   0  0              0        135     >READ P/T S/R       READ NEXT BLOCK     ENTER SUBROUTINE
          10316            153      8   0  0              0        153     TEST IF 'LOCKOUT' BLOCK                 SELECT
          10317    12               0   0  0                                                                       SUBTRACT LITERAL
          10318    71      103     22   0  0              0        103     N >                                     JUMP IF A != 0
          10319            153      9   0  0              0        153     STORE LINE SERIAL                       SELECT
          10320    5       152     26   0  0              0        152                                             TRANSFER
          10321    80      135      2   0  0              0        135     > READ P/T S/R      READ NEXT BLOCK     ENTER SUBROUTINE
    10318>10322            153      8   0  0              0        153     TEST TYPE 1         TEST IF CONTROL     SELECT
          10323    12               0   0  0              1                                    BLOCK               SUBTRACT LITERAL
          10324    71      170      6   0  0              0        170     >*03                                    JUMP IF A != 0
          10325    35               0   0  0           1100                                                        PREPARE FOR DIGIT COLLATION
          10326    36      155      4   0  0              0        155     VERSION                                 COLLATE AND ADD
          10327    70      103     30   0  0              0        103     >OK                                     JUMP IF A == 0
          10328    12               0   0  0           9900                                                        SUBTRACT LITERAL
          10329    71      190     48   0  0              0        190     >*02                NOT BASIC           JUMP IF A != 0
    10327>10330            155      4   0  0              0        155                                             SELECT
          10331    60               0   0  0              0                                                        SET DECIMAL RADIX
          10332    11               0   0  0              1                                                        ADD LITERAL
          10333    5       153      2   0  0              0        153                                             TRANSFER
          10334    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10335            153      9   0  0              0        153     MACHINE NO                              SELECT
          10336    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10337    37      153      2   0  0              0        153     NEW SER                                 REPLACE SELECTED BITS
          10338    80      135      2   0  0              0        135     >READ P/T S/R                           ENTER SUBROUTINE
                                                                                                                   
          10400    PROCR   104       104     AMEND CONTROL BLOCK IF NECESSARY                                      
          10401     NOTES          RADIX                                                                           SELECT
    10428>10402            153      8   0  0              0        153     TEST TYPE 2         TEST IF CONTROL     SELECT
          10403    12               0   0  0              2                                    BLOCK NEEDS AMENDT  SUBTRACT LITERAL
          10404    71      104     32   0  0              0        104     >NO                 >NO                 JUMP IF A != 0
          10405    54      41       0   0  0             35                                                        BULK CLEAR
          10406            152     22   0  0              0        152                                             SELECT
          10407    71      104     29   0  0              0        104     >CARDS                                  JUMP IF A != 0
          10408    51      5        0   0  0              0                                                        UNPACK VARIABLE FIELD DATA
          10409    C       158      6   0  0              0        158     ALPHA>NUMERIC                           
    10431>10410    91      154      4   0 11              0        154     0/0                 SET MR FOR          SET MODIFICATION REGISTER AT VARIABLE
    10426>10411    91      154      4   0 12              0        154                         AMENDTS             SET MODIFICATION REGISTER AT VARIABLE
          10412    101              3   0  1              0                                                        prepare for digit collation
          10413    125              0   1  2              0                                                        interrogate indicators
          10414    36      41       1   0 11              0                                                        COLLATE AND ADD
          10415    70      104     27   0  0              0        104     >NO MORE AMENDTS                        JUMP IF A == 0
          10416    101              1   1  2              0                                                        subtract literal address
  Source image: P1030144.JPG
          10417    118           4127   1  0              0                                                        shift logical
          10418    92               0   0 12              0                                                        SET MODIFIER AT VARIABLE
          10419    118              1   1  0              0                                                        shift logical
          10420    5       152      3   0  0              0        152                                             TRANSFER
          10421    100     152      4   0  2              0        152                                             replace (B) by (N)
          10422    106     152      4   0  0              0        152                                             select (N)
          10423    124     152      3   0  1              0        152                                             modify address of next
          10424    118              0   1  3              0                                                        shift binary
          10425    37      153     10   0 12              0        153                                             REPLACE SELECTED BITS
          10426    94      104     11   0 11              1        104     >NEXT AMENDMENT                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    10415>10427    80      135      2   0  0              0        135     >READ P/T S/R                           ENTER SUBROUTINE
          10428    76      104      2   0  0              0        104     >MORE AMDTS?                            JUMP unconditional
    10407>10429    50      5        0   0  0              0                CARDS                                   UNPACK FIXED FIELD DATA
          10430    C       159      6   0  0              0        159                                             
          10431    76      104     10   0  0              0        104                                             JUMP unconditional
    10404>10432    83      118      2   0  0              1        118     SET SWITCH FOR FIRST REPLACEMENT        SET SWITCH(ES) AT LITERAL VALUE
                                                                                                                   
          10500    PROCR   105       105     EDIT AND OUTPUT CONTROL BLOCK AND HEADING BLOCK                       
          10501     NOTES          RADIX          0                                                                SELECT
          10502    52      42       2   0  0              0                HEADING LINE        PRINT HEADING L     EDIT
          10503    C       156      2   0  0              0        156                                             
          10504    80      137      2   0  0              0        137     >PRINT S/R                              ENTER SUBROUTINE
          10505    80      143      2   0  0              0        143     >BLANK LINE                             ENTER SUBROUTINE
          10506    52      42       2   0  0              0                'CONTROL WORD'                          EDIT
          10507    C       156     24   0  0              0        156                                             
          10508    80      137      2   0  0              0        137     >PRINT S/R                              ENTER SUBROUTINE
          10509    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10510    90               0   0 11              0                SET MRS FOR WORDS   BREAK CONTROL BLOCK SET MODIFICATION REGISTER AT LITERAL
          10511    C                0   0  0             16                                                        
    10543>10512    90               0   0 12              8                SET MR FOR                              SET MODIFICATION REGISTER AT LITERAL
          10513    C                0   0  0              0                STORING O/P                             
          10514            153     10   0 11              0        153     NEXT WORD                               SELECT
          10515    118              3   0  3              0                                                        shift binary
          10516    118           4127   1  0              0                                                        shift logical
          10517    102     152      3   0  0              0        152     STORE BITS 2-16                         transfer (A) to N
          10518    118              1   1  3              0                PRINT BIT 1                             shift binary
          10519    70      105     22   0  0              0        105                                             JUMP IF A == 0
          10520    10               0   0  0          10000                                                        SELECT LITERAL
          10521    76      105     38   0  0              0        105                                             JUMP unconditional
    10519>10522    10               0   0  0          .0000                                                        SELECT LITERAL
          10523    76      105     38   0  0              0        105                                             JUMP unconditional
    10539>10524            152      3   0  0              0        152     FORM NEXT                               SELECT
          10525    32               0   0  0              2-               COLLATION ORDER                         SHIFT (AB) BY QUARTETS
          10526    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          10527    5       152      3   0  0              0        152                                             TRANSFER
          10528    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          10529    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          10530    5       154     46   0  0              0        154                                             TRANSFER
          10531    10               0   0  0             ..                ZEROS                                   SELECT LITERAL
          10532    5       152      2   0  0              0        152                                             TRANSFER
          10533    124     154     46   0  1              0        154                                             modify address of next
          10534    101              0   0  1              0                FORMED ADDRESS                          prepare for digit collation
          10535    10               0   0  0          11111                PACK 1'S ONTO QRTETS                    SELECT LITERAL
          10536    37      152      2   0  0              0        152     WHICH CORRESPOND                        REPLACE SELECTED BITS
          10537            152      2   0  0              0        152     TO BITS WHICH ARE                       SELECT
    10523>                                                                                                         
    10521>10538    5       42       0   2 12              0                1                                       TRANSFER
          10539    94      105     24   0 12              2-       105     >NEXT 5                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10540            153     62   1  0              0        153     BEW                                     SELECT
          10541    5       42      10   1  0              0                                                        TRANSFER
  Source image: P1030145.JPG
          10542    80      137      2   0  0              0        137     >PRINT S/R                              ENTER SUBROUTINE
          10543    94      105     12   0 11              1        105     >NEXT LINE                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10544    60               0   0  0              0                                                        SET DECIMAL RADIX
          10545    80      143      2   0  0              0        143     >BLANK LINE                             ENTER SUBROUTINE
          10546    52      42       2   0  0              0                EDIT HEADING                            EDIT
          10547    C       157      4   0  0              0        157     BLOCK                                   
          10548    80      137      2   0  0              0        137     >PRINT                                  ENTER SUBROUTINE
          10549    55      5        0   1  0             10                SAFE                                    BULK COPY
          10550    C       44       0   1  0              0                                                        
          10551    55      42       2   1  0             46                >'PT'                                   BULK COPY
          10552    C       5        0   1  0              0                                                        
          10553    124     106      2   0  2              0        106                                             select literal and division
          10554    5       139      2   0  0              0        139                                             TRANSFER
          10555    76      170      2   0  0              0        170     BACK TO PASS 0                          JUMP unconditional
    10205>10556    10               0   0  0        1200000                OPEN A9                                 SELECT LITERAL
          10557    34      197     90   1  0              0        197                                             SET (N) IN B
          10558    1       999      7   0  0              0                                                        ADD
          10559    125           4096   1  1              0                                                        clear indicators
          10560    124     999      0   0  3              0                                                        modify address of next
          10561    123            160   0  2              0                >OPEN                                   enter master routine
          10562    10               0   0  0           8000                WRITE HDG BLOCK                         SELECT LITERAL
          10563    5       10       4   2  0              0                                                        TRANSFER
          10564    155              0   0  0              0                SERIAL                                  SELECT PROGRAM SERIAL TO A
          10565    5       10       6   1  0              0                                                        TRANSFER
          10566    10               0   0  0           9001                                                        SELECT LITERAL
          10567    5       10       8   2  0              0                                                        TRANSFER
          10568            153     62   1  0              0        153     BEW                                     SELECT
          10569    5       10      10   1  0              0                                                        TRANSFER
          10570    10               0   0  0              8                                                        SELECT LITERAL
          10571    34      999     12   0  0              0                                                        SET (N) IN B
          10572    80      136      2   0  0              0        136     >A9                                     ENTER SUBROUTINE
          10573    76      102     11   0  0              0        102                                             JUMP unconditional
                                                                                                                   
          10600    PROCR   106       106     UNPACK PROGRAMME HEADING BLOCKS                                       
          10601     NOTES          RADIX          0                                                                SELECT
    10605>10602    80      134      2   0  0              0        134     READ BLOCK          FIND FIRST          ENTER SUBROUTINE
          10603            41       0   1  0              0                TEST PROGM BLOCK    FILE DETAIL         SELECT
          10604    2       154     42   1  0              0        154                                             SUBTRACT
          10605    71      106      2   0  0              0        106                                             JUMP IF A != 0
          10606    5       152     18   0  0              0        152     CLEAR STEP BACK L   OCATION             TRANSFER
          10607    80      134      2   0  0              0        134     STEP FORWARD TO                         ENTER SUBROUTINE
    10611>10608    80      134      2   0  0              0        134     FIRST FILE                              ENTER SUBROUTINE
          10609            41       0   1  0              0                TEST CHAPS                              SELECT
          10610    2       154     24   1  0              0        154                                             SUBTRACT
          10611    71      106      8   0  0              0        106     >NO                                     JUMP IF A != 0
          10612    83      106      2   0  0             20        106     SW 2                                    SET SWITCH(ES) AT LITERAL VALUE
          10613    76      107      3   0  0              0        107     >START GENERATING                       JUMP unconditional
                                                                                                                   
          10700    PROCR   107       107     BEGINNING OF MAIN LOOP,DEAL WITH NEW SECTION                          
          10701     NOTES          RADIX          0                                                                SELECT
    10917>                                                                                                         
    11005>                                                                                                         
    11009>                                                                                                         
    11103>                                                                                                         
    11508>                                                                                                         
    11517>                                                                                                         
    11605>                                                                                                         
    11610>                                                                                                         
    11614>                                                                                                         
    11809>                                                                                                         
    12003>                                                                                                         
    13106>                                                                                                         
  Source image: P1030146.JPG
    13110>10702    80      134      2   0  0              0        134     READ AND STORE M/T BLOCK                ENTER SUBROUTINE
    10752>                                                                                                         
    10613>10703            41       0   1  0              0                TEST IF SECTION     TEST IF NEW         SELECT
          10704    2       154     24   1  0              0        154     DESCRIPTION SHEET   SECTION AND SET     SUBTRACT
          10705    70      107     24   0  0              0        107                         SECTION TYPE        JUMP IF A == 0
          10706            152     26   0  0              0        152                                             SELECT
          10707    70      107     11   0  0              0        107     TEST LINE SERIAL STONO>                 JUMP IF A == 0
          10708    2       41       0   2  0              0                TEST IF 'LOCKOUT' LINE                  SUBTRACT
          10709    71      107     11   0  0              0        107     NO>                                     JUMP IF A != 0
          10710    123              0   0  3              0                                                        select tag
    10709>                                                                                                         
    10707>10711            41       4   1  0              0                TEST PROCR          SWITCH IF 50        SELECT
          10712    2       154     26   1  0              0        154                                             SUBTRACT
          10713    70      107     28   0  0              0        107     >YES                                    JUMP IF A == 0
          10714            41       4   1  0              0                TEST CONST                              SELECT
          10715    2       154     28   1  0              0        154                                             SUBTRACT
          10716    70      107     27   0  0              0        107     >YES                                    JUMP IF A == 0
          10717            41       4   1  0              0                TEST TABLE                              SELECT
          10718    2       154     30   1  0              0        154                                             SUBTRACT
          10719    70      107     26   0  0              0        107     >YES                                    JUMP IF A == 0
          10720            41       4   1  0              0                TEST END SIGN                           SELECT
          10721    2       154     40   1  0              0        154                                             SUBTRACT
          10722    70      128      2   0  0              0        128     >YES END ROUTINE                        JUMP IF A == 0
          10723    76      108      2   0  0              0        108     >NOT A NEW SECTION                      JUMP unconditional
    10705>10724    92               0   0 11              0                SECTION DESCRIPTION                     SET MODIFIER AT VARIABLE
          10725    10               0   0  0              1                                                        SELECT LITERAL
    10719>10726    11               0   0  0              1                TABLE                                   ADD LITERAL
    10716>10727    11               0   0  0              1                CONST                                   ADD LITERAL
    10713>10728    11               0   0  0              1                PROCR                                   ADD LITERAL
          10729    84      107      2   0  0              0        107     SET SECTION TYPE SW SWITCH 5            SET SWITCH(ES) AT VARIABLE VALUE
          10730            152      7   0  0              0        152     TEST DELETION       TEST DELETION       SELECT
          10731    70      107     43   0  0              0        107     >NO                 INDICATOR           JUMP IF A == 0
          10732    10               0   0  0              0                CLEAR INDICATOR                         SELECT LITERAL
          10733    5       152      7   0  0              0        152                                             TRANSFER
          10734    85      106      2   0  0              0        106     SWITCH 2            PRINT FINAL LINE    SWITCH R
          10735    C       107     43   0  0              0        107     >PROGRAMME HEADING  OF DELETION         
          10736    C       107     37   0  0              0        107     >OTHER SECTIONS                         
    10736>10737            153     52   1  0              0        153     SERIAL NO                               SELECT
          10738    5       42       2   1  0              0                                                        TRANSFER
          10739            153     62   1  0              0        153     STORE B/E                               SELECT
          10740    5       42       4   1  0              0                                                        TRANSFER
          10741    5       150     18   1  0              0        150     CLEAR                                   TRANSFER
          10742    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
    10735>                                                                                                         
    10731>10743    80      134      2   0  0              0        134     READ M/T S/R                            ENTER SUBROUTINE
          10744            40      10   1  0              0                TEST NOTES                              SELECT
          10745    2       154     32   1  0              0        154                         OF SECTION          SUBTRACT
          10746    71      107     48   0  0              0        107     >DEAL WITH NEXT                         JUMP IF A != 0
          10747    80      134      2   0  0              0        134     BLOCK                                   ENTER SUBROUTINE
    10746>10748    10               0   0  0              0                                                        SELECT LITERAL
          10749    5       152      8   0  0              0        152     CLEAR DUMMY INDICATOR                   TRANSFER
          10750    83      106      2   0  0              2        106     SET SWITCH FOR ORDINARY SECTION         SET SWITCH(ES) AT LITERAL VALUE
          10751    83      118      2   0  0              1        118     SET SWITCH FOR FIRST REPLACEMENT        SET SWITCH(ES) AT LITERAL VALUE
          10752    76      107      3   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          10800    PROCR   108       108     DEAL WITH CONTENTS OF SECTION,STORE DUMMIES                           
          10801     NOTES          RADIX          0                                                                SELECT
    10723>10802            41       0   1  0              0                STORE SERIAL NO     STORE SERIAL NO     SELECT
  Source image: P1030147.JPG
          10803    5       153     52   1  0              0        153     FOR DELETIONS                           TRANSFER
          10804            152      8   0  0              0        152                         TEST IF THIS        SELECT
          10805    70      109      2   0  0              0        109     >NO                 ORDER IS STORED     JUMP IF A == 0
          10806    55      41       0   1  0             42                STORE DUMMY         AS DUMMY            BULK COPY
          10807    C       41     372   1  6              0                                                        
          10808    94      109      2   0  6             42        109     >MORE DUMMIES TO COME                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10809    10               0   0  0              0                CLEAR INDICATOR                         SELECT LITERAL
          10810    5       152      8   0  0              0        152                                             TRANSFER
          10811    92               0   0  6              0                CLEAR MR                                SET MODIFIER AT VARIABLE
                                                                                                                   
          10900    PROCR   109       109     SEARCH INDICATORS                                                     
          10901     NOTES          RADIX          0                                                                SELECT
    10808>                                                                                                         
    10805>10902            41      26   1  0              0                                    TEST IF ANY         SELECT
          10903    32               0   0  0              8-                                   INDICATORS AT ALL   SHIFT (AB) BY QUARTETS
          10904    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10905    12               0   0  0             5‼                                                        SUBTRACT LITERAL
          10906    60               0   0  0              0                                                        SET DECIMAL RADIX
          10907    71      111      2   0  0              0        111                                             JUMP IF A != 0
          10908    55      41      26   1  0             16                                                        BULK COPY
          10909    C       41      44   1  0              0                                                        
          10910    80      145      2   0  0              0        145     >REPLACE *'S BY N/E'S AND BREAK UP S/R  ENTER SUBROUTINE
          10911            152      7   0  0              0        152     TEST DELETION IND   TEST IF IN MIDDLE   SELECT
          10912    71      109     16   0  0              0        109     >YES                                    JUMP IF A != 0
          10913    80      112      2   0  0              0        112     >TEST ACTIVE S/R                        ENTER SUBROUTINE
          10914    70      111      2   0  0              0        111     >NO                                     JUMP IF A == 0
          10915    76      114      2   0  0              0        114     >YES                                    JUMP unconditional
    10912>10916    80      146      2   0  0              0        146     >TEST FOR REQD      IND                 ENTER SUBROUTINE
          10917    76      107      2   0  0              0        107     >NOT END OF DELETION                    JUMP unconditional
                                                                                                                   
          11000    PROCR   110       110     DEAL WITH END OF DELETION                                             
          11001     NOTES          RADIX          0                                                                SELECT
          11002    10               0   0  0              0                CLEAR DELETION      FINISH DELETION     SELECT LITERAL
          11003    5       152      7   0  0              0        152     INDICATOR                               TRANSFER
          11004    85      106      2   0  0              0        106     SWITCH 2            PRINT FINAL LINE    SWITCH R
          11005    C       107      2   0  0              0        107     >PROGRAMME HEADING  OF DELETION         
          11006    C       110      7   0  0              0        110     >OTHER SECTIONS                         
    11006>11007            41       0   1  0              0                                                        SELECT
          11008    5       150     18   1  0              0        150     STORE SER                               TRANSFER
          11009    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          11100    PROCR   111       111     OUTPUT LINE IF PHS                                                    
          11101     NOTES          RADIX          0                                                                SELECT
    11709>                                                                                                         
    14521>                                                                                                         
    10914>                                                                                                         
    10907>11102    83      118      2   0  0              1        118                                             SET SWITCH(ES) AT LITERAL VALUE
          11103    76      107      2   0  0              0        107     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          11200    PROCR   112       112     SEARCH INDICATORS FOR AN ATIVE ONE                                    
          11201     NOTES          RADIX          0                                                                SELECT
          11202    81      112      2   0  0              0        112                                             START OF SUBROUTINE
          11203    10               0   0  0              2                                    PREPARE FOR FIRST   SELECT LITERAL
          11204    3       152      9   0  0              0        152     INDICATOR NO        WORD                COPY
          11205    3       152     10   0  0              0        152     AMENDT ACTIVE INDIC                     COPY
          11206    91      154      4   0  5              0        154     MR2,NEW IND WORDS                       SET MODIFICATION REGISTER AT VARIABLE
    11232>11207    90               0   0 13              0                NEXT                IND                 SET MODIFICATION REGISTER AT LITERAL
          11208    C                0   0  0              3                3 CHAR3             INDICATOR           
          11209    91      154      4   0  4              0        154     MR4 FOR STORING                         SET MODIFICATION REGISTER AT VARIABLE
    11224>11210    5       153     44   1  0              0        153     STORE 'A'                               TRANSFER
  Source image: P1030148.JPG
          11211    90               0   0 12              0                CHARS               PREPARE FOR NEXT    SET MODIFICATION REGISTER AT LITERAL
          11212    C                0   0  0             10                OF WORD             WORD                
          11213            41     322   1  5              0                                                        SELECT
          11214    3       41     306   1  4              0                                                        COPY
          11215    70      112     33   0  0              0        112                                             JUMP IF A == 0
          11216            153     44   1  0              0        153     RESTORE A                               SELECT
          11217    34      41     322   1  5              0                SELECT NEXT WORD TO B                   SET (N) IN B
    11222>11218    32               0   0  0              2                SHIFT NEXT CHAR TO A                    SHIFT (AB) BY QUARTETS
          11219    70      112     25   0  0              0        112     >LAST CHAR OF IND                       JUMP IF A == 0
          11220    94      112     22   0 13              1        112     >NEXT CHAR                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11221    76      113      2   0  0              0        113     >NEXT 3 CHARACTERS                      JUMP unconditional
    11348>                                                                                                         
    11220>11222    94      112     18   0 12              2        112                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11223    94      112     24   0  4              2        112     >NEXT CHAR                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11223>11224    94      112     10   0  5              2        112     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11219>11225    10               0   0  0              0                CLEAR NEXT W/L                          SELECT LITERAL
          11226    5       41     308   1  4              0                                                        TRANSFER
          11227            152     10   0  0              0        152     TEST LAST INDIC                         SELECT
          11228    71      112     33   0  0              0        112                                             JUMP IF A != 0
          11229    10               0   0  0              2                                                        SELECT LITERAL
          11230    4       152      9   0  0              0        152     STEP INDIC NO                           AUGMENT
          11231    5       152     10   0  0              0        152     SET AMENDT INDIC                        TRANSFER
          11232    94      112      7   0  5              2        112     >NEXT INDICATOR                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11228>                                                                                                         
    11215>11233    82      112      2   0  0              0        112                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          11300    PROCR   113       113     SEARCH INDICATORS FOR AN ACTIVE ONE CONTINUED                         
          11301     NOTES          RADIX          0DEAL WITH 3 DIGIT NUMBERS                                       SELECT
    11221>11302    100     153     44   1  0              0        153     STORE'A''B''C'                          copy registers
          11303    10               0   0  0              0                                                        SELECT LITERAL
          11304    5       41     308   1  4              0                CLEAR INDIC LOCN                        TRANSFER
          11305    90               0   0 13              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11306    C                0   0  0              3                                                        
          11307            152     10   0  0              0        152                                             SELECT
          11308    70      113     45   0  0              0        113     >INDIC ALREADY INACTIVE                 JUMP IF A == 0
          11309            153     44   2  0              0        153     TEST IF SPECIAL                         SELECT
          11310    12               0   0  0            £.                                                         SUBTRACT LITERAL
          11311    70      113     13   0  0              0        113                                             JUMP IF A == 0
          11312    72      122      2   0  0              0        122     >YES                                    JUMP IF A >= 0
    11311>11313            153     44   2  0              0        153                                             SELECT
          11314    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          11315    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11316    5       153     44   0  0              0        153     STORE REASON                            TRANSFER
          11317    32               0   0  0              1                TYPE                                    SHIFT (AB) BY QUARTETS
          11318    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11319    5       152     13   0  0              0        152     STORE TYPE                              TRANSFER
          11320    106     153     44   0  0              0        153                                             select (N)
          11321    101              1   1  2              0                                                        subtract literal address
          11322    118           4127   1  0              0                                                        shift logical
          11323    102     152     11   0  0              0        152                                             transfer (A) to N
          11324    118              1   1  0              0                                                        shift logical
          11325    5       152     12   0  0              0        152                                             TRANSFER
          11326    34      152      4   0  0              0        152                                             SET (N) IN B
          11327    124     152     12   0  1              0        152     COLLATE OUT CONTROL                     modify address of next
          11328    118              0   1  3              0                BLOCK BIT WHICH                         shift binary
          11329    124     152     11   0  1              0        152     CORRESPONDS TO THE                      modify address of next
          11330    115     153     10   0  0              0        153     AMENDT REASON                           collate and add
          11331    60               0   0  0              0                                                        SET DECIMAL RADIX
          11332    71      113     39   0  0              0        113     >ACTIVE                                 JUMP IF A != 0
          11333            152     13   0  0              0        152     INACTIVE                                SELECT
  Source image: P1030149.JPG
          11334    12               0   0  0              8                                                        SUBTRACT LITERAL
          11335    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11336    73      113     43   0  0              0        113     >YES                                    JUMP IF A < 0
          11337    3       152     13   0  0              0        152                                             COPY
          11338    76      113     45   0  0              0        113     AS ACTIVE                               JUMP unconditional
    11332>11339            152     13   0  0              0        152                                             SELECT
          11340    12               0   0  0              8                                                        SUBTRACT LITERAL
          11341    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11342    73      113     45   0  0              0        113     >OK                                     JUMP IF A < 0
    11336>11343    10               0   0  0              0                AS INACTIVE                             SELECT LITERAL
    12309>11344    5       152     10   0  0              0        152     SET INACTIVE IND                        TRANSFER
    11342>                                                                                                         
    11338>                                                                                                         
    11308>11345    10               0   0  0              0                CLEAR 'A'                               SELECT LITERAL
          11346    5       153     44   1  0              0        153                                             TRANSFER
          11347    100     153     44   1  1              0        153     RESET 'A' 'B' 'C'                       replace registers
          11348    76      112     22   0  0              0        112     >NEXT 3 DIGITS                          JUMP unconditional
                                                                                                                   
          11400    PROCR   114       114     SWITCH BY AMENDMENT TYPE                                              
          11401     NOTES          RADIX          0                                                                SELECT
    10915>11402    124     152     13   0  1              0        152     SWITCH BY AMENDT                        modify address of next
    11403>11403    76      114      3   0  0              0        114     TYPE                                    JUMP unconditional
          11404    76      115      4   0  0              0        115     >DELETED ONE                            JUMP unconditional
          11405    76      115      2   0  0              0        115     >DELETE MORE THAN ONE                   JUMP unconditional
          11406    76      116      2   0  0              0        116     >REPLACE BY DUMMY                       JUMP unconditional
          11407    76      117      2   0  0              0        117     >REPLACE ITEM                           JUMP unconditional
          11408    76      129      2   0  0              0        129     >LITERAL            REPORT              JUMP unconditional
          11409    76      116      2   0  0              0        116     >REPLACE REFERENCE                      JUMP unconditional
                                                                                                                   
          11500    PROCR   115       115     DELETE,TYPES 1 AND 2                                                  
          11501     NOTES          RADIX          0                                                                SELECT
    12206>                                                                                                         
    11405>11502    10               0   0  0              1                SET DELETION                            SELECT LITERAL
          11503    3       152      7   0  0              0        152     INDICATOR                               COPY
    12205>                                                                                                         
    11404>11504    101              1   1  1              0                                                        add literal address
          11505    102     152     13   0  0              0        152     SET DELETION TYPE                       transfer (A) to N
          11506    83      118      2   0  0              1        118     SET SWITCH 5 FOR FIRST REPLACEMENT      SET SWITCH(ES) AT LITERAL VALUE
          11507    85      106      2   0  0              0        106     SWITCH 2                                SWITCH R
          11508    C       107      2   0  0              0        107     >PROGRAMME HEADING SHEET                
          11509    C       115     10   0  0              0        115     >ORDINARY SECTION                       
    11509>11510            41       0   1  0              0                STORE SERIAL NO                         SELECT
          11511    5       42       2   1  0              0                                                        TRANSFER
          11512            154     38   1  0              0        154     D SP SP SP SP'                          SELECT
          11513    5       42       4   1  0              0                                                        TRANSFER
          11514            153     62   1  0              0        153     STORE B/E                               SELECT
          11515    5       42       6   1  0              0                                                        TRANSFER
          11516    80      140      2   0  0              0        140     >GENERAL OUTPUT S/R                     ENTER SUBROUTINE
          11517    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          11600    PROCR   116       116     REPLACE BLOCK BY DUMMY TYPE 3                                         
          11601     NOTES          RADIX          0                                                                SELECT
    11409>                                                                                                         
    11406>11602            152      8   0  0              0        152     TEST IF DUMMIES BEING STORED            SELECT
          11603    70      116     15   0  0              0        116     NO                                      JUMP IF A == 0
          11604    0       152      7   0  0              0        152     DUMMY BEING DEALT WITH                  SELECT
          11605    71      107      2   0  0              0        107     >YES                                    JUMP IF A != 0
          11606            41     322   2  0              0                                                        SELECT
          11607    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11608    12               0   0  0            ££0                                                        SUBTRACT LITERAL
  Source image: P1030150.JPG
          11609    73      116     15   0  0              0        116     >NO                                     JUMP IF A < 0
          11610    71      107      2   0  0              0        107     >YES                                    JUMP IF A != 0
          11611            41     324   2  0              0                                                        SELECT
          11612    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11613    12               0   0  0            ££0                                                        SUBTRACT LITERAL
          11614    72      107      2   0  0              0        107     >YES                                    JUMP IF A >= 0
    11609>                                                                                                         
    11603>11615    85      107      2   0  0              0        107     SWITCH 2            SWITCH BY SECTION   SWITCH R
          11616    C       116     21   0  0              0        116     >PROCR              TYPE                
          11617    C       116     21   0  0              0        116     >CONST                                  
          11618    C       116     21   0  0              0        116     >TABLE                                  
          11619    C       129      2   0  0              0        129     >SECTION DESC                           
          11620    C       129      2   0  0              0        129     >PROG HEADING                           
    11618>                                                                                                         
    11617>                                                                                                         
    11616>11621    90               0   0 11             72                SET MR 11           SEARCH FOR DUMMY    SET MODIFICATION REGISTER AT LITERAL
          11622    C                0   0  0            450                DUMMIES             WITH CORRECT        
          11623    10               0   0  0              1                SET UP INDICATOR                        SELECT LITERAL
          11624    5       152     23   0  0              0        152                                             TRANSFER
    11631>11625    55      41     326   1 11             26                STORE ANNOT         IND                 BULK COPY
          11626    C       41      44   1  0              0                                                        
          11627    80      145      2   0  0              0        145     >BREAK UP NOTES S/R                     ENTER SUBROUTINE
          11628    80      146      2   0  0              0        146     >TEST FOR REQD IND                      ENTER SUBROUTINE
          11629    76      116     31   0  0              0        116                                             JUMP unconditional
          11630    76      116     33   0  0              0        116     >DUMMY FOUND                            JUMP unconditional
    14522>                                                                                                         
    11629>11631    94      116     25   0 11             42        116                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11632    76      130      2   0  0              0        130     >NO DUMMY                               JUMP unconditional
    11630>11633    10               0   0  0              0                CLEAR INDICATOR                         SELECT LITERAL
          11634    5       152     23   0  0              0        152                                             TRANSFER
          11635            152     13   0  0              0        152                                             SELECT
          11636    12               0   0  0              6                TEST TYPE=3                             SUBTRACT LITERAL
          11637    71      116     50   0  0              0        116     >TYPE 6                                 JUMP IF A != 0
          11638    85      107      2   0  0              0        107     SWITCH BY SECTION TYPE                  SWITCH R
          11639    C       116     42   0  0              0        116     >PROCR              TYPE 6 AMENDT       
          11640    C       116     50   0  0              0        116     >CONST                                  
          11641    C       116     45   0  0              0        116     >TABLE                                  
    11639>11642            41     304   1 11              0                                                        SELECT
          11643    5       41       4   1  0              0                PROCR                                   TRANSFER
          11644    76      116     52   0  0              0        116     >OUTPUT REPLACE                         JUMP unconditional
    11641>11645            41     302   1 11              0                                                        SELECT
          11646    5       41       2   1  0              0                TABLE ENTRY                             TRANSFER
          11647            41     306   1 11              0                                                        SELECT
          11648    5       41       6   1  0              0                                                        TRANSFER
          11649    76      116     52   0  0              0        116     >OUTPUT REPLACE                         JUMP unconditional
    11640>                                                                                                         
    11637>11650    55      41     302   1 11             40                                                        BULK COPY
          11651    C       41       2   1  0              0                                                        
    11649>                                                                                                         
    11644>11652    85      107      2   0  0              0        107                         SWITCH BY SECTION   SWITCH R
          11653    C       119      2   0  0              0        119     >PROCR              TYPE                
          11654    C       120      2   0  0              0        120     >CONST                                  
          11655    C       121      2   0  0              0        121     >TABLE                                  
                                                                                                                   
          11700    PROCR   117       117     REPLACE ITEM TYPE 4                                                   
          11701     NOTES          RADIX          0                                                                SELECT
    12208>                                                                                                         
    11407>11702    124     152      9   0  1              0        152                         COLLECT REPLACEMENT modify address of next
          11703    106     41      32   1  0              0                                                        select (N)
          11704    85      107      2   0  0              0        107     SWITCH 5            SWITCH BY SECTION   SWITCH R
  Source image: P1030151.JPG
          11705    C       117     10   0  0              0        117     PROCR               TYPE                
          11706    C       117     12   0  0              0        117     CONST                                   
          11707    C       117     17   0  0              0        117     TABLE                                   
          11708    C       118      2   0  0              0        118                                             
          11709    C       111      2   0  0              0        111                                             
    11705>11710    5       41       6   1  0              0                REPLACE ITEM        PROCR               TRANSFER
          11711    76      119      2   0  0              0        119     >OUTPUT REPLACEMENT                     JUMP unconditional
    12413>                                                                                                         
    11706>11712    5       41       6   1  0              0                REPLACE CONSTANT    CONST               TRANSFER
          11713            153     50   1  0              0        153                                             SELECT
          11714    5       41       8   1  0              0                                                        TRANSFER
          11715    54      41      10   1  0             16                CLEAR REMAINDER OF                      BULK CLEAR
          11716    76      120      2   0  0              0        120     CONSTANTS SECTION                       JUMP unconditional
    11707>11717    5       41       6   1  0              0                REPLACE ITEM        TABLE               TRANSFER
          11718    76      121      2   0  0              0        121                                             JUMP unconditional
                                                                                                                   
          11800    PROCR   118       118     OUTPUT SECTION DESCRIPTION BLOCK REPLACE                              
          11801     NOTES          RADIX          0                                                                SELECT
    11708>11802    80      144      2   0  0              0        144     CLEAR TRANSIT AREA  PICK UP FIRST       ENTER SUBROUTINE
          11803    53      42       6   0  0              0                CONDENSE FIRST PART PART OF BLOCK       CONDENSE
          11804    C       160      2   0  0              0        160                                             
    12107>11805    55      41      26   1  0             16                STORE NOTES         STORE NOTES         BULK COPY
          11806    C       42      28   1  0              0                                                        
    11921>11807    80      141      2   0  0              0        141     >PREPARE TO O/P REPLACEMENT             ENTER SUBROUTINE
          11808    80      138      2   0  0              0        138     >OUTPUT ON P/T AND PRINTER              ENTER SUBROUTINE
          11809    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          11900    PROCR   119       119     OUTPUT PROCR BLOCK REPLACEMENT                                        
          11901     NOTES          RADIX                                                                           SELECT
    12411>                                                                                                         
    12520>                                                                                                         
    11711>                                                                                                         
    11653>11902    80      144      2   0  0              0        144     CLEAR TRANSIT AREA                      ENTER SUBROUTINE
          11903            41       8   1  0              0                BREAK UP DISC                           SELECT
          11904    32               0   0  0              6-               AND MOD                                 SHIFT (AB) BY QUARTETS
          11905    5       41       8   1  0              0                                                        TRANSFER
          11906    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
          11907    5       41      14   1  0              0                                                        TRANSFER
          11908    53      42       6   0  0              0                CONDENSE ACTION                         CONDENSE
          11909    C       160      4   0  0              0        160     REF ITEM D M                            
          11910            41      10   1  0              0                TRANSFER LITERAL                        SELECT
          11911    5       42      18   1  0              0                                                        TRANSFER
          11912            41      12   1  0              0                                                        SELECT
          11913    5       42      20   1  0              0                                                        TRANSFER
          11914            153     50   1  0              0        153     TRANSFER N/E'S                          SELECT
          11915    3       42      22   1  0              0                                                        COPY
          11916    5       42      32   1  0              0                                                        TRANSFER
          11917    55      41      26   1  0              8                NOTES                                   BULK COPY
          11918    C       42      24   1  0              0                                                        
          11919    55      41      34   1  0              8                COMMENTARY                              BULK COPY
          11920    C       42      34   1  0              0                                                        
          11921    76      118      7   0  0              0        118     >OUTPUT                                 JUMP unconditional
                                                                                                                   
          12000    PROCR   120       120     OUTPUT CONSTANT SECTION REPLACEMENT                                   
          12001     NOTES          RADIX          0                                                                SELECT
    11716>                                                                                                         
    11654>12002    80      142      2   0  0              0        142     >OUTPUT CONSTANT S/R                    ENTER SUBROUTINE
          12003    76      107      2   0  0              0        107     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          12100    PROCR   121       121     OUTPUT TABLE ENTRY REPLACEMENT                                        
  Source image: P1030152.JPG
          12101     NOTES          RADIX          0                                                                SELECT
    12415>                                                                                                         
    11718>                                                                                                         
    11655>12102    80      144      2   0  0              0        144     CLEAR TRANSIT AREA                      ENTER SUBROUTINE
          12103    53      42       6   0  0              0                CONDENSE TABLE ENTRY                    CONDENSE
          12104    C       160      2   0  0              0        160                                             
          12105    52      42      16   0  0              0                EDIT TABLE ENTRY                        EDIT
          12106    C       161      2   0  0              0        161                                             
          12107    76      118      5   0  0              0        118     >OUTPUT                                 JUMP unconditional
                                                                                                                   
          12200    PROCR   122       122     SPECIAL INDICATORS                                                    
          12201     NOTES          RADIX          0                                                                SELECT
    11312>12202    84      122      2   0  0              0        122     SWITCH 9                                SET SWITCH(ES) AT VARIABLE VALUE
          12203    85      122      2   0  0              0        122                                             SWITCH R
          12204    C       123      2   0  0              0        123     >START STORING                          
          12205    C       115      4   0  0              0        115     >DELETE ONE                             
          12206    C       115      2   0  0              0        115     >DELETE MORE THAN ONE                   
          12207    C       124      2   0  0              0        124     >REPLACE BY ZOT                         
          12208    C       117      2   0  0              0        117     >REPLACE ITEM                           
          12209    C       129      2   0  0              0        129     LITERAL             REPORT              
          12210    C       125      2   0  0              0        125     >SEQUENCE CHANGE                        
          12211    C       129      2   0  0              0        129     >ERROR REPORT                           
          12212    C       126      2   0  0              0        126     >ROUTES TABLE                           
          12213    C       128      2   0  0              0        128     >END ROUTINE                            
                                                                                                                   
          12300    PROCR   123       123     START STORING                                                         
          12301     NOTES          RADIX          0                                                                SELECT
    12204>12302    55      41       0   1  0             42                STORE THIS ORDER                        BULK COPY
          12303    C       41     372   1  0              0                AS DUMMY                                
          12304    54      41     414   0  0            336                                                        BULK CLEAR
          12305    90               0   0  6             42                SET MR                                  SET MODIFICATION REGISTER AT LITERAL
          12306    C                0   0  0            378                                                        
          12307    10               0   0  0              1                SET DUMMY INDICATOR                     SELECT LITERAL
          12308    5       152      8   0  0              0        152                                             TRANSFER
          12309    76      113     44   0  0              0        113     >PROCESS NEXT INDICATOR                 JUMP unconditional
                                                                                                                   
          12400    PROCR   124       124     REPLACE BY ZOT                                                        
          12401     NOTES          RADIX          0                                                                SELECT
    12207>12402    85      107      2   0  0              0        107     SWITCH 5            SWITCH BY SECTION   SWITCH R
          12403    C       124      8   0  0              0        124     PROCR               TYPE                
          12404    C       124     12   0  0              0        124     CONST                                   
          12405    C       124     14   0  0              0        124     TABLE                                   
          12406    C       129      2   0  0              0        129     SECTION DESCRIPTION                     
          12407    C       129      2   0  0              0        129     PROG HEADING                            
    12403>12408    10               0   0  0         413030                STORE NEXT ACTION                       SELECT LITERAL
          12409    5       41       2   1  0              0                                                        TRANSFER
          12410    54      41       4   1  0             10                CLEAR ADDRESS ETC                       BULK CLEAR
          12411    76      119      2   0  0              0        119                                             JUMP unconditional
    12404>12412    10               0   0  0              0                CLEAR CONST                             SELECT LITERAL
          12413    76      117     12   0  0              0        117                                             JUMP unconditional
    12405>12414    54      41       2   1  0             16                CLEAR TABLE ENTRY                       BULK CLEAR
          12415    76      121      2   0  0              0        121                                             JUMP unconditional
                                                                                                                   
          12500    PROCR   125       125     REPLACE BY SEQUENCE CHANGE TO NEXT ORDER                              
          12501     NOTES          RADIX          0                                                                SELECT
    12210>12502    85      107      2   0  0              0        107     SWITCH 5            SWITCH BY           SWITCH R
          12503    C       125      8   0  0              0        125     PROCR               SECTION TYPE        
          12504    C       129      2   0  0              0        129     CONST                                   
          12505    C       129      2   0  0              0        129     TABLE                                   
          12506    C       129      2   0  0              0        129     SECTION DESCRIPTION                     
  Source image: P1030153.JPG
          12507    C       129      2   0  0              0        129     PROG HEADING                            
    12503>12508    10               0   0  0            124                ORDER                                   SELECT LITERAL
          12509    5       41       2   2  0              0                                                        TRANSFER
          12510    10               0   0  0           1000                DISC/MOD                                SELECT LITERAL
          12511    5       41       8   2  0              0                                                        TRANSFER
          12512            41       0   2  0              0                PRODUCES SERIAL NO                      SELECT
          12513    11               0   0  0              1                OF NEXT ORDER                           ADD LITERAL
          12514    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12515    5       41       4   2  0              0                REF                                     TRANSFER
          12516    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          12517    5       41       6   2  0              0                ITEM                                    TRANSFER
          12518    5       41      10   1  0              0                                                        TRANSFER
          12519    5       41      12   1  0              0                                                        TRANSFER
          12520    76      119      2   0  0              0        119                                             JUMP unconditional
                                                                                                                   
          12600    PROCR   126       126     SET UP I/P CONTROL DATA FOR ROUTES TABLE                              
          12601     NOTES          RADIX          0                                                                SELECT
    12212>12602    83      140      2   0  0              2        140                                             SET SWITCH(ES) AT LITERAL VALUE
          12603            153      8   0  0              0        153                                             SELECT
          12604    12               0   0  0              3                                                        SUBTRACT LITERAL
          12605    71      128      2   0  0              0        128                                             JUMP IF A != 0
          12606    55      44       0   1  0             10                BACK SAFE                               BULK COPY
          12607    C       5        0   1  0              0                                                        
          12608    54      41     100   1  0            150                CLEAR W/L'S                             BULK CLEAR
          12609    91      154      4   0 11              0        154     MR11 FOR UNPACKING  UNPACK TYPE         SET MODIFICATION REGISTER AT VARIABLE
    12624>12610    54      41      50   1  0             22                CLEAR W/L                               BULK CLEAR
          12611            152     22   0  0              0        152                                             SELECT
          12612    70      126     16   0  0              0        126     PT                                      JUMP IF A == 0
          12613    50      5        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          12614    C       159     28   0  0              0        159                                             
          12615    76      126     18   0  0              0        126                                             JUMP unconditional
    12612>12616    51      5        0   0  0              0                UNPACK BLOCK                            UNPACK VARIABLE FIELD DATA
          12617    C       158     10   0  0              0        158                                             
    12615>12618    55      41      51   0  0              8                STORE RTE TYPES                         BULK COPY
          12619    C       41     100   0 11              0                                                        
          12620    94      126     21   0 11              8        126     STEP BACK S/R                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12620>12621    80      135      2   0  0              0        135     >READ PT                                ENTER SUBROUTINE
          12622            153      8   0  0              0        153     TEST TYPE 4                             SELECT
          12623    12               0   0  0              3                                                        SUBTRACT LITERAL
          12624    70      126     10   0  0              0        126     >YES                                    JUMP IF A == 0
                                                                                                                   
          12700    PROCR   127       127     PRODUCE AMENDTS TO RTES TABLE                                         
          12701     NOTES          RADIX          0                                                                SELECT
          12702    91      154      4   0 11              0        154     0:0                                     SET MODIFICATION REGISTER AT VARIABLE
    12759>12703    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          12704            41       4   1  0              0                TEST NEW CONST      TEST NEW SECT       SELECT
          12705    2       154     28   1  0              0        154     SECTION                                 SUBTRACT
          12706    70      127      9   0  0              0        127     >YES                                    JUMP IF A == 0
          12707    83      127      2   0  0              2        127     DIRECTIVE NOT NEEDED                    SET SWITCH(ES) AT LITERAL VALUE
          12708    76      127     11   0  0              0        127     >                                       JUMP unconditional
    12706>12709    80      134      2   0  0              0        134     >READ AND STORE S/R PREP FOR SECT       ENTER SUBROUTINE
          12710    83      118      2   0  0              1        118     SWITCH FOR 1ST LINE BEGN                SET SWITCH(ES) AT LITERAL VALUE
    12708>12711            41       4   1  0              0                TEST END BLOCK      TEST END OF         SELECT
          12712    2       154     40   1  0              0        154                         TABLE               SUBTRACT
          12713    70      128      2   0  0              0        128                                             JUMP IF A == 0
          12714            41     100   0 11              0                                                        SELECT
          12715    70      127     22   0  0              0        127     >PSEUDO ROUTE                           JUMP IF A == 0
          12716    12               0   0  0             10                                                        SUBTRACT LITERAL
          12717    70      127     23   0  0              0        127     >M/R ROUTE                              JUMP IF A == 0
          12718    73      127     20   0  0              0        127     >ACTIVE ROUTE                           JUMP IF A < 0
  Source image: P1030154.JPG
          12719    11               0   0  0            £.0                LATENT ROUTE                            ADD LITERAL
    12718>12720    11               0   0  0             10                                                        ADD LITERAL
          12721    76      127     24   0  0              0        127     >STORE IT                               JUMP unconditional
    12715>12722    10               0   0  0           ££00                                                        SELECT LITERAL
    12717>12723    11               0   0  0                                                                       ADD LITERAL
    12721>12724    5       153     46   0  0              0        153     STORE IT                                TRANSFER
          12725            41       6   1  0              0                FIRST 3 CHARS       TEST DIRECTIVE      SELECT
          12726    30               0   0  0              4-               =(D)?               NEEDED              SHIFT (A) BY QUARTETS
          12727    2       153     54   1  0              0        153                                             SUBTRACT
          12728    71      127     32   0  0              0        127     >NOT NEEDED                             JUMP IF A != 0
          12729            153     54   1  0              0        153     STORE (D)                               SELECT
          12730    5       41       6   1  0              0                                                        TRANSFER
          12731    76      127     47   0  0              0        127                                             JUMP unconditional
    12728>12732            41       6   2  0              0                FORM UP AND         TEST REPLACEMEN     SELECT
          12733    30               0   0  0              5                RIGHT ALIGN FIRST   NEEDED              SHIFT (A) BY QUARTETS
          12734    1       41       8   2  0              0                TWO WORDS OF                            ADD
          12735    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
    12740>12736    5       153     44   1  0              0        153     OLD RTE TYPE CONST                      TRANSFER
          12737    75      127     41   0  0              0        127     >FINISHED                               JUMP IF AB != 0
          12738            153     44   1  0              0        153                                             SELECT
          12739    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          12740    76      127     36   0  0              0        127     >TEST IF FINISHED                       JUMP unconditional
    12737>12741    5       41       6   1  0              0                                                        TRANSFER
          12742            153     44   1  0              0        153     TEST NEW RTE TYPE                       SELECT
          12743    2       153     46   1  0              0        153     = OLD ONE                               SUBTRACT
          12744    71      127     47   0  0              0        127     >NO                                     JUMP IF A != 0
          12745    83      118      2   0  0              1        118     SET SWITCH FOR 1ST LINE                 SET SWITCH(ES) AT LITERAL VALUE
          12746    76      127     58   0  0              0        127     >                                       JUMP unconditional
    12744>                                                                                                         
    12731>12747    0       153     46   1  0              0        153     STORE NEW CONST                         SELECT
          12748    5       41       8   2  0              0                                                        TRANSFER
          12749            153     50   1  0              0        153     STORE N/E                               SELECT
          12750    5       41      10   1  0              0                                                        TRANSFER
          12751    85      127      2   0  0              0        127                                             SWITCH R
          12752    C       127     54   0  0              0        127     >DIRECTIVE NEEDED                       
          12753    C       127     55   0  0              0        127     >NOT NEEDED                             
    12752>12754            153     54   1  0              0        153     STORE DIRECTIVE                         SELECT
    12753>12755    5       41       4   1  0              0                                                        TRANSFER
          12756    80      142      2   0  0              0        142     >OUTPUT CONSTANTS                       ENTER SUBROUTINE
          12757    83      118      2   0  0              2        118     SET SW FOR 2ND LINE                     SET SWITCH(ES) AT LITERAL VALUE
    12746>12758    80      134      2   0  0              0        134     >READ AND STORE S/R                     ENTER SUBROUTINE
          12759    94      127      3   0 11              1        127     >NEXT RTE                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          12800    PROCR   128       128     END ROUTINE                                                           
          12801     NOTES          RADIX          0                                                                SELECT
    12713>                                                                                                         
    12605>                                                                                                         
    12213>                                                                                                         
    10722>12802            197     56   1  0              0        197     END                                     SELECT
          12803    5       42       2   1  0              0                                                        TRANSFER
          12804            153     62   1  0              0        153     B/E WORD                                SELECT
          12805    5       42       4   1  0              0                                                        TRANSFER
          12806    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          12900    PROCR   129       129     REPORTS                                                               
          12901     NOTES          RADIX          0                                                                SELECT
    12507>                                                                                                         
    12506>                                                                                                         
    12505>                                                                                                         
    12504>                                                                                                         
    12407>                                                                                                         
    12406>                                                                                                         
    12211>                                                                                                         
    12209>                                                                                                         
    11620>                                                                                                         
    11619>                                                                                                         
    11408>                                                                                                         
    11341>                                                                                                         
    11335>                                                                                                         
    11318>                                                                                                         
  Source image: P1030155.JPG
    11315>12902    83      118      2   0  0              1        118                                             SET SWITCH(ES) AT LITERAL VALUE
          12903            41       0   1  0              0                                                        SELECT
          12904    5       155     16   1  0              0        155                                             TRANSFER
          12905    154     155      6   0  0              0        155                                             COMMENT IN LOG
          12906    76      131      2   0  0              0        131                                             JUMP unconditional
                                                                                                                   
          13000    PROCR   130       130                                                                           
    11632>13002            41       0   1  0              0                                                        SELECT
          13003    5       155     26   1  0              0        155                                             TRANSFER
          13004    5       152     23   0  0              0        152     CLEAR INDICATOR                         TRANSFER
          13005    154     155     20   0  0              0        155                                             COMMENT IN LOG
                                                                                                                   
          13100    PROCR   131       131                                                                           
    12906>13102    150              0   0  0             13                                                        OFFER OPTIONS
          13103    C       190     58   0  0              0        190     >UNLOAD                                 
          13104    C       170      9   0  0              0        170     >RE ENTER                               
          13105    C       131      7   0  0              0        131     >CONTINUE,IGNORING ERRORS               
          13106    C       107      2   0  0              0        107     >CONTINUE,REPORTING ERRORS              
    13105>13107            120      3   0  0              0        120     24/1/0>107/2                            SELECT
          13108    3       130      2   0  0              0        130                                             COPY
          13109    5       129      4   0  0              0        129                                             TRANSFER
          13110    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          13200    PROCR   132       132     READ MT                                                               
          13202    81      132      2   0  0              0        132                                             START OF SUBROUTINE
          13203    42      A1       0   0  0              0                READ BLOCK                              INPUT
          13204    C       7        0   0  0              0                                                        
          13205    82      132      2   0  0              0        132                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13300    PROCR   133       133     ADDRESS NEXT RECORD                                                   
          13301     NOTES          RADIX          0                                                                SELECT
          13302    81      133      2   0  0              0        133                         READ NEXT BLOCK     START OF SUBROUTINE
          13303    85      133      2   0  0              0        133                                             SWITCH R
          13304    C       133     12   0  0              0        133     >NOT YET                                
          13305    C       133      6   0  0              0        133     >YES,NOW                                
    13305>13306            150     20   1  0              0        150                                             SELECT
          13307    71      133     20   0  0              0        133     >MULTIRECORD                            JUMP IF A != 0
          13308    80      132      2   0  0              0        132     >READ BLOCK                             ENTER SUBROUTINE
    13315>13309    55      7        0   1  0             52                COPY TO SECTION 1                       BULK COPY
          13310    C       40       0   1  0              0                                                        
          13311    82      133      2   0  0              0        133                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13304>13312    80      132      2   0  0              0        132     READ BLOCK                              ENTER SUBROUTINE
          13313            7       12   1  0              0                                                        SELECT
          13314    2       154     26   1  0              0        154     PROCR                                   SUBTRACT
          13315    71      133      9   0  0              0        133     >STILL NOT YET                          JUMP IF A != 0
          13316    83      133      2   0  0              2        133     READY'                                  SET SWITCH(ES) AT LITERAL VALUE
          13317            7        4   2  0              0                                                        SELECT
          13318    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          13319    91               0   0  7              0                BLOCK LENGTH AS END VALUE               SET MODIFICATION REGISTER AT VARIABLE
    13307>13320    54      41       0   0  0             52                                                        BULK CLEAR
  Source image: P1030156.JPG
          13321    54      40       0   0  0             54                                                        BULK CLEAR
          13322    55      7        6   1  7              0                                                        BULK COPY
          13323    C       41       0   1  0              0                                                        
          13324    C       7        6   2  7              0                                                        
          13325            7       12   1  7              0                                                        SELECT
          13326    2       154     28   1  0              0        154     'CONST'                                 SUBTRACT
          13327    73      133     37   0  0              0        133     >NOT DIR                                JUMP IF A < 0
          13328            41       4   1  0              0                SERIAL                                  SELECT
          13329    5       40       6   1  0              0                                                        TRANSFER
          13330            41       6   1  0              0                DIR                                     SELECT
          13331    5       40      10   1  0              0                                                        TRANSFER
          13332            41       8   1  0              0                SECN NO                                 SELECT
          13333    5       40      16   1  0              0                                                        TRANSFER
          13334            41      14   2  0              0                                                        SELECT
          13335    5       150     28   0  0              0        150     CONST TYPE(IF CONST)                    TRANSFER
          13336    76      133     49   0  0              0        133     >STEP MR & RETURN                       JUMP unconditional
    13327>13337    85      107      2   0  0              0        107                                             SWITCH R
          13338    C       133     41   0  0              0        133     >PROCR                                  
          13339    C       133     44   0  0              0        133     >CONST                                  
          13340    C       133     47   0  0              0        133     >TABLE                                  
    13338>13341    50      41       4   0  0              0                                                        UNPACK FIXED FIELD DATA
          13342    C       163      2   0  0              0        163                                             
          13343    76      133     49   0  0              0        133     >                                       JUMP unconditional
    13339>13344    50      41       4   0  0              0                                                        UNPACK FIXED FIELD DATA
          13345    C       165      2   0  0              0        165                                             
          13346    76      133     49   0  0              0        133     >                                       JUMP unconditional
    13340>13347    50      41       4   0  0              0                                                        UNPACK FIXED FIELD DATA
          13348    C       164      2   0  0              0        164                                             
    13346>                                                                                                         
    13343>                                                                                                         
    13336>13349            7        6   2  7              0                                                        SELECT
          13350    5       150     22   0  0              0        150                                             TRANSFER
          13351    97      150     22   0  7              0        150                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          13352    C       133     57   0  0              0        133     >LEAVE S/R                              
          13353    80      132      2   0  0              0        132     READ BLOCK                              ENTER SUBROUTINE
          13354            7        4   2  0              0                                                        SELECT
          13355    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          13356    91               0   0  7              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    13352>13357    82      133      2   0  0              0        133     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13400    PROCR   134       134     READ M/T AND STORE BLOCK S/R                                          
          13401     NOTES          RADIX     0                                                                     SELECT
          13402    81      134      2   0  0              0        134     >READ M/T S/R                           START OF SUBROUTINE
          13403    80      133      2   0  0              0        133     COPY NEXT BLOCK                         ENTER SUBROUTINE
          13404    55      40       6   1  0             42                TO W/L                                  BULK COPY
          13405    C       41       0   1  0              0                                                        
          13406            40       4   1  0              0                                                        SELECT
          13407    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          13408    12               0   0  0             5‼                                                        SUBTRACT LITERAL
          13409    71      134     12   0  0              0        134                                             JUMP IF A != 0
          13410    55      40       4   1  0             10                                                        BULK COPY
          13411    C       41       0   1  0              0                                                        
    13409>13412    82      134      2   0  0              0        134                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13500    PROCR   135       135     READ P/T S/R                                                          
          13501     NOTES          RADIX          0                                                                SELECT
          13502    81      135      2   0  0              0        135                         READ NEXT BLOCK     START OF SUBROUTINE
          13503    62               0   0  0              0                READ BLOCK                              SET EXCESS CONSTANTS
          13504    100     999     14   0  2              0                                                        replace (B) by (N)
          13505    101              5   1  3              0                                                        select literal address
  Source image: P1030157.JPG
          13506    104     152     22   0  0              0        152                                             add (N) to (A)
          13507    118              5   0  1              0                                                        shift arithmetic
          13508    104     999      8   0  0              0                                                        add (N) to (A)
          13509    125           4096   1  1              0                                                        clear indicators
          13510    124     999      0   0  3              0                                                        modify address of next
          13511    123            160   0  2              0                >ENTER MASTER                           enter master routine
          13512            152     22   0  0              0        152                                             SELECT
          13513    71      135     17   0  0              0        135     >CARDS                                  JUMP IF A != 0
          13514    51      5        0   0  0              0                UNPACK TWO WORDS                        UNPACK VARIABLE FIELD DATA
          13515    C       158      2   0  0              0        158                                             
          13516    82      135      2   0  0              0        135     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    13513>13517    50      5        0   0  0              0                2 WORDS                                 UNPACK FIXED FIELD DATA
          13518    C       159      2   0  0              0        159                                             
          13519    82      135      2   0  0              0        135                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13600    PROCR   136       136     DEAL WITH PRINTER                                                     
          13602    81      136      2   0  0              0        136                                             START OF SUBROUTINE
          13603    30               0   0  0              5                RT                                      SHIFT (A) BY QUARTETS
          13604    1       999      7   0  0              0                                                        ADD
          13605    125           4096   1  1              0                NON INT                                 clear indicators
          13606    124     999      0   0  3              0                                                        modify address of next
          13607    123            160   0  2              0                >M/R                                    enter master routine
          13608    82      136      2   0  0              0        136                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13700    PROCR   137       137     OUTPUT ON PRINTER                                                     
          13701     NOTES          RADIX          0                                                                SELECT
          13702    81      137      2   0  0              0        137                                             START OF SUBROUTINE
          13703    100     153     56   1  0              0        153                                             copy registers
          13704    100     154      4   0  3              0        154                                             set radix
          13705            27       9   0  0              0                ON LINE?                                SELECT
          13706    70      137     11   0  0              0        137     >YES                                    JUMP IF A == 0
          13707    55      42       0   1  0             50                                                        BULK COPY
          13708    C       10       4   1  0              0                                                        
          13709    10               0   0  0              8                                                        SELECT LITERAL
          13710    76      137     19   0  0              0        137                                             JUMP unconditional
    13706>13711    10               0   0  0              0                FUNCTION WORD       OUTPUT ONE BLOCK    SELECT LITERAL
          13712    5       42       0   1  0              0                ZERO                                    TRANSFER
          13713            27       8   0  0              0                                                        SELECT
          13714    12               0   0  0              9                =9?                                     SUBTRACT LITERAL
          13715    71      137     24   0  0              0        137     >NO                                     JUMP IF A != 0
          13716    55      42       0   1  0             50                COPY TO TX AREA                         BULK COPY
          13717    C       10       0   1  0              0                                                        
          13718    101              9   1  3              0                RT 9                                    select literal address
    13730>                                                                                                         
    13710>13719    34      999     12   0  0              0                                                        SET (N) IN B
          13720    80      136      2   0  0              0        136     >                                       ENTER SUBROUTINE
          13721    100     153     56   1  1              0        153     RESET A,B,C                             replace registers
          13722    54      40       0   1  0             50                                                        BULK CLEAR
          13723    82      137      2   0  0              0        137     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    13715>13724    10               0   0  0          80000                                                        SELECT LITERAL
          13725    5       42       1   0  0              0                                                        TRANSFER
          13726    124     42       0   0  2              0                SECTION START                           select literal and division
          13727    124     999     13   1  2              0                SECN 10                                 modify address of next
          13728    129              0   0  1              0                EDIT                                    edit for anelex output
          13729    101              4   1  3              0                RT4                                     select literal address
          13730    76      137     19   0  0              0        137     >                                       JUMP unconditional
          13731    42      A1       0   0  0              0                DUMMY TO MAKE SECTION                   INPUT
          13732    C       10       0   0  0              0                10 A TX AREA                            
                                                                                                                   
          13800    PROCR   138       138     OUTPUT ON P/T AND PRINTER S/R                                         
  Source image: P1030158.JPG
          13801     NOTES          RADIX          0                                                                SELECT
          13802    81      138      2   0  0              0        138                                             START OF SUBROUTINE
          13803            147     95   0  0              0        147     SET SWITCH FOR CON CONSANTS             SELECT
          13804    5       147     74   0  0              0        147                                             TRANSFER
          13805            153     36   1  0              0        153     STORE B/E                               SELECT
          13806    5       42      46   1  0              0                                                        TRANSFER
          13807    80      147      2   0  0              0        147     >GET RID OF SPACES S/R                  ENTER SUBROUTINE
          13808    80      140      2   0  0              0        140     >OUTPUT S/R                             ENTER SUBROUTINE
          13809    82      138      2   0  0              0        138     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13900    PROCR   139       139     O/P S/R                                                               
          13902    81      139      2   0  0              0        139                                             START OF SUBROUTINE
          13903    55      42       2   1  0             46                >PT IN                                  BULK COPY
          13904    C       5        0   1  0              0                                                        
          13905    80      137      2   0  0              0        137     >PRINT                                  ENTER SUBROUTINE
          13906    76      193      6   0  0              0        193                                             JUMP unconditional
                                                                                                                   
          14000    PROCR   140       140     GENERAL OUTPUT S/R                                                    
          14001     NOTES          RADIX          0                                                                SELECT
          14002    81      140      2   0  0              0        140                                             START OF SUBROUTINE
          14003    85      140      2   0  0              0        140                                             SWITCH R
          14004    C       140      6   0  0              0        140     >REDUCE                                 
          14005    C       140     30   0  0              0        140     >O/P                                    
    14004>14006            42       4   1  0              0                                                        SELECT
          14007    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          14008    12               0   0  0             54                                                        SUBTRACT LITERAL
          14009    70      140     37   0  0              0        140     >'D'                                    JUMP IF A == 0
          14010    12               0   0  0             2Ю                                                        SUBTRACT LITERAL
          14011    70      140     33   0  0              0        140     >' '                                    JUMP IF A == 0
          14012            150     18   2  0              0        150                         'R'                 SELECT
          14013    70      140     28   0  0              0        140     >NOTHING THERE                          JUMP IF A == 0
    14031>                                                                                                         
    14081>14014            42       2   1  0              0                                                        SELECT
          14015    5       150     24   1  0              0        150     PRESERVE                                TRANSFER
          14016            42       4   1  0              0                                                        SELECT
          14017    5       150     26   1  0              0        150     PRESERVE                                TRANSFER
          14018            150     18   1  0              0        150                                             SELECT
          14019    5       42       2   1  0              0                SERIAL                                  TRANSFER
          14020            153     62   1  0              0        153                                             SELECT
          14021    5       42       4   1  0              0                B/E'S                                   TRANSFER
          14022    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
          14023            150     24   1  0              0        150                                             SELECT
          14024    5       42       2   1  0              0                                                        TRANSFER
          14025            150     26   1  0              0        150                                             SELECT
          14026    5       42       4   1  0              0                                                        TRANSFER
          14027    5       150     18   1  0              0        150     CLEAR IND                               TRANSFER
    14032>                                                                                                         
    14013>14028    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
          14029    82      140      2   0  0              0        140                         ' '                 END OF SUBROUTINE / LEAVE SUBROUTINE
    14005>14030            150     18   1  0              0        150                                             SELECT
          14031    71      140     14   0  0              0        140                                             JUMP IF A != 0
          14032    76      140     28   0  0              0        140                                             JUMP unconditional
    14043>                                                                                                         
    14049>                                                                                                         
    14052>                                                                                                         
    14066>                                                                                                         
    14011>14033            42       2   1  0              0                                                        SELECT
          14034    5       150     18   1  0              0        150     SET THIS SERIAL                         TRANSFER
          14035    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14036    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
  Source image: P1030159.JPG
    14009>14037            150     18   2  0              0        150     TEST SERIAL STORED 'D'                  SELECT
          14038    60               0   0  0              0                                                        SET DECIMAL RADIX
          14039    71      140     53   0  0              0        140     >YES DON'T O/P YET                      JUMP IF A != 0
          14040    106     150     31   1  0              0        150     TEST ADJACENT                           select (N)
          14041    105     42       3   1  0              0                                                        subtract (N) from (A)
          14042    101              1   1  1              0                                                        add literal address
          14043    70      140     33   0  0              0        140     >YES                                    JUMP IF A == 0
          14044    101              1   1  1              0                                                        add literal address
          14045    71      140     73   0  0              0        140     >NO                                     JUMP IF A != 0
          14046    85      107      2   0  0              0        107     MAYBE?                                  SWITCH R
          14047    C       140     73   0  0              0        140     >NO                                     
          14048    C       140     50   0  0              0        140     >MAYBE                                  
          14049    C       140     33   0  0              0        140     >YES                                    
    14048>14050            150     28   0  0              0        150     CONST TYPE                              SELECT
          14051    70      140     73   0  0              0        140     >NO                                     JUMP IF A == 0
          14052    76      140     33   0  0              0        140     >YES                                    JUMP unconditional
    14039>14053    2       42       2   2  0              0                                                        SUBTRACT
          14054    11               0   0  0              1                                                        ADD LITERAL
          14055    70      140     64   0  0              0        140     >ADJ                                    JUMP IF A == 0
          14056    11               0   0  0              1                                                        ADD LITERAL
          14057    71      140     78   0  0              0        140                                             JUMP IF A != 0
          14058    85      107      2   0  0              0        107                                             SWITCH R
          14059    C       140     78   0  0              0        140                                             
          14060    C       140     62   0  0              0        140     C                   MAYBE               
          14061    C       140     64   0  0              0        140     T                   YES                 
    14060>14062            150     28   0  0              0        150     CONST TYPE                              SELECT
          14063    70      140     78   0  0              0        140                                             JUMP IF A == 0
    14061>                                                                                                         
    14055>14064            152     13   0  0              0        152     DELETION TYPE                           SELECT
          14065    12               0   0  0              2                                                        SUBTRACT LITERAL
          14066    71      140     33   0  0              0        140                                             JUMP IF A != 0
          14067    5       150     18   1  0              0        150     CLEAR IT                                TRANSFER
          14068    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14069    82      140      2   0  0              0        140     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
          14070            42       2   1  0              0                                                        SELECT
          14071    5       150     18   1  0              0        150                                             TRANSFER
          14072    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    14051>                                                                                                         
    14047>                                                                                                         
    14045>14073    106     42       2   1  0              0                                                        select (N)
          14074    102     150     30   1  0              0        150                                             transfer (A) to N
          14075    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14076    126     139      2   0  0              0        139     O/P                                     enter subroutine
          14077    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    14063>                                                                                                         
    14059>                                                                                                         
    14057>14078    106     42       2   1  0              0                                                        select (N)
          14079    102     150     30   1  0              0        150                                             transfer (A) to N
          14080    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14081    76      140     14   0  0              0        140                                             JUMP unconditional
                                                                                                                   
          14100    PROCR   141       141     OUTPUT REPLACEMENT S/R                                                
          14101     NOTES          RADIX          0                                                                SELECT
          14102    81      141      2   0  0              0        141                                             START OF SUBROUTINE
          14103    85      118      2   0  0              0        118     SWITCH 5                                SWITCH R
          14104    C       141      6   0  0              0        141     >FIRST LINE OF REPLACEMENT              
          14105    C       141     12   0  0              0        141     >SECOND LINE                            
    14104>14106            41       0   1  0              0                                                        SELECT
          14107    5       42       2   1  0              0                                                        TRANSFER
          14108    83      118      2   0  0              2        118     SET SWITCH FOR SECOND LINE              SET SWITCH(ES) AT LITERAL VALUE
  Source image: P1030160.JPG
          14109            154     36   1  0              0        154     R(N/E) (SP) (SP) (SP)                   SELECT
    14113>14110    5       42       4   1  0              0                                                        TRANSFER
          14111    82      141      2   0  0              0        141     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    14105>14112            153     50   1  0              0        153     (N/E)                                   SELECT
          14113    76      141     10   0  0              0        141     >LEAVE S/R                              JUMP unconditional
                                                                                                                   
          14200    PROCR   142       142     OUTPUT CONSTANTS S/R                                                  
          14201     NOTES          RADIX          0                                                                SELECT
          14202    81      142      2   0  0              0        142                                             START OF SUBROUTINE
          14203    55      41       4   1  0             38                COPY CONSTANT AND NOTES                 BULK COPY
          14204    C       42       6   1  0              0                                                        
          14205    5       42       2   1  0              0                CLEAR SERIAL NO LOCN                    TRANSFER
          14206    80      141      2   0  0              0        141     >OUTPUT REPLACEMENT S/R                 ENTER SUBROUTINE
          14207            153     36   1  0              0        153     STORE B/E'S                             SELECT
          14208    5       42      46   1  0              0                                                        TRANSFER
          14209            147     93   0  0              0        147     SET SWITCH FOR CONSTANTS                SELECT
          14210    5       147     74   0  0              0        147                                             TRANSFER
          14211    80      147      2   0  0              0        147     >GET RID OF SPACES S/R                  ENTER SUBROUTINE
          14212    80      140      2   0  0              0        140     >OUTPUT S/R                             ENTER SUBROUTINE
          14213    82      142      2   0  0              0        142     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14300    PROCR   143       143     OUTPUT BLANK LINE S/R                                                 
          14301     NOTES          RADIX          0                                                                SELECT
          14302    81      143      2   0  0              0        143                                             START OF SUBROUTINE
          14303            153     62   1  0              0        153                                             SELECT
          14304    5       42       2   1  0              0                                                        TRANSFER
          14305    80      137      2   0  0              0        137     >OUTPUT ON PRINTER                      ENTER SUBROUTINE
          14306    82      143      2   0  0              0        143     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14400    PROCR   144       144     BULK CLEAR TRANSIT AREA                                               
          14401     NOTES          RADIX          0                                                                SELECT
          14402    81      144      2   0  0              0        144                                             START OF SUBROUTINE
          14403    54      42       0   1  0             50                CLEAR TX                                BULK CLEAR
          14404    82      144      2   0  0              0        144     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14500    PROCR   145       145                                                                           
          14501     NOTES          RADIX          0                                                                SELECT
          14502    81      145      2   0  0              0        145                                             START OF SUBROUTINE
          14503    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14504    90               0   0 13              0                                                        SET MODIFICATION REGISTER AT LITERAL
          14505    C                0   0  0             16                WORDS OF ANNOTATION                     
    14526>14506    35               0   0  0     1100000000                                                        PREPARE FOR DIGIT COLLATION
    14525>14507    36      41      44   1 13              0                COLLATE NEXT OCTET IN NOTES WITH        COLLATE AND ADD
          14508    70      145     30   0  0              0        145     >SPACE              N/E'S               JUMP IF A == 0
          14509    5       153     40   1  0              0        153     TEST IF *                               TRANSFER
          14510    36      154     34   1  0              0        154                                             COLLATE AND ADD
          14511    2       153     40   1  0              0        153                                             SUBTRACT
          14512    71      145     16   0  0              0        145     >NO                                     JUMP IF A != 0
          14513            153     42   1  0              0        153     REPLACE BY N/E                          SELECT
          14514    37      41      44   1 13              0                                                        REPLACE SELECTED BITS
          14515    76      145     23   0  0              0        145                                             JUMP unconditional
    14512>14516    10               0   0  0              0                SHIFT COLLATION                         SELECT LITERAL
          14517    36      154     44   1  0              0        154     TEST CHAR IS                            COLLATE AND ADD
          14518    2       153     40   1  0              0        153     DECIMAL                                 SUBTRACT
          14519    72      145     23   0  0              0        145     >YES                                    JUMP IF A >= 0
          14520            152     23   0  0              0        152     LOOKING FOR DUMMIES                     SELECT
          14521    70      111      2   0  0              0        111     >NO-IGNORE                              JUMP IF A == 0
          14522    76      116     31   0  0              0        116     >YES-DUMMY NOT FOUND                    JUMP unconditional
    14519>                                                                                                         
    14515>14523    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
  Source image: P1030161.JPG
          14524    32               0   0  0              2-               CONSTANT                                SHIFT (AB) BY QUARTETS
          14525    75      145      7   0  0              0        145     >NEXT OCTET                             JUMP IF AB != 0
          14526    94      145      6   0 13              2        145     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          14527    0       153     36   1  0              0        153     B/E'S                                   SELECT
          14528    5       41      44   1 13              0                IN NEXT WORD                            TRANSFER
          14529    76      145     37   0  0              0        145     >UNPACK                                 JUMP unconditional
    14508>14530            153     42   1  0              0        153     PACK IN N/E         PLACE B/E AT        SELECT
          14531    37      41      44   1 13              0                                    END                 REPLACE SELECTED BITS
          14532    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          14533    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14534            153     36   1  0              0        153     B/E'S                                   SELECT
          14535    37      41      44   1 13              0                                                        REPLACE SELECTED BITS
          14536    5       41      46   1 13              0                                                        TRANSFER
    14529>14537    51      41      44   0  0              0                UNPACK VARIABLE     BREAK UP            UNPACK VARIABLE FIELD DATA
          14538    C       158      8   0  0              0        158                                             
          14539    82      145      2   0  0              0        145     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14600    PROCR   146       146     TEST REQUIRED INDICATOR IN THIS BLOCK                                 
          14601     NOTES          RADIX          0                                                                SELECT
          14602    81      146      2   0  0              0        146                                             START OF SUBROUTINE
          14603    91      154      4   0 12              0        154     MODIFIER FOR WORD                       SET MODIFICATION REGISTER AT VARIABLE
    14610>14604    10               0   0  0              0                                                        SELECT LITERAL
          14605    5       152     16   0  0              0        152                                             TRANSFER
          14606            41     322   1 12              0                OF NEW INDICATORS                       SELECT
          14607    70      146     11   0  0              0        146     >LAST INDICATOR     SEARCH AMONG WORDS  JUMP IF A == 0
          14608    2       41     306   1  0              0                                    OR NEW INDICATOR    SUBTRACT
          14609    70      146     12   0  0              0        146     >FOUND              FOR FIRST WORD OF   JUMP IF A == 0
    14619>14610    94      146      4   0 12              2        146     >NEXT WORD          STORED INDICATOR    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    14607>14611    82      146      2   0  0              0        146     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    14623>                                                                                                         
    14609>14612    96               0   0 12              0                                                        SELECT MODIFIER
          14613    1       152     16   0  0              0        152                                             ADD
          14614    92               0   0 15              0                                                        SET MODIFIER AT VARIABLE
          14615    124     152     16   0  1              0        152                                             modify address of next
          14616            41     306   1  0              0                                    EQUAL               SELECT
          14617    70      146     24   0  0              0        146     >ALL EQUAL                              JUMP IF A == 0
          14618    2       41     322   1 15              0                                                        SUBTRACT
          14619    71      146     10   0  0              0        146     >NEXT ONE NOT=                          JUMP IF A != 0
          14620    62               0   0  0              0                STEP MODIFIER                           SET EXCESS CONSTANTS
          14621    10               0   0  0              2                                                        SELECT LITERAL
          14622    4       152     16   0  0              0        152                                             AUGMENT
          14623    76      146     12   0  0              0        146     >TRY NEXT WORD                          JUMP unconditional
    14617>14624    124     146      2   0  3              0        146                                             modify address of next
          14625    124              1   1  0              0                                                        unconditional jump
                                                                                                                   
          14700    PROCR   147       147     GET RID OF UNNEC SPACES,SIG AND NON SIG S/R                           
          14701     NOTES          RADIX          0                                                                SELECT
          14702    81      147      2   0  0              0        147                                             START OF SUBROUTINE
          14703    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14704            150     14   1  0              0        150     SET UP CONSTANTS                        SELECT
          14705    3       150      2   1  0              0        150     COLL CONST 1                            COPY
          14706    3       150      4   1  0              0        150     COLL CONST 2                            COPY
          14707    5       150      6   1  0              0        150     COLL CONST 3                            TRANSFER
          14708    124     42       2   0  2              0                                                        select literal and division
          14709    3       150      8   1  0              0        150                                             COPY
          14710    3       150     10   1  0              0        150                                             COPY
          14711    5       150     12   1  0              0        150                                             TRANSFER
          14712            148     25   0  0              0        148     SET SWITCH 7=1                          SELECT
          14713    5       147     34   0  0              0        147                         COLLATE CHARACTER   TRANSFER
    14768>14714    34      150      2   1  0              0        150     COLLATION CONST 1   AND DETERMINE       SET (N) IN B
  Source image: P1030162.JPG
          14715    124     150      8   0  3              0        150                                             modify address of next
          14716    115              0   1  0              0                                                        collate and add
          14717    70      147     51   0  0              0        147     >SPACE              OR ORDINARY         JUMP IF A == 0
          14718    5       150     16   1  0              0        150                         CHARACTER           TRANSFER
          14719    124     150      8   0  3              0        150                                             modify address of next
          14720    114              0   1  0              0                                                        replace selected bits
          14721            150     16   2  0              0        150     TEST ZERO                               SELECT
          14722    70      147     51   0  0              0        147                                             JUMP IF A == 0
    14827>14723            150     16   1  0              0        150     SHIFT CHAR TO                           SELECT
    14725>14724    32               0   0  0              2-               Q1,2                                    SHIFT (AB) BY QUARTETS
          14725    71      147     24   0  0              0        147                                             JUMP IF A != 0
          14726    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          14727    3       150     16   1  0              0        150     STORE CHARACTER                         COPY
          14728    12               0   0  0             3:                TEST IF N/E                             SUBTRACT LITERAL
          14729    70      148      2   0  0              0        148     >YES N/E                                JUMP IF A == 0
          14730    12               0   0  0             40                                    DEAL WITH           SUBTRACT LITERAL
          14731    70      148      2   0  0              0        148     >YES N/E                                JUMP IF A == 0
          14732    12               0   0  0              1                TEST B/E                                SUBTRACT LITERAL
          14733    70      148     28   0  0              0        148     >YES B/E                                JUMP IF A == 0
          14734            150      6   1  0              0        150     SWITCH 7            1=SUPPRESS SPACES   SELECT
          14735    5       150      4   1  0              0        150     SET MR2=MR3         2=RETAIN SPACES     TRANSFER
          14736            150     12   1  0              0        150     COLL CONST 2=COLL 3                     SELECT
          14737    5       150     10   1  0              0        150                                             TRANSFER
          14738            148     22   0  0              0        148     SET SWITCH 7=2                          SELECT
          14739    5       147     34   0  0              0        147                                             TRANSFER
          14740            148     27   0  0              0        148     SET SWITCH 8=2                          SELECT
          14741    5       147     22   0  0              0        147                                             TRANSFER
    14773>                                                                                                         
    14780>                                                                                                         
    14810>14742    80      149      2   0  0              0        149     PACK UP                                 ENTER SUBROUTINE
          14743            150      6   1  0              0        150     SHIFT COLL CONST 3  STEP MRS AND        SELECT
          14744    32               0   0  0              2-                                   SHIFT COLL CONSTS   SHIFT (AB) BY QUARTETS
          14745    3       150      6   1  0              0        150                                             COPY
          14746    71      147     51   0  0              0        147     >NOT END                                JUMP IF A != 0
          14747            150     14   1  0              0        150     RESET COLL CONST                        SELECT
          14748    5       150      6   1  0              0        150                                             TRANSFER
          14749    123              2   0  0              0                STEP MR3                                step on and test
          14750    100     150     12   0  0              0        150                                             Halt
    14826>                                                                                                         
    14746>                                                                                                         
    14722>                                                                                                         
    14717>14751            150      4   1  0              0        150     SHIFT COLL CONST 2                      SELECT
          14752    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14753    3       150      4   1  0              0        150                                             COPY
          14754    71      147     59   0  0              0        147     >NOT END                                JUMP IF A != 0
          14755            150     14   1  0              0        150     RESET COLL CONST                        SELECT
          14756    5       150      4   1  0              0        150                                             TRANSFER
          14757    123              2   0  0              0                STEP MR2                                step on and test
          14758    100     150     10   0  0              0        150                                             Halt
    14754>14759            150      2   1  0              0        150     SHIFT COLL CONST 1                      SELECT
          14760    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14761    3       150      2   1  0              0        150                                             COPY
          14762    71      147     67   0  0              0        147     >NOT END                                JUMP IF A != 0
          14763            150     14   1  0              0        150     RESET COLL CONST 1                      SELECT
          14764    5       150      2   1  0              0        150                                             TRANSFER
          14765    123              2   0  0              0                STEP MR1                                step on and test
          14766    100     150      8   0  0              0        150                                             Halt
    14762>14767    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          14768    76      147     14   0  0              0        147     >NEXT CHARACTER                         JUMP unconditional
    14792>                                                                                                         
  Source image: P1030163.JPG
    14822>14769            150      4   1  0              0        150     SWITCH 7 SETTING 2  DEAL WITH N/E       SELECT
          14770    5       150      6   1  0              0        150     SET MR3=MR2                             TRANSFER
          14771            150     10   1  0              0        150     COLL CONST 3=COLL CONST 2               SELECT
          14772    5       150     12   1  0              0        150                                             TRANSFER
          14773    76      147     42   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
          14774            150      6   1  0              0        150     SWITCH 6                                SELECT
    14784>14775    5       150      4   1  0              0        150     SET MR2=MR3                             TRANSFER
          14776            150     12   1  0              0        150     COLL CONST 2=COLL CONST 3               SELECT
          14777    5       150     10   1  0              0        150                                             TRANSFER
    14791>14778            147     95   0  0              0        147     SET SWITCH 7=1                          SELECT
          14779    5       147     34   0  0              0        147                                             TRANSFER
          14780    76      147     42   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
    14793>14781            147     94   0  0              0        147     SET SWITCH 6=2      SWITCH 6 SETTING 1  SELECT
          14782    5       147     74   0  0              0        147                                             TRANSFER
          14783            150      6   1  0              0        150                                             SELECT
          14784    76      147     75   0  0              0        147                                             JUMP unconditional
    14794>14785            147     95   0  0              0        147     SET SWITCH 6=3      SWITCH 6 SETTING 2  SELECT
          14786    5       147     74   0  0              0        147                                             TRANSFER
          14787            150      4   1  0              0        150     SET MR3=MR2                             SELECT
          14788    5       150      6   1  0              0        150     COLL CONST 3=COLL CONST 2               TRANSFER
          14789            150     10   1  0              0        150                                             SELECT
          14790    5       150     12   1  0              0        150                                             TRANSFER
          14791    76      147     78   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
          14792    76      147     69   0  0              0        147     SWITCH 7 SETTING 2  DUMMY SWITCH        JUMP unconditional
          14793    76      147     81   0  0              0        147     SWITCH 6 SETTING 1  SETTINGS            JUMP unconditional
          14794    76      147     85   0  0              0        147     SWITCH 6 SETTING 2                      JUMP unconditional
          14795            150      6   1  0              0        150     SWITCH 6(7) SETTINGS 3(1)               SELECT
          14796    76      149     14   0  0              0        149                                             JUMP unconditional
    14919>14797    76      148     33   0  0              0        148     >LEAVE S/R                              JUMP unconditional
                                                                                                                   
          14800    PROCR   148       148     GET RID OF SPACES AND ZEROS CONT                                      
    14731>                                                                                                         
    14729>14802            150      6   1  0              0        150     SWITCH 6                                SELECT
    14814>14803    5       150      4   1  0              0        150     SET MR2=MR3                             TRANSFER
          14804            148     26   0  0              0        148     SET SWITCH 8=1                          SELECT
          14805    5       147     22   0  0              0        147                                             TRANSFER
          14806            150     12   1  0              0        150     COLL CONST 2=COLL                       SELECT
          14807    5       150     10   1  0              0        150     CONST 3                                 TRANSFER
    14821>14808            148     25   0  0              0        148     SET SWITCH 7=1                          SELECT
          14809    5       147     34   0  0              0        147                                             TRANSFER
          14810    76      147     42   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
          14811            148     24   0  0              0        148     SET SWITCH 6=2      SWITCH 6 SETTING 1  SELECT
          14812    5       148      2   0  0              0        148                                             TRANSFER
          14813            150      6   1  0              0        150                                             SELECT
          14814    76      148      3   0  0              0        148                                             JUMP unconditional
          14815            148     25   0  0              0        148     SET SWITCH 6=3      SWITCH 6 SETTING 2  SELECT
          14816    5       148      2   0  0              0        148                                             TRANSFER
          14817            150      4   1  0              0        150     SET MR3=MR2                             SELECT
          14818    5       150      6   1  0              0        150     COLL CONST3=COLL CONST 2                TRANSFER
          14819            150     10   1  0              0        150                                             SELECT
          14820    5       150     12   1  0              0        150                                             TRANSFER
          14821    76      148      8   0  0              0        148     >PACK UP AND STEP MRS                   JUMP unconditional
          14822    76      147     69   0  0              0        147     SWITCH 7 SETTING 2  DUMMY SWITCH        JUMP unconditional
          14823    76      149     11   0  0              0        149     SWITCH 6 SETTING 1  SETTINGS            JUMP unconditional
          14824    76      149     15   0  0              0        149     SWITCH 6 SETTING 2                      JUMP unconditional
          14825            150      6   1  0              0        150     SWITCH 6(7) SETTINGS 3(1)               SELECT
          14826    70      147     51   0  0              0        147     SWITCH 8 SETTING 1                      JUMP IF A == 0
          14827    76      147     23   0  0              0        147     SWITCH 8 SETTING 2                      JUMP unconditional
    14733>14828            150      6   1  0              0        150     SET MR2=MR3                             SELECT
          14829    5       150      4   1  0              0        150     COLL CONST 3=COLL CONST 2               TRANSFER
  Source image: P1030164.JPG
          14830            150     12   1  0              0        150                                             SELECT
          14831    5       150     10   1  0              0        150                                             TRANSFER
          14832    80      149      2   0  0              0        149     >PACK UP AND STORE S/R                  ENTER SUBROUTINE
    14797>14833    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
    14837>14834    124     150     10   0  3              0        150                                             modify address of next
          14835    114              0   1  0              0                                                        replace selected bits
          14836    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14837    75      148     34   0  0              0        148                                             JUMP IF AB != 0
          14838            153     62   1  0              0        153                                             SELECT
          14839    124     150     10   0  3              0        150                                             modify address of next
          14840    102              2   1  0              0                                                        transfer (A) to N
          14841    82      147      2   0  0              0        147                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14900    PROCR   149       149     PACK CHARACTER S/R                                                    
          14901     NOTES          RADIX          0                                                                SELECT
          14902    81      149      2   0  0              0        149                                             START OF SUBROUTINE
          14903    34      150     16   1  0              0        150     ALIGN CHARACTER                         SET (N) IN B
          14904    10               0   0  0             ££                WITH COLL CONST 3                       SELECT LITERAL
    14909>14905    2       150      4   1  0              0        150                                             SUBTRACT
          14906    70      149     10   0  0              0        149     >ALIGNED                                JUMP IF A == 0
          14907    1       150      4   1  0              0        150                                             ADD
          14908    32               0   0  0              2                SHIFT CHARACTER 2                       SHIFT (AB) BY QUARTETS
          14909    76      149      5   0  0              0        149     >TRY AGAIN                              JUMP unconditional
    14906>14910            150      4   1  0              0        150                                             SELECT
    14823>14911    124     150     10   0  3              0        150                                             modify address of next
          14912    114              0   1  0              0                                                        replace selected bits
          14913    82      149      2   0  0              0        149     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    14796>14914            150      6   1  0              0        150     SET MR2=MR3                             SELECT
    14824>14915    5       150      4   1  0              0        150     COLL CONST 3                            TRANSFER
          14916            150     12   1  0              0        150     =COLL CONST 2                           SELECT
          14917    5       150     10   1  0              0        150                                             TRANSFER
          14918    80      149      2   0  0              0        149     >PACK UP AND STORE S/R                  ENTER SUBROUTINE
          14919    76      147     97   0  0              0        147     >LEAVE S/R                              JUMP unconditional
                                                                                                                   
          15000    CONST   150       150     1    S/R CONSTS                                                       
          15002          (D)0;                                             COLLATION CONSTANTS                     
          15004          0;                                                                                        
          15006          0;                                                                                        
          15008          0;                                                MRS                                     
          15010          0;                                                                                        
          15012          0;                                                                                        
          15014          ££00000000;                                       COLLATION CONST                         
          15016          0;                                                                                        
          15018          ;                                                 END OF DELETION STORE                   
          15020          0;                                                MULTI-RECORD IND STORE                  
          15022          0;                                                RECORD LENGTH                           
          15024          ;                                                 EXTRA LINE STORE                        
          15026          ;                                                                                         
          15028          0;                                                CONST TYPE                              
          15030          0;                                                                                        
                                                                                                                   
          15100    CONST   151       151     0                                                                     
                                                                                                                   
          15200    CONST   152       152     0    SHORT CONSTANTS OR W/L'S                                         
          15202          (D)0;                                             BEGINNING OF CONTROL BLOCK              
          15203          0;                                                MODIFIER FOR CD AMEND                   
          15204          1;                                                COLLATION CONSTANT                      
          15205          10000;                                                                                    
          15206          1;                                                PHS IND/                                
          15207          0;                                                DELETION INDICATOR                      
  Source image: P1030165.JPG
          15208          0;                                                DUMMIES INDICATOR                       
          15209          1;                                                INDIC NO                                
          15210          1;                                                AMENDT IND                              
          15211          0;                                                REASON WORD                             
          15212          0;                                                REASON BIT                              
          15213          1;                                                TYPE                                    
          15214          £££££;                                            CONST                                   
          15215          1£;                                               COLL CONST                              
          15216          0;                                                TEST REQUIRED IN S/R                    
          15217          2;                                                                                        
          15218          0;                                                STEP BACK IND                           
          15219          0;                                                PRINTER ROUTE TYPE                      
          15220          ;                                                 STEP LOCN                               
          15221          0;                                                PRINTING?                               
          15222          0;                                                                                        
          15223          ;                                                 LOOKING FOR DUMMIES INDICATOR           
          15224          8004;                                             USED IN OPEN B1 FILE                    
          15225          5241;                                             DITTO                                   
          15226          (D)0;                                             'LOCKOUT' LINE SERIAL                   
          15227          0;                                                INDEX IDENTIFIER                        
                                                                                                                   
          15300    CONST   153       153     1    LONG CONSTANTS AND W/L'S                                         
          15302          (D)0;                                             SERIAL NO PRODUCED                      
          15304          0;                                                P/T OR NOT INDICATOR                    
          15306          0;                                                MR SETTING FOR RTES                     
          15308          0;                                                TYPE/SECOND WORD                        
          15310          0;                                                STORAGE FOR CONTROL                     
          15312          0;                                                                                        
          15314          0;                                                                                        
          15316          0;                                                WORD                                    
          15318          0;                                                                                        
          15320          ;                                                                                         
          15322          ;                                                                                         
          15324          ;                                                                                         
          15326          ;                                                                                         
          15328          ;                                                                                         
          15330          ;                                                                                         
          15332          ;                                                                                         
          15334          ;                                                                                         
          15336          7.7.7.7.7.;                                       B/E'S                                   
          15338          1;                                                                                        
          15340          0;                                                W/L FOR S/R ON *'S                      
          15342          7:7:7:7:7:;                                       N/E'S                                   
          15344          0;                                                STORE FOR 'A' 'B' 'C'                   
          15346          0;                                                DURING PROCEDURE                        
          15348          0;                                                FOR PROCESSING INDIC                    
          15350          7:00000000;                                       CONSTANT CONSTANT                       
          15352          0;                                                DELETION STORE                          
          15354          7Ю547‼;                                           CONST                                   
          15356          0;                                                'A'                                     
          15358          0;                                                'B'                                     
          15360          0;                                                'C'                                     
          15362          7.0000007.;                                                                               
                                                                                                                   
          15400    CONST   154       154     1    ALPHA CONSTANTS                                                  
          15402          (A)PASSI;                                                                                 
          15404               ;                                                                                    
          15406          AMEND;                                                                                    
          15408          MENTS;                                                                                    
          15410           TO P;                                                                                    
  Source image: P1030166.JPG
          15412          RODUC;                                                                                    
          15414          E  RD;                                                                                    
          15416          FROM ;                                                                                    
          15418          CONTR;                                                                                    
          15420          OL WO;                                                                                    
          15422          00000;                                                                                    
          15424          (A)CHAPS;                                                                                 
          15426          (A)PROCR;                                                                                 
          15428          (A)CONST;                                                                                 
          15430          (A)TABLE;                                                                                 
          15432          (A)NOTES;                                                                                 
          15434          *****;                                                                                    
          15436          (A)R(D)7:000000;                                                                          
          15438          (A)D    ;                                                                                 
          15440          (A)END  ;                                                                                 
          15442          PROGM;                                                                                    
          15444          £££££;                                                                                    
          15446          0;                                                W/L                                     
          15448          0;                                                D STORE                                 
          15450          (A)09000;                                                                                 
                                                                                                                   
          15500    CONST   155       155     1    REPORTS                                                          
          15502          (A);                                                                                      
          15504           ;                                                PROG SERIAL                             
          15506          (A)08004;                                                                                 
          15508           INDI;                                                                                    
          15510          CATOR;                                                                                    
          15512           WRON;                                                                                    
          15514          G    ;                                                                                    
          15516               ;                                            SERIAL NO                               
          15518          (D)0000005.5.;                                                                            
          15520          (A)08004;                                         'NO DUMMY' REPORT                       
          15522           NO D;                                                                                    
          15524          UMMY ;                                                                                    
          15526               ;                                            SERIAL NO                               
          15528          (D)0000005.5.;                                                                            
                                                                                                                   
          15600    TABLE   156       156     1                                                                     
          15601     NOTES                                                                                          
          15602   154     6     0     0  2  0   5   0   0   0  0  0  0     AMENDMENTS                              
          15604   154     8     0     0  2  0   5   0   0   0  0  0  0                                             
          15606   154    10     0     0  2  0   5   0   0   0  0  0  0     TO                                      
          15608   154    12     0     0  2  0   5   0   0   0  0  0  0     PRODUCE                                 
          15610   154    14     0     0  2  0   2   0   0   0  0  0  0                                             
          15612   155     2     0     0  0  0   5   0   1   0  0  0  0     ID                                      
          15614   153     2     0     0  0  0   5   0   1   4  0  0  0     SER                                     
          15616   154    16     0     0  2  0   5   0   1   0  0  0  0     FROM                                    
          15618   155     2     0     0  0  0   5   0   1   0  0  0  0     ID                                      
          15620   155     4     0     0  0  0   5   0   1   4  0  0  0     SER                                     
          15622   153    62     0     0  2  0   5   0   3   0  0  0  1     BEW                                     
          15624   154    18     0     0  2  0   5   0   0   0  0  0  0     CONTROL                                 
          15626   154    20     0     0  2  0   5   0   0   0  0  0  0     WORD                                    
          15628   154    14     0     0  2  0   2   3   0   0  0  0  0                                             
          15630   153    62     0     0  2  0   5   0   3   0  0  0  1     BEW                                     
                                                                                                                   
          15700    TABLE   157       157     1                                                                     
          15701     NOTES                                                                                          
          15702   154     4     0     0  2  0   5   0   0   0  0  0  0     FUNCTION WORD                           
          15704   154     6     0     0  2  0   5   0   0   0  0  0  0     AMENDMENTS                              
          15706   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
  Source image: P1030181.JPG
          15708   155     2     0     0  0  0   3   0   0   0  0  0  0     SUITE NO                                
          15710   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
          15712   155     2     0     0  0  0   2   3   0   0  0  0  0     JOB NO                                  
          15714   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
          15716   155     2     0     0  0  0   5   0   0   0  0  0  0     OLD SER NO                              
          15718   153    42     0     0  2  0   2   1   0   0  0  0  0     N/E N/E                                 
          15720   152    17     0     0  0  0   1   4   0   0  0  0  0     2                                       
          15722   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
          15724   153     2     0     0  0  0   3   0   0   0  0  0  0     NEW SER                                 
          15726   153    62     0     0  2  0   5   0   0   0  0  0  1     B/E                                     
                                                                                                                   
          15800    TABLE   158       158     4    UNPACK CONTROL DATA                                              
          15801     NOTES                                                                                          
          15802   153     8     0     0  0  0   0   0   0   0  0  0  0     TYPE                                    
          15804   153     9     0     0  0  0   0   0   0   0  0  0  1     SECOND WORD                             
          15806    41     0     0     0  0  1   0   0   0   0  0  0  1     TYPE 2 P/T I/P                          
          15808    41   320     0     0  2  1   0   0   0   0  0  0  1     UNPACK STARRY NOTES                     
          15810    41    50     0     0  0  1   0   0   0   0  0  0  1     UNPACK TYPE 4                           
                                                                                                                   
          15900    TABLE   159       159     3                                                                     
          15902   153     8     0     0  0  0   5   0   0   0  0  0  0                                             
          15904   153     9     0     0  0  0   5   0   0   0  0  0  1                                             
          15906    41     0     0     0  0  0   5   0   0   0  0  0  0                                             
          15908    41     1     0     0  0  0   5   0   0   0  0  0  0     1                                       
          15910    41     2     0     0  0  0   5   0   0   0  0  0  0     2                                       
          15912    41     3     0     0  0  0   5   0   0   0  0  0  0     3                                       
          15914    41     4     0     0  0  0   5   0   0   0  0  0  0     4                                       
          15916    41     5     0     0  0  0   5   0   0   0  0  0  0     5                                       
          15918    41     6     0     0  0  0   5   0   0   0  0  0  0     6                                       
          15920    41     7     0     0  0  0   5   0   0   0  0  0  0     7                                       
          15922    41     8     0     0  0  0   5   0   0   0  0  0  0     8                                       
          15924    41     9     0     0  0  0   5   0   0   0  0  0  0     9                                       
          15926    41    10     0     0  0  0   5   0   0   0  0  0  1     10                                      
          15928    41    50     0     0  0  0   5   0   0   0  0  0  0     ROUTES                                  
          15930    41    51     0     0  0  0   5   0   0   0  0  0  0     0                                       
          15932    41    52     0     0  0  0   5   0   0   0  0  0  0     1                                       
          15934    41    53     0     0  0  0   5   0   0   0  0  0  0     2                                       
          15936    41    54     0     0  0  0   5   0   0   0  0  0  0     3                                       
          15938    41    55     0     0  0  0   5   0   0   0  0  0  0     4                                       
          15940    41    56     0     0  0  0   5   0   0   0  0  0  0     5                                       
          15942    41    57     0     0  0  0   5   0   0   0  0  0  0     6                                       
          15944    41    58     0     0  0  0   5   0   0   0  0  0  1     7                                       
                                                                                                                   
          16000    TABLE   160       160     2    CONDENSE REPLACEMENTS                                            
          16001     NOTES                                                                                          
          16002    41     2    41     8  2  0   0   0   0   0  0  0  1     REPLACE SECT DESC                       
          16004    41     2    41     8  2  0   0   0   0   0  0  0  0                                             
          16006    41    14     0     0  2  0   0   0   0   0  0  0  1     REPLACE PROCR                           
                                                                                                                   
          16100    TABLE   161       161     1    EDIT TABLE ENTRY                                                 
          16101     NOTES                                                                                          
          16102    41    10     0     0  2  0   2   0   0   0  0  0  0     S/L ALPHA                               
          16104   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16106    41    10     0     0  2  0   3   2   0   0  0  0  0     S/BE                                    
          16108   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16110    41    12     0     0  2  0   2   0   0   0  0  0  0     NO                                      
          16112   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16114    41    12     0     0  2  0   3   2   0   0  0  0  0     DISC                                    
          16116   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16118    41    14     0     0  2  0   2   0   0   0  0  0  0     SPACES                                  
  Source image: P1030182.JPG
          16120   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16122    41    14     0     0  2  0   3   2   0   0  0  0  0     ZERO                                    
          16124   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16126    41    16     0     0  2  0   1   0   0   0  0  0  0     SIGN                                    
          16128   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16130    41    16     0     0  2  0   2   1   0   0  0  0  0     STERLING                                
          16132   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16134    41    16     0     0  2  0   2   3   0   0  0  0  0     L/T/E                                   
          16136   153    42     0     0  2  0   1   0   1   0  0  0  1     N/E                                     
                                                                                                                   
          16200    TABLE   162       162     1    EDIT ROUTE TABLE                                                 
          16201     NOTES                                                                                          
          16202   153    44     0     0  0  0   5   0   0   5  0  0  0     NEW RTE TYPE                            
          16204   153    50     0     0  0  0   5   0   0   0  0  0  1     SPACES                                  
                                                                                                                   
          16300    TABLE   163       163     3    PROCEDURE ENTRIES                                                
          16302    40     6     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          16304    40     8     0     0  2  0   5   0   0   0  0  0  0     A                                       
          16306    40    10     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16308    40    12     0     0  2  0   5   0   0   0  0  0  0     I                                       
          16310    40    14     0     0  2  0   5   0   0   0  0  0  0     D,M                                     
          16312    40    16     0     0  2  0   5   0   0   0  0  0  0     L                                       
          16314    40    18     0     0  2  0   5   0   0   0  0  0  0     L                                       
          16316    40    20     0     0  2  0   5   0   0   0  0  0  0     CLEO                                    
          16318    40    22     0     0  2  0   5   0   0   0  0  0  0     PREV REF                                
          16320    40    48     0     0  2  0   5   0   0   0  0  0  0     PASS 1 REPORTS                          
          16322    40    32     0     0  2  0   5   0   0   0  0  0  0     NOTES                                   
          16324    40    34     0     0  2  0   5   0   0   0  0  0  0                                             
          16326    40    36     0     0  2  0   5   0   0   0  0  0  0                                             
          16328    40    38     0     0  2  0   5   0   0   0  0  0  0                                             
          16330    40    40     0     0  2  0   5   0   0   0  0  0  0     COMMENTARY                              
          16332    40    42     0     0  2  0   5   0   0   0  0  0  0                                             
          16334    40    44     0     0  2  0   5   0   0   0  0  0  0                                             
          16336    40    46     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          16400    TABLE   164       164     3    TABLE ENTRIES                                                    
          16402    40     6     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          16404    40     8     0     0  2  0   5   0   0   0  0  0  0     A                                       
          16406    40    10     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16408    40    12     0     0  2  0   5   0   0   0  0  0  0     I                                       
          16410    40    14     0     0  2  0   5   0   0   0  0  0  0     D,M                                     
          16412    40    16     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16414    40    18     0     0  2  0   5   0   0   0  0  0  0     1                                       
          16416    40    20     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16418    40    22     0     0  2  0   5   0   0   0  0  0  0     1                                       
          16420    40    48     0     0  2  0   5   0   0   0  0  0  0     S/L,S/BE                                
          16422    40    32     0     0  2  0   5   0   0   0  0  0  0     NO/DISC                                 
          16424    40    34     0     0  2  0   5   0   0   0  0  0  0     SP/ZEROS                                
          16426    40    36     0     0  2  0   5   0   0   0  0  0  0     SGN/£/LTE                               
          16428    40    38     0     0  2  0   5   0   0   0  0  0  0     PASS 1 REPORTS                          
          16430    40    40     0     0  2  0   5   0   0   0  0  0  0     NOTES                                   
          16432    40    42     0     0  2  0   5   0   0   0  0  0  0                                             
          16434    40    44     0     0  2  0   5   0   0   0  0  0  0                                             
          16436    40    46     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          16500    TABLE   165       165     3    CONSTANT ENTRIES                                                 
          16502    40     6     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          16504    40     8     0     0  2  0   5   0   0   0  0  0  0     END                                     
          16506    40    12     0     0  2  0   5   0   0   0  0  0  0     CONSTANT                                
          16508    40    14     0     0  2  0   5   0   0   0  0  0  0                                             
  Source image: P1030183.JPG
          16510    40    16     0     0  2  0   5   0   0   0  0  0  0                                             
          16512    40    18     0     0  2  0   5   0   0   0  0  0  0                                             
          16514    40    20     0     0  2  0   5   0   0   0  0  0  0                                             
          16516    40    22     0     0  2  0   5   0   0   0  0  0  0                                             
          16518    40    24     0     0  2  0   5   0   0   0  0  0  0                                             
          16520    40    26     0     0  2  0   5   0   0   0  0  0  0                                             
          16522    40    28     0     0  2  0   5   0   0   0  0  0  0                                             
          16524    40    48     0     0  2  0   5   0   0   0  0  0  0     PASS 1 REPORTS                          
          16526    40    32     0     0  2  0   5   0   0   0  0  0  0     ANNOTATION                              
          16528    40    34     0     0  2  0   5   0   0   0  0  0  0                                             
          16530    40    36     0     0  2  0   5   0   0   0  0  0  0                                             
          16532    40    38     0     0  2  0   5   0   0   0  0  0  0                                             
          16534    40    40     0     0  2  0   5   0   0   0  0  0  0                                             
          16536    40    42     0     0  2  0   5   0   0   0  0  0  0                                             
          16538    40    44     0     0  2  0   5   0   0   0  0  0  0                                             
          16540    40    46     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          16600    PROCR   166       166     STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE                        
    16808>                                                                                                         
    10007>16602    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          16603    125           4096   1  1              0                                                        clear indicators
          16604    123     166      5   0  2              0        166                                             enter master routine
          16605    100              0   0  0              0                                                        Halt
          16606    5       197     42   1  0              0        197     ORIGINAL(A)                             TRANSFER
          16607    5       27       0   1  0              0                CLEAR WL'S                              TRANSFER
          16608    5       27       2   1  0              0                                                        TRANSFER
          16609    5       27       4   1  0              0                                                        TRANSFER
          16610    5       27       6   1  0              0                                                        TRANSFER
          16611    5       27      11   0  0              0                                                        TRANSFER
          16612    5       27      13   0  0              0                                                        TRANSFER
          16613    118             10   1  0              0                TEST IPS WANTED                         shift logical
          16614    105     154     50   1  0              0        154                                             subtract (N) from (A)
          16615    70      100      2   0  0              0        100     >YES                                    JUMP IF A == 0
          16616    54      24       0   0  0             12                                                        BULK CLEAR
          16617    54      92       0   0  0             38                                                        BULK CLEAR
          16618    123     166     18   0  3              0        166                                             select tag
          16619    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          16620    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          16621    37      182      4   0  0              0        182     FORM LINKS                              REPLACE SELECTED BITS
          16622    37      182      5   0  0              0        182                                             REPLACE SELECTED BITS
          16623    37      182      6   0  0              0        182                                             REPLACE SELECTED BITS
          16624    94      166     72   0  1              0        166     /////>REENTRY                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16625    124     999      5   0  3              0                                                        modify address of next
          16626    106             34   0  0              0                D1                                      select (N)
          16627    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          16628    5       27       8   1  0              0                INITIAL PRINTER TYPE>CLEAR 'OFFLINE     TRANSFER
          16629    124     999      5   0  3              0                                                        modify address of next
          16630    106             36   0  0              0                B1                                      select (N)
          16631    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          16632    12               0   0  0              5                                                        SUBTRACT LITERAL
          16633    5       152     22   0  0              0        152     I/P SWITCH                              TRANSFER
          16634    10               0   0  0              1                                                        SELECT LITERAL
          16635    5       27      10   0  0              0                INPUT TYPE                              TRANSFER
          16636            197     42   2  0              0        197                                             SELECT
          16637    70      166     83   0  0              0        166     >THINGS OK,EXIT                         JUMP IF A == 0
    16676>16638    10               0   0  0              7                RT7                                     SELECT LITERAL
          16639    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
          16640    70      166     47   0  0              0        166     >OK                                     JUMP IF A == 0
          16641    10               0   0  0              8                RT8                                     SELECT LITERAL
          16642    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
  Source image: P1030184.JPG
          16643    70      166     47   0  0              0        166                                             JUMP IF A == 0
          16644    10               0   0  0              ‼                RT11                                    SELECT LITERAL
          16645    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
          16646    71      168      2   0  0              0        168     >ALARM*10                               JUMP IF A != 0
    16643>                                                                                                         
    16640>16647    10               0   0  0              1                                                        SELECT LITERAL
    16682>16648    5       27       9   0  0              0                                                        TRANSFER
          16649    96               0   0  2              0                ALLOC ROUTE                             SELECT MODIFIER
          16650    12               0   0  0             40                64                                      SUBTRACT LITERAL
          16651    3       999      7   0  0              0                                                        COPY
          16652    31               0   0  0              1                                                        SHIFT (A) BY BITS
          16653    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          16654    5       185      2   0  0              0        185     WL FOR CH                               TRANSFER
          16655    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          16656    5       184      2   0  0              0        184     ROUTE                                   TRANSFER
          16657            185      2   0  0              0        185     CHANNEL                                 SELECT
          16658    80      195      2   0  0              0        195     >DEC                                    ENTER SUBROUTINE
          16659    5       197     42   0  0              0        197                                             TRANSFER
          16660    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          16661            27       9   0  0              0                                                        SELECT
          16662    70      168      9   0  0              0        168                                             JUMP IF A == 0
          16663    124     999      5   0  3              0                SP CHAP START                           modify address of next
          16664    124             32   0  3              0                                                        modify address of next
          16665    124             16   0  3              0                                                        modify address of next
          16666    10               0   0  0              0                START OF REEL CTRS                      SELECT LITERAL
          16667    1       999      7   0  0              0                                                        ADD
          16668    5       194      2   0  0              0        194     WL                                      TRANSFER
          16669    124     194      2   0  3              0        194                                             modify address of next
          16670    102              0   0  0              0                CLEAR REEL CTR FOR ROUTE                transfer (A) to N
          16671    76      168      9   0  0              0        168                                             JUMP unconditional
    16624>16672    96               0   0  1              0                                                        SELECT MODIFIER
          16673    70      166     77   0  0              0        166     >PRINTER WANTED     REENTRY             JUMP IF A == 0
          16674            27       9   0  0              0                                                        SELECT
          16675    71      166     83   0  0              0        166     >MT WANTED AND GOT,EXIT                 JUMP IF A != 0
          16676    76      166     38   0  0              0        166     >GET MT                                 JUMP unconditional
    16673>16677            27       9   0  0              0                                                        SELECT
          16678    70      166     83   0  0              0        166     >PRINTER WANTED AND GOT,EXIT            JUMP IF A == 0
          16679            27       8   0  0              0                INITIAL PRINTER TYPE                    SELECT
          16680    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
          16681    71      168      2   0  0              0        168     >ALARM*10                               JUMP IF A != 0
          16682    76      166     48   0  0              0        166                                             JUMP unconditional
    16678>                                                                                                         
    16675>                                                                                                         
    16637>16683    126     182      4   0  3              0        182     >TO MAIN PATH                           leave master routine
                                                                                                                   
          16700    PROCR   167       167     ALLOCATE ANOTHER DEVICE                                               
          16702    81      167      2   0  0              0        167                                             START OF SUBROUTINE
          16703    5       192      2   0  0              0        192                                             TRANSFER
          16704    90               0   0  2             64                                                        SET MODIFICATION REGISTER AT LITERAL
          16705    C                0   0  0            128                                                        
    16710>16706            192      2   0  0              0        192                                             SELECT
          16707    124     999      0   0  3              0                                                        modify address of next
          16708    105              0   0  2              0                                                        subtract (N) from (A)
          16709    70      167     21   0  0              0        167     >MATCH,END                              JUMP IF A == 0
          16710    94      167      6   0  2              1        167                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16711            999      9   0  0              0                KNOWN MT ROUTE                          SELECT
          16712    12               0   0  0             18                CH3/0                                   SUBTRACT LITERAL
          16713    73      167     21   0  0              0        167     >SLOW CHANNEL,END WITHOUT MATCH         JUMP IF A < 0
          16714    90               0   0  2            192                                                        SET MODIFICATION REGISTER AT LITERAL
          16715    C                0   0  0            240                                                        
  Source image: P1030185.JPG
    16720>16716    124     999      0   0  3              0                TRY FAST CHANNELS                       modify address of next
          16717    106              0   0  2              0                                                        select (N)
          16718    2       192      2   0  0              0        192                                             SUBTRACT
          16719    70      167     21   0  0              0        167                                             JUMP IF A == 0
          16720    94      167     16   0  2              1        167                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    16719>                                                                                                         
    16713>                                                                                                         
    16709>16721    82      167      2   0  0              0        167     (A)NONZERO IF NO MATCH                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          16800    PROCR   168       168     ALARM IF CANT FIND REQUIRED DEVICE                                    
    16681>                                                                                                         
    16646>16802    126     182      5   0  3              0        182                                             leave master routine
    18204>16803    150              0   0  0             10                                    ALARM*10            OFFER OPTIONS
          16804    C       190     58   0  0              0        190     >UNLOAD                                 
          16805    C       168      7   0  0              0        168     >TRY AGAIN                              
          16806    C       169     33   0  0              0        169     >CONTINUE AS YOU ARE                    
    16805>16807            197     42   1  0              0        197     ORIGINAL(A)                             SELECT
          16808    76      166      2   0  0              0        166                                             JUMP unconditional
    16671>                                                                                                         
    16662>16809    124     999      5   0  3              0                                                        modify address of next
          16810    106             34   0  0              0                                                        select (N)
          16811    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          16812    5       194      2   0  0              0        194     ROUTE TYPE                              TRANSFER
          16813    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          16814    10               0   0  0              0                (ALT ROUTE)                             SELECT LITERAL
          16815    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          16816    5       195      2   0  0              0        195     ROUTE                                   TRANSFER
          16817    124     999      5   0  3              0                                                        modify address of next
          16818    124             32   0  3              0                                                        modify address of next
          16819    124             12   0  3              0                START OF ASSEMBLER TABLE                modify address of next
          16820    101              0   1  3              0                                                        select literal address
          16821    34      195      2   0  0              0        195     BITS4-8                                 SET (N) IN B
          16822    36      197     88   0  0              0        197     8XCHANNEL                               COLLATE AND ADD
          16823    5       167      2   0  0              0        167                                             TRANSFER
                                                                                                                   
          16900    PROCR   169       169     START PASS 0-DEAL WITH INITIAL TRANSLATION                            
          16902    124     999      5   0  3              0                                                        modify address of next
          16903    124             32   0  3              0                                                        modify address of next
          16904    106             32   0  0              0                -64 IF FAST MACHINE ZERO OTHERWISE      select (N)
          16905    107     169     22   0  0              0        169                                             augment (N) by (A)
          16906    107     169     29   0  0              0        169                                             augment (N) by (A)
          16907    124     167      2   0  3              0        167                                             modify address of next
          16908    106              0   0  0              0                LAST ROUTE ON CHANNEL                   select (N)
          16909    2       195      2   0  0              0        195                                             SUBTRACT
          16910    71      169     13   0  0              0        169     >NOT THIS ONE                           JUMP IF A != 0
          16911    124     167      2   0  3              0        167                                             modify address of next
          16912    102              0   1  0              0                CLEAR DETAILS                           transfer (A) to N
    16910>16913    124     195      2   0  3              0        195                                             modify address of next
          16914    106             64   0  0              0                OLD ASL                                 select (N)
          16915    124     999      7   0  3              0                NEW ROUTE                               modify address of next
          16916    102             64   0  0              0                                                        transfer (A) to N
          16917            194      2   0  0              0        194     OLD ROUTE TYPE      LOAD NEW ROUTE      SELECT
          16918    124     195      2   0  3              0        195                                             modify address of next
          16919    102             64   0  0              0                                                        transfer (A) to N
          16920            192      2   0  0              0        192     NEW ROUTE TYPE                          SELECT
          16921    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16922    11               0   0  0             80                                                        ADD LITERAL
          16923    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16924    1       999      7   0  0              0                NEW ROUTE                               ADD
          16925    124     999      5   0  3              0                                                        modify address of next
  Source image: P1030186.JPG
          16926    102             34   0  0              0                                                        transfer (A) to N
          16927            999      7   0  0              0                                                        SELECT
          16928    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16929    11               0   0  0             80                                                        ADD LITERAL
          16930    124     999      5   0  3              0                                                        modify address of next
          16931    102             35   0  0              0                                                        transfer (A) to N
          16932    126     182      6   0  3              0        182                                             leave master routine
    18205>                                                                                                         
    16806>16933    52      3        0   0  0              0                                                        EDIT
          16934    C       198     12   0  0              0        198                                             
          16935    154     3        0   0  0              0                                                        COMMENT IN LOG
    18203>16936    62               0   0  0              0                NORMAL START HERE                       SET EXCESS CONSTANTS
          16937    54      3        0   1  0           2358                ALL SECNS PASS 0                        BULK CLEAR
          16938    76      102      2   0  0              0        102     >GET AMEND BLOCK                        JUMP unconditional
                                                                                                                   
          17000    PROCR   170       170     START OF AMENDMENT RUN                                                
    10555>17002    0       5        0   1  0              0                                                        SELECT
          17003    3       197     44   1  0              0        197     AMDT IND                                COPY
          17004    2       197     52   1  0              0        197     'AMEND'                                 SUBTRACT
          17005    70      170     13   0  0              0        170                                             JUMP IF A == 0
    17033>                                                                                                         
    10324>17006    150              0   0  0              3                                    ALARM*03            OFFER OPTIONS
          17007    C       190     58   0  0              0        190     >UNLOAD                                 
          17008    C       170      9   0  0              0        170     >REENTER                                
    19055>                                                                                                         
    17008>                                                                                                         
    13104>17009            27       9   0  0              0                                                        SELECT
          17010    11               0   0  0         900000                                                        ADD LITERAL
          17011    91               0   0  1              0                (END VALUE NONZERO)                     SET MODIFICATION REGISTER AT VARIABLE
          17012    76      100      5   0  0              0        100                                             JUMP unconditional
    17005>17013    80      196      2   0  0              0        196     UNPACK AND CHECK AMEND BLOCK            ENTER SUBROUTINE
          17014    40      A6       0   0  0              0                                                        OPEN FILE
          17015    54      9        4   1  0             50                                                        BULK CLEAR
          17016    91               0   0  3              0                CLEAR R3                                SET MODIFICATION REGISTER AT VARIABLE
          17017    80      186      2   0  0              0        186     >WRITE 'AMEND'                          ENTER SUBROUTINE
          17018            7       14   1  0              0                                                        SELECT
          17019    2       153     62   1  0              0        153     BEW                                     SUBTRACT
          17020    71      170     24   0  0              0        170     >NOT ISSUE 2,3 OUTPUT                   JUMP IF A != 0
          17021    5       7       12   1  0              0                                                        TRANSFER
          17022    5       7       14   1  0              0                                                        TRANSFER
          17023    5       7       16   1  0              0                                                        TRANSFER
    17020>17024            7       16   2  0              0                MULTIRECORD IND                         SELECT
          17025    3       27       1   0  0              0                                                        COPY
          17026    3       150     20   1  0              0        150                                             COPY
          17027    71      170     29   0  0              0        170                                             JUMP IF A != 0
          17028    83      133      2   0  0              2        133     SINGLE-REC                              SET SWITCH(ES) AT LITERAL VALUE
    17027>17029            7       14   2  0              0                                                        SELECT
          17030    5       27       2   0  0              0                                                        TRANSFER
          17031            7       12   2  0              0                                                        SELECT
          17032    3       27       0   0  0              0                                                        COPY
          17033    70      170      6   0  0              0        170     >*03                                    JUMP IF A == 0
                                                                                                                   
          17100    PROCR   171       171     DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN                               
          17102    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          17103    C                0   0  0             46                                                        
    17107>17104    80      132      2   0  0              0        132     READ A1>7                               ENTER SUBROUTINE
          17105    55      7        4   2  0             46                                                        BULK COPY
          17106    C       3        0   0  1              0                INDEX 3/0-45                            
          17107    94      171      4   0  1             23        171                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17108            3       45   0  0              0                                                        SELECT
  Source image: P1030187.JPG
          17109    80      195      2   0  0              0        195     >DEC                                    ENTER SUBROUTINE
          17110    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          17111    5       17      21   0  0              0                HIGHEST EFFECTIVE LINE SERIAL           TRANSFER
          17112    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          17113            3       45   0  0              0                (HIGHEST B/FWD PROCR+1)IN BINARY        SELECT
          17114    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          17115    101            100   1  1              0                CREATE B/FWD OLD-NEW PROCR INDEX        add literal address
          17116    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          17117    101            100   1  3              0                                                        select literal address
    17120>17118    3       6      100-  0  1              0                STORE ONE-FOR-ONE                       COPY
          17119    11               0   0  0              1                                                        ADD LITERAL
          17120    94      171     18   0  1              1        171                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17121            3       45   0  0              0                MAX B/FWD PROCR                         SELECT
          17122    5       94      45   0  0              0                =PROVIS MAX C/FWD PROCR                 TRANSFER
          17123    52      18       0   0  0              0                                                        EDIT
          17124    C       198      2   0  0              0        198                                             
          17125    154     18       0   0  0              0                TYPE'AMEND' COMMENT                     COMMENT IN LOG
                                                                                                                   
          17200    PROCR   172       172     READ/WRITE MODS UP TO FIRST AMEND DIRECTIVE                           
    17205>17202    80      183      2   0  0              0        183     >READ/TEST PT                           ENTER SUBROUTINE
          17203    70      172      6   0  0              0        172     >YES                                    JUMP IF A == 0
          17204    80      186      2   0  0              0        186     >WRITE                                  ENTER SUBROUTINE
          17205    76      172      2   0  0              0        172                                             JUMP unconditional
    17203>17206    10               0   0  0           9999                                                        SELECT LITERAL
          17207    3       17      10   0  0              0                SET FOR SEQUENCE CHECKS                 COPY
          17208    5       17      14   0  0              0                                                        TRANSFER
          17209    76      173      7   0  0              0        173                                             JUMP unconditional
                                                                                                                   
          17300    PROCR   173       173     MAIN LOOP                                                             
    17640>17302    80      193      2   0  0              0        193     >READ                                   ENTER SUBROUTINE
          17303    70      181      2   0  0              0        181     >PT END                                 JUMP IF A == 0
          17304    80      187      2   0  0              0        187     >UNPACK                                 ENTER SUBROUTINE
          17305    80      184      2   0  0              0        184     >STORE SWITCH, TEST DIRECTIVE           ENTER SUBROUTINE
          17306    71      179      2   0  0              0        179     >NOT A NEW DIRECTIVE                    JUMP IF A != 0
    17531>                                                                                                         
    17823>                                                                                                         
    18005>                                                                                                         
    17209>17307    60               0   0  0              0                                                        SET DECIMAL RADIX
          17308            17      10   0  0              0                CHECK SEQUENCE AT NEW DIRECTIVE         SELECT
          17309    2       4        2   2  0              0                                                        SUBTRACT
          17310    73      173     15   0  0              0        173     >OK                                     JUMP IF A < 0
          17311    71      180      2   0  0              0        180     >REJECT,READ/COPY TO NEXT DIRECTIVE     JUMP IF A != 0
          17312    0       17      12   0  0              0                                    SAME SERIAL         SELECT
          17313    12               0   0  0              3                                                        SUBTRACT LITERAL
          17314    71      180      2   0  0              0        180     >PREVIOUS NOT'T',IGNORE THIS            JUMP IF A != 0
    17310>17315            17      21   0  0              0                MAX B/FWD LINE SERIAL                   SELECT
          17316    2       4        2   2  0              0                THIS LINE SERIAL                        SUBTRACT
          17317    72      173     22   0  0              0        173     >NORMAL?                                JUMP IF A >= 0
    17321>                                                                                                         
    17322>17318    10               0   0  0              1                                                        SELECT LITERAL
          17319    5       17      16   1  0              0                SET'PASS 0 DOESNNT LIKE IT'             TRANSFER
          17320    80      188      2   0  0              0        188     >WRITE A6                               ENTER SUBROUTINE
          17321    76      173     18   0  0              0        173                                             JUMP unconditional
    17317>17322    70      173     18   0  0              0        173                                             JUMP IF A == 0
          17323            4        2   2  0              0                                                        SELECT
          17324    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          17325    80      194      2   0  0              0        194     BIN                 TEST IF VALUE       ENTER SUBROUTINE
          17326    5       195      2   0  0              0        195                         DIRECTIVE?          TRANSFER
          17327    124     195      2   0  1              0        195     EQUIV OF CURRENT PROCR                  modify address of next
          17328            6      100-  0  0              0                                                        SELECT
  Source image: P1030188.JPG
          17329    70      180      2   0  0              0        180     >REJECT,READ/COPY TO NEXT DIRECTIVE     JUMP IF A == 0
          17330    85      184      2   0  0              0        184                                             SWITCH R
          17331    C       178      2   0  0              0        178     R                                       
          17332    C       174      2   0  0              0        174     D                                       
          17333    C       180      2   0  0              0        180     >REJECT                                 
          17334    C       180      2   0  0              0        180     >REJECT                                 
                                                                                                                   
          17400    PROCR   174       174     DEAL WITH 'DELETE' DIRECTIVE-PREP STAGE                               
    17332>17402    80      185      2   0  0              0        185     >FIND 'PROCR 'LENGTH'                   ENTER SUBROUTINE
          17403    5       17       0   0  0              0                0=SHORT, 1=LONG                         TRANSFER
          17404    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          17405    36      4        2   2  0              0                                                        COLLATE AND ADD
          17406    12               0   0  0              1                                                        SUBTRACT LITERAL
          17407    70      174     12   0  0              0        174     >DELETION BEGINS AT'NOTES'              JUMP IF A == 0
          17408    10               0   0  0              0                                                        SELECT LITERAL
          17409    34      17       0   0  0              0                                                        SET (N) IN B
          17410    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          17411    71      180      2   0  0              0        180     >UNACCEPTABLE MOD                       JUMP IF A != 0
    17407>17412    0       4        2   2  0              0                                                        SELECT
          17413    3       17      14   0  0              0                                                        COPY
          17414    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          17415    70      174     19   0  0              0        174     >DELETING PROCR                         JUMP IF A == 0
          17416            17       3   0  0              0                CTR OF ADJUST DETAILS                   SELECT
          17417    101            900   1  2              0                                                        subtract literal address
          17418    70      180      2   0  0              0        180     >LIST FULL,COPY TO NEXT DIRECTIVE       JUMP IF A == 0
    17415>17419    80      186      2   0  0              0        186     >WRITE                                  ENTER SUBROUTINE
          17420    80      193      2   0  0              0        193     >READ                                   ENTER SUBROUTINE
          17421    70      175      2   0  0              0        175     >PT AT END, SINGLE LINE DELETE          JUMP IF A == 0
          17422    80      187      2   0  0              0        187     >UNPACK                                 ENTER SUBROUTINE
          17423    80      184      2   0  0              0        184     >TEST DIRECTIVE                         ENTER SUBROUTINE
          17424    71      176      2   0  0              0        176     >NO, HENCE MULTIPLE DELETE              JUMP IF A != 0
                                                                                                                   
          17500    PROCR   175       175     DEAL WITH SINGLE LINE DELETION                                        
    17421>17502    0       17      14   0  0              0                                                        SELECT
          17503    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
          17504    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          17505    71      175      8   0  0              0        175     >NOT DELETING 'PROCR'                   JUMP IF A != 0
          17506            17      14   0  0              0                                                        SELECT
          17507    76      176     12   0  0              0        176     >JOIN UP WITH MULTIPLE DELETION         JUMP unconditional
    17505>17508    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          17509    12               0   0  0              1                                                        SUBTRACT LITERAL
          17510    70      175     26   0  0              0        175     >DELETING'NOTES'ONLY                    JUMP IF A == 0
          17511    10               0   0  0              0                                                        SELECT LITERAL
          17512    2       17       0   0  0              0                                                        SUBTRACT
          17513    12               0   0  0              1                                                        SUBTRACT LITERAL
          17514    5       17      15   0  0              0                                                        TRANSFER
          17515            17      14   0  0              0                                                        SELECT
          17516    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17517    5       17      19   0  0              0                PROCR                                   TRANSFER
          17518            17      14   0  0              0                                                        SELECT
          17519    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAILS)              SUBTRACT
          17520    5       17      14   0  0              0                                                        TRANSFER
          17521            17      14   0  0              0                LINE SERIAL+ADJUST DETAIL               SELECT
          17522    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17523    2       17      19   0  0              0                                                        SUBTRACT
          17524    71      175     26   0  0              0        175     CARRY INTO NEXT PROCDON'T STORE         JUMP IF A != 0
          17525    80      192      2   0  0              0        192     >STORE SDJUSTMENT                       ENTER SUBROUTINE
    17524>                                                                                                         
    17510>17526    0       5        0   1  0              0                                                        SELECT
          17527    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
  Source image: P1030189.JPG
          17528    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          17529    2       197     56   1  0              0        197     'END'                                   SUBTRACT
          17530    70      181      2   0  0              0        181     >PT AT END                              JUMP IF A == 0
          17531    76      173      7   0  0              0        173     >TEST NEW DIRECTIVE IN SEQUENCE         JUMP unconditional
                                                                                                                   
          17600    PROCR   176       176     DEAL WITH MULTIPLE DELETION                                           
    17424>17602    80      185      2   0  0              0        185     >FIND PROCR LENGTH                      ENTER SUBROUTINE
          17603    5       17       0   0  0              0                                                        TRANSFER
          17604    34      17       0   0  0              0                                                        SET (N) IN B
          17605    36      4        2   2  0              0                LINE SERIAL 'TO'                        COLLATE AND ADD
          17606    71      180      2   0  0              0        180     >REJECT AMENDMENT                       JUMP IF A != 0
          17607    0       17      14   0  0              0                'FROM'                                  SELECT
          17608    2       4        2   2  0              0                'TO'                                    SUBTRACT
          17609    72      180      2   0  0              0        180     >REJECT,OUT OF SEQUENCE                 JUMP IF A >= 0
          17610            4        2   2  0              0                'TO'PROCR                               SELECT
          17611    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
    17507>17612    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17613    5       17      15   0  0              0                3-DIGIT'TO'                             TRANSFER
          17614            17      14   0  0              0                'FROM'PROCR                             SELECT
          17615    32               0   0  0              2-               'TO'PROCR                               SHIFT (AB) BY QUARTETS
          17616    3       17      19   0  0              0                '3-DIGIT'FROM'                          COPY
          17617    2       17      15   0  0              0                                                        SUBTRACT
          17618    71      180      2   0  0              0        180                                             JUMP IF A != 0
          17619    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          17620    70      180      2   0  0              0        180                                             JUMP IF A == 0
          17621    0       17      14   0  0              0                                                        SELECT
          17622    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          17623    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          17624    12               0   0  0              1                                                        SUBTRACT LITERAL
          17625    70      180      2   0  0              0        180     >MULTIPLE DELETION BEGINS AT'NOTES',REJEJUMP IF A == 0
          17626            17      14   0  0              0                'FROM'SERIAL                            SELECT
          17627    2       4        2   2  0              0                'TO'SERIAL                              SUBTRACT
          17628    2       17       0   0  0              0                LENGTH                                  SUBTRACT
          17629    12               0   0  0              1                                                        SUBTRACT LITERAL
          17630    5       17      15   0  0              0                NEGATIVE ADJUST DETAIL                  TRANSFER
          17631            17      14   0  0              0                                                        SELECT
          17632    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAIL)               SUBTRACT
          17633    5       17      14   0  0              0                                                        TRANSFER
          17634            17      14   0  0              0                LINE SERIAL+ADJUSTMENT                  SELECT
          17635    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          17636    2       17      19   0  0              0                PREVIOUS PROCR                          SUBTRACT
          17637    71      176     39   0  0              0        176     >CARRY INTO PROCR,DON T STORE           JUMP IF A != 0
          17638    80      192      2   0  0              0        192     >STORE ADJUSTMENT                       ENTER SUBROUTINE
    17924>                                                                                                         
    17637>17639    80      186      2   0  0              0        186     >WRITE                                  ENTER SUBROUTINE
          17640    76      173      2   0  0              0        173     >READ NEXT BLOCK                        JUMP unconditional
                                                                                                                   
          17700    PROCR   177       177     DELETE MANY PROCEDURES                                                
                                                                                                                   
          17800    PROCR   178       178     'R'DIRECTIVES AND'A'DIRECTIVES                                        
    17331>17802    35               0   0  0             11                                    DIRECTIVE LINE'R'   PREPARE FOR DIGIT COLLATION
          17803    10               0   0  0              0                                                        SELECT LITERAL
          17804    36      4        2   2  0              0                                                        COLLATE AND ADD
          17805    70      180      2   0  0              0        180                                             JUMP IF A == 0
          17806    80      185      2   0  0              0        185     >FIND'LENGTH'                           ENTER SUBROUTINE
          17807    5       17       0   0  0              0                                                        TRANSFER
          17808    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          17809    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          17810    12               0   0  0              1                                                        SUBTRACT LITERAL
          17811    70      180      2   0  0              0        180                                             JUMP IF A == 0
  Source image: P1030190.JPG
          17812    10               0   0  0              0                                                        SELECT LITERAL
          17813    34      17       0   0  0              0                                                        SET (N) IN B
          17814    36      4        2   2  0              0                                                        COLLATE AND ADD
          17815    71      180      2   0  0              0        180     >UNACCEPTABLE                           JUMP IF A != 0
          17816            4        2   2  0              0                                                        SELECT
          17817    3       17      14   0  0              0                                                        COPY
          17818    3       17      10   0  0              0                                                        COPY
          17819    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17820    5       17      19   0  0              0                                                        TRANSFER
          17821    80      186      2   0  0              0        186     WRITE                                   ENTER SUBROUTINE
          17822    80      183      2   0  0              0        183     >READ/TEST PT                           ENTER SUBROUTINE
          17823    70      173      7   0  0              0        173     >YES                                    JUMP IF A == 0
                                                                                                                   
          17900    PROCR   179       179     DEAL WITH NON-DIRECTIVE LINE                                          
    17306>17902    85      184      2   0  0              0        184                                             SWITCH R
          17903    C       179      7   0  0              0        179     R                                       
          17904    C       180      2   0  0              0        180                                             
          17905    C       180      2   0  0              0        180                                             
          17906    C       180      2   0  0              0        180                                             
    17903>17907    60               0   0  0              0                                                        SET DECIMAL RADIX
          17908            17       0   0  0              0                CURRENT LENGTH                          SELECT
          17909    11               0   0  0              1                                                        ADD LITERAL
          17910    4       17      10   0  0              0                STEP SEQ CTR                            AUGMENT
          17911            17      10   0  0              0                                                        SELECT
          17912    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17913    2       17      19   0  0              0                PROCR OF R OR A-DIRECTIVE               SUBTRACT
          17914    71      179     25   0  0              0        179     >NOT STILL IN SAME PROCR                JUMP IF A != 0
          17915            4        6   1  0              0                                                        SELECT
          17916    2       197     46   1  0              0        197     'PROCR'                                 SUBTRACT
          17917    70      180      2   0  0              0        180                                             JUMP IF A == 0
          17918            4        6   1  0              0                                                        SELECT
          17919    2       197     48   1  0              0        197     'TABLE                                  SUBTRACT
          17920    70      180      2   0  0              0        180     >UNACCEPTABLE                           JUMP IF A == 0
          17921            4        6   1  0              0                                                        SELECT
          17922    2       197     50   1  0              0        197     'CONST'                                 SUBTRACT
          17923    70      180      2   0  0              0        180     >UNACCEPTABLE                           JUMP IF A == 0
          17924    76      176     39   0  0              0        176                                             JUMP unconditional
    17914>17925    10               0   0  0              1-                                                       SELECT LITERAL
          17926    2       17       0   0  0              0                                                        SUBTRACT
          17927    4       17      10   0  0              0                STEP BACK SEQ CTR SO NEVER ALTERS       AUGMENT
          17928    76      180      2   0  0              0        180     >READ/COPY TO NEXT DIRECTIVE            JUMP unconditional
                                                                                                                   
          18000    PROCR   180       180     DEAL WITH INSERTIONS                                                  
    17928>                                                                                                         
    17923>                                                                                                         
    17920>                                                                                                         
    17917>                                                                                                         
    17906>                                                                                                         
    17905>                                                                                                         
    17904>                                                                                                         
    17815>                                                                                                         
    17811>                                                                                                         
    17805>                                                                                                         
    17625>                                                                                                         
    17620>                                                                                                         
    17618>                                                                                                         
    17609>                                                                                                         
    17606>                                                                                                         
    17418>                                                                                                         
    17411>                                                                                                         
    17334>                                                                                                         
    17333>                                                                                                         
    17329>                                                                                                         
    17314>                                                                                                         
  Source image: P1030191.JPG
    17311>18002    10               0   0  0              1                SET IND'PASS 0 DOESN T LIKE IT'         SELECT LITERAL
          18003    5       17      16   1  0              0                                                        TRANSFER
          18004    80      188      2   0  0              0        188     READ/WRITE TO NEXT DIRECTIVE            ENTER SUBROUTINE
          18005    76      173      7   0  0              0        173                                             JUMP unconditional
                                                                                                                   
          18100    PROCR   181       181     CONSTRUCT C/FWD PROCR LENGTH INDEX                                    
    18304>                                                                                                         
    17530>                                                                                                         
    17303>18102    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18103    101             25   1  3              0                                                        select literal address
          18104    104     152     22   0  0              0        152                                             add (N) to (A)
          18105    118              5   0  1              0                                                        shift arithmetic
          18106    104     999      8   0  0              0                                                        add (N) to (A)
          18107    125           4096   1  1              0                                                        clear indicators
          18108    124     999      0   0  3              0                                                        modify address of next
          18109    123            160   0  2              0                                                        enter master routine
          18110    55      3        0   0  0             45                COPY                                    BULK COPY
          18111    C       94       0   0  0              0                                                        
          18112    76      182      6   0  0              0        182                                             JUMP unconditional
                                                                                                                   
          18200    PROCR   182       182     END OF PASS 0                                                         
          18202    85      184      2   0  0              0        184     3 ORDER CONSTS                          SWITCH R
          18203    C       169     36   0  0              0        169                                             
          18204    C       168      3   0  0              0        168                                             
          18205    C       169     33   0  0              0        169                                             
    18112>18206    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18207    C                0   0  0            450                                                        
          18208    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18209    C                0   0  0            900                                                        
          18210    10               0   0  0              0                                                        SELECT LITERAL
          18211    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
    18217>18212    36      6        1   0  2              0                                                        COLLATE AND ADD
          18213    31               0   0  0             10                                                        SHIFT (A) BY BITS
          18214    36      6        0   0  2              0                                                        COLLATE AND ADD
          18215    5       22       0   0  1              0                                                        TRANSFER
          18216    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18217    94      182     12   0  2              2        182                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18218    76      182     22   0  0              0        182                                             JUMP unconditional
          18219    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          18220    10               0   0  0              1                                                        SELECT LITERAL
          18221    4       94      45   0  0              0                                                        AUGMENT
    18218>18222    80      186      2   0  0              0        186     >WRITE END SIGN                         ENTER SUBROUTINE
          18223    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18224    45      A6       0   0  0              0                                                        REWIND
          18225    55      22       0   0  0           1110                                                        BULK COPY
          18226    C       18       0   0  0              0                                                        
          18227    55      22    1110   0  0            240                                                        BULK COPY
          18228    C       25       0   0  0              0                                                        
          18229    55      94       0   0  0             46                                                        BULK COPY
          18230    C       18    1110   0  0              0                                                        
          18231    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18232    C                0   0  0             20                                                        
    18234>18233    80      143      2   0  0              0        143     >BLANKS                                 ENTER SUBROUTINE
          18234    94      182     33   0  1              1        182                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18235    91               0   0  1              0                CLEAR R1                                SET MODIFICATION REGISTER AT VARIABLE
          18236    46      A1      10   0  0              1                RUN BACK TO START                       RUN BACK
  Source image: P1030192.JPG
          18237    C       152     27   0  0              0        152     OF PASI                                 
          18238    76      101      2   0  0              0        101     >CALL PASS 1                            JUMP unconditional
                                                                                                                   
          18300    PROCR   183       183     READ,TEST NEXT PT BLOCK                                               
          18302    81      183      2   0  0              0        183                                             START OF SUBROUTINE
          18303    80      193      2   0  0              0        193     >READ PT                                ENTER SUBROUTINE
          18304    70      181      2   0  0              0        181     >'END'                                  JUMP IF A == 0
          18305    80      187      2   0  0              0        187     >UNPACK                                 ENTER SUBROUTINE
          18306    80      184      2   0  0              0        184     >TEST DIRECTIVE                         ENTER SUBROUTINE
          18307    82      183      2   0  0              0        183                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18400    PROCR   184       184     TEST DIRECTIVE                                                        
          18402    81      184      2   0  0              0        184                                             START OF SUBROUTINE
          18403    60               0   0  0              0                                                        SET DECIMAL RADIX
          18404    34      4        4   1  0              0                                                        SET (N) IN B
          18405    10               0   0  0              0                                                        SELECT LITERAL
          18406    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          18407    12               0   0  0             69                                                        SUBTRACT LITERAL
          18408    70      184     18   0  0              0        184     >R                                      JUMP IF A == 0
          18409    11               0   0  0             15                                                        ADD LITERAL
          18410    70      184     17   0  0              0        184     >D                                      JUMP IF A == 0
          18411    12               0   0  0             19                                                        SUBTRACT LITERAL
          18412    70      184     16   0  0              0        184     >T                                      JUMP IF A == 0
          18413    11               0   0  0             22                                                        ADD LITERAL
          18414    71      184     24   0  0              0        184     >NO DIRECTIVE                           JUMP IF A != 0
          18415    10               0   0  0              1                A=4                                     SELECT LITERAL
    18412>18416    11               0   0  0              1                T=3                                     ADD LITERAL
    18410>18417    11               0   0  0              1                D=2                                     ADD LITERAL
    18408>18418    11               0   0  0              1                R=1                                     ADD LITERAL
          18419    5       185      2   0  0              0        185                                             TRANSFER
          18420    86      184      2   0  0              0        184                                             SELECT SWITCH R
          18421    5       17      12   0  0              0                STORE PREVIOUS SETTING                  TRANSFER
          18422    84      184      2   0  0              0        184                                             SET SWITCH(ES) AT VARIABLE VALUE
          18423    C       185      2   0  0              0        185     (A)ZERO DIRECTIVE FOUND                 
    18414>18424    82      184      2   0  0              0        184     (A)NON-ZERO,NO DIRECTIVE FOUND          END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18500    PROCR   185       185     FIND 'LENGTH'                                                         
          18502    81      185      2   0  0              0        185                                             START OF SUBROUTINE
          18503            4        2   2  0              0                LINE SERIAL OF AMENDMENT                SELECT
          18504    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          18505    80      194      2   0  0              0        194     CONVERT TO BIN                          ENTER SUBROUTINE
          18506    101            100   1  2              0                                                        subtract literal address
          18507    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          18508    5       197     42   0  0              0        197                                             TRANSFER
          18509    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          18510    5       197     43   0  0              0        197                                             TRANSFER
          18511    34      197      2   0  0              0        197     1                                       SET (N) IN B
          18512    124     197     43   0  1              0        197                                             modify address of next
          18513    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          18514    124     197     42   0  1              0        197                                             modify address of next
          18515    36      3        0   0  0              0                                                        COLLATE AND ADD
          18516    70      185     18   0  0              0        185     >SHORT                                  JUMP IF A == 0
          18517    10               0   0  0              1                                                        SELECT LITERAL
    18516>18518    60               0   0  0              0                                                        SET DECIMAL RADIX
          18519    82      185      2   0  0              0        185     (A)=ZERO OR ONE                         END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18600    PROCR   186       186     WRITE>A6 FROM SEC 9                                                   
          18602    81      186      2   0  0              0        186                                             START OF SUBROUTINE
          18603    80      189      2   0  0              0        189     REPLACE 'BE' BY 'LE'                    ENTER SUBROUTINE
          18604            153     62   1  0              0        153     BEW                                     SELECT
  Source image: P1030193.JPG
          18605    5       9       52   1  0              0                                                        TRANSFER
          18606            17      16   1  0              0                IND'PASS 0 DIDN'T LIKE IT' NON-ZERO     SELECT
          18607    5       9       50   1  0              0                                                        TRANSFER
          18608    43      A6       0   0  0              0                                                        OUTPUT
          18609    C       9        0   0  0              0                                                        
          18610    54      9        4   1  0             50                                                        BULK CLEAR
          18611    5       17      16   1  0              0                CLEAR IND                               TRANSFER
          18612    82      186      2   0  0              0        186                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18700    PROCR   187       187     UNPACK POSSIBLE DIRECTIVE BLOCK                                       
          18702    81      187      2   0  0              0        187                                             START OF SUBROUTINE
          18703    10               0   0  0              0                                                        SELECT LITERAL
          18704    5       4        4   1  0              0                WL FOR AMEND DIRECTIVE LETTER           TRANSFER
          18705    5       4       16   1  0              0                                                        TRANSFER
          18706    51      5        0   0  0              0                                                        UNPACK VARIABLE FIELD DATA
          18707    C       199      2   0  0              0        199                                             
          18708    82      187      2   0  0              0        187                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18800    PROCR   188       188     O/P WHEN MOD NOT ACCEPTED                                             
          18802    81      188      2   0  0              0        188                                             START OF SUBROUTINE
    18805>18803    80      186      2   0  0              0        186     >O/P TO A6                              ENTER SUBROUTINE
          18804    80      183      2   0  0              0        183     >READ/TEST PT                           ENTER SUBROUTINE
          18805    71      188      3   0  0              0        188     >NOT YET                                JUMP IF A != 0
          18806    82      188      2   0  0              0        188     NEXT DIRECTIVE FOUND>                   END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18900    PROCR   189       189     REPLACE BE CHAR BY LE CHAR IN SEC 5                                   
          18902    81      189      2   0  0              0        189                                             START OF SUBROUTINE
          18903    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18904    C                0   0  0             56                                                        
    18915>18905    90               0   0  2              8                                                        SET MODIFICATION REGISTER AT LITERAL
          18906    C                0   0  0              2-                                                       
          18907    34      5        0   1  1              0                                                        SET (N) IN B
    18912>18908    10               0   0  0              0                                                        SELECT LITERAL
          18909    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          18910    12               0   0  0             7.                                                        SUBTRACT LITERAL
          18911    70      189     16   0  0              0        189     >BE FOUND                               JUMP IF A == 0
          18912    94      189      8   0  2              2-       189     >GET NEXT CHAR                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18913            5        0   1  1              0                COPY TO O/P SECTION                     SELECT
          18914    5       9        4   1  1              0                                                        TRANSFER
          18915    94      189      5   0  1              2        189     >GET NEXT WORD                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    18911>18916    96               0   0  2              0                                                        SELECT MODIFIER
          18917    5       190      2   0  0              0        190                                             TRANSFER
          18918    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          18919    10               0   0  0             5.                                                        SELECT LITERAL
          18920    124     190      2   0  1              0        190                                             modify address of next
          18921    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          18922    3       5        0   1  1              0                REPLACE BEW BY LE IN 1ST CHAR           COPY
          18923    5       9        4   1  1              0                                                        TRANSFER
          18924    100     17      22   1  0              0                                                        copy registers
          18925    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18926    96               0   0  1              0                                                        SELECT MODIFIER
          18927    11               0   0  0              4                                                        ADD LITERAL
          18928    30               0   0  0              3                >Q4,5                                   SHIFT (A) BY QUARTETS
          18929    5       9       48   2  0              0                                                        TRANSFER
          18930    35               0   0  0             11                COLUMN POSITION                         PREPARE FOR DIGIT COLLATION
          18931    36      190      2   0  0              0        190                                             COLLATE AND ADD
          18932    37      9       48   2  0              0                                                        REPLACE SELECTED BITS
          18933    100     17      26   0  3              0                                                        set radix
          18934    82      189      2   0  0              0        189                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030194.JPG
          19000    PROCR   190       190     GET TO START OF AMENDED PROGRAM                                       
          19002    81      190      2   0  0              0        190                                             START OF SUBROUTINE
    19010>                                                                                                         
    19016>                                                                                                         
    19024>                                                                                                         
    19042>                                                                                                         
    19057>19003    80      132      2   0  0              0        132     READ A1>7                               ENTER SUBROUTINE
          19004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          19005            7        4   1  0              0                                                        SELECT
          19006    2       197     60   1  0              0        197     'FINIS'                                 SUBTRACT
          19007    70      190     48   0  0              0        190     >ALARM*02                               JUMP IF A == 0
          19008            7        8   2  0              0                                                        SELECT
          19009    12               0   0  0                                                                       SUBTRACT LITERAL
          19010    71      190      3   0  0              0        190                                             JUMP IF A != 0
          19011            7       10   1  0              0                                                        SELECT
          19012    2       197     54   1  0              0        197     'PASS I'                                SUBTRACT
          19013    70      190     39   0  0              0        190                                             JUMP IF A == 0
          19014            7        6   1  0              0                                                        SELECT
          19015    2       197     58   1  0              0        197     'INDEX'             USE'INDEX'DATA TO   SUBTRACT
          19016    71      190      3   0  0              0        190     >NO                 SEE IF PROGM ON TAPEJUMP IF A != 0
    19038>19017    80      132      2   0  0              0        132     READ A1>7                               ENTER SUBROUTINE
          19018    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          19019    C                0   0  0             48                                                        
    19037>19020            7        4   2  1              0                PROG ID                                 SELECT
          19021    2       197     20   0  0              0        197                                             SUBTRACT
          19022    71      190     26   0  0              0        190     >NOT END SIGN                           JUMP IF A != 0
          19023            197     84   0  0              0        197                                             SELECT
          19024    70      190      3   0  0              0        190     >INTERCODE FOUND,READTO'PASSI'          JUMP IF A == 0
          19025    76      190     48   0  0              0        190     >ALARM*02                               JUMP unconditional
    19022>19026    1       197     20   0  0              0        197                                             ADD
          19027    12               0   0  0           9001                GO EVEN FASTER MASTER ROUTINE           SUBTRACT LITERAL
          19028    71      190     37   0  0              0        190     >NOT                                    JUMP IF A != 0
          19029            7        8   2  1              0                                                        SELECT
          19030    70      190     34   0  0              0        190     >INTERCODE                              JUMP IF A == 0
          19031            7       10   2  1              0                IDENTIFIER                              SELECT
          19032    84      645      2   0  0              0        645                                             SET SWITCH(ES) AT VARIABLE VALUE
          19033    76      190     37   0  0              0        190                                             JUMP unconditional
    19030>19034    5       197     84   0  0              0        197     SET'PROGRAM TAPE'                       TRANSFER
          19035            7       10   2  1              0                STORE INDEX                             SELECT
          19036    5       152     27   0  0              0        152     IDENTIFIER                              TRANSFER
    19033>                                                                                                         
    19028>19037    94      190     20   0  1              8        190                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          19038    76      190     17   0  0              0        190     >NEXT BLOCK                             JUMP unconditional
    19013>19039    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          19040            7        4   2  0              0                                                        SELECT
          19041    12               0   0  0           9001                                    GEFM                SUBTRACT LITERAL
          19042    71      190      3   0  0              0        190     >NO                                     JUMP IF A != 0
          19043    10               0   0  0           9001                                    GEFM                SELECT LITERAL
          19044    5       40       4   2  0              0                                                        TRANSFER
          19045            7        6   2  0              0                                                        SELECT
          19046    5       40       6   2  0              0                                                        TRANSFER
          19047    82      190      2   0  0              0        190     MATCH FOUND                             END OF SUBROUTINE / LEAVE SUBROUTINE
    19025>                                                                                                         
    19007>                                                                                                         
    10329>19048    41      A1       0   0  0              1                                                        CLOSE FILE
          19049    10               0   0  0              1                                                        SELECT LITERAL
          19050    5       197     84   0  0              0        197                                             TRANSFER
          19051    84      645      2   0  0              0        645     CLEAR                                   SET SWITCH(ES) AT VARIABLE VALUE
          19052    150              0   0  0              2                                    ALARM  *02          OFFER OPTIONS
          19053    C       190     58   0  0              0        190     >UNLOAD                                 
  Source image: P1030195.JPG
          19054    C       190     56   0  0              0        190     >TRY NEW INPUT TAPE                     
          19055    C       170      9   0  0              0        170     >REENTER                                
    19054>19056    80      191      2   0  0              0        191     >OPEN A1                                ENTER SUBROUTINE
          19057    76      190      3   0  0              0        190     >TRY AGAIN                              JUMP unconditional
    19053>                                                                                                         
    17007>                                                                                                         
    16804>                                                                                                         
    13103>19058    151              0   0  0              0                                                        UNLOAD PROGRAMME
                                                                                                                   
          19100    PROCR   191       191     OPEN A1                                                               
          19102    81      191      2   0  0              0        191                                             START OF SUBROUTINE
          19103    40      A1       0   0  0              1                                                        OPEN FILE
          19104    82      191      2   0  0              0        191                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19200    PROCR   192       192     STORE ADJUST DETAIL                                                   
          19202    81      192      2   0  0              0        192                                             START OF SUBROUTINE
          19203            17       3   0  0              0                                                        SELECT
          19204    101            900   1  2              0                                                        subtract literal address
          19205    72      192     28   0  0              0        192     >TOO MANY SPACES                        JUMP IF A >= 0
          19206    10               0   0  0              0                                                        SELECT LITERAL
          19207    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          19208    36      17      14   0  0              0                                                        COLLATE AND ADD
          19209    5       190      2   0  0              0        190     ITEM                                    TRANSFER
          19210            17      14   0  0              0                                                        SELECT
          19211    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          19212    80      194      2   0  0              0        194                                             ENTER SUBROUTINE
          19213    5       193      2   0  0              0        193     BIN REF                                 TRANSFER
          19214    124     193      2   0  1              0        193                                             modify address of next
          19215            6      100-  0  0              0                UPDATED REF                             SELECT
          19216    80      195      2   0  0              0        195     >TO DEC                                 ENTER SUBROUTINE
          19217    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          19218    1       190      2   0  0              0        190                                             ADD
          19219    124     17       3   0  1              0                                                        modify address of next
          19220    5       19       0   0  0              0                LOCN OF ADJUSTMENT                      TRANSFER
          19221    0       17      15   0  0              0                                                        SELECT
          19222    124     17       3   0  1              0                                                        modify address of next
          19223    5       19       1   0  0              0                QUANTITY                                TRANSFER
          19224    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          19225    10               0   0  0              2                                                        SELECT LITERAL
          19226    4       17       3   0  0              0                STEP CTR                                AUGMENT
          19227    60               0   0  0              0                                                        SET DECIMAL RADIX
    19205>19228    82      192      2   0  0              0        192                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19300    PROCR   193       193     SR TO READ PT AND TEST END                                            
          19302    81      193      2   0  0              0        193                                             START OF SUBROUTINE
          19303    100     17      22   1  0              0                                                        copy registers
          19304    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          19305    82      139      2   0  0              0        139     >FETCH                                  END OF SUBROUTINE / LEAVE SUBROUTINE
    13906>19306    100     17      22   1  1              0                                                        replace registers
          19307    0       5        0   1  0              0                                                        SELECT
          19308    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          19309    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          19310    2       197     56   1  0              0        197     'END  '                                 SUBTRACT
          19311    82      193      2   0  0              0        193     (A)=0 IF END                            END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19400    PROCR   194       194     CONVERT TO BIN                                                        
          19402    81      194      2   0  0              0        194                                             START OF SUBROUTINE
          19403    5       197     42   1  0              0        197                                             TRANSFER
          19404    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          19405    124     197     22   0  2              0        197                                             select literal and division
  Source image: P1030196.JPG
          19406    112     197     42   1  0              0        197                                             convert
          19407    82      194      2   0  0              0        194                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19500    PROCR   195       195     CONVERT TO DEC                                                        
          19502    81      195      2   0  0              0        195                                             START OF SUBROUTINE
          19503    5       197     42   1  0              0        197                                             TRANSFER
          19504    60               0   0  0              0                                                        SET DECIMAL RADIX
          19505    124     197      2   0  2              0        197                                             select literal and division
          19506    112     197     42   1  0              0        197                                             convert
          19507    82      195      2   0  0              0        195                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19600    PROCR   196       196     UNPACK AMEND HEADING, GET TO PROGM START                              
          19602    81      196      2   0  0              0        196                                             START OF SUBROUTINE
          19603    51      5        0   0  0              0                                                        UNPACK VARIABLE FIELD DATA
          19604    C       199     10   0  0              0        199                                             
          19605            4        2   0  0              0                SUITE                                   SELECT
          19606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          19607    1       4        3   0  0              0                JOB                                     ADD
          19608    3       4        2   0  0              0                                                        COPY
          19609    5       17      28   0  0              0                PROG ID                                 TRANSFER
          19610            4        4   0  0              0                PROG                                    SELECT
          19611    5       17      29   0  0              0                                                        TRANSFER
          19612    82      196      2   0  0              0        196                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19700    CONST   197       197     1    CONVERT TABLES                                                   
          19702          (D)1;                                             BIN>DEC                                 
          19704          16;                                                                                       
          19706          256;                                                                                      
          19708          4096;                                                                                     
          19710          65536;                                                                                    
          19712          1048576;                                                                                  
          19714          16777216;                                                                                 
          19716          268435456;                                                                                
          19718          4294967296;                                                                               
          19720          ££££££££££;                                                                               
          19722          1;                                                DEC>BIN                                 
          19724          Ю;                                                                                        
          19726          64;                                                                                       
          19728          3.8;                                                                                      
          19730          2710;                                                                                     
          19732          186Ю0;                                                                                    
          19734          £4240;                                                                                    
          19736          989680;                                                                                   
          19738          5£5.100;                                                                                  
          19740          3‼9Ю+Ю00;                                                                                 
          19742          0;                                                WL(A)                                   
          19744          (A)PROGM;                                                                                 
          19746          (A)PROCR;                                                                                 
          19748          (A)TABLE;                                                                                 
          19750          (A)CONST;                                                                                 
          19752          AMEND;                                                                                    
          19754          (A)PASSI;                                                                                 
          19756          (A)END  ;                                                                                 
          19758          (A)INDEX;                                                                                 
          19760          FINIS;                                                                                    
          19762          (D)0000005.5.;                                    DOUBLE LINE END                         
          19764          (D)3££;                                           BITS1-10                                
          19766          (D)6£6£6£6£6£;                                                                            
          19768          (A)INDEX;                                                                                 
          19770          £££££;                                                                                    
  Source image: P1030197.JPG
          19772          2;                                                                                        
          19774          CHAIN;                                                                                    
          19776          FIEND;                                                                                    
          19778          08004;                                                                                    
          19780          ALLOC;                                                                                    
          19782          ATED ;                                                                                    
          19784          EXTRA;                                                                                    
          19786          ROUTE;                                                                                    
          19788          (D)£8;                                            BITS 4-8                                
          19790          (D)0514908000;                                                                            
                                                                                                                   
          19800    TABLE   198       198     1    TYPE'AMEND'COMMENT                                               
          19802   197    78     0     0  2  0   5   0   0   0  0  0  0     '08000'                                 
          19804   197    52     0     0  2  0   5   0   2   0  0  0  0     'AMEND'                                 
          19806     4     2     0     0  0  0   5   0   2   0  0  0  0     PROG NO                                 
          19808     4     4     0     0  0  0   5   0   1   4  0  0  0     SERIAL NO                               
          19810   197    62     0     0  2  0   2   3   3   0  0  0  1     DOUBLE LINE END                         
          19812   197    78     0     0  2  0   5   0   0   0  0  0  0     '08000'                                 
          19814   197    80     0     0  2  0   5   0   1   0  0  0  0     'ALLOC'                                 
          19816   197    82     0     0  2  0   5   0   0   0  0  0  0     'ATED'                                  
          19818   197    84     0     0  2  0   5   0   0   0  0  0  0     'EXTRA'                                 
          19820   197    86     0     0  2  0   5   0   1   0  0  0  0     'ROUTE'                                 
          19822   197    42     0     0  0  0   2   3   2   1  0  0  0     CHANNEL                                 
          19824   184     2     0     0  0  0   1   4   0   0  0  0  0     ROUTE                                   
          19826   197    62     0     0  2  0   2   3   1   0  0  0  1     DOUBLE LE                               
                                                                                                                   
          19900    TABLE   199       199     3    UNPACK PT OR CARD INPUT                                          
          19902     4     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIRECTIVE                     
          19904     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          19906     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          19908     4    16     0     0  0  0   1   0   0   0  0  0  1     /////TYPE OR(ANNOTATION+TYPE)           
          19910     4     6     0     0  2  0   5   0   0   0  0  0  0     'AMEND'                                 
          19912     4     2     0     0  0  0   3   0   0   0  0  0  0     SUITE                                   
          19914     4     3     0     0  0  0   2   0   0   0  0  0  0     JOB                                     
          19916     4     4     0     0  0  0   5   0   0   0  0  0  1     SERIAL                                  
          19918     4     2     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          19920     4     4     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE LETTER                        
          19922     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          19924     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          19926     4    16     0     0  0  0   1   0   0   0  0  0  1     TYPE                                    
                                                                                                                   
          20000    PROCR   200       200     START OF PASS1                                                        
          20001     NOTES                         TEST DID THE COMPILER READ IN THE TRANSLATOR                     SELECT
    32342>20002    152     200      4   0  0              0        200     CALL/ENTER PASS 2                       OVERLAY
          20003    C       326      6   0  0              0        326     (OVERLAY THE OLAY ORDER)                
          20004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          20005    101            512   0  1              0                Q10                                     prepare for digit collation
          20006    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          20007    10               0   0  0              0                                                        SELECT LITERAL
          20008    37      312      8   1  0              0        312     CLEAR BIT 40                            REPLACE SELECTED BITS
          20009    37      312     14   1  0              0        312     DO.                                     REPLACE SELECTED BITS
          20010            325      6   0  0              0        325                                             SELECT
          20011    3       23      46   0  0              0                SET 'PRINT PASS 2'                      COPY
          20012    5       325      3   0  0              0        325                                             TRANSFER
          20013    54      1        0   1  0             46                                                        BULK CLEAR
          20014    54      72       0   1  0            738                ALL SECNS PASS 2                        BULK CLEAR
          20015    83      100      5   0  0              1        100     SET 'PRINT PASS 3'                      SET SWITCH(ES) AT LITERAL VALUE
          20016    5       27       6   0  0              0                CLEAR 'PT OMITTED'                      TRANSFER
          20017    84      403      2   0  0              0        403                                             SET SWITCH(ES) AT VARIABLE VALUE
          20018    84      407      2   0  0              0        407                                             SET SWITCH(ES) AT VARIABLE VALUE
  Source image: P1030198.JPG
          20019    5       27       4   0  0              0                                                        TRANSFER
          20020    83      254      2   0  0              5        254     AMEND DIRECTIVE SWITCH                  SET SWITCH(ES) AT LITERAL VALUE
                                                                                                                   
          20100    PROCR   201       201     TEST INITIAL RUN                                                      
          20101     NOTES          RADIX                                                                           SELECT
          20102    40      A6       0   0  0              1                                                        OPEN FILE
          20103    54      12       0   1  0            120                                                        BULK CLEAR
          20104    10               0   0  0           6700                                                        SELECT LITERAL
          20105    5       12       3   0  0              0                ERROR LETTER'P'                         TRANSFER
          20106    80      292      2   0  0              0        292     >READ FIRST BLOCK                       ENTER SUBROUTINE
          20107    124     213      2   0  2              0        213                                             select literal and division
          20108    80      325      2   0  0              0        325     >UNPACK BLOCK                           ENTER SUBROUTINE
          20109    60               0   0  0              0                                                        SET DECIMAL RADIX
          20110    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          20111    5       1       16   1  0              0                CLEAR FOR INDS                          TRANSFER
          20112    5       1       18   1  0              0                                                        TRANSFER
          20113    124     213     12   0  2              0        213                                             select literal and division
          20114    80      325      2   0  0              0        325     >UNPACK 'AMEND' BLOCK AGAIN             ENTER SUBROUTINE
          20115    10               0   0  0              0                                                        SELECT LITERAL
          20116    34      1       16   0  0              0                PRINT INDS                              SET (N) IN B
          20117    36      317      2   0  0              0        317     BIT 2                                   COLLATE AND ADD
          20118    5       23      46   0  0              0                                                        TRANSFER
          20119            1       20   1  0              0                                                        SELECT
          20120    12               0   0  0     7300000000                                                        SUBTRACT LITERAL
          20121    71      201     24   0  0              0        201                                             JUMP IF A != 0
          20122    10               0   0  0              2                                                        SELECT LITERAL
          20123    76      201     25   0  0              0        201                                             JUMP unconditional
    20121>20124    10               0   0  0              0                                                        SELECT LITERAL
    20123>20125    5       27      12   0  0              0                0/2=PTS NO/YES                          TRANSFER
          20126    10               0   0  0              2-                                                       SELECT LITERAL
          20127    36      319      2   0  0              0        319     BIT 1                                   COLLATE AND ADD
          20128    84      100      5   0  0              0        100     SET AT 1 OR 2                           SET SWITCH(ES) AT VARIABLE VALUE
          20129    0       1       17   0  0              0                CHANGE TO ISSUE?                        SELECT
          20130    5       227      2   0  0              0        227     SR LINK                                 TRANSFER
          20131    0       1        4   0  0              0                SUITE                                   SELECT
          20132    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20133    1       1        6   0  0              0                                                        ADD
          20134    5       12       0   0  0              0                                                        TRANSFER
          20135    34      1        8   1  0              0                                                        SET (N) IN B
          20136    80      320      2   0  0              0        320     RIGHT ALIGN         PROGRAM SERIAL      ENTER SUBROUTINE
          20137    0       12      88   2  0              0                                                        SELECT
          20138    5       12       1   0  0              0                                                        TRANSFER
          20139    10               0   0  0              1                SET'AMEND RUN'                          SELECT LITERAL
          20140    3       92      30   0  0              0                                                        COPY
          20141    5       12       8   0  0              0                                                        TRANSFER
                                                                                                                   
          20200    PROCR   202       202                                                                           
          20201     NOTES          RADIX                                                                           SELECT
          20202    80      292      2   0  0              0        292     >READ A6                                ENTER SUBROUTINE
          20203    54      1        0   0  0             46                                                        BULK CLEAR
    20207>20204    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          20205    0       7        6   1  0              0                                                        SELECT
          20206    2       215     12   1  0              0        215     'PROGM'                                 SUBTRACT
          20207    71      202      4   0  0              0        202     >GET TO IT                              JUMP IF A != 0
          20208    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          20209    C       210      8   0  0              0        210                                             
          20210    55      7       20   1  0             30                COPY ANNOTATION                         BULK COPY
          20211    C       1       16   1  0              0                                                        
          20212    60               0   0  0              0                                                        SET DECIMAL RADIX
          20213    10               0   0  0              1                AUGMENT PROG SERIAL                     SELECT LITERAL
  Source image: P1030199.JPG
          20214    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          20215    36      1        8   2  0              0                                                        COLLATE AND ADD
          20216    37      1        8   2  0              0                NO CARRY AFTER 99                       REPLACE SELECTED BITS
                                                                                                                   
          20300    PROCR   203       203     OPEN O/P FILE, WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK           
          20301     NOTES  203                                                                                     SELECT
          20302    54      8        4   0  0             46                                                        BULK CLEAR
          20303    40      A2       0   0  0              0                OPEN FILE                               OPEN FILE
          20304    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          20305    84      212      2   0  0              0        212     SPOOL NUMBER>WL                         SET SWITCH(ES) AT VARIABLE VALUE
          20306    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20307    80      289      2   0  0              0        289     +2 BLANKS                               ENTER SUBROUTINE
          20308    55      318     30   1  0             10        318                                             BULK COPY
          20309    C       8        4   1  0              0                                                        
          20310    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20311            1        4   0  0              0                SUITE                                   SELECT
          20312    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20313    1       1        6   0  0              0                                                        ADD
          20314    3       12      32   0  0              0                WL=PROG IDENTITY                        COPY
          20315    3       8        4   2  0              0                                                        COPY
          20316    3       8       12   2  0              0                                                        COPY
          20317    0       1        8   2  0              0                PROG SERIAL                             SELECT
          20318    5       12       1   0  0              0                WL                  FOR REPORTS LAT     TRANSFER
          20319    0       227      2   0  0              0        227     NEW ISSUE WL                            SELECT
          20320    70      203     24   0  0              0        203     >NO CHANGE                              JUMP IF A == 0
          20321    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20322    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          20323    37      12       1   0  0              0                REPLACE EXISTING ISSUE                  REPLACE SELECTED BITS
    20320>20324    52      1        8   0  0              0                                                        EDIT
          20325    C       210      6   0  0              0        210     RESTORE TD 1/8 WITH SIG ZEROS           
          20326    0       1        8   1  0              0                                                        SELECT
          20327    3       8        6   1  0              0                                                        COPY
          20328    5       8       14   1  0              0                                                        TRANSFER
          20329    10               0   0  0              2                INTERCODE IDENTIFIER                    SELECT LITERAL
          20330    5       8       10   2  0              0                                                        TRANSFER
          20331    10               0   0  0              3                MACHINE COSE IDENTIFIER                 SELECT LITERAL
          20332    3       8       18   2  0              0                                                        COPY
          20333    10               0   0  0              2                                                        SELECT LITERAL
          20334    1       27      12   0  0              0                0 OR 2                                  ADD
          20335    5       8       16   2  0              0                                                        TRANSFER
          20336            318     30   2  0              0        318                                             SELECT
          20337    5       8       20   2  0              0                                                        TRANSFER
          20338    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20339            12      32   0  0              0                                                        SELECT
          20340    5       8        4   2  0              0                PROG IDENTITY                           TRANSFER
          20341            1        8   1  0              0                                                        SELECT
          20342    5       8        6   1  0              0                PROG SERIAL                             TRANSFER
          20343    10               0   0  0                                                                       SELECT LITERAL
          20344    5       8        8   2  0              0                                                        TRANSFER
          20345            215     20   1  0              0        215     'PASSI'                                 SELECT
          20346    5       8       10   1  0              0                                                        TRANSFER
          20347    155              0   0  0              0                PROG SERIAL                             SELECT PROGRAM SERIAL TO A
          20348    3       8       12   1  0              0                'ISSUE 6'IND                            COPY
          20349    5       8       16   2  0              0                SET'MULTI-RECORD'                       TRANSFER
          20350    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20351            18    1155   0  0              0                                                        SELECT
          20352    5       318     23   0  0              0        318                                             TRANSFER
          20353    55      18    1110   0  0             23                1ST PROCR LENGTH BLOCK                  BULK COPY
          20354    C       8        4   2  0              0                                                        
          20355    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
  Source image: P1030200.JPG
          20356    55      18    1133   0  0             23                2ND PROCR LENGTH BLOCK                  BULK COPY
          20357    C       8        4   2  0              0                                                        
          20358    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20359    52      8        4   0  0              0                                                        EDIT
          20360    C       210      8   0  0              0        210                                             
          20361    55      1       16   1  0             30                COPY ANNOTATION                         BULK COPY
          20362    C       8       20   1  0              0                                                        
          20363    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20364    0       316      5   0  0              0        316     ABS ADDRESS 18:2496                     SELECT
          20365    5       92       9   0  0              0                                                        TRANSFER
          20366    60               0   0  0              0                                                        SET DECIMAL RADIX
                                                                                                                   
          20400    PROCR   204       204     DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS                         
          20401     NOTES  204                                                                                     SELECT
          20402    80      291      2   0  0              0        291     >READ 'ENTRY' EX MT                     ENTER SUBROUTINE
          20403    10               0   0  0              0                                                        SELECT LITERAL
          20404    5       7       46   1  0              0                CLEAR REPORT WORDS                      TRANSFER
          20405    5       7       48   1  0              0                                                        TRANSFER
          20406    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          20407    80      207      2   0  0              0        207     >WRITE                                  ENTER SUBROUTINE
          20408    80      291      2   0  0              0        291     >READ                                   ENTER SUBROUTINE
          20409    55      7        8   2  0             30                                                        BULK COPY
          20410    C       12      13   0  0              0                                    MT 'CHAPS' UNAM     
          20411    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          20412            12      13   0  0              0                NUMBER OF CARDS                         SELECT
          20413    80      248      2   0  0              0        248     >TO BIN                                 ENTER SUBROUTINE
          20414    5       12      13   0  0              0                                                        TRANSFER
          20415    55      12      14   0  0             14                                                        BULK COPY
          20416    C       7       10   2  0              0                                                        
          20417    55      7        4   1  0             34                COPY ANNEXES                            BULK COPY
          20418    C       8        4   1  0              0                                                        
          20419    80      291      2   0  0              0        291     READ A1                                 ENTER SUBROUTINE
                                                                                                                   
          20500    PROCR   205       205     PREPARE TO PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION      
          20501     NOTES  205                                                                                     SELECT
          20502    10               0   0  0                                                                       SELECT LITERAL
          20503    5       18    2498   1  0              0                LIST END SIGN                           TRANSFER
          20504    5       18    2496   1  0              0                CLEAR FIRST ENTRY                       TRANSFER
          20505    83      267      2   0  0              1        267     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          20506    0       12      13   0  0              0                NO OF CHAPS                             SELECT
          20507    80      247      2   0  0              0        247     >TO DEC                                 ENTER SUBROUTINE
          20508    5       215      8   0  0              0        215                                             TRANSFER
          20509    10               0   0  0           7200                                                        SELECT LITERAL
          20510    5       12       3   0  0              0                ERROR LETTER S                          TRANSFER
          20511    10               0   0  0             99                                                        SELECT LITERAL
          20512    5       92       3   0  0              0                FIRST PROCR-1                           TRANSFER
          20513    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20514    C                0   0  0             14                TO STORE CHAPTER ENDS                   
          20515    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          20516    91      12      12   0  3              0                C:0                                     SET MODIFICATION REGISTER AT VARIABLE
    20519>20517    11               0   0  0              1                                                        ADD LITERAL
          20518    3       92      10   0  3              0                STORE UNCORRECTED CHAP NUMBERS          COPY
          20519    94      205     17   0  3              1        205                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          20520    60               0   0  0              0                                                        SET DECIMAL RADIX
          20521    10               0   0  0           1001                                                        SELECT LITERAL
          20522    5       12       9   0  0              0                SET FIRST SECTION SERIAL NUMBER         TRANSFER
                                                                                                                   
          20600    PROCR   206       206     DEAL WITH UNAMENDED SECTION LINE                                      
          20602    80      208      2   0  0              0        208     >TEST PT AT AMEND DIRECTIVE             ENTER SUBROUTINE
          20603    80      209      2   0  0              0        209     >TEST MT=PROCR ETC                      ENTER SUBROUTINE
  Source image: P1030201.JPG
          20604    76      217      2   0  0              0        217                                             JUMP unconditional
                                                                                                                   
          20700    PROCR   207       207                                                                           
          20702    81      207      2   0  0              0        207                                             START OF SUBROUTINE
          20703    43      A2       0   0  0              0                                                        OUTPUT
          20704    C       7        0   0  0              0                                                        
          20705    82      207      2   0  0              0        207                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20800    PROCR   208       208     TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION                   
          20802    81      208      2   0  0              0        208                                             START OF SUBROUTINE
          20803    80      294      2   0  0              0        294     >TEST AMEND DIRECTIVE/END               ENTER SUBROUTINE
          20804    70      208      8   0  0              0        208     >NO                                     JUMP IF A == 0
          20805    10               0   0  0              1                                                        SELECT LITERAL
          20806    5       12      45   0  0              0                                                        TRANSFER
          20807    10               0   0  0              1                                                        SELECT LITERAL
    20804>20808    82      208      2   0  0              0        208     (A)=0 IF NOT DIRECTIVE                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20900    PROCR   209       209     TEST MT AT START OF CODING                                            
          20902    81      209      2   0  0              0        209                                             START OF SUBROUTINE
          20903            27       1   0  0              0                                                        SELECT
          20904    70      209      8   0  0              0        209     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          20905            7       12   1  0              0                DIRECTIVE WORD                          SELECT
    20909>20906    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          20907    82      209      2   0  0              0        209                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20904>20908            7       10   1  0              0                                                        SELECT
          20909    76      209      6   0  0              0        209                                             JUMP unconditional
                                                                                                                   
          21000    TABLE   210       210     1    UNPACK/EDIT PROG HEADING+FILES+CHAPS+SECTIONS                    
          21001     NOTES                                                                                          
          21002     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          21004     1     2     0     0  2  0   5   0   0   0  0  0  1     'CHAPS'                                 
          21006    12     1     0     0  0  0   5   0   0   4  0  0  1     FOR UPDATED SERIAL                      
          21008     1     0     0     0  0  0   5   0   0   5  0  0  0                                             
          21010     1     2     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          21012     1     4     0     0  0  0   5   0   0   5  0  0  0                                             
          21014     1     6     0     0  0  0   5   0   0   4  0  0  0                                             
          21016     1     8     0     0  2  0   5   0   0   0  0  0  0     SERIAL/CODER                            
          21018     1    10     0     0  1  0  10   0   0  10  0  0  0     (SPACER)                                
          21020     1    10     0     0  0  0   5   0   0   5  0  0  1     (SPACER)                                
                                                                                                                   
          21100    PROCR   211       211     ERROR REPORT SR                                                       
          21102    81      211      2   0  0              0        211                                             START OF SUBROUTINE
          21103    5       12       4   0  0              0                                                        TRANSFER
          21104    91      12       2   0  3              0                CTR                                     SET MODIFICATION REGISTER AT VARIABLE
          21105            318      8   1  0              0        318     '*'                                     SELECT
          21106    1       12       4   0  0              0                REPORT NUMBER                           ADD
          21107    1       12       3   0  0              0                REPORT LETTER                           ADD
          21108    5       1       38   1  3              0                                                        TRANSFER
          21109    12               0   0  0              2                                                        SUBTRACT LITERAL
          21110    4       12       2   0  0              0                REDUCE CTR                              AUGMENT
          21111    10               0   0  0              0                                                        SELECT LITERAL
          21112    82      211      2   0  0              0        211                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21200    PROCR   212       212     REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS                      
          21202    81      212      2   0  0              0        212     (12/119=DEC PROCR)                      START OF SUBROUTINE
          21203            12     119   0  0              0                                                        SELECT
          21204    80      248      2   0  0              0        248     >BIN                                    ENTER SUBROUTINE
          21205    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          21206    5       319     42   1  0              0        319                                             TRANSFER
          21207    91      319     42   0  1              0        319                                             SET MODIFICATION REGISTER AT VARIABLE
  Source image: P1030202.JPG
          21208    74      212     12   0  0              0        212     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          21209            18      50-  0  1              0                                                        SELECT
          21210    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          21211    76      212     14   0  0              0        212                                             JUMP unconditional
    21208>21212    34      318     20   0  0              0        318     BITS 1-10                               SET (N) IN B
          21213    36      18      50-  0  1              0                                                        COLLATE AND ADD
    21211>21214    80      247      2   0  0              0        247     >DEC                                    ENTER SUBROUTINE
          21215    82      212      2   0  0              0        212                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21300    TABLE   213       213     3                                                                     
          21302     1     2     0     0  2  0   5   0   0   0  0  0  0     PROGM/ENTRY                             
          21304     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE NO/ENTRY PT                       
          21306     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB/PRIORITY                            
          21308     1     8     0     0  2  0   5   0   0   0  0  0  0     SER,VERSION,BLANK/CODER                 
          21310     1    16     0     0  2  1   5   0   0   0  0  0  1     /////ANNOT/CHCKR                        
          21312     1     2     0     0  2  0   5   0   0   0  0  0  0     AMEND                                   
          21314     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE                                   
          21316     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB                                     
          21318     1     8     0     0  2  0   2   0   0   0  0  0  0     ISSUE/+SER/ISSUE                        
          21320     1    20     0     0  2  0   3   0   0   0  0  0  0     WORDS/SER                               
          21322     1    16     0     0  0  0   1   0   0   0  0  0  0     PRINT IND                               
          21324     1    17     0     0  0  0   3   0   0   0  0  0  0     ISSUE                                   
          21326     1    18     0     0  2  0   1   0   0   0  0  0  1     PTS(CARDS)                              
                                                                                                                   
          21400    TABLE   214       214     3    UNPACK CHAPS BLOCK                                               
          21401     NOTES                         FROM CARDS                                                       
          21402     1     2     0     0  2  0   5   0   0   0  0  0  0     'CHAPS'                                 
          21404     1     4     0     0  0  0   2   0   0   0  0  0  0     NO OF CHAPS                             
          21406     1     5     0     0  0  0   3   0   0   0  0  0  0     1-ST START                              
          21408     1     6     0     0  0  0   3   0   0   0  0  0  0     2-ND START                              
          21410     1     7     0     0  0  0   3   0   0   0  0  0  0                                             
          21412     1     8     0     0  0  0   3   0   0   0  0  0  0                                             
          21414     1     9     0     0  0  0   3   0   0   0  0  0  0                                             
          21416     1    10     0     0  0  0   3   0   0   0  0  0  0                                             
          21418     1    11     0     0  0  0   3   0   0   0  0  0  0                                             
          21420     1    12     0     0  0  0   3   0   0   0  0  0  0                                             
          21422     1    13     0     0  0  0   3   0   0   0  0  0  0                                             
          21424     1    14     0     0  0  0   3   0   0   0  0  0  0     10-TH START                             
          21426     1    15     0     0  0  0   3   0   0   0  0  0  0                                             
          21428     1    16     0     0  0  0   3   0   0   0  0  0  0                                             
          21430     1    17     0     0  0  0   3   0   0   0  0  0  0                                             
          21432     1    18     0     0  0  0   3   0   0   0  0  0  1     14-TH START                             
                                                                                                                   
          21500    CONST   215       215     1    FUNCTIONAL                                                       
          21502          (D)100099;                                        UPPER/LOWER LIM SEC NUMBER              
          21504          4096;                                             DO LENGTH                               
          21506          1;                                                DO TX AREA IND                          
          21508          0;                                                DO CHAP NO                              
          21510          1£1£1£1£1£;                                                                               
          21512          (A)PROGM;                                                                                 
          21514          ENTRY;                                                                                    
          21516          AMEND;                                                                                    
          21518          CHAPS;                                                                                    
          21520          PASSI;                                                                                    
          21522          STORE;                                                                                    
                                                                                                                   
          21600    CONST   216       216     1    DUMMY                                                            
          21602          (B)0;                                                                                     
          21604          ;                                                                                         
          21606          ;                                                                                         
  Source image: P1030203.JPG
          21608          ;                                                                                         
          21610          ;                                                                                         
                                                                                                                   
          21700    PROCR   217       217     MAIN LOOP-DEAL WITH INITIAL TRANSLATION                               
          21701     NOTES          RADIX                                                                           SELECT
    20604>21702    55      18       0   0  0           1110                                                        BULK COPY
          21703    C       93       0   0  0              0                                                        
          21704    55      25       0   0  0            240                                                        BULK COPY
          21705    C       93    1110   0  0              0                                                        
          21706    83      222      2   0  0              2        222     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          21707    10               0   0  0              1                                                        SELECT LITERAL
          21708    5       27       5   0  0              0                UNPACK SWITCH                           TRANSFER
          21709    0       92      30   0  0              0                                                        SELECT
          21710    3       12       8   1  0              0                (CLEAR 12/9)                            COPY
    21711>21711    70      217     11   0  0              0        217                                             JUMP IF A == 0
          21712    59      7        6   0  8              0                SET I/P MR                              SET MODIFICATION REGISTER FOR MERGE
          21713    C       7        4   2  0              0                                                        
          21714    76      253      2   0  0              0        253                                             JUMP unconditional
                                                                                                                   
          21800    PROCR   218       218     START OF CHECK/EDIT/OUTPUT SR                                         
          21801     NOTES          RADIX                                                                           SELECT
          21802    81      218      2   0  0              0        218                                             START OF SUBROUTINE
          21803            12      38   0  0              0                STACKING DIRECTIVE?                     SELECT
          21804    70      222      2   0  0              0        222     NO                                      JUMP IF A == 0
          21805    72      222      2   0  0              0        222     >'NOTES' BLOCK                          JUMP IF A >= 0
          21806            12      61   0  0              0                C-LINE MUST FOLLOW  SHOULD THIS         SELECT
          21807    70      218      9   0  0              0        218     INDCATOR            BE A C-LINE         JUMP IF A == 0
          21808    80      296      2   0  0              0        296     IGNORE THIS INSTRUCTION                 ENTER SUBROUTINE
    21807>21809            12      54   0  0              0                                    EXCEPT FOR          SELECT
          21810    12               0   0  0             55                                    ACTION 85,CLEAR     SUBTRACT LITERAL
          21811    70      218     14   0  0              0        218                         C-LINE MAY          JUMP IF A == 0
          21812    10               0   0  0              0                                    FOLLOW INDICATOR    SELECT LITERAL
          21813    5       12      60   1  0              0                                                        TRANSFER
    21811>21814    5       12       9   0  0              0                                                        TRANSFER
          21815    5       12      43   0  0              0                CLEAR LINE INCREMENT FOR'SER'CHECKS     TRANSFER
          21816            27       5   0  0              0                                                        SELECT
          21817    12               0   0  0              4                                                        SUBTRACT LITERAL
          21818    70      219     34   0  0              0        219     >VALUE(DIRECTIVE OR DATA)               JUMP IF A == 0
          21819            92       3   0  0              0                                                        SELECT
          21820    11               0   0  0              1                FORM TRANSLATORS PROCR                  ADD LITERAL
          21821    3       92       3   0  0              0                                                        COPY
          21822    3       12       0   0  0              0                                                        COPY
          21823    5       12       4   0  0              0                                                        TRANSFER
                                                                                                                   
          21900    PROCR   219       219     TEST NEW CHAPTER                                                      
          21901     NOTES          RADIX                                                                           SELECT
          21902            1        8   2  0              0                                                        SELECT
          21903    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          21904    3       1       14   0  0              0                B/FWD PROCR                             COPY
          21905    2       92       3   0  0              0                                                        SUBTRACT
          21906    70      219      9   0  0              0        219     >OK PASS 0 HASN'T BOOBED                JUMP IF A == 0
          21907            318     40   1  0              0        318     '????R'                                 SELECT
          21908    5       1       44   1  0              0                                                        TRANSFER
    21906>21909    52      1        8   0  0              0                EDIT NEW PROCR                          EDIT
          21910    C       306      2   0  0              0        306                                             
          21911            1       14   0  0              0                OLD                                     SELECT
          21912    2       12       4   0  0              0                NEW                                     SUBTRACT
          21913    70      219     15   0  0              0        219     >PROCR DOESN T CHANGE                   JUMP IF A == 0
          21914    80      220      2   0  0              0        220     >SET'PRINT PROCR'                       ENTER SUBROUTINE
    21913>21915            92       3   0  0              0                                                        SELECT
  Source image: P1030204.JPG
          21916    12               0   0  0            100                                                        SUBTRACT LITERAL
          21917    71      219     21   0  0              0        219     >NOT FIRST TIME THROUGH                 JUMP IF A != 0
          21918    0       12       0   0  0              0                FIRST CODERS PROCR                      SELECT
          21919    5       12      14   0  0              0                SET AS FIRST CHAP START                 TRANSFER
          21920    76      219     29   0  0              0        219                                             JUMP unconditional
    21917>21921            12      14   0  4              0                                                        SELECT
          21922    2       12       0   0  0              0                                                        SUBTRACT
          21923    71      219     34   0  0              0        219     >THIS PROCR IS NOT A CHAPTER START      JUMP IF A != 0
          21924            92       3   0  0              0                                                        SELECT
          21925    12               0   0  0              1                                                        SUBTRACT LITERAL
          21926    80      248      2   0  0              0        248     >CHAP END IN BIN                        ENTER SUBROUTINE
          21927    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          21928    4       92       9   0  4              0                STORE CHAP END POINT                    AUGMENT
    21920>21929    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          21930    10               0   0  0              1                                                        SELECT LITERAL
          21931    4       92       0   0  0              0                STEP UNCORR CHAP IN BIN                 AUGMENT
          21932    60               0   0  0              0                                                        SET DECIMAL RADIX
          21933    94               0   0  4              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    21923>                                                                                                         
    21818>21934    83      222      2   0  0              1        222     SET CHECK SWITCH FOR DIRECTIVES         SET SWITCH(ES) AT LITERAL VALUE
          21935    76      222      2   0  0              0        222                                             JUMP unconditional
                                                                                                                   
          22000    PROCR   220       220     SET IND IN SEC 23 IF PROCR TO BE PRINTED                              
          22002    81      220      2   0  0              0        220                                             START OF SUBROUTINE
          22003            92       3   0  0              0                CURRENT PROCR                           SELECT
          22004    80      248      2   0  0              0        248     >BIN                                    ENTER SUBROUTINE
          22005    19               0   0  0             14                                                        DIVIDE LITERAL
          22006    5       319     42   0  0              0        319                                             TRANSFER
          22007    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          22008    5       319     43   0  0              0        319     REMAINDER                               TRANSFER
          22009    34      319     22   0  0              0        319     1                                       SET (N) IN B
          22010    124     319     43   0  1              0        319                                             modify address of next
          22011    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          22012            319     20   0  0              0        319     £X5                                     SELECT
          22013    124     319     42   0  1              0        319                                             modify address of next
          22014    37      23       5-  0  0              0                SET BIT                                 REPLACE SELECTED BITS
          22015    60               0   0  0              0                                                        SET DECIMAL RADIX
          22016    82      220      2   0  0              0        220                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22100    PROCR   221       221     CHECK FOR B/FWD ERROR REPORT                                          
          22101     NOTES  221                                                                                     SELECT
          22102    81      221      2   0  0              0        221                                             START OF SUBROUTINE
          22103            1       42   1  0              0                LAST 5 CHARS OF ANNOTATION              SELECT
          22104    2       318     26   1  0              0        318     '?????'                                 SUBTRACT
          22105    70      221     12   0  0              0        221                                             JUMP IF A == 0
          22106            1       42   1  0              0                                                        SELECT
          22107    12               0   0  0     5£5£5£5£5£                FIVE SQUARES                            SUBTRACT LITERAL
          22108    70      221     12   0  0              0        221                                             JUMP IF A == 0
          22109            1       42   1  0              0                                                        SELECT
          22110    2       318     24   1  0              0        318     'SHEET'                                 SUBTRACT
          22111    71      221     13   0  0              0        221                                             JUMP IF A != 0
    22108>                                                                                                         
    22105>22112    5       1       42   1  0              0                CLEAR OUT REPORT                        TRANSFER
    22111>22113    82      221      2   0  0              0        221                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22200    PROCR   222       222     SWITCH B                                                              
          22201     NOTES          RADIX                                                                           SELECT
    21935>                                                                                                         
    21805>                                                                                                         
    21804>22202    80      221      2   0  0              0        221     >DELETE B/FWD ERROR REPORTS             ENTER SUBROUTINE
  Source image: P1030205.JPG
    23312>22203            12      33   0  0              0                                                        SELECT
          22204    70      222      9   0  0              0        222     >EX MT                                  JUMP IF A == 0
          22205            92      30   0  0              0                                                        SELECT
          22206    70      222      9   0  0              0        222                                             JUMP IF A == 0
          22207    80      220      2   0  0              0        220     >SET'PRINT PROCR'                       ENTER SUBROUTINE
          22208    10               0   0  0              0                                                        SELECT LITERAL
    22206>                                                                                                         
    22204>22209    85      222      2   0  0              0        222                                             SWITCH R
          22210    C       231      2   0  0              0        231     STACKING DIRECTIVE                      
          22211    C       236      2   0  0              0        236     INSTRUCTIONS                            
          22212    C       276      2   0  0              0        276     TABLES                                  
          22213    C       260      2   0  0              0        260     CONSTANTS                               
          22214    85      173      2   0  0              0        173                                             SWITCH R
          22215    C       249      2   0  0              0        249     >LAST REF/ITEM CORRECT                  
          22216    C       222     17   0  0              0        222     >LAST REF/ITEM IGNORED                  
    22216>22217    80      225      2   0  0              0        225     REPORT R                                ENTER SUBROUTINE
          22218    80      295      2   0  0              0        295     IGNORE THIS LINE                        ENTER SUBROUTINE
          22219    76      249      2   0  0              0        249     >EDIT AND O/P                           JUMP unconditional
                                                                                                                   
          22300    PROCR   223       223     ERROR REPORT OF D                                                     
          22301     NOTES  223                                                                                     SELECT
          22302    81      223      2   0  0              0        223                                             START OF SUBROUTINE
          22303    10               0   0  0             54                D                                       SELECT LITERAL
          22304    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22305    82      223      2   0  0              0        223                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22400    PROCR   224       224     ERROR REPORT OF M                                                     
          22401     NOTES  224                                                                                     SELECT
          22402    81      224      2   0  0              0        224                                             START OF SUBROUTINE
          22403    10               0   0  0             64                M                                       SELECT LITERAL
          22404    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22405    82      224      2   0  0              0        224                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22500    PROCR   225       225     ERROR REPORT OF R                                                     
          22501     NOTES  225                                                                                     SELECT
          22502    81      225      2   0  0              0        225                                             START OF SUBROUTINE
          22503    10               0   0  0             69                                                        SELECT LITERAL
          22504    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22505    82      225      2   0  0              0        225                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22600    PROCR   226       226     ERROR REPORT OF I                                                     
          22601     NOTES  226                                                                                     SELECT
          22602    81      226      2   0  0              0        226                                             START OF SUBROUTINE
          22603    10               0   0  0             59                I                                       SELECT LITERAL
          22604    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22605    82      226      2   0  0              0        226                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22700    PROCR   227       227     ERROR REPORT OF L                                                     
          22701     NOTES  227                                                                                     SELECT
          22702    81      227      2   0  0              0        227                                             START OF SUBROUTINE
          22703    10               0   0  0             63                L                                       SELECT LITERAL
          22704    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22705    82      227      2   0  0              0        227                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22800    PROCR   228       228     ERROR REPORT OF T                                                     
          22801     NOTES  228                                                                                     SELECT
          22802    81      228      2   0  0              0        228                                             START OF SUBROUTINE
          22803    10               0   0  0             73                T                                       SELECT LITERAL
          22804    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22805    82      228      2   0  0              0        228                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030206.JPG
          22900    PROCR   229       229     MAKE ERROR REPORT                                                     
          22901     NOTES  229                                                                                     SELECT
          22902    81      229      2   0  0              0        229                                             START OF SUBROUTINE
          22903    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          22904            1       44   1  0              0                TEST REPORT ALREADY MADE                SELECT
          22905    30               0   0  0              2-               WITH '????'                             SHIFT (A) BY QUARTETS
          22906    12               0   0  0       5:5:5:5:                                                        SUBTRACT LITERAL
          22907    70      229     16   0  0              0        229     >YES,DON T CORRUPT IT                   JUMP IF A == 0
          22908    10               0   0  0              0                                                        SELECT LITERAL
          22909    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          22910    124     12     115   1  2              0                                                        modify address of next
          22911    30               0   0  0              0                /////                                   SHIFT (A) BY QUARTETS
          22912    4       1       44   1  0              0                                                        AUGMENT
          22913    10               0   0  0              2                                                        SELECT LITERAL
          22914    1       12     115   0  0              0                                                        ADD
          22915    5       12     115   0  0              0                                                        TRANSFER
    22907>22916    82      229      2   0  0              0        229                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          23000    PROCR   230       230     ADJUST SR-ISSUE 6 O/P                                                 
          23002    81      230      2   0  0              0        230                                             START OF SUBROUTINE
          23003    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          23004    C                0   0  0            900                                                        
          23005    10               0   0  0              0                (12/58)=SERIAL TO BE ADJUSTED           SELECT LITERAL
          23006    5       12      46   0  0              0                CLEAR FOR TOTAL ADJUSTMENT              TRANSFER
          23007    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          23008    36      12      58   0  0              0                                                        COLLATE AND ADD
          23009    5       12      30   0  0              0                PROCR                                   TRANSFER
    23022>23010    36      97       0   0  1              0                                                        COLLATE AND ADD
          23011    70      230     23   0  0              0        230     >END                                    JUMP IF A == 0
          23012    2       12      30   0  0              0                                                        SUBTRACT
          23013    73      230     21   0  0              0        230     >SEARCH                                 JUMP IF A < 0
          23014    71      230     23   0  0              0        230     >END                                    JUMP IF A != 0
          23015            97       0   0  1              0                                                        SELECT
          23016    2       12      58   0  0              0                                                        SUBTRACT
          23017    70      230     19   0  0              0        230                                             JUMP IF A == 0
          23018    72      230     32   0  0              0        230     >NEXT ADJUST POINT IN PROCR IS LATER    JUMP IF A >= 0
    23017>23019            97       1   0  1              0                                                        SELECT
          23020    4       12      46   0  0              0                                                        AUGMENT
    23013>23021    10               0   0  0              0                                                        SELECT LITERAL
          23022    94      230     10   0  1              2        230                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    23034>                                                                                                         
    23037>                                                                                                         
    23014>                                                                                                         
    23011>23023    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          23024            12      46   0  0              0                TOTAL ADJUSTMENT                        SELECT
          23025    36      12      58   0  0              0                                                        COLLATE AND ADD
          23026    3       12      58   0  0              0                NEW ITEM                                COPY
          23027    12               0   0  0            100                                                        SUBTRACT LITERAL
          23028    73      230     31   0  0              0        230     '????I'                                 JUMP IF A < 0
          23029            318     42   1  0              0        318     REPORT WRITTEN ITEM>99                  SELECT
          23030    5       1       44   1  0              0                                                        TRANSFER
    23028>23031    82      230      2   0  0              0        230     QUANTITY(+-)                            END OF SUBROUTINE / LEAVE SUBROUTINE
    23018>23032    1       97       1   0  1              0                >ADDRESS DELETED                        ADD
          23033    70      230     35   0  0              0        230     >NEXT IS INSERTION                      JUMP IF A == 0
          23034    72      230     23   0  0              0        230     '????DELTA'                             JUMP IF A >= 0
    23033>23035            318     44   1  0              0        318                                             SELECT
          23036    5       1       44   1  0              0                                                        TRANSFER
          23037    76      230     23   0  0              0        230                                             JUMP unconditional
                                                                                                                   
  Source image: P1030207.JPG
          23100    PROCR   231       231     DEAL WITH PROCR/TABLE/CONST                                           
          23101     NOTES          RADIX                                                                           SELECT
    22210>23102            1        6   1  0              0                                    TEST PROCR          SELECT
          23103    2       318      6   1  0              0        318     PROCR                                   SUBTRACT
          23104    71      231      7   0  0              0        231     NO                                      JUMP IF A != 0
          23105    5       12      90   1  0              0                                                        TRANSFER
          23106    76      249      2   0  0              0        249     FORM SERIAL NO.     AND OUTPUT          JUMP unconditional
    23104>23107            1        6   1  0              0                                    TEST TABLE          SELECT
          23108    2       318      2   1  0              0        318     TABLE                                   SUBTRACT
          23109    71      232      5   0  0              0        232     NO                                      JUMP IF A != 0
          23110    10               0   0  0         100001                SET LONG/SHORT      USED TO             SELECT LITERAL
          23111    5       12      90   1  0              0                COUNTER             STEP ON SERIAL      TRANSFER
          23112    34      1       16   1  0              0                TABLE TYPE                              SET (N) IN B
          23113    80      320      2   0  0              0        320     >RIGHT ALIGN                            ENTER SUBROUTINE
          23114    0       12      88   2  0              0                                                        SELECT
          23115    73      231     20   0  0              0        231     TABLE TYPE IS       NEGATIVE            JUMP IF A < 0
          23116    3       12      59   0  0              0                                                        COPY
          23117    70      231     20   0  0              0        231                                             JUMP IF A == 0
          23118    12               0   0  0              5                                                        SUBTRACT LITERAL
          23119    73      232      2   0  0              0        232                                             JUMP IF A < 0
    23117>                                                                                                         
    23115>23120    83      278      8   0  0              5        278     TABLE TYPE IS OUT   OF RANGE            SET SWITCH(ES) AT LITERAL VALUE
          23121    76      282     29   0  0              0        282                                             JUMP unconditional
                                                                                                                   
          23200    PROCR   232       232                                                                           
          23201     NOTES          RADIX                                                                           SELECT
    23119>23202    84      278      8   0  0              0        278     SET TABLE CHECKING                      SET SWITCH(ES) AT VARIABLE VALUE
          23203    C       12      59   0  0              0                SWITCH ACCORDING TO TYPE                
          23204    76      249      2   0  0              0        249     FORM SERIAL NO.     AND OUTPUT          JUMP unconditional
    23109>23205            1        6   1  0              0                                    TEST CONST          SELECT
          23206    2       318      4   1  0              0        318     CONST                                   SUBTRACT
          23207    71      232     25   0  0              0        232     >NO                                     JUMP IF A != 0
          23208    54      94      60   0  0             40                                                        BULK CLEAR
          23209    34      317      3   0  0              0        317     BIT 17                                  SET (N) IN B
          23210    36      1       16   2  0              0                                                        COLLATE AND ADD
          23211    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          23212    3       12      90   0  0              0                LONG/SHORT IND                          COPY
          23213    71      232     15   0  0              0        232     >LONG                                   JUMP IF A != 0
          23214    10               0   0  0             30                ALPHA ZERO                              SELECT LITERAL
    23213>23215    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          23216    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          23217    37      1       17   0  0              0                SET ALPHA 0 OR 1                        REPLACE SELECTED BITS
          23218    76      232     21   0  0              0        232                                             JUMP unconditional
          23219    10               0   0  0              1                                                        SELECT LITERAL
          23220    03      12      90   0  0              0                                                        COPY
    23218>23221    83      263      2   0  0              1        263     SAFETY VALUE                            SET SWITCH(ES) AT LITERAL VALUE
          23222    10               0   0  0              4                SET CHECK SWITCH                        SELECT LITERAL
          23223    84      222      2   0  0              0        222                                             SET SWITCH(ES) AT VARIABLE VALUE
          23224    76      249      2   0  0              0        249     >O/P                                    JUMP unconditional
    23207>23225    76      233      2   0  0              0        233     NOTES                                   JUMP unconditional
                                                                                                                   
          23300    PROCR   233       233     DEAL WITH NOTES                                                       
          23301     NOTES          RADIX                                                                           SELECT
    23225>23302            12      91   0  0              0                                                        SELECT
          23303    71      233      6   0  0              0        233                                             JUMP IF A != 0
          23304    10               0   0  0              2                FOR INSTRUCTIONS                        SELECT LITERAL
          23305    76      233      7   0  0              0        233                                             JUMP unconditional
    23303>23306    10               0   0  0              3                FOR TABLE ENTRIES                       SELECT LITERAL
    23305>23307    84      222      2   0  0              0        222     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          23308    2       12      38   0  0              0                DIRECTIVE IND FOR THIS LINE             SUBTRACT
  Source image: P1030208.JPG
          23309    73      249      2   0  0              0        249     >IS'NOTES'(IE>0)                        JUMP IF A < 0
          23310    10               0   0  0              2                                                        SELECT LITERAL
          23311    5       12       9   0  0              0                SET THIS LINE SERIAL                    TRANSFER
          23312    76      222      3   0  0              0        222     >TO CHECK SWITCH                        JUMP unconditional
                                                                                                                   
          23400    PROCR   234       234     REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI     
          23401     NOTES          RADIX                                                                           SELECT
          23402    81      234      2   0  0              0        234                                             START OF SUBROUTINE
          23403    34      1        8   1  0              0                REF                                     SET (N) IN B
          23404    80      320      2   0  0              0        320     >RIGHT ALIGN                            ENTER SUBROUTINE
    27507>23405    0       12      88   2  0              0                                                        SELECT
          23406    3       12       4   0  0              0                                                        COPY
          23407    12               0   0  0            100                                                        SUBTRACT LITERAL
          23408    73      234     25   0  0              0        234     >SECTION                                JUMP IF A < 0
          23409    12               0   0  0            899                                                        SUBTRACT LITERAL
          23410    72      234     25   0  0              0        234     >NOT REPLACEABLE (INCLUDES 999)         JUMP IF A >= 0
          23411            1       10   1  0              0                                                        SELECT
          23412    5       294      2   0  0              0        294     'PREVIOUS'ITEM                          TRANSFER
          23413    80      235      2   0  0              0        235     >CALC C/FWD ADDRESS                     ENTER SUBROUTINE
          23414            12      88   2  0              0                                    TEST IMPLICIT       SELECT
          23415    2       12       4   0  0              0                                    AMENDMENT           SUBTRACT
          23416    71      234     20   0  0              0        234     >CHANGE TO REF                          JUMP IF A != 0
          23417            1       10   1  0              0                                                        SELECT
          23418    2       294      2   0  0              0        294                                             SUBTRACT
          23419    70      234     21   0  0              0        234     >NO CHANGE TO ITEM                      JUMP IF A == 0
    23416>23420    80      220      2   0  0              0        220     >SET'PRINT PROCEDURE'                   ENTER SUBROUTINE
    23419>23421            12      88   2  0              0                                                        SELECT
          23422    5       12       4   0  0              0                NEW REF                                 TRANSFER
          23423    52      1        8   0  0              0                REPLACE REF-WITH ZEROS                  EDIT
          23424    C       306      2   0  0              0        306                                             
    23410>                                                                                                         
    23408>23425    82      234      2   0  0              0        234                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          23500    PROCR   235       235     REPLACE AND ADJUST ADDRESS                                            
          23501     NOTES  235                                                                                     SELECT
          23502    81      235      2   0  0              0        235                                             START OF SUBROUTINE
          23503            12      88   2  0              0                REPLACE PROCR(NEW STYLE)                SELECT
          23504    3       12     118   0  0              0                                                        COPY
          23505    3       12     119   0  0              0                                                        COPY
          23506    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          23507    1       1       10   0  0              0                                                        ADD
          23508    5       12      58   0  0              0                                                        TRANSFER
          23509            1       10   1  0              0                                                        SELECT
          23510    73      235     14   0  0              0        235     >DONT ADJUST NEG ITEMS                  JUMP IF A < 0
          23511    80      230      2   0  0              0        230     >ADJUST SR(NEW STYLE)                   ENTER SUBROUTINE
          23512            12      58   0  0              0                NEW ITEM                                SELECT
          23513    5       1       10   0  0              0                                                        TRANSFER
    23510>23514    82      235      2   0  0              0        235                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          23600    PROCR   236       236     BEGIN CHECKS ON ACTION OR C-LINE                                      
          23601     NOTES          RADIX                                                                           SELECT
    22211>23602    80      234      2   0  0              0        234     >DEAL WITH ADDRESS OF INSTRUCTION       ENTER SUBROUTINE
          23603            12       4   0  0              0                NEW REF                                 SELECT
          23604    12               0   0  0            100                                                        SUBTRACT LITERAL
          23605    73      236     10   0  0              0        236                                             JUMP IF A < 0
          23606    12               0   0  0            899                                                        SUBTRACT LITERAL
          23607    72      236     10   0  0              0        236                                             JUMP IF A >= 0
          23608            12     118   0  0              0                PREVIOUS PROCR                          SELECT
          23609    5       1       22   0  0              0                                                        TRANSFER
    23607>                                                                                                         
  Source image: P1030209.JPG
    23605>23610            12      61   0  0              0                                                        SELECT
          23611    70      236     13   0  0              0        236                                             JUMP IF A == 0
          23612    80      296      2   0  0              0        296                                             ENTER SUBROUTINE
    23611>23613    34      1        6   1  0              0                                                        SET (N) IN B
          23614    80      320      2   0  0              0        320     RIGHT ALIGN ACTION                      ENTER SUBROUTINE
          23615    00      12      88   2  0              0                                                        SELECT
          23616    73      237      2   0  0              0        237     >NEGATIVE ACTION                        JUMP IF A < 0
          23617    12               0   0  0            100                                                        SUBTRACT LITERAL
          23618    73      237      2   0  0              0        237     >REJECT                                 JUMP IF A < 0
          23619    12               0   0  0             30                                                        SUBTRACT LITERAL
          23620    72      237      2   0  0              0        237                                             JUMP IF A >= 0
          23621    0       12      88   2  0              0                                                        SELECT
          23622    80      248      2   0  0              0        248     >TO BIN                                 ENTER SUBROUTINE
          23623    3       12      54   0  0              0                BINARY ACTION                           COPY
          23624    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          23625    101     316      2   0  0              0        316                                             table look up
          23626    32               0   0  0             10                ABS BIN ADDRESS>A                       SHIFT (AB) BY QUARTETS
          23627    3       12      55   0  0              0                LOCN TO SELECT C-LINE CHECK CONSTAN     COPY
          23628    124     12      55   1  2              0                                                        modify address of next
          23629    100              0   0  2              0                CHECK CONST                             replace (B) by (N)
          23630    10               0   0  0              0                                                        SELECT LITERAL
          23631    36      317      4   0  0              0        317     Q1-3                                    COLLATE AND ADD
          23632    71      237      6   0  0              0        237     >ACTION EXISTS                          JUMP IF A != 0
                                                                                                                   
          23700    PROCR   237       237                                                                           
          23701     NOTES          RADIX                                                                           SELECT
    23620>                                                                                                         
    23618>                                                                                                         
    23616>23702    10               0   0  0     5100000000                                                        SELECT LITERAL
          23703    5       1       44   1  0              0                NONEXISTENT ACTION=ERROR OF A           TRANSFER
          23704    80      295      2   0  0              0        295                                             ENTER SUBROUTINE
          23705    76      249      2   0  0              0        249                                             JUMP unconditional
    23632>23706    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          23707    10               0   0  0              0                LOSE 'LIT SWITCH'                       SELECT LITERAL
          23708    36      317      5   0  0              0        317     BITS 5-7                                COLLATE AND ADD
          23709    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          23710    84      240      2   0  0              0        240     'REF/ITEM'SWITCH BY Q2                  SET SWITCH(ES) AT VARIABLE VALUE
          23711    36      317      7   0  0              0        317     BIT 4                                   COLLATE AND ADD
          23712    5       12      61   0  0              0                IND THAT C-LINE ESSENTIAL               TRANSFER
          23713    36      317      8   0  0              0        317     BIT 8                                   COLLATE AND ADD
          23714    5       12      60   0  0              0                IND THAT C-LINE IS POSSIBLE             TRANSFER
          23715    5       12      59   0  0              0                CLEAR THIS                              TRANSFER
                                                                                                                   
          23800    PROCR   238       238                                                                           
          23801     NOTES          RADIX                                                                           SELECT
          23802    60               0   0  0              0                                                        SET DECIMAL RADIX
          23803            1       10   0  0              0                MODULUS OF ITEM                         SELECT
          23804    12               0   0  0           8192                                                        SUBTRACT LITERAL
          23805    72      238      8   0  0              0        238     >REPORT                                 JUMP IF A >= 0
          23806            1       11   0  0              0                                                        SELECT
          23807    70      238      9   0  0              0        238     >OK                                     JUMP IF A == 0
    23805>23808    80      226      2   0  0              0        226     >REPORT I                               ENTER SUBROUTINE
    23807>23809            1       12   1  0              0                DISC                                    SELECT
          23810    70      238     14   0  0              0        238     >OK                                     JUMP IF A == 0
          23811    12               0   0  0              1                                                        SUBTRACT LITERAL
          23812    70      238     14   0  0              0        238     >OK                                     JUMP IF A == 0
          23813    80      223      2   0  0              0        223     >REPORT D                               ENTER SUBROUTINE
    23812>                                                                                                         
    23810>23814    0       1       14   1  0              0                MOD                                     SELECT
          23815    70      240      2   0  0              0        240     >OK                                     JUMP IF A == 0
  Source image: P1030210.JPG
          23816    12               0   0  0              4                                                        SUBTRACT LITERAL
          23817    73      240      2   0  0              0        240     >OK                                     JUMP IF A < 0
          23818    80      224      2   0  0              0        224     >REPORT M                               ENTER SUBROUTINE
          23819    76      240      2   0  0              0        240     >TO CHECK R,I,L                         JUMP unconditional
                                                                                                                   
          23900    PROCR   239       239     TEST D IS ZERO                                                        
          23901     NOTES          RADIX                                                                           SELECT
          23902    81      239      2   0  0              0        239                                             START OF SUBROUTINE
          23903            1       12   1  0              0                                                        SELECT
          23904    70      239      6   0  0              0        239                                             JUMP IF A == 0
          23905    80      223      2   0  0              0        223     REPORT D                                ENTER SUBROUTINE
    23904>23906    82      239      2   0  0              0        239                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24000    PROCR   240       240                                                                           
          24001     NOTES          RADIX                                                                           SELECT
    23819>                                                                                                         
    23817>                                                                                                         
    23815>24002    85      240      2   0  0              0        240                                             SWITCH R
          24003    C       241      2   0  0              0        241     >R ZERO, PROCR, SECTION OR '1000+'      
                                                                                                                   
          24100    PROCR   241       241     SWITCH = 1                                                            
          24101     NOTES          RADIX     B    R ZERO, OR A SECTION                                             SELECT
    24003>24102            12       4   0  0              0                                                        SELECT
          24103    73      241     18   0  0              0        241     >IGNORE R                               JUMP IF A < 0
          24104    71      241     13   0  0              0        241     >OK                                     JUMP IF A != 0
          24105            1       14   0  0              0                MOD DIGITS                              SELECT
          24106    71      241     20   0  0              0        241     >OK                                     JUMP IF A != 0
          24107    0       1       10   1  0              0                ITEM                                    SELECT
          24108    73      241     18   0  0              0        241     IG                                      JUMP IF A < 0
          24109    71      241     20   0  0              0        241     >OK                                     JUMP IF A != 0
          24110    0       12      54   0  0              0                ACTION                                  SELECT
          24111    70      241     18   0  0              0        241     >IGNORE R                               JUMP IF A == 0
          24112    76      241     20   0  0              0        241     >OK                                     JUMP unconditional
    24104>24113    70      242      2   0  0              0        242     OK                                      JUMP IF A == 0
          24114    12               0   0  0            100                                                        SUBTRACT LITERAL
          24115    73      241     18   0  0              0        241     IG                                      JUMP IF A < 0
          24116    12               0   0  0            900                                                        SUBTRACT LITERAL
          24117    73      241     20   0  0              0        241     >OK                                     JUMP IF A < 0
    24115>                                                                                                         
    24111>                                                                                                         
    24108>                                                                                                         
    24103>24118    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          24119    80      225      2   0  0              0        225     >REPORT R                               ENTER SUBROUTINE
    24117>                                                                                                         
    24112>                                                                                                         
    24109>                                                                                                         
    24106>24120    76      242      2   0  0              0        242     CHECK L                                 JUMP unconditional
          24121    80      277      2   0  0              0        277     >CHECK REF                              ENTER SUBROUTINE
                                                                                                                   
          24200    PROCR   242       242     SWITCH FOR LITERALS                                                   
          24201     NOTES          RADIX          CHECK L IS NOT > 10 QUARTETS                                     SELECT
    24120>                                                                                                         
    24113>24202    0       1       18   1  0              0                                                        SELECT
          24203    70      244      2   0  0              0        244                                             JUMP IF A == 0
                                                                                                                   
          24300    PROCR   243       243     MAKE REPORTS ON L                                                     
          24301     NOTES          RADIX          SWITCH=2                                                         SELECT
          24302    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          24303    80      227      2   0  0              0        227     >REPORT L                               ENTER SUBROUTINE
                                                                                                                   
  Source image: P1030211.JPG
          24400    PROCR   244       244     TEST FP/MG USED, STORE MR>3 DETAILS                                   
          24401     NOTES          RADIX          MOD REGISTERS 1-3                                                SELECT
    24203>24402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
                                                                                                                   
          24500    PROCR   245       245     MACHINE CODE SEQUENCE CHANGES                                         
          24501     NOTES          RADIX                                                                           SELECT
          24502    0       12      54   0  0              0                BIN ACTION                              SELECT
          24503    12               0   0  0             7                                                         SUBTRACT LITERAL
          24504    70      246      2   0  0              0        246     >ACTION 127/D/M                         JUMP IF A == 0
          24505    11               0   0  0              3                                                        ADD LITERAL
          24506    71      249      2   0  0              0        249     >NOT 124/D/M                            JUMP IF A != 0
          24507            1       12   0  0              0                                                        SELECT
          24508    12               0   0  0              1                                                        SUBTRACT LITERAL
          24509    71      249      2   0  0              0        249     >NOT 124/1/M                            JUMP IF A != 0
          24510            1       14   0  0              0                                                        SELECT
          24511    71      249      2   0  0              0        249     >NOT 124/1/0                            JUMP IF A != 0
          24512    76      246      2   0  0              0        246                                             JUMP unconditional
          24513    60               0   0  0              0                                    ACTION 94           SET DECIMAL RADIX
          24514    0       1       16   1  0              0                L                                       SELECT
          24515    71      245     17   0  0              0        245                                             JUMP IF A != 0
          24516    80      227      2   0  0              0        227     >REPORT L                               ENTER SUBROUTINE
    24515>24517    0       1        8   1  0              0                                                        SELECT
          24518    71      246      2   0  0              0        246     >COUNT AS SEQ CHANGE                    JUMP IF A != 0
          24519    0       1       10   0  0              0                                                        SELECT
          24520    70      249      2   0  0              0        249     YES                                     JUMP IF A == 0
    26717>24521    80      226      2   0  0              0        226     >REPORT I                               ENTER SUBROUTINE
          24522    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          24600    PROCR   246       246     TEST IF SEQUENCE CHANGE IS FORWARD OR BACK                            
          24601     NOTES          RADIX                                                                           SELECT
    24518>                                                                                                         
    24512>                                                                                                         
    24504>24602    0       12       4   0  0              0                DEC REF                                 SELECT
          24603    12               0   0  0            999                                                        SUBTRACT LITERAL
          24604    72      249      2   0  0              0        249                                             JUMP IF A >= 0
          24605    0       92       3   0  0              0                (CURRENT LINE SERIAL)                   SELECT
          24606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24607    1       12       9   0  0              0                SEQ CHANGE SOURCE                       ADD
          24608    3       12     118   0  0              0                SOURCE                                  COPY
          24609    2       1        8   2  0              0                L-ALIGNED REF                           SUBTRACT
          24610    2       1       10   0  0              0                ITEM                                    SUBTRACT
          24611    73      249      2   0  0              0        249     >SOURCE<DEST, SEQ CHANGE FWD            JUMP IF A < 0
          24612            1        8   2  0              0                                                        SELECT
          24613    70      249      2   0  0              0        249     >SC TO ABS ADDRESS,DON T STORE          JUMP IF A == 0
          24614    1       1       10   0  0              0                                                        ADD
          24615    73      249      2   0  0              0        249     >SKIP                                   JUMP IF A < 0
          24616    5       12     119   0  0              0                DESTINATION                             TRANSFER
          24617    0       12     118   1  0              0                                                        SELECT
          24618    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          24619    124     92       9   1  2              0                ABS START OF LIST(18:2496 INITIALLY     modify address of next
          24620    101              0   1  0              0                TABLE LOOKUP                            table look up
          24621    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          24622    91               0   0  1              0                STORE LOCN OF FIRST GREATER             SET MODIFICATION REGISTER AT VARIABLE
          24623    2       92       9   0  0              0                                                        SUBTRACT
          24624    30               0   0  0              5                SHIFT QTTY TO BE MOVED                  SHIFT (A) BY QUARTETS
          24625    1       92       9   0  0              0                START                                   ADD
          24626    5       12      88   1  0              0                WL=BULK COPY TABLE ENTRY                TRANSFER
          24627    0       92       9   0  0              0                CURRENT LIST START                      SELECT
          24628    2       316      6   0  0              0        316     ABS ADDRESS 18:0                        SUBTRACT
          24629    70      249      2   0  0              0        249     >LIST FULL, DON T STORE                 JUMP IF A == 0
  Source image: P1030212.JPG
          24630    10               0   0  0              2-                                                       SELECT LITERAL
          24631    4       92       9   0  0              0                ADJUST FOR NEW START                    AUGMENT
          24632            12      88   1  0              0                                                        SELECT
          24633    124     92       9   1  2              0                                                        modify address of next
          24634    128              0   1  1              0                BULK COPY UP ONE WORD                   bulk copy long numeric
          24635    94               0   0  1              2-               ADJUST                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24636            12     118   1  0              0                NEW SEQ CH BACK                         SELECT
          24637    5                0   1  1              0                PLACE IN LIST                           TRANSFER
          24638    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          24700    PROCR   247       247     CONVERT (A) TO DEC                                                    
          24701     NOTES  247                                                                                     SELECT
          24702    81      247      2   0  0              0        247                                             START OF SUBROUTINE
          24703    5       319     42   1  0              0        319                                             TRANSFER
          24704    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          24705    124     319      2   0  2              0        319                                             select literal and division
          24706    112     319     42   1  0              0        319                                             convert
          24707    82      247      2   0  0              0        247                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24800    PROCR   248       248     CONVERT (A) TO BINARY                                                 
          24801     NOTES  248                                                                                     SELECT
          24802    81      248      2   0  0              0        248                                             START OF SUBROUTINE
          24803    5       319     42   1  0              0        319                                             TRANSFER
          24804    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          24805    124     319     22   0  2              0        319                                             select literal and division
          24806    112     319     42   1  0              0        319                                             convert
          24807    82      248      2   0  0              0        248                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24900    PROCR   249       249     FORM SERIAL NUMBER                                                    
          24901     NOTES          RADIX                                                                           SELECT
    26621>                                                                                                         
    26624>                                                                                                         
    26714>                                                                                                         
    26718>                                                                                                         
    26808>                                                                                                         
    27103>                                                                                                         
    27107>                                                                                                         
    27304>                                                                                                         
    27813>                                                                                                         
    28026>                                                                                                         
    28037>                                                                                                         
    28122>                                                                                                         
    28231>                                                                                                         
    24638>                                                                                                         
    24629>                                                                                                         
    24615>                                                                                                         
    24613>                                                                                                         
    24611>                                                                                                         
    24604>                                                                                                         
    24522>                                                                                                         
    24520>                                                                                                         
    24511>                                                                                                         
    24509>                                                                                                         
    24506>                                                                                                         
    23705>                                                                                                         
    23309>                                                                                                         
    23224>                                                                                                         
    23204>                                                                                                         
    23106>                                                                                                         
    22219>                                                                                                         
  Source image: P1030213.JPG
    22215>24902    00      12      85   0  0              0                TEST IF TO IGNORE                       SELECT
          24903    70      249      5   0  0              0        249     THIS BLOCK                              JUMP IF A == 0
          24904    80      295      2   0  0              0        295     YES - IGNORE                            ENTER SUBROUTINE
    24903>24905    60               0   0  0              0                                                        SET DECIMAL RADIX
          24906            92       3   0  0              0                TRANSLATOR'S PROCR                      SELECT
          24907    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24908    5       12      88   0  0              0                                                        TRANSFER
          24909    86      222      2   0  0              0        222                                             SELECT SWITCH R
          24910            12       9   0  0              0                LINE SERIAL IN PROCR                    SELECT
          24911    12               0   0  0            100                                    NO LINE SERIAL>99   SUBTRACT LITERAL
          24912    73      249     24   0  0              0        249     >OK                                     JUMP IF A < 0
          24913    86      222      2   0  0              0        222                                             SELECT SWITCH R
          24914    12               0   0  0              2                                                        SUBTRACT LITERAL
          24915    70      249     20   0  0              0        249     >INSTRUCTIONS,IGNORE                    JUMP IF A == 0
          24916    35               0   0  0         111111                TABLE ENTRIES,CONST='SER'               PREPARE FOR DIGIT COLLATION
          24917    10               0   0  0         725569                                                        SELECT LITERAL
          24918    37      1       44   1  0              0                                                        REPLACE SELECTED BITS
          24919    76      249     21   0  0              0        249                                             JUMP unconditional
    24915>24920    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    24919>24921    10               0   0  0             99                                                        SELECT LITERAL
          24922    2       12      90   0  0              0                (0=SHORT,1=LONG)                        SUBTRACT
          24923    76      249     25   0  0              0        249     >SET 98 OR 99                           JUMP unconditional
    24912>24924            12       9   0  0              0                                                        SELECT
    24923>24925    4       12      88   0  0              0                                                        AUGMENT
          24926    52      1        2   0  0              0                EDIT SERIAL                             EDIT
          24927    C       306      6   0  0              0        306                                             
                                                                                                                   
          25000    PROCR   250       250     AUGMENT INSTRUCTION COUNTER                                           
          25001     NOTES          RADIX                                                                           SELECT
          25002    10               0   0  0              0                                                        SELECT LITERAL
          25003    85      222      2   0  0              0        222                                             SWITCH R
          25004    C       250      9   0  0              0        250     >'PROCR/TABLE'                          
          25005    C       251     13   0  0              0        251     >INSTRUCTIONS/'NOTES'                   
          25006    C       251      2   0  0              0        251     >TABLE ENTRY/'NOTES'                    
          25007    C       251      7   0  0              0        251     >CONSTANT/'CONST'                       
          25008    C       250      9   0  0              0        250                                             
    25008>                                                                                                         
    25004>25009    0       12       9   0  0              0                SERIAL THIS LINE WITHIN SECTION         SELECT
          25010    71      250     16   0  0              0        250     >NOTES BLOCK                            JUMP IF A != 0
    25111>25011            318     22   0  0              0        318     SW 27/5 LAST TIME THRU                  SELECT
          25012    12               0   0  0              3                                                        SUBTRACT LITERAL
          25013    71      250     16   0  0              0        250     >LAST TIME WASN T FOR CONSTANTS         JUMP IF A != 0
          25014    10               0   0  0              1                                                        SELECT LITERAL
          25015    5       29       6   1  0              0                CONSTS END SIGN                         TRANSFER
    25013>                                                                                                         
    25010>25016    10               0   0  0              0                                                        SELECT LITERAL
          25017    76      251     13   0  0              0        251                                             JUMP unconditional
                                                                                                                   
          25100    PROCR   251       251     AUGMENT INSTRUCTION COUNTER                                           
          25101     NOTES          RADIX                                                                           SELECT
    25006>25102            12       9   0  0              0                                                        SELECT
          25103    12               0   0  0              1                                                        SUBTRACT LITERAL
          25104    70      251     13   0  0              0        251                                             JUMP IF A == 0
          25105    10               0   0  0              2                                                        SELECT LITERAL
          25106    76      251     14   0  0              0        251                                             JUMP unconditional
    25007>25107            12       9   0  0              0                                                        SELECT
          25108    71      251     12   0  0              0        251     >NOT'CONST'BLOCK                        JUMP IF A != 0
          25109    10               0   0  0              1                (SO AS TO STEP BY 2 EVENTUALLY)         SELECT LITERAL
          25110    4       12       9   0  0              0                >TEST IF LAST SECTION WAS CONSTANTS     AUGMENT
          25111    76      250     11   0  0              0        250                                             JUMP unconditional
  Source image: P1030214.JPG
    25108>25112    00      12      90   0  0              0                                                        SELECT
    25104>                                                                                                         
    25017>                                                                                                         
    25005>25113    11               0   0  0              1                                                        ADD LITERAL
    25106>25114    4       12       9   0  0              0                                                        AUGMENT
          25115    0       12      33   0  0              0                                                        SELECT
          25116    70      251     20   0  0              0        251     >BLOCK EX MT                            JUMP IF A == 0
          25117    0       12       1   0  0              0                                                        SELECT
          25118    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          25119    5       1        0   1  0              0                AMEND IND                               TRANSFER
    25116>25120    5       92      34   1  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          25200    PROCR   252       252     EDIT                                                                  
          25202    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          25203            317     11   0  0              0        317     INDICATOR                               SELECT
          25204    70      252      7   0  0              0        252     >FIRST RECORD                           JUMP IF A == 0
          25205    80      288      2   0  0              0        288                                             ENTER SUBROUTINE
          25206    76      252      8   0  0              0        252                                             JUMP unconditional
    25204>25207    80      289      2   0  0              0        289     >WRITE LAST SECTION                     ENTER SUBROUTINE
    25206>25208            12      38   0  0              0                                                        SELECT
          25209    71      252     30   0  0              0        252     >DIRECTIVE                              JUMP IF A != 0
          25210            27       5   0  0              0                SWITCH                                  SELECT
          25211    12               0   0  0              4                                                        SUBTRACT LITERAL
          25212    70      252     25   0  0              0        252     >VALUES                                 JUMP IF A == 0
          25213    124     27       5   0  1              0                                                        modify address of next
          25214            305      6   0  0              0        305                                             SELECT
          25215    128     29       2   1  2              0                EDIT PROCR,TABLE,CONST.                 edit fixed field formats
          25216            318     48   1  0              0        318                                             SELECT
          25217    124     27       5   0  1              0                                                        modify address of next
          25218    124     305      2   0  1              0        305                                             modify address of next
          25219    128     29       0   1  1              0                COPY ANNOTATION                         bulk copy long numeric
          25220            1       44   1  0              0                                                        SELECT
          25221    124     27       5   0  1              0                                                        modify address of next
          25222    124     305      2   0  1              0        305                                             modify address of next
          25223    5       29       2-  1  0              0                COPY REPORTS PASS 1                     TRANSFER
          25224    76      252     48   0  0              0        252                                             JUMP unconditional
    25212>25225    55      1       11   0  0             16                VALUES                                  BULK COPY
          25226    C       29      10   2  0              0                                                        
          25227    52      29       6   0  0              0                REF+ITEM                                EDIT
          25228    C       315      2   0  0              0        315                                             
          25229    76      252     48   0  0              0        252                                             JUMP unconditional
    25209>25230    52      29       2   0  0              0                DIRECTIVES                              EDIT
          25231    C       307     16   0  0              0        307                                             
          25232    10               0   0  0              0                                                        SELECT LITERAL
          25233    5       318     22   0  0              0        318                                             TRANSFER
          25234            27       5   0  0              0                                                        SELECT
          25235    12               0   0  0              1                                                        SUBTRACT LITERAL
          25236    71      252     43   0  0              0        252     >NOT PROCR                              JUMP IF A != 0
          25237            12      38   0  0              0                                                        SELECT
          25238    73      252     43   0  0              0        252     >NOT NOTES OF PROCR                     JUMP IF A < 0
          25239            1        8   1  0              0                                                        SELECT
          25240    5       29      12   1  0              0                COPY'RADIX'                             TRANSFER
          25241    5       29       8   1  0              0                CLEAR                                   TRANSFER
          25242    76      252     45   0  0              0        252                                             JUMP unconditional
    25238>                                                                                                         
    25236>25243            1       44   1  0              0                PASS 1 REPORTS                          SELECT
          25244    5       29      12   1  0              0                                                        TRANSFER
    25242>25245    55      1       16   1  0             28                BULK COPY ANNOTATION                    BULK COPY
          25246    C       29      14   1  0              0                                                        
          25247    76      252     50   0  0              0        252                                             JUMP unconditional
    25229>                                                                                                         
  Source image: P1030215.JPG
    25224>25248            27       5   0  0              0                                                        SELECT
          25249    5       318     22   0  0              0        318                                             TRANSFER
    25247>25250    10               0   0  0              1                                                        SELECT LITERAL
          25251    5       317     11   0  0              0        317     SET INDICATOR                           TRANSFER
          25252    60               0   0  0              0                                                        SET DECIMAL RADIX
          25253    10               0   0  0              0                                                        SELECT LITERAL
          25254    5       12     115   0  0              0                ERROR REPORT SHIFT CONTROL              TRANSFER
          25255    0       23      47   0  0              0                                                        SELECT
          25256    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          25257    37      29       2   1  0              0                                                        REPLACE SELECTED BITS
          25258    10               0   0  0              0                                                        SELECT LITERAL
          25259    5       23      47   0  0              0                'IMPLICITLY AMENDED'                    TRANSFER
          25260    82      218      2   0  0              0        218                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          25300    PROCR   253       253     START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END            
    25628>                                                                                                         
    25762>                                                                                                         
    21714>25302    80      294      2   0  0              0        294     >TEST PT AT DIRECTIVE/END               ENTER SUBROUTINE
          25303    70      254      2   0  0              0        254     >NO                                     JUMP IF A == 0
    25321>                                                                                                         
    25517>                                                                                                         
    25732>25304    0       12      45   0  0              0                                                        SELECT
          25305    71      253     14   0  0              0        253     >PT AT END                              JUMP IF A != 0
          25306            27       1   0  0              0                                                        SELECT
          25307    70      253     10   0  0              0        253     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          25308                     4   2  8              0                (ABS MR)                                SELECT
          25309    76      253     11   0  0              0        253                                             JUMP unconditional
    25307>25310    0       7        6   2  0              0                MT SERIAL                               SELECT
    25309>25311    2       9        4   2  0              0                A6 SERIAL                               SUBTRACT
          25312    70      254      2   0  0              0        254     >MT AMENDED                             JUMP IF A == 0
          25313    72      255      2   0  0              0        255     >MT>PT,REPORT                           JUMP IF A >= 0
    25305>25314    80      299      2   0  0              0        299     >TEST MT=END                            ENTER SUBROUTINE
          25315    10               0   0  0              0                SET 'MT INPUT'                          SELECT LITERAL
          25316    5       12      33   0  0              0                                                        TRANSFER
          25317    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25318    80      284      2   0  0              0        284     >UNPACK                                 ENTER SUBROUTINE
          25319    80      218      2   0  0              0        218     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25320    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25321    76      253      4   0  0              0        253                                             JUMP unconditional
                                                                                                                   
          25400    PROCR   254       254     SWITCH FOR AMENDMENTS                                                 
          25401     NOTES          RADIX                                                                           SELECT
    25312>                                                                                                         
    25303>25402    85      254      2   0  0              0        254                                             SWITCH R
          25403    C       256      2   0  0              0        256     >REPLACE                                
          25404    C       257      2   0  0              0        257     >DELETE                                 
          25405    C       255      2   0  0              0        255     OMIT PT             T                   
          25406    C       255      2   0  0              0        255                         A                   
                                                                                                                   
          25500    PROCR   255       255     DEAL WITH OUT-OF-SEQUENCE DIRECTIVE                                   
          25501     NOTES          RADIX                                                                           SELECT
    25406>                                                                                                         
    25405>                                                                                                         
    25313>25502            1        4   1  0              0                AMENDMENT           MODS ARE            SELECT
          25503    124     318     22   0  1              0        318                                             modify address of next
          25504    124     305     10   0  1              0        305                                             modify address of next
          25505    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25506    34      1        2   1  0              0                SERIAL                                  SET (N) IN B
    25743>                                                                                                         
  Source image: P1030216.JPG
    25745>25507    80      259      2   0  0              0        259                         PUT ERROR REPORT    ENTER SUBROUTINE
          25508    10               0   0  0           1:5:                '??'                OF 5-DIGIT          SELECT LITERAL
          25509    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          25510    35               0   0  0           1111                                    SERIAL AND          PREPARE FOR DIGIT COLLATION
          25511    124     318     22   0  1              0        318                                             modify address of next
          25512    124     305     10   0  1              0        305                                             modify address of next
          25513    37      29       0   1  0              0                REPORT WORD                             REPLACE SELECTED BITS
    25516>25514    80      292      2   0  0              0        292     INPUT ON PAPER                          ENTER SUBROUTINE
          25515    80      294      2   0  0              0        294     FIND DIRECTIVE                          ENTER SUBROUTINE
          25516    70      255     14   0  0              0        255     >READ/IGNORE PT TO NEXT DIRECTIVE       JUMP IF A == 0
          25517    76      253      4   0  0              0        253     >MAKE THIS AMENDMENT                    JUMP unconditional
                                                                                                                   
          25600    PROCR   256       256     REPLACE                                                               
          25601     NOTES          RADIX                                                                           SELECT
    25403>25602            9       50   2  0              0                'PASS 0' IND                            SELECT
          25603    71      256     34   0  0              0        256     >REJECT                                 JUMP IF A != 0
          25604            27       5   0  0              0                'UNPACK' SWITCH                         SELECT
          25605    5       296      2   0  0              0        296     WL                                      TRANSFER
          25606    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25607    0       12      38   0  0              0                                                        SELECT
          25608    5       227      2   0  0              0        227     WL                                      TRANSFER
          25609    80      293      2   0  0              0        293     >TEST PT=STACK DIRECTIVE                ENTER SUBROUTINE
          25610    0       12      38   0  0              0                IS REPLACING BLOCK STACK DIR, OR NO     SELECT
          25611    2       227      2   0  0              0        227     ARE BOTH BLOCKS SIMILAR?                SUBTRACT
          25612    71      256     29   0  0              0        256     >NO,ILLEGAL?                            JUMP IF A != 0
    25631>25613    10               0   0  0              1                SET AS PT INPUT                         SELECT LITERAL
          25614    5       12      33   0  0              0                                                        TRANSFER
          25615    80      283      2   0  0              0        283     >UNPACK PT                              ENTER SUBROUTINE
          25616    80      299      2   0  0              0        299     >DONT REPLACE END SIGN                  ENTER SUBROUTINE
          25617    0       12      38   0  0              0                                                        SELECT
          25618    72      256     25   0  0              0        256     >NOT PT DIRECTIVE                       JUMP IF A >= 0
          25619            27       1   0  0              0                                                        SELECT
          25620    70      256     23   0  0              0        256     >1 RECORD PER BLOCK                     JUMP IF A == 0
          25621                    14   1  8              0                                                        SELECT
          25622    76      256     24   0  0              0        256                                             JUMP unconditional
    25620>25623    0       7       16   1  0              0                                                        SELECT
    25622>25624    5       1        8   1  0              0                TRANSFER MT PROCR NUMBER                TRANSFER
    25618>25625    80      302      2   0  0              0        302     >GET NEXT A1 RECORD                     ENTER SUBROUTINE
          25626    80      218      2   0  0              0        218     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25627    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25628    76      253      2   0  0              0        253                                             JUMP unconditional
    25612>25629    0       12      38   0  0              0                PT DIRECTIVE                            SELECT
          25630    1       227      2   0  0              0        227     MT DIRECTIVE                            ADD
          25631    72      256     13   0  0              0        256     >NEITHER IS STACK DIRECTIVE,ALLOW REPLACJUMP IF A >= 0
          25632            296      2   0  0              0        296                                             SELECT
          25633    5       27       5   0  0              0                RESTORE SWITCH                          TRANSFER
    25603>25634    10               0   0  0             69                'R'                                     SELECT LITERAL
          25635    76      257     36   0  0              0        257     >REPORT                                 JUMP unconditional
                                                                                                                   
          25700    PROCR   257       257     DELETION LOOP                                                         
          25701     NOTES          RADIX                                                                           SELECT
    25404>25702    80      299      2   0  0              0        299     >END SIGN ON MT?                        ENTER SUBROUTINE
          25703            9        4   1  0              0                                                        SELECT
          25704    5       1        0   1  0              0                STORE SERIAL                            TRANSFER
          25705            9       50   2  0              0                'PASS 0' IND                            SELECT
          25706    71      257     35   0  0              0        257     >REPORT                                 JUMP IF A != 0
          25707    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25708    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25709    71      257     46   0  0              0        257     >YES(SINGLE-LINE DELETE)                JUMP IF A != 0
          25710            9       50   2  0              0                PASS 0 IND                              SELECT
  Source image: P1030217.JPG
          25711    71      257     35   0  0              0        257     >MOD REJECTED                           JUMP IF A != 0
          25712            27       1   0  0              0                                                        SELECT
          25713    70      257     16   0  0              0        257     >1 RECORD/BLOCK                         JUMP IF A == 0
          25714                     4   2  8              0                                                        SELECT
          25715    76      257     17   0  0              0        257                                             JUMP unconditional
    25713>25716            7        6   2  0              0                MT SERIAL                               SELECT
    25715>25717    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25718    70      257     20   0  0              0        257     >DIRECTIVE DELETED                      JUMP IF A == 0
          25719    80      220      2   0  0              0        220     >SET'PRINT PROCEDURE'                   ENTER SUBROUTINE
    25734>                                                                                                         
    25718>25720    80      302      2   0  0              0        302                                             ENTER SUBROUTINE
          25721    80      299      2   0  0              0        299     >GET NEXT RECORD                        ENTER SUBROUTINE
          25722            27       1   0  0              0                >TEST END                               SELECT
          25723    70      257     26   0  0              0        257                                             JUMP IF A == 0
          25724                     4   2  8              0                                                        SELECT
          25725    76      257     27   0  0              0        257                                             JUMP unconditional
    25723>25726            7        6   2  0              0                MT SERIAL                               SELECT
    25725>25727    2       1        2   2  0              0                PT SERIAL                               SUBTRACT
          25728    71      257     34   0  0              0        257                                             JUMP IF A != 0
          25729    80      302      2   0  0              0        302     >GET NEXT MT RECORD                     ENTER SUBROUTINE
          25730    80      292      2   0  0              0        292     >READ PT(NEXT DIRECTIVE)                ENTER SUBROUTINE
          25731    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25732    71      253      4   0  0              0        253     >YES                                    JUMP IF A != 0
          25733    76      257     35   0  0              0        257     >REJECT                                 JUMP unconditional
    25728>25734    73      257     20   0  0              0        257     >LOOP                                   JUMP IF A < 0
    25733>                                                                                                         
    25711>                                                                                                         
    25706>25735    10               0   0  0             54                'D'                 REPORT              SELECT LITERAL
    25635>25736    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25737    124     318     22   0  1              0        318                                             modify address of next
          25738    124     305     10   0  1              0        305                                             modify address of next
          25739    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25740            27       1   0  0              0                                                        SELECT
          25741    70      257     44   0  0              0        257     >1 RECORD/BLOCK                         JUMP IF A == 0
          25742    34               4   1  8              0                                                        SET (N) IN B
          25743    76      255      7   0  0              0        255                                             JUMP unconditional
    25741>25744    34      7        6   1  0              0                SERIAL BEING DELETED                    SET (N) IN B
          25745    76      255      7   0  0              0        255     >REPORT                                 JUMP unconditional
    25709>25746            27       1   0  0              0                                                        SELECT
          25747    70      257     50   0  0              0        257                                             JUMP IF A == 0
          25748                     4   2  8              0                                                        SELECT
          25749    76      257     51   0  0              0        257                                             JUMP unconditional
    25747>25750            7        6   2  0              0                                                        SELECT
    25749>25751    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25752    70      257     54   0  0              0        257                                             JUMP IF A == 0
          25753    80      220      2   0  0              0        220                                             ENTER SUBROUTINE
    25761>                                                                                                         
    25752>25754    80      302      2   0  0              0        302     >GET RECORD AFTER DELETING ONE          ENTER SUBROUTINE
          25755            27       1   0  0              0                                                        SELECT
          25756    70      257     59   0  0              0        257                                             JUMP IF A == 0
          25757                     4   2  8              0                                                        SELECT
          25758    76      257     60   0  0              0        257                                             JUMP unconditional
    25756>25759            7        6   2  0              0                                                        SELECT
    25758>25760    2       1        0   2  0              0                PT SERIAL FOR DELETION                  SUBTRACT
          25761    70      257     54   0  0              0        257     >DELETE ALL BLOCKS THIS SERIAL          JUMP IF A == 0
          25762    76      253      2   0  0              0        253                                             JUMP unconditional
                                                                                                                   
          25800    PROCR   258       258     ENTRY TO 'UNPACK 'SR TO AVOID CLEARING SEC 1                          
          25802    81      258      2   0  0              0        258                                             START OF SUBROUTINE
          25803    0       258      2   0  0              0        258                                             SELECT
  Source image: P1030218.JPG
          25804    5       284      2   0  0              0        284     PLANT LINK                              TRANSFER
          25805    76      284      4   0  0              0        284     AVOID BULK CLEAR                        JUMP unconditional
                                                                                                                   
          25900    PROCR   259       259     STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS                           
          25902    81      259      2   0  0              0        259     (B)=REPORT WORD                         START OF SUBROUTINE
          25903    124     318     22   0  1              0        318                                             modify address of next
          25904    124     305      2   0  1              0        305                                             modify address of next
          25905            29      15   0  0              0                LAST 2½ CHARS ANNOTATION                SELECT
          25906    2       318     27   0  0              0        318                                             SUBTRACT
          25907    70      259     14   0  0              0        259     >LINE IGNORED,DON T OVERWRITE WORD      JUMP IF A == 0
          25908    10               0   0  0              0                CLEAR SIGN BIT A                        SELECT LITERAL
          25909    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          25910    124     318     22   0  1              0        318                                             modify address of next
          25911    124     305      2   0  1              0        305                                             modify address of next
          25912    5       29      14   1  0              0                LAST 5 CHARS ANNOTATION                 TRANSFER
          25913    82      259      2   0  0              0        259                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    25907>25914    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          25915    124     318     22   0  1              0        318                                             modify address of next
          25916    124     305      2   0  1              0        305                                             modify address of next
          25917    5       29      12   1  0              0                                                        TRANSFER
          25918    82      259      2   0  0              0        259                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          26000    PROCR   260       260     CONSTANTS ROUTINE                                                     
          26001     NOTES          RADIX                                                                           SELECT
    22213>26002    5       12      69   0  0              0                                                        TRANSFER
          26003    5       12      66   1  0              0                CLEAR INDICATOR                         TRANSFER
          26004    5       12      70   0  0              0                                                        TRANSFER
          26005    84      495      2   0  0              0        495     CLEAR WL=SWITCH                         SET SWITCH(ES) AT VARIABLE VALUE
          26006    91      12      66   0  2              0                CLEAR R2                                SET MODIFICATION REGISTER AT VARIABLE
          26007    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          26008    C                0   0  0              5                                                        
          26009    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          26010    C                0   0  0             18                                                        
          26011    54      94       0   0  0             60                CLEAR UNPACK AREA                       BULK CLEAR
          26012    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26013    34      1        6   1  0              0                FIRST WORD                              SET (N) IN B
          26014            12      33   0  0              0                NON ZERO IF EX PT                       SELECT
          26015    5       12      70   0  0              0                SET 'NE FOUND' IND                      TRANSFER
          26016    76      261      3   0  0              0        261                                             JUMP unconditional
    26311>                                                                                                         
    26339>26017    80      295      2   0  0              0        295     >IGNORE CONST                           ENTER SUBROUTINE
                                                                                                                   
          26100    PROCR   261       261                                                                           
          26101     NOTES          RADIX                                                                           SELECT
    26110>                                                                                                         
    26116>                                                                                                         
    26321>                                                                                                         
    26332>                                                                                                         
    26336>                                                                                                         
    26362>                                                                                                         
    26403>                                                                                                         
    26413>                                                                                                         
    26416>                                                                                                         
    26454>26102    80      274      2   0  0              0        274     >GET NEXT CHAR                          ENTER SUBROUTINE
    26016>26103    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          26104    3       12      88   1  0              0                                                        COPY
          26105    12               0   0  0             7:                                                        SUBTRACT LITERAL
          26106    70      261     12   0  0              0        261     >NE                                     JUMP IF A == 0
          26107    12               0   0  0              1                                                        SUBTRACT LITERAL
          26108    70      265      2   0  0              0        265     >BE,STORE NE AND END                    JUMP IF A == 0
  Source image: P1030219.JPG
          26109            12      70   0  0              0                                                        SELECT
          26110    71      261      2   0  0              0        261     >NO, DON T STORE CHAR                   JUMP IF A != 0
          26111    76      261     17   0  0              0        261     >STORE AND PROCESS                      JUMP unconditional
    26106>26112            12      70   0  0              0                'NE FOUND' IND                          SELECT
          26113    70      265      2   0  0              0        265     >YES, STORE NE AND END                  JUMP IF A == 0
          26114    5       12      70   0  0              0                                                        TRANSFER
          26115    5       12      70   0  0              0                CLEAR                                   TRANSFER
          26116    76      261      2   0  0              0        261     >GNC                                    JUMP unconditional
    26111>26117            12      88   0  0              0                                                        SELECT
          26118    5       94       0   0  2              0                STORE THIS CHAR                         TRANSFER
                                                                                                                   
          26200    PROCR   262       262                                                                           
          26201     NOTES          RADIX                                                                           SELECT
          26202    96               0   0  2              0                                                        SELECT MODIFIER
          26203    94      262      4   0  2              1        262                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26203>26204    71      262     21   0  0              0        262     >NOT FIRST CHAR IN LINE                 JUMP IF A != 0
          26205            12      88   0  0              0                THIS CHAR                               SELECT
          26206    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26207    70      262     23   0  0              0        262     >'('                                    JUMP IF A == 0
          26208    83      263     10   0  0              5        263     IGNORE'('                               SET SWITCH(ES) AT LITERAL VALUE
          26209    05      94      60   0  0              0                                                        TRANSFER
          26210    0       94      61   0  0              0                SF CTR IN DIRECTIVE LINE                SELECT
          26211    70      262     19   0  0              0        262     >WRONG                                  JUMP IF A == 0
          26212    84      267      2   0  0              0        267     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          26213    C       94      62   0  0              0                                                        
          26214    0       94      62   0  0              0                SWITCH FOR FIRST SUBFIELD               SELECT
          26215    12               0   0  0              5                                                        SUBTRACT LITERAL
          26216    71      262     21   0  0              0        262     >NOT REL ADDRESS                        JUMP IF A != 0
          26217    83      495      2   0  0              1        495     SET WL=1                                SET SWITCH(ES) AT LITERAL VALUE
          26218    76      262     21   0  0              0        262                                             JUMP unconditional
    26317>                                                                                                         
    26328>                                                                                                         
    26351>                                                                                                         
    26447>                                                                                                         
    26211>26219    83      263     10   0  0              1        263                                             SET SWITCH(ES) AT LITERAL VALUE
          26220    80      263     10   0  0              0        263     >IGNORE UNDIRECTED CONST                ENTER SUBROUTINE
    26218>                                                                                                         
    26216>                                                                                                         
    26204>26221            12      88   0  0              0                >CLEAR OUT ALL DETAILS                  SELECT
          26222    76      263     10   0  0              0        263     >SET SWITCH AT 2                        JUMP unconditional
    26207>26223    80      263     10   0  0              0        263                                             ENTER SUBROUTINE
          26224    76      263     20   0  0              0        263     CLEAR DETAILS                           JUMP unconditional
                                                                                                                   
          26300    PROCR   263       263                                                                           
          26301     NOTES          RADIX                                                                           SELECT
          26302    81      263     10   0  0              0        263                                             START OF SUBROUTINE
          26303    5       94      60   1  0              0                                                        TRANSFER
          26304    5       94      62   1  0              0                                                        TRANSFER
          26305    5       94      64   1  0              0                                                        TRANSFER
          26306    5       94      66   1  0              0                                                        TRANSFER
          26307    5       94      68   1  0              0                                                        TRANSFER
          26308    5       94      70   1  0              0                                                        TRANSFER
          26309    82      263     10   0  0              0        263                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    26222>26310    85      263     10   0  0              0        263                                             SWITCH R
          26311    C       260     17   0  0              0        260     >IGNORE                                 
          26312    C       263     40   0  0              0        263     >PREVIOUS WAS'C' DIRECTIVE LETTER EXPECT
          26313    C       264     39   0  0              0        264     >')' EXPECTED                           
          26314    C       263     16   0  0              0        263     >',' FORBIDDEN, '(' ALLOWED             
          26315    C       263     22   0  0              0        263     >'('FORBIDDEN ','ALLOWED                
    26314>26316    12               0   0  0             7+                COMMA                                   SUBTRACT LITERAL
  Source image: P1030220.JPG
          26317    70      262     19   0  0              0        262     >IGNORE                                 JUMP IF A == 0
          26318    11               0   0  0              2                                                        ADD LITERAL
          26319    71      264      2   0  0              0        264     >CHECK CHAR                             JUMP IF A != 0
    26224>26320    83      263     10   0  0              2        263     SET TO EXPECT DIRECTIVE LETTER          SET SWITCH(ES) AT LITERAL VALUE
          26321    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
    26315>26322    12               0   0  0             7+                                                        SUBTRACT LITERAL
          26323    71      263     37   0  0              0        263     >NOT COMMA                              JUMP IF A != 0
          26324    10               0   0  0              2                                                        SELECT LITERAL
          26325    4       94      60   0  0              0                                                        AUGMENT
          26326    124     94      60   0  0              0                SF CTR IN NON-DIRECTIVE LINE            modify address of next
          26327            94      62   0  0              0                SF DETAILS                              SELECT
          26328    70      262     19   0  0              0        262     >IGNORE                                 JUMP IF A == 0
          26329    84      267      2   0  0              0        267                                             SET SWITCH(ES) AT VARIABLE VALUE
          26330    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26331    12               0   0  0              5                                                        SUBTRACT LITERAL
          26332    71      261      2   0  0              0        261     >NOT REL ADDRESS                        JUMP IF A != 0
          26333    96               0   0  2              0                                                        SELECT MODIFIER
          26334    11               0   0  0              1                                                        ADD LITERAL
          26335    84      495      2   0  0              0        495     WL=LOCN OF SEOND CHAR                   SET SWITCH(ES) AT VARIABLE VALUE
          26336    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
    26323>26337    11               0   0  0              2                                                        ADD LITERAL
          26338    71      264      2   0  0              0        264     >NOT'(' CHECK CHAR                      JUMP IF A != 0
          26339    76      260     17   0  0              0        260     >IGNORE,GET NEXT CHAR                   JUMP unconditional
    26312>26340    12               0   0  0             51                                                        SUBTRACT LITERAL
          26341    70      263     59   0  0              0        263     >A                                      JUMP IF A == 0
          26342    12               0   0  0              1                                                        SUBTRACT LITERAL
          26343    70      263     57   0  0              0        263     >B                                      JUMP IF A == 0
          26344    12               0   0  0              1                                                        SUBTRACT LITERAL
          26345    70      263     52   0  0              0        263     >C                                      JUMP IF A == 0
          26346    12               0   0  0              1                                                        SUBTRACT LITERAL
          26347    70      263     58   0  0              0        263     >D                                      JUMP IF A == 0
          26348    12               0   0  0             13                                                        SUBTRACT LITERAL
          26349    70      263     56   0  0              0        263     >P                                      JUMP IF A == 0
          26350    12               0   0  0              2                                                        SUBTRACT LITERAL
          26351    71      262     19   0  0              0        262     >IGNORE, NOT R                          JUMP IF A != 0
    26345>26352    96               0   0  2              0                                                        SELECT MODIFIER
          26353    11               0   0  0              2                                                        ADD LITERAL
          26354    84      495      2   0  0              0        495     WL=LOCN OF SEOND CHAR                   SET SWITCH(ES) AT VARIABLE VALUE
          26355    10               0   0  0              1                RANDC                                   SELECT LITERAL
    26349>26356    11               0   0  0              1                R                                       ADD LITERAL
    26343>26357    11               0   0  0              1                B                                       ADD LITERAL
    26347>26358    11               0   0  0              1                D                                       ADD LITERAL
    26341>26359    11               0   0  0              1                A                                       ADD LITERAL
          26360    84      267      2   0  0              0        267     SET CHECKING SWITCH                     SET SWITCH(ES) AT VARIABLE VALUE
          26361    83      263     10   0  0              3        263     SET TO EXPECT ')'                       SET SWITCH(ES) AT LITERAL VALUE
          26362    76      261      2   0  0              0        261     >GET NEST CHAR                          JUMP unconditional
                                                                                                                   
          26400    PROCR   264       264                                                                           
          26401     NOTES          RADIX                                                                           SELECT
    26338>                                                                                                         
    26319>26402    85      267      2   0  0              0        267     CHECK SWITCH                            SWITCH R
          26403    C       261      2   0  0              0        261     >A,GNC                                  
          26404    C       264      8   0  0              0        264     >D                                      
          26405    C       264     17   0  0              0        264     >B                                      
          26406    C       264     21   0  0              0        264     >P                                      
          26407    C       264     26   0  0              0        264     >R                                      
    26420>                                                                                                         
    26422>                                                                                                         
    26424>                                                                                                         
    26432>                                                                                                         
  Source image: P1030221.JPG
    26404>26408    0       12      88   0  0              0                                    DECIMAL             SELECT
          26409    30               0   0  0              1-               CONTROL                                 SHIFT (A) BY QUARTETS
          26410    12               0   0  0              2                                                        SUBTRACT LITERAL
          26411    70      264     14   0  0              0        264     >REPORT *                               JUMP IF A == 0
          26412    12               0   0  0              3                                                        SUBTRACT LITERAL
          26413    73      261      2   0  0              0        261     >OK                                     JUMP IF A < 0
    26419>                                                                                                         
    26425>                                                                                                         
    26411>26414    10               0   0  0             5‼                *                                       SELECT LITERAL
          26415    5       1       44   1  0              0                                                        TRANSFER
          26416    76      261      2   0  0              0        261                                             JUMP unconditional
    26438>                                                                                                         
    26443>                                                                                                         
    26446>                                                                                                         
    26405>26417    0       12      88   2  0              0                BASIC               BINARY              SELECT
          26418    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          26419    72      264     14   0  0              0        264     >REPORT                                 JUMP IF A >= 0
          26420    76      264      8   0  0              0        264     >CHECK CONTROL                          JUMP unconditional
    26406>26421    0       12      88   2  0              0                BASIC               PATTERN             SELECT
          26422    70      264      8   0  0              0        264     >OK                                     JUMP IF A == 0
          26423    12               0   0  0              1                                                        SUBTRACT LITERAL
          26424    70      264      8   0  0              0        264     >OK                                     JUMP IF A == 0
          26425    76      264     14   0  0              0        264     >REPORT                                 JUMP unconditional
    26407>26426            12      88   0  0              0                CAHR                RELATIVE ADDRESS    SELECT
          26427    12               0   0  0             4:                                                        SUBTRACT LITERAL
          26428    71      264     33   0  0              0        264     >NOT COLON                              JUMP IF A != 0
          26429    0       12      66   0  0              0                                                        SELECT
          26430    5       12      67   0  0              0                12/67=REF,12/66=ITEM                    TRANSFER
          26431    5       12      66   0  0              0                                                        TRANSFER
          26432    76      264      8   0  0              0        264     >CHECK CONTROL                          JUMP unconditional
    26428>26433    0       12      66   0  0              0                                                        SELECT
          26434    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          26435    1       12      88   2  0              0                ASSEMBLER REF/ITEM                      ADD
          26436    5       12      66   0  0              0                                                        TRANSFER
          26437    83      263     10   0  0              5        263     INHIBIT ANOTHER DIRECTIVE               SET SWITCH(ES) AT LITERAL VALUE
          26438    76      264     17   0  0              0        264     >CHECK AS BINARY                        JUMP unconditional
    26313>26439    12               0   0  0             7‼                                                        SUBTRACT LITERAL
          26440    70      264     48   0  0              0        264     >IS ')'                                 JUMP IF A == 0
          26441    0       94       2-  0  2              0                                                        SELECT
          26442    12               0   0  0             52                B                                       SUBTRACT LITERAL
          26443    70      264     17   0  0              0        264     LAST CHAR WAS 'B'>CHECK THIS            JUMP IF A == 0
          26444    0       94       3-  0  2              0                                                        SELECT
          26445    12               0   0  0             52                B                                       SUBTRACT LITERAL
          26446    70      264     17   0  0              0        264     ONE BEFORE WAS 'B'>CHECK THIS           JUMP IF A == 0
          26447    76      262     19   0  0              0        262     NEITHER WAS 'B'>IGNORE                  JUMP unconditional
    26440>26448    86      267      2   0  0              0        267     CHECK SWITCH                            SELECT SWITCH R
          26449    124     94      61   0  0              0                CTR IN DIRECTIVE LINE                   modify address of next
          26450    5       94      62   0  0              0                                                        TRANSFER
          26451    10               0   0  0              2                                                        SELECT LITERAL
          26452    4       94      61   0  0              0                                                        AUGMENT
          26453    83      263     10   0  0              4        263     'COMMA FORBIDDEN'                       SET SWITCH(ES) AT LITERAL VALUE
          26454    76      261      2   0  0              0        261     >GNC                                    JUMP unconditional
                                                                                                                   
          26500    PROCR   265       265     TIDY UP AND REASSEMBLE CONST                                          
          26501     NOTES          RADIX                                                                           SELECT
    26113>                                                                                                         
    26108>26502    10               0   0  0             7:                                                        SELECT LITERAL
          26503    5       94       0   0  2              0                STORE END SIGN                          TRANSFER
          26504    86      263     10   0  0              0        263     DIRECTIVE SWITCH                        SELECT SWITCH R
          26505    12               0   0  0              4                                                        SUBTRACT LITERAL
  Source image: P1030222.JPG
          26506    72      265      8   0  0              0        265     >OK SWITCH SETTINGS                     JUMP IF A >= 0
          26507    80      295      2   0  0              0        295     >IGNORE THIS CONST                      ENTER SUBROUTINE
    26506>26508            94      60   0  0              0                COMMASX2                                SELECT
          26509    70      265     14   0  0              0        265     >OK                                     JUMP IF A == 0
          26510    11               0   0  0              2                                                        ADD LITERAL
          26511    2       94      61   0  0              0                DIRECTIVE CTR                           SUBTRACT
          26512    70      265     14   0  0              0        265     >OK                                     JUMP IF A == 0
          26513    80      295      2   0  0              0        295     >IGNORE THIS CONST                      ENTER SUBROUTINE
    26512>                                                                                                         
    26509>26514            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26515    12               0   0  0              +                                                        SUBTRACT LITERAL
          26516    73      265     18   0  0              0        265     >OK, NOT MORE THAN 5                    JUMP IF A < 0
          26517    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    26516>26518    96               0   0  2              0                                                        SELECT MODIFIER
          26519    5       12      70   0  0              0                TOT NO OF CHARS                         TRANSFER
          26520    91               0   0  2              0                CLEAR BOTH                              SET MODIFICATION REGISTER AT VARIABLE
          26521    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26522    86      495      2   0  0              0        495                                             SELECT SWITCH R
          26523    70      265     44   0  0              0        265     >NO REL ADDRESS IN CONST                JUMP IF A == 0
          26524    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26525    0       12      67   0  0              0                REF                                     SELECT
          26526    12               0   0  0            100                                                        SUBTRACT LITERAL
          26527    73      265     44   0  0              0        265     >SECTION                                JUMP IF A < 0
          26528    12               0   0  0            899                                                        SUBTRACT LITERAL
          26529    72      265     44   0  0              0        265     >EX RANGE                               JUMP IF A >= 0
          26530    0       12      67   0  0              0                                                        SELECT
          26531    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26532    32               0   0  0              2-               REPLACE 3-DIGIT NUMBER                  SHIFT (AB) BY QUARTETS
          26533    5       94       1-  0  1              0                (FIRST DIGIT ALWAYS NONZERO)            TRANSFER
          26534    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26535    71      265     37   0  0              0        265                                             JUMP IF A != 0
          26536    10               0   0  0             30                                                        SELECT LITERAL
    26535>26537    5       94       0   0  1              0                                                        TRANSFER
          26538    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26539    71      265     41   0  0              0        265                                             JUMP IF A != 0
          26540    10               0   0  0             30                                                        SELECT LITERAL
    26539>26541    5       94       1   0  1              0                                                        TRANSFER
          26542    54      1        6   0  0             18                                                        BULK CLEAR
          26543    76      265     80   0  0              0        265     >ASSEMBLE                               JUMP unconditional
    26529>                                                                                                         
    26527>                                                                                                         
    26523>26544    0       12      33   0  0              0                                                        SELECT
          26545    70      266     17   0  0              0        266     >MT                                     JUMP IF A == 0
          26546    54      1        6   0  0             18                CLEAR 1/6'-1/22'=EDIT AREA              BULK CLEAR
          26547    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          26548    C       265     80   0  0              0        265     >PT                                     
          26549    C       265     50   0  0              0        265     >CARDS                                  
    26549>26550            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26551    12               0   0  0              4                                                        SUBTRACT LITERAL
          26552    72      265     69   0  0              0        265     >MIXED CONST                            JUMP IF A >= 0
          26553    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26554    12               0   0  0              1                                                        SUBTRACT LITERAL
          26555    71      265     69   0  0              0        265     >NOT ALPHA                              JUMP IF A != 0
          26556            94       0   0  0              0                FIRST CHAR                              SELECT
          26557    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26558    70      265     60   0  0              0        265     >'('                                    JUMP IF A == 0
          26559    10               0   0  0              3-                                                       SELECT LITERAL
    26558>26560    11               0   0  0              3                                                        ADD LITERAL
          26561    17      12      90   0  0              3                LONG/SHORT CTR                          MULTIPLY LITERAL and ADD
          26562    11               0   0  0        1.00002                END VALUE 30                            ADD LITERAL
  Source image: P1030223.JPG
          26563    3       12      70   0  0              0                NEW CONSTANTS LENGTH                    COPY
          26564    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26565    10               0   0  0             7:                                                        SELECT LITERAL
    26567>26566    5       94       0   0  1              0                                                        TRANSFER
          26567    94      265     66   0  1              1        265     >CLEAR REST OF CONSTANT                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26568    76      265     80   0  0              0        265                                             JUMP unconditional
    26555>                                                                                                         
    26552>26569    90               0   0  1             28                                                        SET MODIFICATION REGISTER AT LITERAL
          26570    C                0   0  0              0                                                        
    26573>26571            94       0   0  1              0                                                        SELECT
          26572    71      265     74   0  0              0        265     >FIRST NONZERO CHAR FROM END            JUMP IF A != 0
          26573    94      265     71   0  1              1-       265                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26572>26574    10               0   0  0             7:                                                        SELECT LITERAL
          26575    5       94       1   0  1              0                SET NEW CONST END                       TRANSFER
          26576    5       94      29   0  0              0                CLEAR OLD END                           TRANSFER
          26577    96               0   0  1              0                                                        SELECT MODIFIER
          26578    11               0   0  0              1                                                        ADD LITERAL
          26579    5       12      70   0  0              0                NEW NUMBER OF CHARS                     TRANSFER
    26616>                                                                                                         
    26568>                                                                                                         
    26548>                                                                                                         
    26543>26580            94       0   0  2              0                                                        SELECT
                                                                                                                   
          26600    PROCR   266       266                                                                           
          26601     NOTES          RADIX                                                                           SELECT
          26602    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26603    1       94       1   0  2              0                                                        ADD
          26604    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26605    1       94       2   0  2              0                                                        ADD
          26606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26607    1       94       3   0  2              0                                                        ADD
          26608    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26609    1       94       4   0  2              0                                                        ADD
          26610    5       1        6   1  3              0                STORE NEXT WORD OF CONST                TRANSFER
          26611    125              2   0  3              0                                                        step on and test
          26612    125              5   0  2              0                                                        step on and test
          26613    96               0   0  2              0                                                        SELECT MODIFIER
          26614    12               0   0  0              1                                                        SUBTRACT LITERAL
          26615    2       12      70   0  0              0                NO OF CHARS                             SUBTRACT
          26616    73      265     80   0  0              0        265     >CYCLE FOR MULTIPLE OF 5                JUMP IF A < 0
    26545>26617            1       42   1  0              0                                                        SELECT
          26618    2       318     26   1  0              0        318                                             SUBTRACT
          26619    71      266     22   0  0              0        266     >OK                                     JUMP IF A != 0
          26620    80      263     10   0  0              0        263     CLEAR ALL DETAILS                       ENTER SUBROUTINE
          26621    76      249      2   0  0              0        249                                             JUMP unconditional
    26619>26622    0       94      61   0  0              0                SF CTR IN DIRECTIVE LINE                SELECT
          26623    12               0   0  0              4                                                        SUBTRACT LITERAL
          26624    72      249      2   0  0              0        249     >CONST IS MIXED OR CONTAINS (E)         JUMP IF A >= 0
          26625    90               0   0  1              0                CLEAR MODIFIER                          SET MODIFICATION REGISTER AT LITERAL
          26626    C                0   0  0              0                /////                                   
          26627            94       0   0  1              0                NEXT CHAR                               SELECT
          26628    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26629    71      267      2   0  0              0        267     >NOT'('                                 JUMP IF A != 0
    26633>26630    0       94       1   0  1              0                CHAR AFTER'('                           SELECT
          26631    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26632    12               0   0  0             7‼                )'                                      SUBTRACT LITERAL
          26633    71      266     30   0  0              0        266                                             JUMP IF A != 0
          26634    94               0   0  1              1                TO SELECT CHAR AFTER DIRECTIVE          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          26700    PROCR   267       267     CONSTANTS SWITCH                                                      
  Source image: P1030224.JPG
          26701     NOTES          RADIX                                                                           SELECT
    26629>26702    85      267      2   0  0              0        267                                             SWITCH R
          26703    C       268      2   0  0              0        268                                             
          26704    C       269      2   0  0              0        269                                             
          26705    C       270      2   0  0              0        270                                             
          26706    C       272      2   0  0              0        272                                             
          26707    C       267      8   0  0              0        267     >RELATIVE ADDRESS                       
    26707>26708            12      67   0  0              0                REF(DEC)                                SELECT
          26709    12               0   0  0           1000                                                        SUBTRACT LITERAL
          26710    72      267     13   0  0              0        267     >REPORT R                               JUMP IF A >= 0
          26711    11               0   0  0            £67                1000-99 BIN RADIX                       ADD LITERAL
          26712    72      267     15   0  0              0        267     >REF IS A PROCR                         JUMP IF A >= 0
    26710>26713    80      225      2   0  0              0        225     >REPORT R                               ENTER SUBROUTINE
          26714    76      249      2   0  0              0        249                                             JUMP unconditional
    26712>26715            12      66   0  0              0                ITEM                                    SELECT
          26716    12               0   0  0             99                                                        SUBTRACT LITERAL
          26717    72      245     21   0  0              0        245     >REPORT I                               JUMP IF A >= 0
          26718    76      249      2   0  0              0        249     >OK                                     JUMP unconditional
                                                                                                                   
          26800    PROCR   268       268     CHECK ALPHA CONSTANTS                                                 
          26801     NOTES          RADIX                                                                           SELECT
    26703>26802    00      12      90   0  0              0                LONG/SHORT CONST INDICATOR              SELECT
          26803    70      268      5   0  0              0        268                                             JUMP IF A == 0
          26804    10               0   0  0              3                                                        SELECT LITERAL
    26803>26805    11               0   0  0              2                                                        ADD LITERAL
    26912>                                                                                                         
    26915>26806    98               0   0  1              0                +MODIFIER=DIRECTIVE LENGTH              ADD MODIFICATION REGISTER TO A
          26807    2       12      70   0  0              0                TOT CHARS IN CONST+1 (INDIRECTIVE)      SUBTRACT
          26808    72      249      2   0  0              0        249     >OK                                     JUMP IF A >= 0
          26809    76      273      2   0  0              0        273     >REPORT*                                JUMP unconditional
                                                                                                                   
          26900    PROCR   269       269     CHECK DECIMAL CONSTANTS                                               
          26901     NOTES          RADIX                                                                           SELECT
    26704>26902    00      12      90   0  0              0                LONG/SHORT CONST INDICATOR              SELECT
          26903    70      269      5   0  0              0        269     >SHORT                                  JUMP IF A == 0
          26904    10               0   0  0              5                                                        SELECT LITERAL
    26903>26905    11               0   0  0              5                                                        ADD LITERAL
    27206>26906    5       12      67   0  0              0                                                        TRANSFER
          26907    124     12      70   0  0              0                CHARS IN CONST                          modify address of next
          26908            94       1-  0  0              0                FINAL BEFORE NE                         SELECT
          26909    12               0   0  0             10                                                        SUBTRACT LITERAL
          26910    70      269     13   0  0              0        269     >ALLOW FOR SIGN                         JUMP IF A == 0
          26911    0       12      67   0  0              0                                                        SELECT
          26912    76      268      6   0  0              0        268     >CHECK                                  JUMP unconditional
    26910>26913    0       12      67   0  0              0                                                        SELECT
          26914    11               0   0  0              1                                                        ADD LITERAL
          26915    76      268      6   0  0              0        268     >CHECK                                  JUMP unconditional
                                                                                                                   
          27000    PROCR   270       270     BINARY NUMBERS                                                        
          27001     NOTES          RADIX                                                                           SELECT
    26705>27002    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          27003    C                0   0  0             11                                                        
    27016>27004            94       0   0  1              0                NEXT CHAR                               SELECT
          27005    12               0   0  0             7:                                                        SUBTRACT LITERAL
          27006    70      271      2   0  0              0        271     >NUMBER END                             JUMP IF A == 0
          27007    11               0   0  0             6:                                                        ADD LITERAL
          27008    70      271      2   0  0              0        271     >MINUS SIGN                             JUMP IF A == 0
          27009    11               0   0  0             10                                                        ADD LITERAL
          27010    5       12      10   1  0              0                STORE CHAR                              TRANSFER
          27011    0       12      66   1  0              0                                                        SELECT
  Source image: P1030225.JPG
          27012    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          27013    1       12      10   2  0              0                BASIC QTT                               ADD
          27014    5       12      66   1  0              0                ASSEMBLE CONST QTT BY QTT               TRANSFER
          27015    94      270     16   0  1              1        270                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    27015>27016    94      270      4   0  2              1        270                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27017    76      273      2   0  0              0        273     >REPORT TOO MANY CHARS                  JUMP unconditional
                                                                                                                   
          27100    PROCR   271       271                                                                           
          27101     NOTES          RADIX                                                                           SELECT
    27008>                                                                                                         
    27006>27102    00      12      90   0  0              0                LONG/SHORT CONST IND                    SELECT
          27103    71      249      2   0  0              0        249                                             JUMP IF A != 0
          27104            12      66   1  0              0                                                        SELECT
          27105    12               0   0  0        1048576                                                        SUBTRACT LITERAL
          27106    72      273      2   0  0              0        273                                             JUMP IF A >= 0
          27107    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          27200    PROCR   272       272     BINARY PATTERN                                                        
          27201     NOTES          RADIX                                                                           SELECT
    26706>27202    00      12      90   0  0              0                LONG/SHORT CONST IND                    SELECT
          27203    70      272      5   0  0              0        272                                             JUMP IF A == 0
          27204    10               0   0  0             14                                                        SELECT LITERAL
    27203>27205    11               0   0  0             14                                                        ADD LITERAL
          27206    76      269      6   0  0              0        269     >CHECK LENGTH VIA DEC                   JUMP unconditional
                                                                                                                   
          27300    PROCR   273       273     ERROR REPORT                                                          
          27301     NOTES          RADIX                                                                           SELECT
    27106>                                                                                                         
    27017>                                                                                                         
    26809>27302    10               0   0  0             5‼                *                                       SELECT LITERAL
          27303    5       1       44   1  0              0                                                        TRANSFER
          27304    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          27400    PROCR   274       274     GET NEXT CHAR OF CONSTANT(IE NEXT WORD)                               
          27401     NOTES          RADIX                                                                           SELECT
          27402    81      274      2   0  0              0        274                                             START OF SUBROUTINE
          27403    10               0   0  0              0                                                        SELECT LITERAL
          27404    94      274     13   0  3              1        274     >HAVE NOT EXHAUSTED 5-CHAR WORD         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27405    94      274     10   0  1              2        274     STEP FOR NEXT WORD,IF PRESENT           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27406    80      295      2   0  0              0        295     >IGNORE, MORE THAN 45 CHAR              ENTER SUBROUTINE
          27407    10               0   0  0             7:                                                        SELECT LITERAL
          27408    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          27409    82      274      2   0  0              0        274                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    27405>27410    90               0   0  3              0                R3 COUNTS A 5-CHAR WORD                 SET MODIFICATION REGISTER AT LITERAL
          27411    C                0   0  0              5                                                        
          27412    34      1        6   1  1              0                NEXT WORD OF CONSTANT                   SET (N) IN B
    27404>27413    82      274      2   0  0              0        274                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27500    PROCR   275       275     ALTERNATIVE ENTRY TO UPDATE ADDRESS                                   
          27502    81      275      2   0  0              0        275                                             START OF SUBROUTINE
          27503    5       12      88   2  0              0                                                        TRANSFER
          27504    0       275      2   0  0              0        275                                             SELECT
          27505    3       274      2   0  0              0        274     SET NONZERO='NOT P'                     COPY
          27506    5       234      2   0  0              0        234                                             TRANSFER
          27507    76      234      5   0  0              0        234     >ENTER                                  JUMP unconditional
                                                                                                                   
          27600    PROCR   276       276     TABLES                                                                
          27601     NOTES          RADIX                                                                           SELECT
    22212>27602    05      12       3   0  0              0                CLEAR ERROR WL                          TRANSFER
          27603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
  Source image: P1030226.JPG
          27604    C                0   0  0              8                                                        
    27621>27605    0       1       22   0  2              0                ITEM                                    SELECT
          27606    05      1       10   0  0              0                                                        TRANSFER
          27607    00      1       20   1  2              0                REF(NUM)                                SELECT
          27608    80      275      2   0  0              0        275     >UPDATE ADDRESS                         ENTER SUBROUTINE
          27609    00      1       10   0  0              0                NEW ITEM                                SELECT
          27610    05      1       22   0  2              0                                                        TRANSFER
          27611    00      12       4   0  0              0                NEW REF                                 SELECT
          27612    5       1       20   0  2              0                                                        TRANSFER
          27613    80      277      2   0  0              0        277     CHECK REF                               ENTER SUBROUTINE
          27614            1       19   0  0              0                DISC                                    SELECT
          27615    70      276     21   0  0              0        276     >                                       JUMP IF A == 0
          27616    10               0   0  0              1                1                                       SELECT LITERAL
          27617    32               0   0  0             10-               >B                                      SHIFT (AB) BY QUARTETS
          27618    36      1       10   0  0              0                ITEM                                    COLLATE AND ADD
          27619    70      276     21   0  0              0        276     >EVEN                                   JUMP IF A == 0
          27620    80      226      2   0  0              0        226     >REPORT I                               ENTER SUBROUTINE
    27619>                                                                                                         
    27615>27621    94      276      5   0  2              4        276                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27622    76      278      2   0  0              0        278                                             JUMP unconditional
                                                                                                                   
          27700    PROCR   277       277     SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES                       
          27701     NOTES          RADIX                                                                           SELECT
          27702    81      277      2   0  0              0        277                                             START OF SUBROUTINE
          27703    83      173      2   0  0              1        173                                             SET SWITCH(ES) AT LITERAL VALUE
          27704            12       4   0  0              0                REF TO BE CHECKED                       SELECT
          27705    70      277     14   0  0              0        277     OK                                      JUMP IF A == 0
          27706    12               0   0  0            100                                                        SUBTRACT LITERAL
          27707    72      277     12   0  0              0        277     >NOT SECTION                            JUMP IF A >= 0
    27713>27708    80      225      2   0  0              0        225     >REPORT R                               ENTER SUBROUTINE
          27709    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          27710    83      173      2   0  0              2        173     IGNORE ANY MORE 'VALTHIS REF FOR        SET SWITCH(ES) AT LITERAL VALUE
          27711    76      277     14   0  0              0        277                                             JUMP unconditional
    27707>27712    12               0   0  0            900                                                        SUBTRACT LITERAL
          27713    72      277      8   0  0              0        277     >REF>999,IGNORE                         JUMP IF A >= 0
    27711>                                                                                                         
    27705>27714    82      277      2   0  0              0        277                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27800    PROCR   278       278     TABLE SWITCH                                                          
          27801     NOTES          RADIX                                                                           SELECT
    27622>27802    0       1       19   0  0              0                DISC                                    SELECT
          27803    73      282     18   0  0              0        282     >REPORT T5                              JUMP IF A < 0
          27804    12               0   0  0              3                                                        SUBTRACT LITERAL
          27805    72      282     18   0  0              0        282                                             JUMP IF A >= 0
          27806    0       1       20   0  0              0                FIRST REF                               SELECT
          27807    70      282     24   0  0              0        282     >REPORT T1                              JUMP IF A == 0
          27808    85      278      8   0  0              0        278                                             SWITCH R
          27809    C       279      2   0  0              0        279                                             
          27810    C       281      2   0  0              0        281                                             
          27811    C       279     10   0  0              0        279     >TYPE 3                                 
          27812    C       281      2   0  0              0        281                                             
          27813    C       249      2   0  0              0        249                                             
                                                                                                                   
          27900    PROCR   279       279     TYPES 1 AND 3                                                         
          27901     NOTES          RADIX          EDIT AND UNPACK FIXED                                            SELECT
    27809>27902            1       12   0  0              0                NO OF CHARS                             SELECT
          27903    1       1       14   0  0              0                SPACES                                  ADD
          27904    4       12       5   0  0              0                TOTAL FOR TABLE                         AUGMENT
          27905            1       16   0  0              0                SIGN                                    SELECT
          27906    12               0   0  0              2                                                        SUBTRACT LITERAL
  Source image: P1030227.JPG
          27907    71      279     10   0  0              0        279     >NOT SEPARATE CHARACTER                 JUMP IF A != 0
          27908    10               0   0  0              1                                                        SELECT LITERAL
          27909    4       12       5   0  0              0                STEP TOTAL                              AUGMENT
    27907>                                                                                                         
    27811>27910            1       24   0  0              0                SECOND REF                              SELECT
          27911    34      1       26   0  0              0                SECOND ITEM                             SET (N) IN B
          27912    75      282     22   0  0              0        282     >REPORT T3                              JUMP IF AB != 0
          27913            1       11   0  0              0                                                        SELECT
          27914    71      282     16   0  0              0        282     >'UNPACK TO BE' IS SET                  JUMP IF A != 0
          27915    0       1       19   0  0              0                DISC                                    SELECT
          27916    12               0   0  0              1                                                        SUBTRACT LITERAL
          27917    70      279     19   0  0              0        279                                             JUMP IF A == 0
          27918    10               0   0  0              5-                                                       SELECT LITERAL
    27917>27919    11               0   0  0             10                                                        ADD LITERAL
          27920    2       1       12   0  0              0                CHARS                                   SUBTRACT
          27921    2       1       13   0  0              0                DISCARDS                                SUBTRACT
          27922    73      282     14   0  0              0        282     >IN CONSISTENT WITH SOURCE LENGTH       JUMP IF A < 0
          27923    1       1       12   0  0              0                                                        ADD
          27924    1       1       13   0  0              0                                                        ADD
          27925    2       1       15   0  0              0                ZEROS                                   SUBTRACT
          27926    73      282      8   0  0              0        282     >MORE ZEROS THAN SOURCE                 JUMP IF A < 0
                                                                                                                   
          28000    PROCR   280       280                                                                           
          28001     NOTES          RADIX                                                                           SELECT
          28002            1       14   0  0              0                                                        SELECT
          28003    12               0   0  0             16                                                        SUBTRACT LITERAL
          28004    72      282     10   0  0              0        282     >TOO MANY SPACES                        JUMP IF A >= 0
          28005    0       1       12   0  0              0                CHARS                                   SELECT
          28006    70      282     14   0  0              0        282     >REPORT'T7'                             JUMP IF A == 0
          28007    0       1       19   0  0              0                DISC                                    SELECT
          28008    12               0   0  0              2                                                        SUBTRACT LITERAL
          28009    71      280     12   0  0              0        280     >NOT ALPHA                              JUMP IF A != 0
          28010    0       1       15   0  0              0                ZEROS                                   SELECT
          28011    71      282      8   0  0              0        282     >REPORT'T10'                            JUMP IF A != 0
    28009>28012            1       17   0  0              0                STERLING INDICTOR                       SELECT
          28013    71      280     17   0  0              0        280                                             JUMP IF A != 0
          28014    2       12      63   0  0              0                STERLING CTR                            SUBTRACT
          28015    70      280     24   0  0              0        280     >OK                                     JUMP IF A == 0
          28016    76      280     38   0  0              0        280     >REPORT 'T12'                           JUMP unconditional
    28013>28017    12               0   0  0              1                                                        SUBTRACT LITERAL
          28018    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28019            12      63   0  0              0                                                        SELECT
          28020    12               0   0  0              2                                                        SUBTRACT LITERAL
          28021    70      280     23   0  0              0        280                                             JUMP IF A == 0
          28022    11               0   0  0              3                                                        ADD LITERAL
    28021>28023    5       12      63   0  0              0                                                        TRANSFER
    28015>28024            1       18   0  0              0                LAST TABLE ENTRY IND                    SELECT
          28025    3       12       6   0  0              0                COPY TO WL                              COPY
          28026    70      249      2   0  0              0        249                                             JUMP IF A == 0
          28027    12               0   0  0              1                                                        SUBTRACT LITERAL
          28028    71      282      2   0  0              0        282     >'T13' IF LTE WRONG                     JUMP IF A != 0
          28029            12       5   0  0              0                CHARACTERS EDITED                       SELECT
          28030    1       12       5   0  0              0                                                        ADD
          28031    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          28032    70      280     35   0  0              0        280     >MULT OF 5                              JUMP IF A == 0
          28033    10               0   0  0         727464                'SUM'                                   SELECT LITERAL
          28034    5       1       44   1  0              0                                                        TRANSFER
    28032>28035    5       12       5   0  0              0                CLEAR CTR AT EACH LTE                   TRANSFER
          28036    2       12      63   0  0              0                STERLING INDICATORAS NOT                SUBTRACT
          28037    70      249      2   0  0              0        249     OCCURRED IN 3       CONSECUTIVE LINES   JUMP IF A == 0
  Source image: P1030228.JPG
    28016>28038    4       12      63   0  0              0                CLEAR COUNTER                           AUGMENT
          28039    76      282      4   0  0              0        282     ERROR REPORT        T12                 JUMP unconditional
                                                                                                                   
          28100    PROCR   281       281     CHECK TABLES                                                          
          28101     NOTES          RADIX          TYPES 2 AND 4                                                    SELECT
    27812>                                                                                                         
    27810>28102            1       11   0  0              0                'SINGLE/BE'                             SELECT
          28103    70      281      8   0  0              0        281                                             JUMP IF A == 0
          28104    12               0   0  0              1                                                        SUBTRACT LITERAL
          28105    71      282     16   0  0              0        282                                             JUMP IF A != 0
          28106            1       18   0  0              0                'LAST TABLE ENTRY'                      SELECT
          28107    70      282      2   0  0              0        282                                             JUMP IF A == 0
    28103>28108            1       12   0  0              0                NO OF CHARS                             SELECT
          28109    71      282     14   0  0              0        282                                             JUMP IF A != 0
          28110            1       13   0  0              0                DISCARDS                                SELECT
          28111    71      282     12   0  0              0        282                                             JUMP IF A != 0
          28112            1       14   0  0              0                SPACES                                  SELECT
          28113    71      282     10   0  0              0        282                                             JUMP IF A != 0
          28114            1       15   0  0              0                ZEROS                                   SELECT
          28115    71      282      8   0  0              0        282                                             JUMP IF A != 0
          28116            1       16   0  0              0                SIGN                                    SELECT
          28117    70      281     20   0  0              0        281                                             JUMP IF A == 0
          28118    12               0   0  0              2                                                        SUBTRACT LITERAL
          28119    71      282      6   0  0              0        282                                             JUMP IF A != 0
    28117>28120            1       17   0  0              0                STERLING IND                            SELECT
          28121    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28122    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          28200    PROCR   282       282     MAKE REPORT'T*'                                                       
          28201     NOTES          RADIX                                                                           SELECT
    28107>                                                                                                         
    28028>28202    10               0   0  0              1                T13                                     SELECT LITERAL
          28203    5       12       3   0  0              0                                                        TRANSFER
    28121>                                                                                                         
    28039>                                                                                                         
    28018>28204    10               0   0  0              1                T12                                     SELECT LITERAL
          28205    4       12       3   0  0              0                                                        AUGMENT
    28119>28206    10               0   0  0              1                T11                                     SELECT LITERAL
          28207    4       12       3   0  0              0                                                        AUGMENT
    28115>                                                                                                         
    28011>                                                                                                         
    27926>28208    10               0   0  0              1                T10                                     SELECT LITERAL
          28209    4       12       3   0  0              0                                                        AUGMENT
    28113>                                                                                                         
    28004>28210    10               0   0  0              1                T9                                      SELECT LITERAL
          28211    4       12       3   0  0              0                                                        AUGMENT
    28111>28212    10               0   0  0              1                T8                                      SELECT LITERAL
          28213    4       12       3   0  0              0                                                        AUGMENT
    28109>                                                                                                         
    28006>                                                                                                         
    27922>28214    10               0   0  0              1                T7                                      SELECT LITERAL
          28215    4       12       3   0  0              0                                                        AUGMENT
    28105>                                                                                                         
    27914>28216    10               0   0  0              1                T6                                      SELECT LITERAL
          28217    4       12       3   0  0              0                                                        AUGMENT
    27805>                                                                                                         
    27803>28218    10               0   0  0              1                T5                                      SELECT LITERAL
          28219    4       12       3   0  0              0                                                        AUGMENT
          28220    10               0   0  0              1                T4                                      SELECT LITERAL
          28221    4       12       3   0  0              0                                                        AUGMENT
  Source image: P1030235.JPG
    27912>28222    10               0   0  0              2                T3                                      SELECT LITERAL
          28223    4       12       3   0  0              0                                                        AUGMENT
    27807>28224    10               0   0  0              1                T1                                      SELECT LITERAL
          28225    1       12       3   0  0              0                                                        ADD
          28226    5       12      88   0  0              0                                                        TRANSFER
          28227    52      1       44   0  0              0                                                        EDIT
          28228    C       306      6   0  0              0        306                                             
    23121>28229    10               0   0  0         730000                                                        SELECT LITERAL
          28230    4       1       44   1  0              0                                                        AUGMENT
          28231    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          28300    PROCR   283       283     UNPACK PAPER TAPE PART ONE-DIRECTIVES                                 
          28301     NOTES          RADIX                                                                           SELECT
          28302    81      283      2   0  0              0        283                                             START OF SUBROUTINE
          28303    54      1        0   1  0             46                                                        BULK CLEAR
          28304            12      38   0  0              0                                                        SELECT
          28305    70      285      2   0  0              0        285     >NOT A DIRECTIVE                        JUMP IF A == 0
          28306    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28307    C       283      9   0  0              0        283     P/T                                     
          28308    C       283     31   0  0              0        283     CARDS                                   
    28307>28309    00      92      30   0  0              0                AMEND RUN?                              SELECT
          28310    70      283     13   0  0              0        283     >NO                                     JUMP IF A == 0
          28311    124     311      2   0  2              0        311                                             select literal and division
          28312    76      283     14   0  0              0        283                                             JUMP unconditional
    28310>28313    124     311      4   0  2              0        311                                             select literal and division
    28312>28314    80      325      2   0  0              0        325     UNPACK P/T S/DIR                        ENTER SUBROUTINE
          28315    0       27       5   0  0              0                                                        SELECT
          28316    12               0   0  0              2                                                        SUBTRACT LITERAL
          28317    71      283     28   0  0              0        283     >NOT TABLE                              JUMP IF A != 0
          28318    00      12      38   0  0              0                                                        SELECT
          28319    73      283     28   0  0              0        283     >NOT 'NOTES' OF TABLE                   JUMP IF A < 0
          28320    10               0   0  0              0                S/DIR WAS 'NOTES' OF TABLE              SELECT LITERAL
          28321    05      1        8   1  0              0                & MUST BE UNPACKED DIFFERENTLY          TRANSFER
          28322    00      92      30   0  0              0                                                        SELECT
          28323    70      283     26   0  0              0        283     >INITIAL TRANSLATION                    JUMP IF A == 0
          28324    124     311     10   0  2              0        311                                             select literal and division
          28325    76      283     27   0  0              0        283                                             JUMP unconditional
    28323>28326    124     311     12   0  2              0        311                                             select literal and division
    28325>28327    80      325      2   0  0              0        325     UNPACK CORRECTLY                        ENTER SUBROUTINE
    28339>                                                                                                         
    28342>                                                                                                         
    28506>                                                                                                         
    28606>                                                                                                         
    28609>                                                                                                         
    28614>                                                                                                         
    28319>                                                                                                         
    28317>28328    10               0   0  0              0                                                        SELECT LITERAL
          28329    5       1       44   1  0              0                CLEAR ERROR WL                          TRANSFER
          28330    82      283      2   0  0              0        283                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28308>28331    50      9        8   0  0              0                UNPACK S/DIR FROM CARD                  UNPACK FIXED FIELD DATA
          28332    C       311      4   0  0              0        311                                             
          28333    55      9       18   1  0             16                                                        BULK COPY
          28334    C       1       18   1  0              0                                                        
          28335    00      1        8   1  0              0                                                        SELECT
          28336    30               0   0  0              4                LEFT ALIGN SECTION NO                   SHIFT (A) BY QUARTETS
          28337    05      1        8   1  0              0                                                        TRANSFER
          28338    00      12      38   0  0              0                                                        SELECT
          28339    73      283     28   0  0              0        283     NOT 'NOTES'                             JUMP IF A < 0
          28340            27       5   0  0              0                                                        SELECT
          28341    12               0   0  0              1                                                        SUBTRACT LITERAL
  Source image: P1030236.JPG
          28342    71      283     28   0  0              0        283     >NOT 'PROCR', LEAVE SR                  JUMP IF A != 0
          28343    00      1       18   1  0              0                S/DIR WAS ''NOTES'' OF PROCR            SELECT
          28344    05      1        8   1  0              0                MOVE ''RADIX''                          TRANSFER
          28345    55      9       20   1  0             16                COPY WORDS                              BULK COPY
          28346    C       1       18   1  0              0                                                        
          28347    82      283      2   0  0              0        283                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28400    PROCR   284       284     UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK                         
          28401     NOTES          RADIX                                                                           SELECT
          28402    81      284      2   0  0              0        284                                             START OF SUBROUTINE
          28403    54      1        6   1  0             40                                                        BULK CLEAR
    25805>28404            27       1   0  0              0                                                        SELECT
          28405    71      304      2   0  0              0        304     >MULTI-RECORD BLOCKS                    JUMP IF A != 0
          28406            12      38   0  0              0                                                        SELECT
          28407    70      284     21   0  0              0        284     >NOT DIRECTIVE                          JUMP IF A == 0
          28408    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28409    C       307      2   0  0              0        307                                             
          28410            12      86   0  0              0                                                        SELECT
          28411    70      284     18   0  0              0        284                                             JUMP IF A == 0
          28412            27       5   0  0              0                                                        SELECT
          28413    12               0   0  0              1                                                        SUBTRACT LITERAL
          28414    70      284     46   0  0              0        284     >'PROCR'                                JUMP IF A == 0
          28415    0       7       20   1  0              0                                                        SELECT
          28416    5       1       16   1  0              0                COPY TABLE OR CONST TYPE                TRANSFER
          28417    76      284     46   0  0              0        284                                             JUMP unconditional
    28411>28418    55      7       20   1  0             30                                                        BULK COPY
          28419    C       1       16   1  0              0                                                        
          28420    76      284     45   0  0              0        284                                             JUMP unconditional
    28407>28421    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28422    C       284     31   0  0              0        284     >'PROCR'                                
          28423    C       284     34   0  0              0        284     >'TABLE'                                
          28424    C       284     37   0  0              0        284     >'CONST'                                
          28425    C       284     26   0  0              0        284     'VALUE'=4                               
    28425>28426    55      7        8   2  0             36                R,I+VALUES                              BULK COPY
          28427    C       1        9   0  0              0                                                        
          28428    55      7       44   2  0              6                ANNOTATION                              BULK COPY
          28429    C       1       40   2  0              0                                                        
          28430    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28422>28431    50      7        4   0  0              0                INSTRUCTIONS                            UNPACK FIXED FIELD DATA
          28432    C       308      2   0  0              0        308                                             
          28433    76      284     41   0  0              0        284                                             JUMP unconditional
    28423>28434    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28435    C       309      2   0  0              0        309     UNPACK TABLE ENTRIES                    
          28436    76      284     41   0  0              0        284                                             JUMP unconditional
    28424>28437    55      7       12   1  0             18                CONSTANTS                               BULK COPY
          28438    C       1        6   1  0              0                                                        
          28439            7        4   2  0              0                AMEND IND                               SELECT
          28440    5       1        0   1  0              0                                                        TRANSFER
    28436>                                                                                                         
    28433>28441            12      86   0  0              0                                                        SELECT
          28442    71      284     46   0  0              0        284                                             JUMP IF A != 0
          28443    55      7       32   1  0             18                                                        BULK COPY
          28444    C       1       28   1  0              0                                                        
    28420>28445    5       1       44   1  0              0                CLEAR ERROR         INDICATOR           TRANSFER
    28442>                                                                                                         
    28417>                                                                                                         
    28414>28446    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28500    PROCR   285       285     UNPACK PAPER TAPE PART TWO                                            
          28501     NOTES          RADIX                                                                           SELECT
  Source image: P1030237.JPG
    28305>28502    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28503    C       286      2   0  0              0        286     >'PROCR'                                
          28504    C       286      7   0  0              0        286     >'TABLE'                                
          28505    C       286     10   0  0              0        286     >'CONST'                                
          28506    C       283     28   0  0              0        283     'VALUE'(DUMMY)                          
                                                                                                                   
          28600    PROCR   286       286     UNPACK PAPER TAPE PART THREE                                          
          28601     NOTES          RADIX                                                                           SELECT
    28503>28602    124     312      2   0  2              0        312                                             select literal and division
          28603    80      325      2   0  0              0        325     >INSTRUCTIONS                           ENTER SUBROUTINE
          28604    10               0   0  0              0                                                        SELECT LITERAL
          28605    5       1       20   1  0              0                CLEAR'CLEO'WORD                         TRANSFER
          28606    76      283     28   0  0              0        283                                             JUMP unconditional
    28504>28607    124     313      2   0  2              0        313                                             select literal and division
          28608    80      325      2   0  0              0        325     >TABLE ENTRIES                          ENTER SUBROUTINE
          28609    76      283     28   0  0              0        283                                             JUMP unconditional
    28505>28610    124     314      2   0  2              0        314                                             select literal and division
          28611    80      325      2   0  0              0        325     >CONSTANTS                              ENTER SUBROUTINE
          28612    50      9        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28613    C       310      8   0  0              0        310                                             
          28614    76      283     28   0  0              0        283                                             JUMP unconditional
                                                                                                                   
          28700    PROCR   287       287     TEST WORD IN ACCUMULATOR                                              
          28701     NOTES          RADIX          IS A STACKING WORD                                               SELECT
          28702    81      287      2   0  0              0        287                                             START OF SUBROUTINE
          28703    2       318      4   1  0              0        318     'CONST'                                 SUBTRACT
          28704    73      287     35   0  0              0        287     >NOT DIRECTIVE                          JUMP IF A < 0
          28705    70      287     28   0  0              0        287                                             JUMP IF A == 0
          28706    1       318      4   1  0              0        318                                             ADD
          28707    02      318     12   1  0              0        318     'NOTES'                                 SUBTRACT
          28708    71      287     14   0  0              0        287     >NO                                     JUMP IF A != 0
          28709            27       5   0  0              0                                                        SELECT
          28710    12               0   0  0              3                                                        SUBTRACT LITERAL
          28711    70      287     35   0  0              0        287     >NOTES FOLLOWING 'CONST'-NOT DIRECTIVE  JUMP IF A == 0
          28712    10               0   0  0             10                SET (12/38)>0                           SELECT LITERAL
          28713    76      287     33   0  0              0        287                                             JUMP unconditional
    28708>28714    01      318     12   1  0              0        318     'NOTES'                                 ADD
          28715    02      318      6   1  0              0        318     'PROCR'                                 SUBTRACT
          28716    70      287     30   0  0              0        287     >YES                                    JUMP IF A == 0
          28717    73      287     35   0  0              0        287     >NOT A DIRECTIVE                        JUMP IF A < 0
          28718    01      318      6   1  0              0        318     'PROCR'                                 ADD
          28719    02      318      2   1  0              0        318     'TABLE'                                 SUBTRACT
          28720    70      287     29   0  0              0        287     >YES                                    JUMP IF A == 0
          28721    73      287     35   0  0              0        287     >NOT A DIRECTIVE                        JUMP IF A < 0
          28722    01      318      2   1  0              0        318     'TABLE'                                 ADD
          28723    02      318     28   1  0              0        318     'VALUE'                                 SUBTRACT
          28724    71      287     35   0  0              0        287     >HENCE NOT A DIRECTIVE                  JUMP IF A != 0
          28725            12      33   0  0              0                                                        SELECT
          28726    71      287     35   0  0              0        287                                             JUMP IF A != 0
          28727    10               0   0  0              1                >PT IN,'VALUE' ISNT A DIRECTIVE         SELECT LITERAL
    28705>28728    11               0   0  0              1                                                        ADD LITERAL
    28720>28729    11               0   0  0              1                (CONST)                                 ADD LITERAL
    28716>28730    11               0   0  0              1                (TABLE)                                 ADD LITERAL
          28731    5       27       5   0  0              0                (PROCR)                                 TRANSFER
          28732    12               0   0  0             10                                                        SUBTRACT LITERAL
    28713>28733    05      12      38   0  0              0                SET<0 IF PROCR/TABLE/CONST/VALUE        TRANSFER
          28734    82      287      2   0  0              0        287                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28726>                                                                                                         
    28724>                                                                                                         
    28721>                                                                                                         
    28717>                                                                                                         
    28711>                                                                                                         
  Source image: P1030238.JPG
    28704>28735    10               0   0  0              0                                                        SELECT LITERAL
          28736    05      12      38   0  0              0                                                        TRANSFER
          28737    82      287      2   0  0              0        287                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28800    PROCR   288       288     SQUASH NEXT RECORD IN SEC 29,COPY TO 8,WRITE 8 IF FULL                
          28801     NOTES          RADIX                                                                           SELECT
          28802    81      288      2   0  0              0        288                                             START OF SUBROUTINE
          28803            12     110   0  0              0                CARD SER ERROR                          SELECT
          28804    70      288     11   0  0              0        288     >NO ERROR                               JUMP IF A == 0
          28805            12     111   0  0              0                                                        SELECT
          28806    70      288     10   0  0              0        288                                             JUMP IF A == 0
          28807    124     318     22   0  1              0        318                                             modify address of next
          28808    124     305     10   0  1              0        305                                             modify address of next
          28809    5       29       0   1  0              0                WRONG SERIAL TO ERROR REPORT WORD       TRANSFER
    28806>28810    5       12     110   0  0              0                                                        TRANSFER
    28804>28811    90               0   0  1             44                                                        SET MODIFICATION REGISTER AT LITERAL
          28812    C                0   0  0              2                                                        
    28815>28813            29       2-  1  1              0                LAST WORD                               SELECT
          28814    71      288     16   0  0              0        288     >NON-ZERO                               JUMP IF A != 0
          28815    94      288     13   0  1              2-       288                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    28814>28816    96               0   0  1              0                CONTENTS OF MODIFIER                    SELECT MODIFIER
          28817    3       29       0   2  0              0                REC LENGTH                              COPY
          28818    10               0   0  0             90                TOTAL ROOM SEC 8                        SELECT LITERAL
          28819    2       317     12   0  0              0        317                                             SUBTRACT
          28820    2       29       0   2  0              0                CURRENT RECORD LENGTH                   SUBTRACT
          28821    72      288     30   0  0              0        288     >+VE OR ZERO                            JUMP IF A >= 0
    32405>28822            317     12   0  0              0        317                                             SELECT
          28823    3       8        4   2  0              0                BLOCK LENGTH                            COPY
          28824    91      317     12   0  1              0        317                                             SET MODIFICATION REGISTER AT VARIABLE
          28825            318     10   1  0              0        318     BE WORD                                 SELECT
          28826    5       8        6   1  1              0                                                        TRANSFER
          28827    80      290      2   0  0              0        290     >WRITE                                  ENTER SUBROUTINE
          28828    54      8        4   1  0             46                                                        BULK CLEAR
          28829    5       317     12   0  0              0        317     CLEAR                                   TRANSFER
    28821>28830    10               0   0  0              6                                                        SELECT LITERAL
          28831    5       12       2   0  0              0                                                        TRANSFER
          28832    91      317     12   0  1              0        317                                             SET MODIFICATION REGISTER AT VARIABLE
          28833    55      29       0   1  0              0                COPY TO SEC 8                           BULK COPY
          28834    C       8        6   1  1              0                                                        
          28835    C       29       0   2  0              0                                                        
          28836            29       0   2  0              0                                                        SELECT
          28837    4       317     12   0  0              0        317     STEP QTTY IN BLOCK TO DATE              AUGMENT
          28838    54      29       0   1  0             44                CLEAR SEC 29                            BULK CLEAR
          28839    82      288      2   0  0              0        288                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28900    PROCR   289       289                                                                           
          28902    81      289      2   0  0              0        289                                             START OF SUBROUTINE
          28903    0       318     10   1  0              0        318                                             SELECT
          28904    5       8       50   1  0              0                BEW                                     TRANSFER
          28905    80      290      2   0  0              0        290                                             ENTER SUBROUTINE
          28906    54      8        4   1  0             46                                                        BULK CLEAR
          28907    82      289      2   0  0              0        289                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29000    PROCR   290       290                                                                           
          29002    81      290      2   0  0              0        290                                             START OF SUBROUTINE
          29003    43      A2       0   0  0              0                                                        OUTPUT
          29004    C       8        0   0  0              0                                                        
          29005    82      290      2   0  0              0        290                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030239.JPG
          29100    PROCR   291       291     READ B/FWD MT FILE                                                    
          29102    81      291      2   0  0              0        291                                             START OF SUBROUTINE
          29103    42      A1       0   0  0              0                                                        INPUT
          29104    C       7        0   0  0              0                                                        
          29105    82      291      2   0  0              0        291                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29200    PROCR   292       292     INPUT OFF PAPER TAPE                                                  
          29201     NOTES          RADIX                                                                           SELECT
          29202    81      292      2   0  0              0        292                                             START OF SUBROUTINE
          29203    80      301      2   0  0              0        301     >READ A6                                ENTER SUBROUTINE
          29204            9        4   1  0              0                                                        SELECT
          29205    2       318     46   1  0              0        318     'TRAMD'                                 SUBTRACT
          29206    70      292     19   0  0              0        292     >DONT INSERT BE                         JUMP IF A == 0
          29207    34      9       48   2  0              0                                                        SET (N) IN B
          29208    10               0   0  0              0                                                        SELECT LITERAL
          29209    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          29210    5       319     42   1  0              0        319     WORD CTR                                TRANSFER
          29211    91      319     42   0  1              0        319                                             SET MODIFICATION REGISTER AT VARIABLE
          29212    32               0   0  0              3                                                        SHIFT (AB) BY QUARTETS
          29213    5       288      2   0  0              0        288     COL POSN>WL                             TRANSFER
          29214    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          29215    10               0   0  0             7.                                                        SELECT LITERAL
          29216    124     288      2   0  1              0        288                                             modify address of next
          29217    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          29218    37      9        0   1  1              0                                                        REPLACE SELECTED BITS
    29206>29219    82      292      2   0  0              0        292                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29300    PROCR   293       293     TEST AMENDMENT IS A STACKING DIRECTIVE                                
          29301     NOTES          RADIX                                                                           SELECT
          29302    81      293      2   0  0              0        293                                             START OF SUBROUTINE
          29303    54      1        0   1  0              8                                                        BULK CLEAR
          29304    124     311      2   0  2              0        311                                             select literal and division
          29305    80      325      2   0  0              0        325                                             ENTER SUBROUTINE
          29306            1        6   1  0              0                                                        SELECT
          29307    80      287      2   0  0              0        287     >TEST DIRECTIVE                         ENTER SUBROUTINE
          29308    82      293      2   0  0              0        293                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29400    PROCR   294       294     TEST FOR MOD END SIGN                                                 
          29401     NOTES          RADIX          OR DIRECTIVE                                                     SELECT
          29402    81      294      4   0  0              0        294                                             START OF SUBROUTINE
          29403            9        4   1  0              0                                                        SELECT
          29404    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          29405    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          29406    2       318     14   1  0              0        318     'END  '                                 SUBTRACT
          29407    70      294     11   0  0              0        294                                             JUMP IF A == 0
          29408            9        4   1  0              0                                                        SELECT
          29409    2       318     46   1  0              0        318     'TRAMD'                                 SUBTRACT
          29410    71      294     13   0  0              0        294                                             JUMP IF A != 0
    29407>29411    10               0   0  0         100000                                                        SELECT LITERAL
          29412    76      294     34   0  0              0        294                                             JUMP unconditional
    29410>29413    10               0   0  0              0                CLEAR LOCATION      TO WHICH            SELECT LITERAL
          29414    5       1        4   1  0              0                AMENDMENT DIRECTIVE IS UNPACKED         TRANSFER
          29415    124     311     10   0  2              0        311                                             select literal and division
          29416    80      325      2   0  0              0        325     >UNPACK AMEND LETTER                    ENTER SUBROUTINE
          29417    34      1        4   1  0              0                                                        SET (N) IN B
          29418    10               0   0  0              0                                                        SELECT LITERAL
          29419    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          29420    12               0   0  0             69                                                        SUBTRACT LITERAL
          29421    70      294     31   0  0              0        294                                             JUMP IF A == 0
  Source image: P1030240.JPG
          29422    11               0   0  0             15                                                        ADD LITERAL
          29423    70      294     30   0  0              0        294                                             JUMP IF A == 0
          29424    12               0   0  0             19                                                        SUBTRACT LITERAL
          29425    70      294     29   0  0              0        294                                             JUMP IF A == 0
          29426    11               0   0  0             22                                                        ADD LITERAL
          29427    71      294     36   0  0              0        294                                             JUMP IF A != 0
          29428    10               0   0  0              1                                                        SELECT LITERAL
    29425>29429    11               0   0  0              1                                                        ADD LITERAL
    29423>29430    11               0   0  0              1                                                        ADD LITERAL
    29421>29431    11               0   0  0              1                                                        ADD LITERAL
          29432    84      254      2   0  0              0        254                                             SET SWITCH(ES) AT VARIABLE VALUE
          29433    10               0   0  0              1                                                        SELECT LITERAL
    29437>                                                                                                         
    29412>29434    3       12      44   1  0              0                                                        COPY
          29435    82      294      2   0  0              0        294                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    29427>29436    10               0   0  0              0                                                        SELECT LITERAL
          29437    76      294     34   0  0              0        294                                             JUMP unconditional
                                                                                                                   
          29500    PROCR   295       295     IGNORE THIS INSTRUCTION                                               
          29501     NOTES          RADIX                                                                           SELECT
          29502    81      295      2   0  0              0        295                                             START OF SUBROUTINE
          29503            318     26   1  0              0        318                                             SELECT
          29504    5       1       42   1  0              0                                                        TRANSFER
          29505    82      295      2   0  0              0        295                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29600    PROCR   296       296     IGNORE PREVIOUS INSTRUCTION                                           
          29601     NOTES          RADIX                                                                           SELECT
          29602    81      296      2   0  0              0        296                                             START OF SUBROUTINE
          29603            318     26   1  0              0        318                                             SELECT
          29604    124     318     22   0  1              0        318                                             modify address of next
          29605    124     305      2   0  1              0        305                                             modify address of next
          29606    5       29      14   1  0              0                                                        TRANSFER
          29607    82      296      2   0  0              0        296                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29700    PROCR   297       297     +ANNOTATION IF CARD                                                   
          29701     NOTES          RADIX                                                                           SELECT
          29702    81      297      2   0  0              0        297                                             START OF SUBROUTINE
          29703    10               0   0  0                                                                       SELECT LITERAL
          29704    82      297      2   0  0              0        297                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29800    PROCR   298       298     BULK COPY ANNOTATION                                                  
          29801     NOTES          RADIX                                                                           SELECT
          29802    81      298      2   0  0              0        298                                             START OF SUBROUTINE
          29803    55      9       18   1  0             16                                                        BULK COPY
          29804    C       1       28   1  0              0                                                        
          29805    82      298      2   0  0              0        298                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29900    PROCR   299       299     TEST END SIGN ON MAG TAPE                                             
          29901     NOTES          RADIX                                                                           SELECT
          29902    81      299      2   0  0              0        299                                             START OF SUBROUTINE
          29903            27       1   0  0              0                                                        SELECT
          29904    70      299      7   0  0              0        299     >1 RECORD PER BLOCK                     JUMP IF A == 0
          29905                     6   1  8              0                                                        SELECT
          29906    76      299      8   0  0              0        299                                             JUMP unconditional
    29904>29907    00      7       10   1  0              0                                                        SELECT
    29906>29908    2       318     14   1  0              0        318                                             SUBTRACT
          29909    70      321      2   0  0              0        321                                             JUMP IF A == 0
          29910    82      299      2   0  0              0        299                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30000    PROCR   300       300     LEFT ALIGN SUB-ROUTINE                                                
  Source image: P1030241.JPG
          30001     NOTES          RADIX                                                                           SELECT
          30002    81      300      2   0  0              0        300     DATA IN B                               START OF SUBROUTINE
          30003    10               0   0  0              0                                                        SELECT LITERAL
          30004    74      300      8   0  0              0        300     ZERO NUMBER?                            JUMP IF AB == 0        // 27, 1, 0
    30006>30005    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          30006    70      300      5   0  0              0        300                                             JUMP IF A == 0
          30007    32               0   0  0              8                LEFT ALIGN IN A                         SHIFT (AB) BY QUARTETS
    30004>30008    82      300      2   0  0              0        300                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30100    PROCR   301       301                                                                           
          30102    81      301      2   0  0              0        301                                             START OF SUBROUTINE
          30103    42      A6       0   0  0              0                                                        INPUT
          30104    C       9        0   0  0              0                                                        
          30105    82      301      2   0  0              0        301                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30200    PROCR   302       302     STEP MR,TEST END OF BLOCK                                             
          30202    81      302      2   0  0              0        302                                             START OF SUBROUTINE
          30203            27       1   0  0              0                                                        SELECT
          30204    70      302     13   0  0              0        302     >1 RECORD PER BLOCK                     JUMP IF A == 0
          30205                     0   2  8              0                CURRENT RECORD LENGTH                   SELECT
          30206    5       291      2   0  0              0        291     WL                                      TRANSFER
          30207    97      291      2   0  8              0        291                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          30208    C       302     12   0  0              0        302     >BLOCK NOT EMPTY                        
          30209    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
          30210    59      7        6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          30211    C       7        4   2  0              0                                                        
    30208>30212    82      302      2   0  0              0        302                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30204>30213    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
          30214    82      302      2   0  0              0        302                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30300    PROCR   303       303     TEST MT=STACK DIRECTIVE                                               
          30302    81      303      2   0  0              0        303                                             START OF SUBROUTINE
          30303            27       1   0  0              0                                                        SELECT
          30304    70      303      8   0  0              0        303                                             JUMP IF A == 0
          30305                     6   1  8              0                                                        SELECT
    30309>30306    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          30307    82      303      2   0  0              0        303                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30304>30308            7       10   1  0              0                                                        SELECT
          30309    76      303      6   0  0              0        303                                             JUMP unconditional
                                                                                                                   
          30400    PROCR   304       304     UNPACK MT-MULTIRECORD BLOCKS                                          
    28405>30402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          30403    54      28       0   1  0             46                                                        BULK CLEAR
          30404            12      38   0  0              0                                                        SELECT
          30405    70      304     32   0  0              0        304     >NOT DIRECTIVE                          JUMP IF A == 0
          30406                     0   2  8              0                                                        SELECT
          30407    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30408    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30409    128     28       0   1  1              0                COPY DIRECTIVE+LENGTH WORD              bulk copy long numeric
          30410    50      28       2   0  0              0                UNPACK                                  UNPACK FIXED FIELD DATA
          30411    C       307     16   0  0              0        307                                             
          30412            27       5   0  0              0                                                        SELECT
          30413    12               0   0  0              1                                                        SUBTRACT LITERAL
          30414    71      304     19   0  0              0        304     >NOT'PROCR'                             JUMP IF A != 0
          30415            12      38   0  0              0                                                        SELECT
          30416    73      304     19   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
          30417            28      12   1  0              0                                                        SELECT
          30418    5       1        8   1  0              0                COPY'RADIX'                             TRANSFER
    30416>                                                                                                         
    30414>30419            12      86   0  0              0                                                        SELECT
  Source image: P1030242.JPG
          30420    70      304     29   0  0              0        304     >NOT'REPLACE ANNOTATION'                JUMP IF A == 0
          30421            27       5   0  0              0                                                        SELECT
          30422    12               0   0  0              1                                                        SUBTRACT LITERAL
          30423    71      304     26   0  0              0        304     >NOT'PROCR'                             JUMP IF A != 0
          30424            12      38   0  0              0                                                        SELECT
          30425    73      304     47   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
    30423>30426            28      14   1  0              0                CONST/TABLE TYPE OR RADIX LETTER        SELECT
          30427    5       1       16   1  0              0                                                        TRANSFER
          30428    76      304     47   0  0              0        304                                             JUMP unconditional
    30420>30429    55      28      14   1  0             26                ANNOTATION ETC EVEN IF ABSENT           BULK COPY
          30430    C       1       16   1  0              0                                                        
          30431    76      304     47   0  0              0        304                                             JUMP unconditional
    30405>30432            27       5   0  0              0                                                        SELECT
          30433    12               0   0  0              4                                                        SUBTRACT LITERAL
          30434    70      304     61   0  0              0        304     >VALUES                                 JUMP IF A == 0
          30435                     0   2  8              0                                                        SELECT
          30436    3       319     42   0  0              0        319     LENGTH                                  COPY
          30437    124     27       5   0  1              0                                                        modify address of next
          30438    2       305      2   0  0              0        305     (MAX DATA LENGTH+2)                     SUBTRACT
          30439    72      304     49   0  0              0        304     >RECORD HAS ANNOTATION                  JUMP IF A >= 0
          30440            319     42   0  0              0        319                                             SELECT
    30460>30441    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30442    98               0   0  8              0                DATA START                              ADD MODIFICATION REGISTER TO A
          30443    128     28       0   1  1              0                COPY RECORD                             bulk copy long numeric
          30444    124     27       5   0  1              0                                                        modify address of next
          30445            305      6   0  0              0        305                                             SELECT
          30446    128     28       2   0  2              0                UNPACK>SEC1                             unpack fixed field data
    30467>                                                                                                         
    30431>                                                                                                         
    30428>                                                                                                         
    30425>30447    60               0   0  0              0                                                        SET DECIMAL RADIX
          30448    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30439>30449    5       319     43   0  0              0        319     ANNOTATION LENGTH   ANNOTATED DATA      TRANSFER
          30450            12      86   0  0              0                                                        SELECT
          30451    71      304     58   0  0              0        304     >JUST HERE TO UNPACK NUMBERS            JUMP IF A != 0
          30452            319     43   0  0              0        319                                             SELECT
          30453    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30454    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30455    124     27       5   0  1              0                                                        modify address of next
          30456    1       305      2   0  0              0        305     DATA LENGTH+2                           ADD
          30457    128     1       28   1  1              0                COPY ANNOTATION                         bulk copy long numeric
    30451>30458    124     27       5   0  1              0                                                        modify address of next
          30459            305      2   0  0              0        305                                             SELECT
          30460    76      304     41   0  0              0        304     >UNPACK NUMBERS                         JUMP unconditional
    30434>30461                     0   2  8              0                LENGTH              VALUES              SELECT
          30462    12               0   0  0              6                                                        SUBTRACT LITERAL
          30463    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30464    98               0   0  8              0                START                                   ADD MODIFICATION REGISTER TO A
          30465    11               0   0  0              7                                                        ADD LITERAL
          30466    128     1        9   1  0              0                ALPHA>NUM                               bulk copy alpha to short
          30467    76      304     47   0  0              0        304     >EXIT                                   JUMP unconditional
                                                                                                                   
          30500    CONST   305       305     0    FOR UNPACKING MULTIRECORD MT                                     
          30502          (B)24;                                            DIRECTIVES-ANNOTATION                   
          30503          24;                                               ORDER LENGTH+2                          
          30504          24;                                               TABLE                                   
          30505          28;                                               CONSTANT                                
          30506          28;                                               VALUES                                  
          30507          (C)308:0;                                                                                 
          30508          309:0;                                                                                    
  Source image: P1030243.JPG
          30509          310:0;                                            DIRECTIVES-PASS 1 REPORTS               
          30510          (B)12;                                            ORDERS                                  
          30511          22;                                               TABLE                                   
          30512          22;                                               CONST                                   
          30513          26;                                               VALUE                                   
          30514          42;                                                                                       
                                                                                                                   
          30600    TABLE   306       306     1    'INDEX LINE'                                                     
          30601     NOTES                                                                                          
          30602    12     4     0     0  0  0   3   2   0   2  0  0  0     TO REPLACE CODERS REF                   
          30604    92     8     0     0  0  0   2   0   0   2  0  0  1                                             
          30606    12    88     0     0  0  0   5   0   0   5  0  0  1                                             
          30608    12    88     0     0  2  0   5   0   0   0  0  0  0     'SHEET'                                 
          30610    12    88     0     0  2  0   5   0   0   0  0  0  1     SHEET NUMBER                            
                                                                                                                   
          30700    TABLE   307       307     1                                                                     
          30701     NOTES                                                                                          
          30702     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30704     1     2     0     0  2  0   5   0   0   0  0  0  0     'PROCR/TABLE/CONST'ETC                  
          30706    92    35     0     0  0  0   5   0   0   5  0  0  0                                             
          30708     1     6     0     0  2  0   5   0   0   0  0  0  0     TYPE                                    
          30710    92    34     0     0  1  0  10   0   0  10  0  0  0                                             
          30712     1     8     0     0  2  0   5   0   0   0  0  0  0     NEW PROCR NUMBER                        
          30714     1    14     0     0  0  0   5   0   0   4  0  0  1     PREVIOUS PROCR NUMBER                   
          30716     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND-----MULTIREC BLOX             
          30718     1     2     0     0  2  0   5   0   0   0  0  0  0     LINE SERAL                              
          30720     1     6     0     0  2  0   5   0   0   0  0  0  0     'PROCR'ETC                              
          30722     1     8     0     0  2  0   5   0   0   0  0  0  0     CURRENT PROCR                           
          30724     1    14     0     0  0  0   5   0   0   5  0  0  1     PREVIOUS PROCR                          
                                                                                                                   
          30800    TABLE   308       308     3    EDIT INSTRUCTIONS                                                
          30801     NOTES                                                                                          
          30802     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30804     1     2     0     0  2  0   5   0   0   0  0  0  0     LINE SERAL                              
          30806     1     6     0     0  2  0   5   0   0   0  0  0  0     ACTION                                  
          30808     1     8     0     0  2  0   5   0   0   0  0  0  0     REF                                     
          30810     1    10     0     0  1  0   5   5   0   5  1  0  0     ITEM +/-                                
          30812     1    12     0     0  0  0   2   3   0   2  0  0  0     DISC                                    
          30814     1    14     0     0  0  0   3   2   0   3  0  0  0     MODIFIER                                
          30816     1    16     0     0  1  0  10   0   0  10  1  0  0     LITERAL +/-                             
          30818     1    20     0     0  2  0   5   0   0   0  0  0  0     'CLEO'PARA WORD                         
          30820     1    22     0     0  0  0   5   0   0   5  0  0  1     PREVIOUS PROCR NO                       
                                                                                                                   
          30900    TABLE   309       309     1    EDIT TABLE ENTRIES                                               
          30901     NOTES                                                                                          
          30902     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30904     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          30906     1    20     0     0  0  0   5   0   0   5  0  0  0     FIRST REF                               
          30908     1    22     0     0  0  0   5   0   0   5  0  0  0     FIRST ITEM                              
          30910     1    24     0     0  0  0   5   0   0   5  0  0  0     SECOND REF                              
          30912     1    26     0     0  0  0   5   0   0   5  0  0  0     SECOND ITEM                             
          30914     1    19     0     0  0  0   2   3   0   2  0  0  0     DISC                                    
          30916     1    11     0     0  0  0   3   2   0   3  0  0  0     SINGLE/TO BE                            
          30918     1    12     0     0  0  0   2   3   0   2  0  0  0     NO                                      
          30920     1    13     0     0  0  0   3   2   0   3  0  0  0     DISCARDED                               
          30922     1    14     0     0  0  0   2   3   0   2  0  0  0     SPACES                                  
          30924     1    15     0     0  0  0   3   2   0   3  0  0  0     ZEROS                                   
          30926     1    16     0     0  0  0   1   4   0   1  0  0  0     SIGN                                    
          30928     1    17     0     0  0  0   2   3   0   2  0  0  0     STERLING                                
          30930     1    18     0     0  0  0   2   3   0   2  0  0  1     LAST TABLE ENTRY                        
                                                                                                                   
  Source image: P1030244.JPG
          31000    TABLE   310       310     3    UNPACK CONSTANT AND EDIT                                         
          31001     NOTES                                                                                          
          31002     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          31004     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          31006    92    34     0     0  0  0   5   0   0   5  0  0  0     ZERO WORD                               
          31008     1     6     0     0  2  0   5   0   0   0  0  0  0     CONSTANT UNPACKED                       
          31010     1     8     0     0  2  0   5   0   0   0  0  0  0     FIXED FIELD TO                          
          31012     1    10     0     0  2  0   5   0   0   0  0  0  0     1/6' ONWARDS                            
          31014     1    12     0     0  2  0   5   0   0   0  0  0  0                                             
          31016     1    14     0     0  2  0   5   0   0   0  0  0  0                                             
          31018     1    16     0     0  2  0   5   0   0   0  0  0  0                                             
          31020     1    18     0     0  2  0   5   0   0   0  0  0  0                                             
          31022     1    20     0     0  2  0   5   0   0   0  0  0  0                                             
          31024     1    22     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          31100    TABLE   311       311     3    UNPACK STACKING DIRECTIVE                                        
          31101     NOTES                         FROM CARDS OR PAPER TAPE                                         
          31102     1     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIR?                          
          31104     1     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE                               
          31106     1     8     0     0  2  0   3   0   0   0  0  0  0     SECTION NO                              
          31108     1    16     0     0  2  1   5   0   0   0  0  0  1     /////TYPE OR ANNOTATION+TYPE            
          31110     1     2     0     0  2  0   5   0   0   0  0  0  0     SER NO +AMEND DIR?                      
          31112     1     6     0     0  2  0   5   0   0   0  0  0  0     ''NOTES'' OF TABLE                      
          31114     1    16     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
                                                                                                                   
          31200    TABLE   312       312     3    UNPACK TABLE ENTRIES                                             
          31201     NOTES                         FROM P/T OR CARDS                                                
          31202     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31204     1     6     0     0  2  0   3   0   0   0  0  0  0     ACTION                                  
          31206     1     8     0     0  2  0   3   0   0   0  0  0  0     REF                                     
          31208     1    10     0     0  1  0   5   0   0   0  1  0  0     ITEM                                    
          31210     1    12     0     0  0  0   1   0   0   0  0  0  0     DIRECTIVE                               
          31212     1    14     0     0  0  0   2   0   0   0  0  0  0     M                                       
          31214     1    16     0     0  1  0  10   0   0   0  1  0  0     LITERAL                                 
          31216     1    28     0     0  2  0   5   0   0   0  0  0  0     NOTES FROM P/T -RUBBISH FROM CARD       
          31218     1    36     0     0  2  0   5   0   0   0  0  0  1     COMMENTARY FROM P/T                     
                                                                                                                   
          31300    TABLE   313       313     3    UNPACK TABLE ENTRIES                                             
          31301     NOTES                         FROM P/T OR CARDS                                                
          31302     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31304     1    20     0     0  0  0   3   0   0   0  0  0  0     FIRST REF                               
          31306     1    22     0     0  0  0   5   0   0   0  0  0  0     FIRST ITEM                              
          31308     1    24     0     0  0  0   3   0   0   0  0  0  0     SECOND REF                              
          31310     1    26     0     0  0  0   5   0   0   0  0  0  0     SECOND ITEM                             
          31312     1    19     0     0  0  0   1   0   0   0  0  0  0     DISC                                    
          31314     1    11     0     0  0  0   1   0   0   0  0  0  0     SINGLE TO BE                            
          31316     1    12     0     0  0  0   2   0   0   0  0  0  0     NO OF CHARS                             
          31318     1    13     0     0  0  0   2   0   0   0  0  0  0     DISCARDS                                
          31320     1    14     0     0  0  0   2   0   0   0  0  0  0     SPACES                                  
          31322     1    15     0     0  0  0   2   0   0   0  0  0  0     ZEROS                                   
          31324     1    16     0     0  0  0   1   0   0   0  0  0  0     SIGN                                    
          31326     1    17     0     0  0  0   1   0   0   0  0  0  0                                             
          31328     1    18     0     0  0  0   1   0   0   0  0  0  0     LTE                                     
          31330     1    28     0     0  2  0   5   0   0   0  0  0  1     P/T ANNOTATION-SPACES IF CARD           
                                                                                                                   
          31400    TABLE   314       314     3    UNPACKCONSTANT (FIRST STAGE)                                     
          31401     NOTES                         FROM P/T OR CARDS                                                
          31402     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31404     1     6     0     0  2  0   5   0   0   0  0  0  0     CONSTANT (OR FIRST 5 CHS OF CONST)      
  Source image: P1030245.JPG
          31406     1    28     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          31500    TABLE   315       315     1    EDIT ALL BUT TRIAL DATA                                          
          31501     NOTES                                                                                          
          31502     1     9     0     0  0  0   5   0   0   4  0  0  0                                             
          31504     1    10     0     0  0  0   5   0   0   4  1  0  1                                             
                                                                                                                   
          31600    CONST   316       316     0    CHECKING CONSTANTS FOR INSTRUCTIONS                              
          31602          (D)83‼91;                                                                                 
          31603          00‼11;                                                                                    
          31604          ££000;                                                                                    
          31605          (R)18:2496;                                       FOR SEQUENCE CHANGES                    
          31606          (R)18:0;                                                                                  
          31607          (R)93:0;                                                                                  
          31608          (R)14:0;                                                                                  
          31609          (D)0;                                             ZERO IF RT9 PRINTER                     
                                                                                                                   
          31700    CONST   317       317     0    MISC                                                             
          31702          (D)2;                                                                                     
          31703          10000;                                            BIT 17                                  
          31704          £££;                                              Q1-3                                    
          31705          70;                                               BITS 5-7                                
          31706          7;                                                BITS 1-3                                
          31707          8;                                                BIT 4                                   
          31708          80;                                               BIT 8                                   
          31709          £00;                                              Q3                                      
          31710          4;                                                BIT3                                    
          31711          0;                                                FIRST RECORD INDICATOR                  
          31712          0;                                                ACC.RECORD LENGTH                       
                                                                                                                   
          31800    CONST   318       318     1    ALPHA CONSTANTS                                                  
          31802          (A)TABLE;                                                                                 
          31804          CONST;                                                                                    
          31806          PROCR;                                                                                    
          31808          *    ;                                                                                    
          31810          (D)7.0000007.;                                    BLOCK END WORD                          
          31812          (A)NOTES;                                                                                 
          31814          END  ;                                                                                    
          31816          DUMPS;                                                                                    
          31818          FILES;                                                                                    
          31820          (D)££+00003££;                                    BITS 1-10 AND 31-40                     
          31822          0;                                                EVEN=WL FOR EDIT SWITCH,ODD=C/FWD HIGHES
          31824          (A)SHEET;                                                                                 
          31826          (D)5:5:5:5:5:;                                    '?????'                                 
          31828          (A)VALUE;                                                                                 
          31830          (D)6£6£6£6£6£;                                                                            
          31832          (A)INDEX;                                                                                 
          31834          £££££;                                                                                    
          31836          2;                                                                                        
          31838          CHAIN;                                                                                    
          31840          ????R;                                                                                    
          31842          ????I;                                                                                    
          31844          ????*;                                                                                    
          31846          (A)TRAMD;                                                                                 
          31848          (B20)16(D)0(C)1:28;                               BULK COPY                               
          31850          (A)FINIS;                                                                                 
                                                                                                                   
          31900    CONST   319       319     1    CONVERT TABLES                                                   
          31902          (D)1;                                             BIN>DEC                                 
          31904          16;                                                                                       
  Source image: P1030246.JPG
          31906          256;                                                                                      
          31908          4096;                                                                                     
          31910          65536;                                                                                    
          31912          1048576;                                                                                  
          31914          16777216;                                                                                 
          31916          268435456;                                                                                
          31918          4294967296;                                                                               
          31920          ££££££££££;                                                                               
          31922          1;                                                DEC>BIN                                 
          31924          Ю;                                                                                        
          31926          64;                                                                                       
          31928          3.8;                                                                                      
          31930          2710;                                                                                     
          31932          186Ю0;                                                                                    
          31934          £4240;                                                                                    
          31936          989680;                                                                                   
          31938          5£5.100;                                                                                  
          31940          3‼9Ю+Ю00;                                         (A)WL                                   
          31942          0;                                                BITS 1-6                                
          31944          3£;                                                                                       
          31946          (A)CHAPT;                                                                                 
          31948          PREND;                                                                                    
                                                                                                                   
          32000    PROCR   320       320     RIGHT ALIGN A WORD                                                    
          32001     NOTES          RADIX          PLACED IN B                                                      SELECT
          32002    81      320      2   0  0              0        320                                             START OF SUBROUTINE
          32003    10               0   0  0              0                                                        SELECT LITERAL
          32004    5       12      88   1  0              0                                                        TRANSFER
    32008>32005    1       12      88   1  0              0                                                        ADD
          32006    32               0   0  0              2                LEAVE A CLEAR                           SHIFT (AB) BY QUARTETS
          32007    5       12      88   1  0              0                                                        TRANSFER
          32008    75      320      5   0  0              0        320     AND PUT WORD                            JUMP IF AB != 0
          32009            12      88   1  0              0                                                        SELECT
          32010    82      320      2   0  0              0        320     IN 12/88'                               END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          32100    PROCR   321       321     END ROUTINE                                                           
          32101     NOTES          RADIX                                                                           SELECT
    29909>32102    60               0   0  0              0                                                        SET DECIMAL RADIX
          32103    10               0   0  0              1                                                        SELECT LITERAL
          32104    4       92       3   0  0              0                STEP PROCR                              AUGMENT
          32105    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32106            318     22   0  0              0        318     DIRECTIVE FOR LAST BLOCK DELETED        SELECT
          32107    12               0   0  0              3                                                        SUBTRACT LITERAL
          32108    71      321     11   0  0              0        321     >WASNT A CONSTANT                       JUMP IF A != 0
          32109    10               0   0  0              1                                                        SELECT LITERAL
          32110    5       29       6   0  0              0                                                        TRANSFER
    32108>32111    80      288      2   0  0              0        288     >O/P FINAL DATA BLOCK                   ENTER SUBROUTINE
          32112    0       92       3   0  0              0                                                        SELECT
          32113    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          32114    5       12      88   0  0              0                                                        TRANSFER
          32115    52      29       4   0  0              0                                                        EDIT
          32116    C       306      6   0  0              0        306                                             
    32126>32117            9        4   1  0              0                                                        SELECT
          32118    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32119    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          32120    2       318     14   1  0              0        318                                             SUBTRACT
          32121    70      321     27   0  0              0        321     >END WITHOUT TD                         JUMP IF A == 0
          32122    10               0   0  0     5£5£5£5£5£                5 SQUARES                               SELECT LITERAL
          32123    3       27       6   0  0              0                'PT OMITTED'                            COPY
          32124    5       29      12   1  0              0                                                        TRANSFER
  Source image: P1030247.JPG
          32125    80      301      2   0  0              0        301     >READ PT                                ENTER SUBROUTINE
          32126    76      321     17   0  0              0        321     >TEST NEXT BLOCK                        JUMP unconditional
    32121>32127            318     50   1  0              0        318     'FINIS'                                 SELECT
          32128    5       9        4   1  0              0                                                        TRANSFER
          32129            318     14   1  0              0        318                                             SELECT
          32130    5       29       6   1  0              0                'END'                                   TRANSFER
          32131    80      288      2   0  0              0        288     >WRITE INTERCODE END SIGN               ENTER SUBROUTINE
          32132    80      324      2   0  0              0        324                                             ENTER SUBROUTINE
          32133    90               0   0  1              1                                                        SET MODIFICATION REGISTER AT LITERAL
          32134    C                0   0  0            100                                                        
          32135    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32136    C                0   0  0            200                                                        
    32165>32137    96               0   0  1              0                                                        SELECT MODIFIER
          32138    80      247      2   0  0              0        247     >TO DEC                                 ENTER SUBROUTINE
          32139    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32140    32               0   0  0              1-               DIVIDE BY 10                            SHIFT (AB) BY QUARTETS
          32141    92               0   0  3              0                TENS DIGIT                              SET MODIFIER AT VARIABLE
          32142    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          32143    5       247      2   0  0              0        247     WL                                      TRANSFER
          32144    10               0   0  0              1                                                        SELECT LITERAL
          32145    124     247      2   0  1              0        247                                             modify address of next
          32146    31               0   0  0              0                /////BIT PATTERN OF UNITS DIGIT         SHIFT (A) BY BITS
          32147    3       247      2   0  0              0        247                                             COPY
          32148    33               0   0  0             30-               REL TO BIT 10 OF B                      SHIFT (AB) BY BITS
          32149    36      12      72   0  3              0                12/72-81=SECTION BIT PATTERNS           COLLATE AND ADD
          32150    70      321     65   0  0              0        321                                             JUMP IF A == 0
          32151    96               0   0  3              0                CLEAR B                                 SELECT MODIFIER
          32152    35               0   0  0              0                HALVE                                   PREPARE FOR DIGIT COLLATION
          32153    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          32154    92               0   0  3              0                >WAS ODD                                SET MODIFIER AT VARIABLE
          32155    75      321     58   0  0              0        321                                             JUMP IF AB != 0
          32156    34      247      2   0  0              0        247                                             SET (N) IN B
          32157    76      321     60   0  0              0        321                                             JUMP unconditional
    32155>32158    34      247      2   0  0              0        247                                             SET (N) IN B
          32159    33               0   0  0             10                                                        SHIFT (AB) BY BITS
    32157>32160    36      12     100   0  3              0                12/100-104='TX AREA USED'INDS           COLLATE AND ADD
          32161    71      321     65   0  0              0        321     >NOT PSEUDO-TX AREA                     JUMP IF A != 0
          32162    96               0   0  1              0                                                        SELECT MODIFIER
          32163    5       92      34   0  2              0                STORE SECTION NUMBER                    TRANSFER
          32164    94               0   0  2              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    32161>                                                                                                         
    32150>32165    94      321     37   0  1              1        321     >NEXT SECTION                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          32200    PROCR   322       322     CALC CHAPS INITIALLY                                                  
          32202    10               0   0  0          £££00                                                        SELECT LITERAL
          32203    3       23      47   0  0              0                (TO PRINT HEADING)                      COPY
          32204    124     92       0   0  0              0                                                        modify address of next
          32205    4       92       9   0  0              0                'LAST PROCR'IN FINAL CHAP               AUGMENT
          32206    91      12      12   0  3              0                0:TWICE UNCORR CHAPS                    SET MODIFICATION REGISTER AT VARIABLE
    32213>32207            92      10   0  3              0                                                        SELECT
          32208    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          32209    30               0   0  0              9-               ISOLATE Q1=CORR CHAP                    SHIFT (A) BY QUARTETS
          32210    2       92      29   0  0              0                (ZERO INITIALLY)                        SUBTRACT
          32211    73      322     13   0  0              0        322                                             JUMP IF A < 0
          32212    4       92      29   0  0              0                UPDATE                                  AUGMENT
    32211>32213    94      322      7   0  3              1        322                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32214    10               0   0  0              1                                                        SELECT LITERAL
          32215    4       92      29   0  0              0                FORM CHAPS INITIALLY                    AUGMENT
          32216            92       9   0  0              0                                                        SELECT
          32217    5       92       8   0  0              0                STORE SC CTR                            TRANSFER
  Source image: P1030248.JPG
          32218            92      29   0  0              0                                                        SELECT
          32219    5       92       9   0  0              0                SPEC CHAP+'UNCORR CHAR 0'EQUIVALENT     TRANSFER
                                                                                                                   
          32300    PROCR   323       323     READ/COPY TRIAL DATA                                                  
          32301     NOTES          RADIX                                                                           SELECT
          32302    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32303    80      289      2   0  0              0        289     >WRITE 2 BLANKS                         ENTER SUBROUTINE
          32304            318     30   1  0              0        318                                             SELECT
          32305    5       8        4   1  0              0                5 ALIGNMENT MARKS                       TRANSFER
          32306    10               0   0  0              6                                                        SELECT LITERAL
          32307    5       8       10   0  0              0                                                        TRANSFER
          32308    80      289      2   0  0              0        289     >WRITE ALIGN BLOCK FOR PASS 3           ENTER SUBROUTINE
          32309            318     32   1  0              0        318     'INDEX'                                 SELECT
          32310    5       8        4   1  0              0                                                        TRANSFER
          32311    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
          32312    90               0   0  1              0                                    WRITE CURRENT       SET MODIFICATION REGISTER AT LITERAL
          32313    C                0   0  0           1110                                    PROCR INDEX         
          32314    90               0   0  2              0                                    +ADJUST DETAILS     SET MODIFICATION REGISTER AT LITERAL
          32315    C                0   0  0             48                                    +UNIQUE REFS        
    32324>32316            93       0   0  1              0                                    UNCONDITIONALLY     SELECT
          32317    5       8        4   2  2              0                                                        TRANSFER
          32318    94      323     24   0  2              2        323                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32319            318     10   1  0              0        318     BEW                                     SELECT
          32320    5       8       52   1  0              0                                                        TRANSFER
          32321    80      290      2   0  0              0        290     >WRITE                                  ENTER SUBROUTINE
          32322    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32323    C                0   0  0             48                                                        
    32318>32324    94      323     16   0  1              1        323                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32325    80      290      2   0  0              0        290     >LAST BLOCK                             ENTER SUBROUTINE
          32326    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32327    80      289      2   0  0              0        289     >2 BLANKS                               ENTER SUBROUTINE
    32335>32328    0       9        4   1  0              0                                                        SELECT
          32329    2       318     50   1  0              0        318     'FINIS'                                 SUBTRACT
          32330    70      323     36   0  0              0        323     >YES                                    JUMP IF A == 0
          32331    55      9        4   1  0             50                                                        BULK COPY
          32332    C       8        4   1  0              0                                                        
          32333    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
          32334    80      301      2   0  0              0        301     >READ                                   ENTER SUBROUTINE
          32335    76      323     28   0  0              0        323                                             JUMP unconditional
    32330>32336    45      A2       0   0  0              0                                                        REWIND
          32337    45      A6       0   0  0              1                                                        REWIND
          32338    0       12      12   1  0              0                COPY DATA FOR PASS 2 PREP STAGE         SELECT
          32339    5       94       0   1  0              0                                                        TRANSFER
          32340    5       27       3   0  0              0                                                        TRANSFER
          32341    41      A1       0   0  0              1                                                        CLOSE FILE
          32342    76      200      2   0  0              0        200     >CALL PASS 2                            JUMP unconditional
                                                                                                                   
          32400    PROCR   324       324                                                                           
          32402    81      324      2   0  0              0        324                                             START OF SUBROUTINE
          32403            324      2   0  0              0        324                                             SELECT
          32404    5       288      2   0  0              0        288                                             TRANSFER
          32405    76      288     22   0  0              0        288                                             JUMP unconditional
                                                                                                                   
          32500    PROCR   325       325     UNPACK SECTION 9 SUBROUTINE                                           
          32501     NOTES          RADIX                                                                           SELECT
          32502    81      325      2   0  0              0        325                                             START OF SUBROUTINE
          32503    124     999      0   1  2              0                (FORMED)                                modify address of next
          32504    128              4   0  3              0                                                        unpack variable field data
          32505    82      325      2   0  0              0        325                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          32506            9        0   0  0              0                DUMMY FOR PARAMETER                     SELECT
  Source image: P1030249.JPG
          32507    128              4   0  2              0                                                        unpack fixed field data
                                                                                                                   
          32600    PROCR   326       326     START OF PASS 2                                                       
          32601     NOTES          RADIX     B    DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT                       SELECT
    35935>32602    152     200      4   0  0              0        200     CALL/ENTER PASS 3                       OVERLAY
          32603    C       445      4   0  0              0        445                                             
          32604            999     16   1  0              0                COPY SEC 7 PARAS>PTS WL'S               SELECT
          32605    5       999     30   1  0              0                                                        TRANSFER
          32606    54      5        0   0  0             50                                                        BULK CLEAR
          32607    52      5        2   0  0              0                                                        EDIT
          32608    C       335     36   0  0              0        335     EDIT 'INDEX' LINE                       
                                                                                                                   
          32700    PROCR   327       327     CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER                
          32701     NOTES          RADIX     B    AND MOVE THE SC BACK LIST                                        SELECT
          32702    54      72       3   0  0             14                                                        BULK CLEAR
          32703    10               0   0  0              1                                                        SELECT LITERAL
          32704    5       61       4   0  0              0                CTR INCREMENT                           TRANSFER
          32705    10               0   0  0              8                                                        SELECT LITERAL
          32706    5       61       3   0  0              0                BIT SHIFT CONTROL                       TRANSFER
          32707    91      94       0   0  3              0                UNCORR CHAP CTR                         SET MODIFICATION REGISTER AT VARIABLE
    32712>32708    10               0   0  0              1                                                        SELECT LITERAL
          32709    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          32710    36      72       3   0  3              0                                                        COLLATE AND ADD
          32711    4       72       3   0  3              0                ROUND UP CTRS                           AUGMENT
          32712    94      327      8   0  3              1        327                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32713    10               0   0  0              2                                    SEQ CHANGE LIST     SELECT LITERAL
          32714    4       92       8   0  0              0                                                        AUGMENT
          32715    1       437     74   0  0              0        437     ABS ADDRESS 18:2496                     ADD
          32716    2       92       8   0  0              0                                                        SUBTRACT
          32717    3       337      2   0  0              0        337     QTTY TO COPY                            COPY
          32718    70      327     23   0  0              0        327     >NONE                                   JUMP IF A == 0
          32719    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          32720    1       92       8   0  0              0                START                                   ADD
          32721    124     436     15   1  2              0        436     ABS ADDRESS 18/0                        modify address of next
          32722    128              0   1  1              0                                                        bulk copy long numeric
    32718>32723            436     15   0  0              0        436                                             SELECT
          32724    1       337      2   0  0              0        337     QTTY                                    ADD
          32725    5       92       8   0  0              0                NEW LIST END                            TRANSFER
                                                                                                                   
          32800    PROCR   328       328     OPEN FILES CLEAR W/LS                                                 
          32801     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          32802    40      A2       0   0  0              1                *****DON T MOVE*****                    OPEN FILE
          32803    0       27       9   0  0              0                                                        SELECT
          32804    71      328     13   0  0              0        328     >NOT PRINT                              JUMP IF A != 0
          32805            27       8   0  0              0                PRINTER TYPE                            SELECT
          32806    11               0   0  0              Ю                                                        ADD LITERAL
          32807    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          32808    1       999      7   0  0              0                ROUTE                                   ADD
          32809    125           4096   1  1              0                                                        clear indicators
          32810    124     999      0   0  3              0                                                        modify address of next
          32811    123            160   0  2              0                >OPEN PRINTER OR MT A9                  enter master routine
          32812    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    32804>32813    54      61       0   0  0            120                                                        BULK CLEAR
          32814    54      94       0   0  0            100                                                        BULK CLEAR
          32815    54      66       0   0  0             34                66+49                                   BULK CLEAR
          32816    10               0   0  0              1                                                        SELECT LITERAL
          32817    4       92       0   0  0              0                NO OF CHAPS                             AUGMENT
          32818    101            998   1  3              0                                                        select literal address
          32819    1       92       0   0  0              0                (CHAPS CODED)+1                         ADD
          32820    3       61       5   0  0              0                LONG CONSTS PROCR                       COPY
  Source image: P1030250.JPG
          32821    11               0   0  0              1                                                        ADD LITERAL
          32822    3       61       6   0  0              0                SHORT CONSTS PROCR                      COPY
          32823    11               0   0  0              1                                                        ADD LITERAL
          32824    5       61       7   0  0              0                TSL PROCR                               TRANSFER
          32825    10               0   0  0         800000                                                        SELECT LITERAL
          32826    1       27       9   0  0              0                                                        ADD
          32827    91               0   0  1              0                SET FOR RE-ENTRY                        SET MODIFICATION REGISTER AT VARIABLE
                                                                                                                   
          32900    PROCR   329       329     I/P 1ST BLOCK, UNPACK, PRINT                                          
          32901     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    32908>32902    80      432      2   0  0              0        432     >READ                                   ENTER SUBROUTINE
          32903            8        6   1  0              0                                                        SELECT
          32904    2       336      2   1  0              0        336     'PROGM'                                 SUBTRACT
          32905    70      329     16   0  0              0        329     >OK                                     JUMP IF A == 0
          32906            8        4   1  0              0                                                        SELECT
          32907    12               0   0  0     5659650000                'FIN  '                                 SUBTRACT LITERAL
          32908    71      329      2   0  0              0        329     >KEEP READING                           JUMP IF A != 0
    32910>32909    150              0   0  0              4                                                        OFFER OPTIONS
          32910    C       329      9   0  0              0        329     (DUMMY)                                 
          32911    C       329     13   0  0              0        329     RUN BACK AND RETURN TO PASS 1           
          32912    C       329     15   0  0              0        329     >UNLOAD                                 
    32911>32913    45      A2       0   0  0              1                REWIND O/P TAPE                         REWIND
          32914    76      100      5   0  0              0        100     >ENTER PASS 1                           JUMP unconditional
    32912>32915    151              0   0  0              0                                    UNLOAD              UNLOAD PROGRAMME
    32905>32916    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          32917    C       334      2   0  0              0        334                                             
          32918    52      8        2   0  0              0                                                        EDIT
          32919    C       334      2   0  0              0        334                                             
          32920            66       4   1  0              0                SUITE NO                                SELECT
          32921    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          32922    1       66       6   2  0              0                JOB NO                                  ADD
          32923    5       61     112   0  0              0                PROG ID                                 TRANSFER
          32924    00      66       8   1  0              0                                                        SELECT
          32925    5       72       0   1  0              0                ALPHA SERIAL NUMBER                     TRANSFER
          32926            27       9   0  0              0                                                        SELECT
          32927    70      329     28   0  0              0        329     >PRINTING                               JUMP IF A == 0
    32927>32928    80      333      2   0  0              0        333     >WRITE/PRINT'PROGM'                     ENTER SUBROUTINE
          32929    40      A6       0   0  0              0                                                        OPEN FILE
          32930    52      9        4   0  0              0                EDIT FIRST HEADING                      EDIT
          32931    C       334     12   0  0              0        334     BLOCK                                   
          32932    80      407      2   0  0              0        407     OP                                      ENTER SUBROUTINE
          32933            435     20   0  0              0        435     '£££££'                                 SELECT
          32934    5       9        4   2  0              0                                                        TRANSFER
          32935            436      2   1  0              0        436     BEW                                     SELECT
          32936    5       9        6   1  0              0                                                        TRANSFER
          32937    80      407      2   0  0              0        407     >DUMMY 'INDEX'DATA                      ENTER SUBROUTINE
          32938    52      9        4   0  0              0                PROG & SERIAL FOR PASS 3                EDIT
          32939    C       334     20   0  0              0        334                                             
          32940    5       9       16   1  0              0                                                        TRANSFER
          32941    80      407      2   0  0              0        407     >SHORT RUBBISH BLOCK                    ENTER SUBROUTINE
          32942    80      432      2   0  0              0        432     I/P                                     ENTER SUBROUTINE
          32943    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          32944    C       334      2   0  0              0        334                                             
          32945            66       4   1  0              0                PROCR OF ENTRY                          SELECT
          32946    80      430      2   0  0              0        430     >CONVERT                                ENTER SUBROUTINE
          32947    5       72       2   0  0              0                                                        TRANSFER
          32948    52      8        2   0  0              0                                                        EDIT
          32949    C       334      2   0  0              0        334                                             
          32950    80      333      2   0  0              0        333     PRINT'ENTRY'                            ENTER SUBROUTINE
          32951    52      9        4   0  0              0                EDIT SECOND BLOCK                       EDIT
  Source image: P1030251.JPG
          32952    C       334     28   0  0              0        334                                             
          32953    80      407      2   0  0              0        407     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          33000    PROCR   330       330     DEAL WITH FILE IDS                                                    
          33001     NOTES          RADIX     B                                                                     SELECT
          33002    17      92       7   0  0             10                SPACE OCCUPIED BY CONVERT TABLES        MULTIPLY LITERAL and ADD
          33003    101            204   1  1              0                FOR ALLOCATOR                           add literal address
          33004    5       61     100   0  0              0                SP CHAP SPACE CTR                       TRANSFER
          33005    10               0   0  0              0                2R=0                                    SELECT LITERAL
          33006    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          33007    1       92      29   0  0              0                EXTRA CHAP NO                           ADD
          33008    1       92      29   0  0              0                                                        ADD
          33009    3       61      40   0  0              0                LAST ROUTE PARAMETER                    COPY
          33010    5       61      39   0  0              0                PARA CTR                                TRANSFER
          33011    10               0   0  0              0                2R=0                                    SELECT LITERAL
          33012    91               0   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          33013    90               0   0  1              0                O/P M.R.                                SET MODIFICATION REGISTER AT LITERAL
          33014    C                0   0  0             48                                                        
          33015    80      432      2   0  0              0        432     I/P                                     ENTER SUBROUTINE
                                                                                                                   
          33100    PROCR   331       331     O/P REMAINING FILE IDS, CHAP START POINTS                             
          33101     NOTES          RADIX     B    PREP                                                             SELECT
          33102    96               0   0  1              0                                                        SELECT MODIFIER
          33103    70      331      7   0  0              0        331                                             JUMP IF A == 0
          33104            436      2   1  0              0        436     BEW                                     SELECT
          33105    5       9        4   1  1              0                                                        TRANSFER
          33106    80      407      2   0  0              0        407     O/P                                     ENTER SUBROUTINE
    33103>33107    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33108    C       335      2   0  0              0        335     UNPACK 'CHAPS'                          
          33109    54      70       0   1  0            100                CLEAR FOR SECTION DETAILS               BULK CLEAR
          33110    80      405      2   0  0              0        405     >BLANK LINE                             ENTER SUBROUTINE
          33111    52      8        2   0  0              0                                                        EDIT
          33112    C       335      2   0  0              0        335                                             
          33113    80      333      2   0  0              0        333     PRINT'CHAPS'                            ENTER SUBROUTINE
          33114    80      432      2   0  0              0        432     >READ MT                                ENTER SUBROUTINE
                                                                                                                   
          33200    PROCR   332       332     PRINT CHAPS I/P & TEST S/D                                            
          33201     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          33202    80      423      2   0  0              0        423     >PRINT'INDEX'EX SEC 5                   ENTER SUBROUTINE
          33203    80      423      2   0  0              0        423     >PRINT BLANK LINE                       ENTER SUBROUTINE
          33204    76      339      2   0  0              0        339     PROCR ETC ON MT                         JUMP unconditional
                                                                                                                   
          33300    PROCR   333       333                                                                           
          33302    81      333      2   0  0              0        333                                             START OF SUBROUTINE
          33303    55      8        0   1  0             52                                                        BULK COPY
          33304    C       7        0   1  0              0                                                        
          33305    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          33306    37      7        2   0  0              0                PRINT                                   REPLACE SELECTED BITS
          33307    80      403      2   0  0              0        403                                             ENTER SUBROUTINE
          33308    82      333      2   0  0              0        333                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          33400    TABLE   334       334     1    PROGM, ENTRY, O/P HDNG, SECTIONS FILES                           
          33401     NOTES                                                                                          
          33402    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          33404    66     2     0     0  2  0   5   0  11   0  0  0  0     PROGM/ENTRY                             
          33406    66     4     0     0  1  0   5   5   1   2  0  0  0     SUITE/PROCR                             
          33408    66     6     0     0  2  0   5   0   2   0  0  0  0     JOB/PRIORITY                            
          33410    66     8     0     0  2  0   5   0   1   0  0  0  1     SERIAL/CODER                            
          33412   336    10     0     0  2  0   5   0   0   0  0  0  0     ALIGN MARKS                             
          33414   336     8     0     0  2  0   5   0   0   0  0  0  0     'INDEX'                                 
  Source image: P1030252.JPG
          33416   435    20     0     0  0  0   5   0   0   0  0  0  0                                             
          33418   336    13     0     0  0  0   1   3   4   0  0  0  0     '4'                                     
          33420    66     4     0     0  1  0   3   7   0   0  0  0  0     PROG SUITE                              
          33422    66     6     0     0  2  0   2   3   0   0  0  0  0     PROG ID                                 
          33424    66     8     0     0  2  0   5   0   0   0  0  0  0     PROG SERIAL                             
          33426   436     2     0     0  2  0   5   0   0   0  0  0  1     BEW                                     
          33428    92     5     0     0  0  0   5   0   0   4  0  0  0     FP IND                                  
          33430    92     4     0     0  0  0   5   0   0   4  0  0  0     MG                                      
          33432    66     6     0     0  2  0   5   0   0   0  0  0  0     PRIORITY                                
          33434    92     0     0     0  0  0   5   0   0   4  0  0  0     CHAPS+1                                 
          33436    92    29     0     0  0  0   5   0   0   4  0  0  0     CHAPS INITIALLY                         
          33438   436     2     0     0  2  0   5   0   0   0  0  0  1     BEW                                     
          33440    66    10     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          33442    66     0     0     0  2  0   5   0   5   0  0  0  0     SERIAL                                  
          33444    66     2     0     0  1  0   5   5   4   4  0  0  0     SEC NO                                  
          33446    66     4     0     0  1  0   5   5   3   4  0  0  0     LENGTH                                  
          33448    66     6     0     0  1  0   5   5   0   4  0  0  0     TX AREA IND                             
          33450    66     8     0     0  1  0   5   5   3   4  0  0  1     CHAP                                    
          33452    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND== FILES                       
          33454    66     2     0     0  2  0   5   0  15   0  0  0  0     FILE ID                                 
          33456    66     4     0     0  1  0   5   5   1   4  0  0  0     ROUTE TYPE                              
          33458    66     6     0     0  1  0   5   5   2   4  0  0  0     RETN PERIOD                             
          33460    66     8     0     0  1  0   5   5   2   4  0  0  0     MBS                                     
          33462    66    10     0     0  1  0   5   5   0   4  0  0  1     ALT ROUTE                               
          33464    66     2     0     0  2  0   5   0   0   0  0  0  0     FILE ID == FILES                        
          33466    66     4     0     0  1  0   5   5   0   4  0  0  0     ROUTE TYPE                              
          33468    66     6     0     0  1  0   5   5   0   4  0  0  0     RETN PERIOD                             
          33470    66     8     0     0  1  0   5   5   0   4  0  0  0     MBS                                     
          33472    61     0     0     0  0  0   5   0   0   4  0  0  0     START LOCN                              
          33474    66    10     0     0  1  0   5   5   0   4  0  0  1     ALT ROUTE                               
                                                                                                                   
          33500    TABLE   335       335     1    CHAPS LINE                                                       
          33501     NOTES                                                                                          
          33502    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          33504    66     2     0     0  2  0   5   0   1   0  0  0  0     'CHAPS'                                 
          33506    66     4     0     0  0  0   5   0   0   4  0  0  0     NUMBER OF CHAPS                         
          33508    66     6     0     0  0  0   5   0   1   4  0  0  0     1                                       
          33510    66     7     0     0  0  0   5   0   1   5  0  0  0     2                                       
          33512    66     8     0     0  0  0   5   0   1   5  0  0  0     3                                       
          33514    66     9     0     0  0  0   5   0   1   5  0  0  0     4                                       
          33516    66    10     0     0  0  0   5   0   1   5  0  0  0     5                                       
          33518    66    11     0     0  0  0   5   0   1   5  0  0  0     6                                       
          33520    66    12     0     0  0  0   5   0   1   5  0  0  0     7                                       
          33522    66    13     0     0  0  0   5   0   1   5  0  0  0     8                                       
          33524    66    14     0     0  0  0   5   0   1   5  0  0  0     9                                       
          33526    66    15     0     0  0  0   5   0   1   5  0  0  0     10                                      
          33528    66    16     0     0  0  0   5   0   1   5  0  0  0     11                                      
          33530    66    17     0     0  0  0   5   0   1   5  0  0  0     12                                      
          33532    66    18     0     0  0  0   5   0   1   5  0  0  0     13                                      
          33534    66    19     0     0  0  0   5   0   1   5  0  0  1     14-TH START                             
          33536   336     8     0     0  2  0   5   0   6   0  0  0  0     'INDEX'                                 
          33538    92    29     0     0  0  0   1   4   4   0  0  0  0     CHAPS INITIALLY                         
          33540    92    10     0     0  0  0   1   4   5   1  0  0  0     CORRECTED CHAPTER NUMBERS               
          33542    92    11     0     0  0  0   1   4   5   1  0  0  0                                             
          33544    92    12     0     0  0  0   1   4   5   1  0  0  0                                             
          33546    92    13     0     0  0  0   1   4   5   1  0  0  0                                             
          33548    92    14     0     0  0  0   1   4   5   1  0  0  0                                             
          33550    92    15     0     0  0  0   1   4   5   1  0  0  0                                             
          33552    92    16     0     0  0  0   1   4   5   1  0  0  0                                             
          33554    92    17     0     0  0  0   1   4   5   1  0  0  0                                             
  Source image: P1030253.JPG
          33556    92    18     0     0  0  0   1   4   5   1  0  0  0                                             
          33558    92    19     0     0  0  0   1   4   5   1  0  0  0                                             
          33560    92    20     0     0  0  0   1   4   5   1  0  0  0                                             
          33562    92    21     0     0  0  0   1   4   5   1  0  0  0                                             
          33564    92    22     0     0  0  0   1   4   5   1  0  0  0                                             
          33566    92    23     0     0  0  0   1   4   5   1  0  0  1     LAST ENTRY                              
                                                                                                                   
          33600    CONST   336       336     1    FOR PASS 2 PREP STAGE                                            
          33602          (A)PROGM;                                                                                 
          33604          ENTRY;                                                                                    
          33606          CHAPS;                                                                                    
          33608          INDEX;                                                                                    
          33610          (D)6£6£6£6£6£;                                                                            
          33612          0514908000;                                       08000 FILE A9                           
                                                                                                                   
          33700    PROCR   337       337     DUMMIES FOR SEC 61 DESCRIPTION                                        
          33701     NOTES  337                                                                                     SELECT
          33702            61       0   0  0              0                ACTION WL/ENTRY POINT                   SELECT
          33703            61       1   0  0              0                NON-ARITH IND                           SELECT
                                                                                                                   
          33800    PROCR   338       338                                                                           
          33802    81      338      2   0  0              0        338                                             START OF SUBROUTINE
          33803    0       338      2   0  0              0        338                                             SELECT
          33804    5       401      2   0  0              0        401                                             TRANSFER
          33805    76      401      8   0  0              0        401                                             JUMP unconditional
                                                                                                                   
          33900    PROCR   339       339     FORM PARA CTR ETC                                                     
          33901     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    33204>33902    80      338      2   0  0              0        338                                             ENTER SUBROUTINE
          33903    80      354      2   0  0              0        354     >EDIT FIRST DIRECTIVE                   ENTER SUBROUTINE
          33904    10               0   0  0              0                                                        SELECT LITERAL
          33905    5       437     99   0  0              0        437                                             TRANSFER
          33906            61      39   0  0              0                                                        SELECT
          33907    11               0   0  0              1                FORM                                    ADD LITERAL
          33908    3       61      41   0  0              0                MOD GROUP PARAMETER                     COPY
          33909    11               0   0  0              4                                                        ADD LITERAL
          33910    5       61      39   0  0              0                TOTAL NO OF PARAMETER                   TRANSFER
          33911    0       92       8   0  0              0                LIST END                                SELECT
          33912    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          33913    1       436     15   0  0              0        436     ABS ADDRESS 18:0                        ADD
          33914    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          33915            436     14   0  0              0        436     ABS ADDRESS 18:2499                     SELECT
          33916    5       61     118   0  0              0                LOCN CTR SC'S FWD                       TRANSFER
          33917            436      4   1  0              0        436     0:144                                   SELECT
          33918    5       61      44   1  0              0                O/P MOD CTR                             TRANSFER
          33919    10               0   0  0              1                                                        SELECT LITERAL
          33920    5       61     111   0  0              0                UNCORRECTED CHAP NO.                    TRANSFER
    35819>33921    10               0   0  0             41                                                        SELECT LITERAL
          33922    5       61      26   1  0              0                TYPE                                    TRANSFER
          33923    5       61      28   1  0              0                SECTION NO.                             TRANSFER
          33924    80      409      2   0  0              0        409     O/P TYPE S/R        THIS CLEARS D67 INITENTER SUBROUTINE
          33925    10               0   0  0              1                                                        SELECT LITERAL
          33926    5       61      42   1  0              0                                                        TRANSFER
          33927    5       61     109   0  0              0                CLEAR STERLING CTR                      TRANSFER
          33928    05      67       0   0  0              0                67/0 NOT CLEARED BY O/P TYPE S/R        TRANSFER
                                                                                                                   
          34000    PROCR   340       340     O/P PARAS                                                             
          34001     NOTES          RADIX     B    CHAP START ROUTINE                                               SELECT
          34002            61      39   0  0              0                PARA CTR                                SELECT
          34003    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
  Source image: P1030254.JPG
          34004    5       61       0   1  0              0                                                        TRANSFER
          34005    91      61       0   1  3              0                M/R 3 AT W/L                            SET MODIFICATION REGISTER AT VARIABLE
    34009>34006    95               0   0  3              0                                                        SELECT MODIFICATION REGISTER
          34007    5       67       2   0  0              0                                                        TRANSFER
          34008    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          34009    94      340      6   0  3              1        340                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          34010    10               0   0  0              3                                                        SELECT LITERAL
          34011    4       61       5   0  0              0                LONG PROCR                              AUGMENT
          34012    4       61       6   0  0              0                SHORT PROCR                             AUGMENT
          34013    4       61       7   0  0              0                TSL PROCR                               AUGMENT
          34014    10               0   0  0              0                                                        SELECT LITERAL
          34015    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          34016    124     61     111   0  0              0                UNCORRECTED CHAP NO                     modify address of next
          34017    36      92       9   0  0              0                CORRECTED CHAP NUMBER                   COLLATE AND ADD
          34018    3       61      51   0  0              0                                                        COPY
          34019    1       61      51   0  0              0                                                        ADD
          34020    5       61       3   0  0              0                2C                                      TRANSFER
          34021            61       5   0  0              0                                                        SELECT
          34022    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          34023    1       61       3   0  0              0                                                        ADD
          34024    5       61       4   0  0              0                LN:2C                                   TRANSFER
          34025    10               0   0  0         .0000.                14:14                                   SELECT LITERAL
          34026    5       61      12   1  0              0                LN CTR                                  TRANSFER
          34027    5       61      14   1  0              0                SN CTR                                  TRANSFER
          34028            436     16   1  0              0        436     180:180                                 SELECT
          34029    5       61      16   1  0              0                TSL CTR                                 TRANSFER
          34030    5       61      10   1  0              0                                                        TRANSFER
          34031    80      411      2   0  0              0        411     O/P ZERO COMPARTMENTFOR LINK            ENTER SUBROUTINE
          34032    80      369      2   0  0              0        369     >O/P 25/1/1 4096+24/0/3 0               ENTER SUBROUTINE
          34033    10               0   0  0            700                7 IN Q3                                 SELECT LITERAL
          34034    5       67       1   0  0              0                SET'MR ENTRY' IND                       TRANSFER
          34035    0       437     60   0  0              0        437     23/0/2 0                                SELECT
          34036    80      350      2   0  0              0        350     >O/P                                    ENTER SUBROUTINE
          34037    80      411      2   0  0              0        411     O/P TWO ZERO COMPARTMENTS               ENTER SUBROUTINE
          34038    80      411      2   0  0              0        411                                             ENTER SUBROUTINE
          34039            438     15   0  0              0        438     26/0/1/6-                               SELECT
          34040    80      398      2   0  0              0        398     >O/P INT SC                             ENTER SUBROUTINE
                                                                                                                   
          34100    PROCR   341       341     SECTION START ROUTINE                                                 
          34101     NOTES          RADIX     B                                                                     SELECT
    35509>                                                                                                         
    35511>34102    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          34103                     6   1 12              0                                                        SELECT
          34104    2       434      8   1  0              0        434     PROCR                                   SUBTRACT
          34105    71      341      9   0  0              0        341                                             JUMP IF A != 0
          34106    10               0   0  0              1                                                        SELECT LITERAL
          34107    5       61      42   0  0              0                                                        TRANSFER
          34108    76      343      4   0  0              0        343                                             JUMP unconditional
    34105>34109    80      346      2   0  0              0        346     ROUND UP SPACE CTR                      ENTER SUBROUTINE
          34110                    14   2 12              0                CONST OR TABLE TYPE                     SELECT
          34111    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          34112    5       61      47   0  0              0                                                        TRANSFER
          34113                     6   1 12              0                                                        SELECT
          34114    2       434      4   1  0              0        434     TABLE                                   SUBTRACT
          34115    71      342      5   0  0              0        342     =                                       JUMP IF A != 0
                                                                                                                   
          34200    PROCR   342       342     SECTION START ROUTINE                                                 
          34201     NOTES          RADIX     B                                                                     SELECT
          34202    10               0   0  0              2                                                        SELECT LITERAL
          34203    5       61      42   0  0              0                                                        TRANSFER
  Source image: P1030255.JPG
          34204    76      343      3   0  0              0        343                                             JUMP unconditional
    34115>34205    10               0   0  0              2                AMOUNT TO AUGMENT   SPACE CTR ON O/P    SELECT LITERAL
          34206    5       61      42   0  0              0                                                        TRANSFER
                                                                                                                   
          34300    PROCR   343       343     SECTION START ROUTINE                                                 
          34301     NOTES          RADIX     B                                                                     SELECT
          34302    10               0   0  0              1                'CONST'                                 SELECT LITERAL
    34204>34303    11               0   0  0              1                TABLE                                   ADD LITERAL
    34108>34304    11               0   0  0              1                PROCR                                   ADD LITERAL
          34305    3       61      26   2  0              0                                                        COPY
          34306    84      345      2   0  0              0        345                                             SET SWITCH(ES) AT VARIABLE VALUE
          34307            7       12   2  0              0                NEW PROCR NO                            SELECT
                                                                                                                   
          34400    PROCR   344       344     SECTION START ROUTINE                                                 
          34401     NOTES          RADIX     B                                                                     SELECT
          34402    80      430      2   0  0              0        430     >CONVERT                                ENTER SUBROUTINE
          34403    3       61      28   2  0              0                                                        COPY
          34404    3       61      10   0  0              0                CURRENT PROCR                           COPY
          34405    2       72       2   0  0              0                ENTRY PROCR                             SUBTRACT
          34406    71      344      9   0  0              0        344     >NO                                     JUMP IF A != 0
          34407            61      43   0  0              0                                                        SELECT
          34408    5       27       5   0  0              0                ENTRY LOCN                              TRANSFER
    34406>34409    0       61      43   0  0              0                                                        SELECT
          34410    5       61      11   0  0              0                STORE PROCR START ADDRESS               TRANSFER
          34411    80      347      2   0  0              0        347     >SET'PRINT PROCEDURE'IND                ENTER SUBROUTINE
          34412    80      409      2   0  0              0        409     O/P TYPE                                ENTER SUBROUTINE
          34413    10               0   0  0             80                TRACK 8                                 SELECT LITERAL
          34414    5       61      46   0  0              0                HEAD OF FORM                            TRANSFER
          34415    80      423      2   0  0              0        423     >SECOND PRINT SR                        ENTER SUBROUTINE
          34416    80      402      2   0  0              0        402     >PRINT                                  ENTER SUBROUTINE
          34417    80      351      2   0  0              0        351     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          34418    76      353      2   0  0              0        353                                             JUMP unconditional
                                                                                                                   
          34500    PROCR   345       345     SWITCH A                                                              
          34501     NOTES          RADIX     B                                                                     SELECT
    35305>                                                                                                         
    35324>34502    85      345      2   0  0              0        345                                             SWITCH R
          34503    C       360      2   0  0              0        360     INST                                    
          34504    C       391      2   0  0              0        391     TABLE                                   
          34505    C       370      2   0  0              0        370     CONST                                   
          34506    C       353      2   0  0              0        353     DUMMY                                   
          34507    C       353      2   0  0              0        353     ' '                                     
          34508    C       353      2   0  0              0        353     ' '                                     
          34509    C       352      8   0  0              0        352                                             
                                                                                                                   
          34600    PROCR   346       346     SUBROUTINE 1                                                          
          34601     NOTES          RADIX     B    ROUND OFF TO MULT OF 2                                           SELECT
          34602    81      346      2   0  0              0        346                                             START OF SUBROUTINE
          34603    10               0   0  0              0                                                        SELECT LITERAL
          34604    34      436      6   0  0              0        436     1                                       SET (N) IN B
          34605    36      61      43   0  0              0                SPACE CTR                               COLLATE AND ADD
          34606    70      346     11   0  0              0        346                                             JUMP IF A == 0
          34607    5       61      42   0  0              0                                                        TRANSFER
          34608    5       67       0   1  0              0                                                        TRANSFER
          34609    5       67       2   1  0              0                                                        TRANSFER
          34610    80      411      2   0  0              0        411     >O/P ZERO LOCATION                      ENTER SUBROUTINE
    34606>34611    82      346      2   0  0              0        346                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34700    PROCR   347       347     EXTRACT'PRINT PROCEDURE'IND FROM ARRAY IN SEC 23                      
          34702    81      347      2   0  0              0        347                                             START OF SUBROUTINE
  Source image: P1030256.JPG
          34703    19      61      10   0  0             14                PROCR/20                                DIVIDE LITERAL
          34704    5       348      2   0  0              0        348                                             TRANSFER
          34705    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          34706    5       352      2   0  0              0        352     WL                                      TRANSFER
          34707    34      435     22   0  0              0        435     1                                       SET (N) IN B
          34708    124     352      2   0  1              0        352                                             modify address of next
          34709    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          34710    124     348      2   0  1              0        348                                             modify address of next
          34711    36      23       5-  0  0              0                                                        COLLATE AND ADD
          34712    5       23      47   0  0              0                NON-ZERO TO PRINT WHOLE PROCR           TRANSFER
          34713    82      347      2   0  0              0        347                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34800    PROCR   348       348     O/P WITH ZERO REF, PARA=2C                                            
          34801     NOTES  348                                                                                     SELECT
          34802    81      348      2   0  0              0        348     (A)=INSTRUCTION                         START OF SUBROUTINE
          34803    5       67       3   0  0              0                                                        TRANSFER
          34804            61       3   0  0              0                2C                                      SELECT
          34805    5       67       2   0  0              0                                                        TRANSFER
          34806    80      411      2   0  0              0        411                                             ENTER SUBROUTINE
          34807    82      348      2   0  0              0        348                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34900    PROCR   349       349     O/P ARITH INSTRUCTION                                                 
          34901     NOTES  349                                                                                     SELECT
          34902    81      349      2   0  0              0        349                                             START OF SUBROUTINE
          34903    5       61       0   0  0              0                                                        TRANSFER
          34904    5       61       1   0  0              0                                                        TRANSFER
          34905    80      429      2   0  0              0        429     >COMPLEX O/P                            ENTER SUBROUTINE
          34906    82      349      2   0  0              0        349                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35000    PROCR   350       350                                                                           
          35001     NOTES  350                                                                                     SELECT
          35002    81      350      2   0  0              0        350                                             START OF SUBROUTINE
          35003    5       67       3   0  0              0                                                        TRANSFER
          35004    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          35005    82      350      2   0  0              0        350                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35100    PROCR   351       351                                                                           
          35102    81      351      2   0  0              0        351                                             START OF SUBROUTINE
          35103    54      7        2   1  0             48                BULK CLEAR SEC 7                        BULK CLEAR
          35104    82      351      2   0  0              0        351                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35200    PROCR   352       352     LN:2C SUBROUTINE                                                      
          35201     NOTES  352                                                                                     SELECT
          35202    81      352      2   0  0              0        352     (A)=INSTRUCTION                         START OF SUBROUTINE
          35203    5       67       3   0  0              0                                                        TRANSFER
          35204    0       61       4   0  0              0                LN:2C FOR FIRST LN PROCR                SELECT
          35205    5       67       2   0  0              0                IN CHAP                                 TRANSFER
          35206    80      411      2   0  0              0        411     >O/P                                    ENTER SUBROUTINE
          35207    82      352      2   0  0              0        352                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    36104>                                                                                                         
    36105>                                                                                                         
    36106>                                                                                                         
    36107>                                                                                                         
    36108>                                                                                                         
    36109>                                                                                                         
    36110>                                                                                                         
    36111>                                                                                                         
    36112>                                                                                                         
    36113>                                                                                                         
    36118>                                                                                                         
    36119>                                                                                                         
    36611>                                                                                                         
  Source image: P1030257.JPG
    34509>35208    80      352      2   0  0              0        352     (THEN GET NEXT BLOCK)                   ENTER SUBROUTINE
                                                                                                                   
          35300    PROCR   353       353     GET NEXT BLOCK                                                        
          35301     NOTES          RADIX     B                                                                     SELECT
    35327>                                                                                                         
    36010>                                                                                                         
    36011>                                                                                                         
    36013>                                                                                                         
    36706>                                                                                                         
    37718>                                                                                                         
    39518>                                                                                                         
    39522>                                                                                                         
    42109>                                                                                                         
    34508>                                                                                                         
    34507>                                                                                                         
    34506>                                                                                                         
    34418>35302    80      401      2   0  0              0        401     >READ                                   ENTER SUBROUTINE
    41509>35303                     6   1 12              0                                                        SELECT
          35304    2       434      6   1  0              0        434     'CONST'                                 SUBTRACT
          35305    73      345      2   0  0              0        345     >NOT A DIRECTIVE                        JUMP IF A < 0
          35306    80      354      2   0  0              0        354     EDIT DIRECTIVES                         ENTER SUBROUTINE
          35307                     6   1 12              0                                                        SELECT
          35308    2       434      6   1  0              0        434     'CONST'                                 SUBTRACT
          35309    70      355      2   0  0              0        355                                             JUMP IF A == 0
          35310    1       434      6   1  0              0        434                                             ADD
          35311    2       434      4   1  0              0        434     TABLE                                   SUBTRACT
          35312    70      355      2   0  0              0        355                                             JUMP IF A == 0
          35313    1       434      4   1  0              0        434                                             ADD
          35314    2       434      8   1  0              0        434     'PROCR'                                 SUBTRACT
          35315    70      355      2   0  0              0        355                                             JUMP IF A == 0
          35316    1       434      8   1  0              0        434                                             ADD
          35317    2       434     12   1  0              0        434     END(SPACE)(SPACE)                       SUBTRACT
          35318    71      353     22   0  0              0        353                                             JUMP IF A != 0
          35319    10               0   0  0              1                                                        SELECT LITERAL
          35320    5       61      48   0  0              0                                                        TRANSFER
          35321    76      355     13   0  0              0        355                                             JUMP unconditional
    35318>35322    1       434     12   1  0              0        434                                             ADD
          35323    2       434     10   1  0              0        434     'NOTES'                                 SUBTRACT
          35324    71      345      2   0  0              0        345                                             JUMP IF A != 0
          35325    80      402      2   0  0              0        402     >PRINT 'NOTES' LINE                     ENTER SUBROUTINE
          35326    80      351      2   0  0              0        351     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          35327    76      353      2   0  0              0        353                                             JUMP unconditional
                                                                                                                   
          35400    PROCR   354       354     EDIT DIRECTIVES                                                       
          35402    81      354      2   0  0              0        354                                             START OF SUBROUTINE
          35403    80      351      2   0  0              0        351     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          35404            77       2   1  0              0                AMEND IND                               SELECT
          35405    5       7        2   1  0              0                                                        TRANSFER
          35406            77       4   1  0              0                LINE SERIAL                             SELECT
          35407    5       7        6   1  0              0                                                        TRANSFER
          35408            77       6   1  0              0                'PROCR/TABLE/CONST/NOTES/VALUE/END'     SELECT
          35409    5       7       10   1  0              0                                                        TRANSFER
          35410            77       8   1  0              0                PROCR NO                                SELECT
          35411    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          35412    5       7       12   1  0              0                                                        TRANSFER
          35413            77      10   1  0              0                OLD PROCR NO                            SELECT
          35414    5       7       16   1  0              0                                                        TRANSFER
          35415            77       6   1  0              0                                                        SELECT
  Source image: P1030258.JPG
          35416    2       434     10   1  0              0        434     'NOTES'                                 SUBTRACT
          35417    71      354     21   0  0              0        354     >NO                                     JUMP IF A != 0
          35418            77      12   1  0              0                'RADIX'                                 SELECT
          35419    5       7       16   1  0              0                                                        TRANSFER
          35420    76      354     23   0  0              0        354                                             JUMP unconditional
    35417>35421            77      12   1  0              0                PASS 1 REPORTS                          SELECT
          35422    5       7       48   1  0              0                                                        TRANSFER
    35420>35423            77       6   1  0              0                                                        SELECT
          35424    2       434      8   1  0              0        434     'PROCR'                                 SUBTRACT
          35425    70      354     29   0  0              0        354     >YES                                    JUMP IF A == 0
          35426            77      14   1  0              0                TABLE/CONST TYPE/RADIX LETTER           SELECT
          35427    5       7       20   1  0              0                                                        TRANSFER
          35428    76      354     31   0  0              0        354                                             JUMP unconditional
    35425>35429            77      14   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          35430    5       7       20   1  0              0                                                        TRANSFER
    35428>35431    55      77      16   1  0             26                COPY ANNOTATION                         BULK COPY
          35432    C       7       22   1  0              0                                                        
          35433    82      354      2   0  0              0        354                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35500    PROCR   355       355     TEST NEW CHAP                                                         
          35501     NOTES          RADIX     B                                                                     SELECT
    35315>                                                                                                         
    35312>                                                                                                         
    35309>35502    0       7       12   2  0              0                NEW PROCR                               SELECT
          35503    5       61      35   0  0              0                                                        TRANSFER
          35504    124     61     111   0  0              0                THIS CHAP UCORR                         modify address of next
          35505            92       9   0  0              0                LAST PROCR THIS CHAP                    SELECT
          35506    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          35507    80      431      2   0  0              0        431     >CONVERT TO DEC                         ENTER SUBROUTINE
          35508    2       61      35   0  0              0                                                        SUBTRACT
          35509    72      341      2   0  0              0        341     NOT NEW CHAP                            JUMP IF A >= 0
          35510    11               0   0  0              1                TEST THIS PROCEDURE SAFETY              ADD LITERAL
          35511    71      341      2   0  0              0        341     ONE GREATER THAN PREDEVICE              JUMP IF A != 0
          35512    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    35321>35513    80      346      2   0  0              0        346     >ROUND UP SPACE CTR                     ENTER SUBROUTINE
          35514    80      356      2   0  0              0        356     >ROUND UP FORMED SECTIONS               ENTER SUBROUTINE
          35515    80      357      2   0  0              0        357     >O/P FORMED SECTIONS                    ENTER SUBROUTINE
          35516    76      358      2   0  0              0        358                                             JUMP unconditional
                                                                                                                   
          35600    PROCR   356       356     ROUND UP SECTION CTRS                                                 
          35601     NOTES          RADIX     B    SUBROUTINE                                                       SELECT
          35602    81      356      2   0  0              0        356                                             START OF SUBROUTINE
          35603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          35604    C                0   0  0              6                                                        
    35611>35605    0       61      13   0  2              0                END VALUE                               SELECT
          35606    31               0   0  0              2                                                        SHIFT (A) BY BITS
          35607    32               0   0  0              1-               (DIVIDE BY 4)                           SHIFT (AB) BY QUARTETS
          35608    38               0   0  0              4                ROUND UP TO MULTIPLE OF 4               ROUND OFF
          35609    31               0   0  0              2                                                        SHIFT (A) BY BITS
          35610    5       61      13   0  2              0                                                        TRANSFER
          35611    94      356      5   0  2              2        356                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          35612    82      356      2   0  0              0        356                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35700    PROCR   357       357     O/P FORMED SECTIONS                                                   
          35701     NOTES          RADIX     B    SUBROUTINE                                                       SELECT
          35702    81      357      2   0  0              0        357                                             START OF SUBROUTINE
          35703    10               0   0  0         600000                                                        SELECT LITERAL
          35704    5       61       0   1  0              0                                                        TRANSFER
          35705    5       61      12   0  0              0                                                        TRANSFER
          35706    5       61       2   0  0              0                                                        TRANSFER
  Source image: P1030259.JPG
    35722>35707    91      61       2   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          35708            436      7   0  3              0        436     TYPE NO                                 SELECT
          35709    5       61      26   1  0              0                                                        TRANSFER
          35710            61       5   0  3              0                                                        SELECT
          35711    5       61      28   2  0              0                PROCR NUMBER                            TRANSFER
          35712    80      409      2   0  0              0        409     O/P TYPE                                ENTER SUBROUTINE
          35713            436     10   0  3              0        436                                             SELECT
          35714    5       61      42   0  0              0                NO OF LOCNS TO STEP ON LCN CTR ON O     TRANSFER
          35715    124     61       0   0  0              0                                                        modify address of next
          35716            61      12   1  0              0                SECT COUNTER                            SELECT
          35717    5       61      30   1  0              0                                                        TRANSFER
          35718    10               0   0  0              1                                                        SELECT LITERAL
          35719    4       61       2   0  0              0                                                        AUGMENT
          35720    123              2   0  0              0                                                        step on and test
          35721    C       61       0   0  0              0                                                        
          35722    76      357      7   0  0              0        357                                             JUMP unconditional
          35723    82      357      2   0  0              0        357                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35800    PROCR   358       358     DEAL WITH TRANS VACANT SECS                                           
          35801     NOTES          RADIX     B    CHAP END ROUTINE                                                 SELECT
    35516>35802    10               0   0  0              1                TYPE 1                                  SELECT LITERAL
          35803    5       61      26   2  0              0                                                        TRANSFER
          35804    101           1001   1  3              0                CALC SWITCH PROCR                       select literal address
          35805    1       61     111   0  0              0                THIS CHAP UNCORRECTED                   ADD
          35806    5       61      28   2  0              0                61/43=CHAP LENGTH                       TRANSFER
          35807    80      409      2   0  0              0        409     >O/P 'TYPE'                             ENTER SUBROUTINE
          35808            61      43   0  0              0                CHAP LENGTH                             SELECT
          35809    124     61     111   0  1              0                UNCORR CHAP                             modify address of next
          35810    5       72      17   0  0              0                STORE 72/18-31                          TRANSFER
          35811            434     24   1  0              0        434     'TYPE.'                                 SELECT
          35812    5       61      26   1  0              0                                                        TRANSFER
          35813    5       61      28   1  0              0                                                        TRANSFER
          35814    80      410      2   0  0              0        410     ALPHA O/P S/R                           ENTER SUBROUTINE
          35815    10               0   0  0              1                                                        SELECT LITERAL
          35816    1       61     111   0  0              0                                                        ADD
          35817    3       61     111   0  0              0                                                        COPY
          35818            61      48   0  0              0                                                        SELECT
          35819    70      339     21   0  0              0        339                                             JUMP IF A == 0
          35820    76      359      3   0  0              0        359                                             JUMP unconditional
                                                                                                                   
          35900    PROCR   359       359     PROG END ROUTINE                                                      
          35901     NOTES          RADIX     B                                                                     SELECT
          35902    76      359      9   0  0              0        359     THIS AN ORDER CONSTANT                  JUMP unconditional
    35820>35903    80      413      2   0  0              0        413     >O/P REMAINING DETS S/R                 ENTER SUBROUTINE
          35904    0       437      6   0  0              0        437     ALL THE £'S                             SELECT
          35905    5       66       2   1  0              0                SET AS BLOCK SERIAL                     TRANSFER
          35906            359      2   0  0              0        359                                             SELECT
          35907    5       419      2   0  0              0        419     PLANT AN END SIGN                       TRANSFER
          35908    76      415     23   0  0              0        415     >I/P C-LINE SR                          JUMP unconditional
    35902>35909    10               0   0  0              1                                                        SELECT LITERAL
          35910    5       23      47   0  0              0                ALWAYS PRINT END SIGN                   TRANSFER
          35911    80      423      2   0  0              0        423     >BLANK LINE                             ENTER SUBROUTINE
          35912    80      403      2   0  0              0        403     >PRINT END SIGN                         ENTER SUBROUTINE
          35913            72       2   0  0              0                ENTRY POINT                             SELECT
          35914    5       61      35   0  0              0                                                        TRANSFER
          35915    80      396      2   0  0              0        396                                             ENTER SUBROUTINE
          35916    5       92       8   0  0              0                CHAP OF ENTRY                           TRANSFER
          35917            27       5   0  0              0                ENTRY LOCN                              SELECT
          35918    5       92       6   0  0              0                                                        TRANSFER
          35919    0       434     30   1  0              0        434     'TYPE£'                                 SELECT
  Source image: P1030260.JPG
          35920    05      9        4   1  0              0                                                        TRANSFER
          35921            436      2   1  0              0        436                                             SELECT
          35922    05      9        6   1  0              0                BEW                                     TRANSFER
          35923    80      407      2   0  0              0        407     >O/P                                    ENTER SUBROUTINE
    35931>35924    80      432      2   0  0              0        432     >READ A2                                ENTER SUBROUTINE
          35925            8        4   1  0              0                                                        SELECT
          35926    12               0   0  0     5659655972                'FINIS'                                 SUBTRACT LITERAL
          35927    70      359     32   0  0              0        359     >END                                    JUMP IF A == 0
          35928    55      8        4   1  0             50                                                        BULK COPY
          35929    C       9        4   1  0              0                                                        
          35930    80      407      2   0  0              0        407     >WRITE A6                               ENTER SUBROUTINE
          35931    76      359     24   0  0              0        359                                             JUMP unconditional
    35927>35932    55      70       0   1  0            100                COPY DETAILS FOR PASS 3                 BULK COPY
          35933    C       9        0   1  0              0                                                        
          35934    45      A6       0   0  0              0                REWIND O/P FILE                         REWIND
          35935    76      326      2   0  0              0        326     >CALL PASS 3                            JUMP unconditional
                                                                                                                   
          36000    PROCR   360       360     INST ROUTINE                                                          
          36001     NOTES          RADIX     B    NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE             SELECT
    34503>36002    10               0   0  0              1                                                        SELECT LITERAL
          36003    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          36004    80      415      2   0  0              0        415     -I/P C-LINE S/R                         ENTER SUBROUTINE
          36005            66       2   1  0              0                LINE SERIAL                             SELECT
          36006    5       67       0   1  0              0                                                        TRANSFER
          36007    5       61       2   0  0              0                CLEAR MOD DIGITS    FOR M&P.            TRANSFER
          36008    5       61      25   0  0              0                SET BINARY INDICATOR                    TRANSFER
          36009    0       61     110   0  0              0                GROUP+1                                 SELECT
          36010    70      353      2   0  0              0        353     G.N.B               TEST GROUP OUT      JUMP IF A == 0
          36011    73      353      2   0  0              0        353     G.N.B               OF RANGE            JUMP IF A < 0
          36012    12               0   0  0             11                                                        SUBTRACT LITERAL
          36013    72      353      2   0  0              0        353     G.N.B                                   JUMP IF A >= 0
          36014    84      361      2   0  0              0        361     SWITCH B (GROUP)                        SET SWITCH(ES) AT VARIABLE VALUE
          36015    C       61     110   0  0              0                                                        
          36016    84      411      2   0  0              0        411     VARIANT SWITCH                          SET SWITCH(ES) AT VARIABLE VALUE
          36017    C       61      50   0  0              0                VARIANT +1                              
                                                                                                                   
          36100    PROCR   361       361     SWITCH B                                                              
          36101     NOTES          RADIX     B                                                                     SELECT
          36102    10               0   0  0              0                                                        SELECT LITERAL
          36103    85      361      2   0  0              0        361                                             SWITCH R
          36104    C       352      8   0  0              0        352                                             
          36105    C       352      8   0  0              0        352                                             
          36106    C       352      8   0  0              0        352                                             
          36107    C       352      8   0  0              0        352                                             
          36108    C       352      8   0  0              0        352                                             
          36109    C       352      8   0  0              0        352                                             
          36110    C       352      8   0  0              0        352                                             
          36111    C       352      8   0  0              0        352                                             
          36112    C       352      8   0  0              0        352                                             
          36113    C       352      8   0  0              0        352                                             
          36114    C       366      5   0  0              0        366     10                                      
          36115    C       366      4   0  0              0        366     11                                      
          36116    C       366      3   0  0              0        366     12                                      
          36117    C       366      2   0  0              0        366     13                                      
          36118    C       352      8   0  0              0        352                                             
          36119    C       352      8   0  0              0        352                                             
                                                                                                                   
          36200    PROCR   362       362     S.C. S/R                                                              
          36201     NOTES          RADIX     B                                                                     SELECT
          36202    81      362      2   0  0              0        362     REF                                     START OF SUBROUTINE
  Source image: P1030261.JPG
          36203    0       66       6   1  0              0                REF                                     SELECT
          36204    70      364      9   0  0              0        364                                             JUMP IF A == 0
          36205    12               0   0  0            3.7                999                                     SUBTRACT LITERAL
          36206    72      364      9   0  0              0        364     >SKIP                                   JUMP IF A >= 0
          36207            66       8   1  0              0                ITEM                                    SELECT
          36208    71      362     13   0  0              0        362     >NOT TO PROCR START                     JUMP IF A != 0
          36209            61      10   0  0              0                THIS PROCR                              SELECT
          36210    2       66       6   0  0              0                REF                                     SUBTRACT
          36211    72      363     30   0  0              0        363     >SC BACK TO PROCR START                 JUMP IF A >= 0
          36212    76      362     23   0  0              0        362     >SC FORWARD                             JUMP unconditional
    36208>36213    95               0   0  1              0                CURRENT HEAD OF'SC BACK' LIST           SELECT MODIFICATION REGISTER
          36214    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          36215    1       436     15   0  0              0        436     ABS ADDRESS 18/0                        ADD
          36216    91               0   0  2              0                R2=(A)                                  SET MODIFICATION REGISTER AT VARIABLE
          36217    94      362     19   0  2              0        362     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          36218    76      362     23   0  0              0        362     >NO DESTS REPLACED YET                  JUMP unconditional
    36222>                                                                                                         
    36217>36219            66       2   0  0              0                THIS ORDER                              SELECT
          36220    2                1   0  2              0                INTERCODE DEST                          SUBTRACT
          36221    70      364      2   0  0              0        364     >MATCH FOUND                            JUMP IF A == 0
          36222    94      362     19   0  2              2        362     >TRY NEXT                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    36218>                                                                                                         
    36212>36223    0       66       6   1  0              0                                    ASSUME SEQ CH F     SELECT
          36224    80      431      2   0  0              0        431     >REF TO DEC                             ENTER SUBROUTINE
          36225    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          36226    5       61      18   0  0              0                                                        TRANSFER
          36227    0       66       8   1  0              0                                                        SELECT
          36228    80      431      2   0  0              0        431     >ITEM TO DEC                            ENTER SUBROUTINE
          36229    11               0   0  0              2                ADD 2 TO ITEM                           ADD LITERAL
          36230    4       61      18   0  0              0                                                        AUGMENT
          36231    62               0   0  0              0                SET BINARY                              SET EXCESS CONSTANTS
          36232    0       61     117   0  0              0                CTR OF SEC 20 LENGTH                    SELECT
          36233    91               0   0  2              0                ZERO END VALUE                          SET MODIFICATION REGISTER AT VARIABLE
          36234    70      363      9   0  0              0        363     >EMPTY                                  JUMP IF A == 0
          36235    12               0   0  0            12+                300                                     SUBTRACT LITERAL
          36236    73      362     38   0  0              0        362     >OK                                     JUMP IF A < 0
          36237    82      362      2   0  0              0        362     >EXIT, DON T SET S'C IND                END OF SUBROUTINE / LEAVE SUBROUTINE
    36308>                                                                                                         
    36236>36238    0       20       3-  0  2              0                NEXT DEST(LAST IN LIST FIRST)           SELECT
          36239    2       61      18   0  0              0                                                        SUBTRACT
          36240    73      363      9   0  0              0        363     >FITS NOW                               JUMP IF A < 0
                                                                                                                   
          36300    PROCR   363       363     S.C. S/R                                                              
          36301     NOTES          RADIX                                                                           SELECT
          36302    0       20       3-  0  2              0                MOVE LIST DOWN 1 ITEM                   SELECT
          36303    5       20       0   0  2              0                                                        TRANSFER
          36304    0       20       2-  0  2              0                                                        SELECT
          36305    5       20       1   0  2              0                                                        TRANSFER
          36306    0       20       1-  0  2              0                                                        SELECT
          36307    5       20       2   0  2              0                                                        TRANSFER
          36308    94      362     38   0  2              3-       362     >NEXT                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    36240>                                                                                                         
    36234>36309    0       61      18   0  0              0                DEST OF NEWCOMER                        SELECT
          36310    5       20       0   0  2              0                                                        TRANSFER
          36311            66       2   1  0              0                SOURCE                                  SELECT
          36312    5       20       1   0  2              0                                                        TRANSFER
          36313            66       8   1  0              0                                                        SELECT
          36314    3       20       2   0  2              0                                                        COPY
          36315    70      363     28   0  0              0        363     >DEST IS A PROCR START                  JUMP IF A == 0
          36316    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1030262.JPG
          36317    5       67       1   0  0              0                SET 'SEQ CH' IND                        TRANSFER
          36318    0       438     19   0  0              0        438     FLIPFLOP 1/10                           SELECT
          36319    30               0   0  0              4                TO Q5                                   SHIFT (A) BY QUARTETS
          36320    1       61     118   0  0              0                ABS LOCN IN SEC 18(18:2499 INITIALL     ADD
          36321    5       20       2   0  2              0                                                        TRANSFER
          36322    10               0   0  0              Ю                                                        SELECT LITERAL
          36323    2       438     19   0  0              0        438                                             SUBTRACT
          36324    3       438     19   0  0              0        438     REVERSE                                 COPY
          36325    71      363     28   0  0              0        363     >NEXT TIME IS TOP 10 BITS OF SAME LOCN  JUMP IF A != 0
          36326    12               0   0  0              1                                                        SUBTRACT LITERAL
          36327    4       61     118   0  0              0                REDUCE ABS ADDRESS                      AUGMENT
    36325>                                                                                                         
    36315>36328    10               0   0  0              3                                                        SELECT LITERAL
          36329    4       61     117   0  0              0                STEP CTR OF ACTIVE SC'S                 AUGMENT
    36211>36330    82      362      2   0  0              0        362                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36400    PROCR   364       364     SC S/R: MATCH FOUND IN SC BACK LIST                                   
          36401     NOTES          RADIX     B                                                                     SELECT
    36221>36402    34               0   0  2              0                PROCR+ITEM                              SET (N) IN B
          36403    33               0   0  0             30                                                        SHIFT (AB) BY BITS
          36404    5       66       6   1  0              0                REF(BITS 11-20)                         TRANSFER
          36405    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          36406    5       66       8   1  0              0                ITEM(BITS 1-10)                         TRANSFER
          36407    96               0   0  2              0                                                        SELECT MODIFIER
          36408    80      365      2   0  0              0        365     >CONTRACT LIST                          ENTER SUBROUTINE
    36206>                                                                                                         
    36204>36409    82      362      2   0  0              0        362                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36500    PROCR   365       365     CONTRACT THE SC BACK LIST BY 1 WORD                                   
          36501     NOTES  365                                                                                     SELECT
          36502    81      365      2   0  0              0        365                                             START OF SUBROUTINE
          36503    5       61     114   0  0              0                WORD TO BE OVERWRITTEN                  TRANSFER
          36504    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          36505    5       61      18   1  0              0                START/END OF LIST (ABS)                 TRANSFER
          36506            61      19   0  0              0                                                        SELECT
          36507    2       61     114   0  0              0                                                        SUBTRACT
          36508    70      365     18   0  0              0        365     >NONE TO BE MOVED                       JUMP IF A == 0
          36509    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          36510    1       61     114   0  0              0                                                        ADD
          36511    11               0   0  0              2                FORM SOURCE IN A                        ADD LITERAL
          36512    124     61     114   0  3              0                                                        modify address of next
          36513    128              0   1  1              0                COPY UP BY 1 WORD                       bulk copy long numeric
          36514    12               0   0  0              2                                                        SUBTRACT LITERAL
          36515    4       61      18   0  0              0                                                        AUGMENT
          36516    4       61      19   0  0              0                ADJUST R1 FOR NEW LIST POSITION         AUGMENT
          36517    91      61      18   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    36508>36518    82      365      2   0  0              0        365                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36600    PROCR   366       366     M/C ACTIONS                                                           
          36601     NOTES          RADIX     B    CALCULATE PARAMETER, TEST 24/1/0 OR 27/D/M                       SELECT
    36117>36602    10               0   0  0              Ю                GROUP 13                                SELECT LITERAL
    36116>36603    11               0   0  0              Ю                12                                      ADD LITERAL
    36115>36604    11               0   0  0              Ю                11                                      ADD LITERAL
    36114>36605    12               0   0  0              1                10                                      SUBTRACT LITERAL
          36606    1       61      50   0  0              0                V+1                                     ADD
          36607    3       61       0   0  0              0                ACTION                                  COPY
          36608    12               0   0  0             17                23                                      SUBTRACT LITERAL
          36609    70      368      2   0  0              0        368     >ACTION 23                              JUMP IF A == 0
          36610    12               0   0  0              9                                                        SUBTRACT LITERAL
          36611    72      352      8   0  0              0        352                                             JUMP IF A >= 0
  Source image: P1030263.JPG
    36804>36612            66       6   0  0              0                REF                 PARA 0 OR 2C        SELECT
          36613    70      366     20   0  0              0        366                                             JUMP IF A == 0
          36614    3       61      35   0  0              0                                                        COPY
          36615    80      396      2   0  0              0        396     DET CHAP                                ENTER SUBROUTINE
          36616    31               0   0  0              1                FORM 2C'                                SHIFT (A) BY BITS
          36617    76      366     20   0  0              0        366     >STORE PARA                             JUMP unconditional
          36618            61      51   0  0              0                                                        SELECT
          36619    1       61      51   0  0              0                                                        ADD
    36617>                                                                                                         
    36613>36620    5       61      34   0  0              0                PARA W/L                                TRANSFER
          36621    0       66      10   0  0              0                DISC                                    SELECT
          36622    12               0   0  0              2                                                        SUBTRACT LITERAL
          36623    71      366     27   0  0              0        366     >TAKE YOUR CHANCE                       JUMP IF A != 0
          36624    10               0   0  0              1                                                        SELECT LITERAL
          36625    3       66      10   0  0              0                                                        COPY
          36626    4       66       8   1  0              0                ADJUST ITEM                             AUGMENT
    36623>36627            61       0   0  0              0                ACTION                                  SELECT
          36628    3       362      2   0  0              0        362                                             COPY
          36629    31               0   0  0              1                                                        SHIFT (A) BY BITS
          36630    34      435      2   0  0              0        435     BIT 1                                   SET (N) IN B
          36631    36      66      10   0  0              0                DISC                                    COLLATE AND ADD
          36632    31               0   0  0              2                                                        SHIFT (A) BY BITS
          36633    34      436     18   0  0              0        436     BITS 1+2                                SET (N) IN B
          36634    36      66      12   0  0              0                MOD DIGITS                              COLLATE AND ADD
          36635    31               0   0  0              1                                                        SHIFT (A) BY BITS
          36636    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          36637    3       61       0   0  0              0                COMBINED A/D/M                          COPY
          36638    30               0   0  0              5-                                                       SHIFT (A) BY QUARTETS
          36639    70      366     47   0  0              0        366     >POSITIVE ACTION                        JUMP IF A == 0
          36640            61       0   0  0              0                                                        SELECT
          36641    71      366     44   0  0              0        366     >NOT'0-'                                JUMP IF A != 0
          36642    10               0   0  0              2                                                        SELECT LITERAL
          36643    5       67       1   0  0              0                SET IND                                 TRANSFER
    36641>36644    10               0   0  0              0                                                        SELECT LITERAL
          36645    2       61       0   0  0              0                                                        SUBTRACT
          36646    5       61       0   0  0              0                NEGATE ACTION                           TRANSFER
    36639>36647    5       66      10   1  0              0                                                        TRANSFER
          36648    5       66      12   1  0              0                                                        TRANSFER
          36649            61       0   0  0              0                                                        SELECT
          36650    2       437     46   0  0              0        437     24/1/0                                  SUBTRACT
          36651    70      367      2   0  0              0        367     >IS A SEQ CHANGE                        JUMP IF A == 0
          36652            362      2   0  0              0        362                                             SELECT
          36653    12               0   0  0             1‼                TEST FOR 27/D/M                         SUBTRACT LITERAL
          36654    71      367      3   0  0              0        367                                             JUMP IF A != 0
                                                                                                                   
          36700    PROCR   367       367     M/C ACTIONS                                                           
          36701     NOTES          RADIX     B                                                                     SELECT
    36651>36702    80      362      2   0  0              0        362     -S.C. S/R                               ENTER SUBROUTINE
    36821>                                                                                                         
    36654>36703    80      424      2   0  0              0        424     -NEG NO S/R                             ENTER SUBROUTINE
          36704    80      425      2   0  0              0        425     - STACK                                 ENTER SUBROUTINE
          36705    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          36706    76      353      2   0  0              0        353     GNB                                     JUMP unconditional
                                                                                                                   
          36800    PROCR   368       368     ACTION 123/0/0                                                        
          36801     NOTES          RADIX     B                                                                     SELECT
    36609>36802            66      12   0  0              0                MOD                                     SELECT
          36803    34      66      10   0  0              0                DISC                                    SET (N) IN B
          36804    75      366     12   0  0              0        366                                             JUMP IF AB != 0
          36805    5       61      34   0  0              0                SET PARA ZERO                           TRANSFER
  Source image: P1030264.JPG
          36806    00      437     61   0  0              0        437     23/0/0                                  SELECT
          36807    5       61       0   0  0              0                                                        TRANSFER
          36808    80      425      2   0  0              0        425     -STACK                                  ENTER SUBROUTINE
          36809    80      411      2   0  0              0        411     -O/P                                    ENTER SUBROUTINE
          36810    80      414      2   0  0              0        414     I/P INSTRUCTION                         ENTER SUBROUTINE
          36811            66       6   0  0              0                                                        SELECT
          36812    70      368     19   0  0              0        368     -ABS ADD                                JUMP IF A == 0
          36813    5       61      35   0  0              0                                                        TRANSFER
          36814    80      396      2   0  0              0        396     -DET CHAP                               ENTER SUBROUTINE
          36815    3       61      34   0  0              0                                                        COPY
          36816    1       61      34   0  0              0                                                        ADD
          36817    70      368     19   0  0              0        368     >DON'T MAKE A PARA 1-                   JUMP IF A == 0
          36818    12               0   0  0              1                                                        SUBTRACT LITERAL
    36817>                                                                                                         
    36812>36819    5       61      34   0  0              0                                                        TRANSFER
          36820    5       61       0   0  0              0                                                        TRANSFER
          36821    76      367      3   0  0              0        367                                             JUMP unconditional
                                                                                                                   
          36900    PROCR   369       369     SET NON-INTERRUPTIBLE S/R                                             
          36901     NOTES          RADIX     B    GROUPS 4 AND 15 BEFORE ENTER MASTER                              SELECT
          36902    81      369      2   0  0              0        369                                             START OF SUBROUTINE
          36903            437     73   0  0              0        437     25/1/1/4096                             SELECT
          36904    80      350      2   0  0              0        350     >O/P                                    ENTER SUBROUTINE
          36905    80      399      2   0  0              0        399     >O/P 24/0/3 0                           ENTER SUBROUTINE
          36906    82      369      2   0  0              0        369                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          37000    PROCR   370       370     CONSTANTS                                                             
          37001     NOTES          RADIX     B                                                                     SELECT
    34505>37002    54      61      55   0  0             14                CLEAR W/LS                              BULK CLEAR
          37003    80      379      2   0  0              0        379     -PREP S/R                               ENTER SUBROUTINE
          37004    80      380      2   0  0              0        380     -GET NEXT CHAR S/R                      ENTER SUBROUTINE
    37418>37005    10               0   0  0              0                                                        SELECT LITERAL
                                                                                                                   
          37100    PROCR   371       371     CONSTANTS                                                             
          37101     NOTES          RADIX     B                                                                     SELECT
    37732>37102    80      380      2   0  0              0        380     -GET NEXT CHAR                          ENTER SUBROUTINE
          37103    10               0   0  0              1                                                        SELECT LITERAL
          37104    5       61      30   0  0              0                DEFN LINE IND                           TRANSFER
          37105    5       61      98   1  0              0                                                        TRANSFER
          37106    91      61      60   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          37107            61      24   0  0              0                THIS CHARACTER                          SELECT
          37108    12               0   0  0             51                A                                       SUBTRACT LITERAL
          37109    70      372      6   0  0              0        372                                             JUMP IF A == 0
          37110    12               0   0  0              1                B                                       SUBTRACT LITERAL
          37111    70      372      3   0  0              0        372                                             JUMP IF A == 0
          37112    12               0   0  0              1                >NOT 'C'                                SUBTRACT LITERAL
          37113    71      371     16   0  0              0        371     16                                      JUMP IF A != 0
          37114    10               0   0  0             10                >SET AS SUBFIELD LENGTH                 SELECT LITERAL
          37115    76      371     21   0  0              0        371                                             JUMP unconditional
    37113>37116    12               0   0  0              1                                                        SUBTRACT LITERAL
          37117    70      372      4   0  0              0        372                                             JUMP IF A == 0
          37118    12               0   0  0             13                P                                       SUBTRACT LITERAL
          37119    70      372      5   0  0              0        372                                             JUMP IF A == 0
          37120    10               0   0  0              £                HENCE'R'                                SELECT LITERAL
    37115>37121    5       61      55   0  2              0                SUBFIELD LENGTH                         TRANSFER
                                                                                                                   
          37200    PROCR   372       372     CONSTANTS                                                             
          37201     NOTES          RADIX     B                                                                     SELECT
          37202    10               0   0  0              1                R,C=5                                   SELECT LITERAL
    37111>37203    11               0   0  0              1                B=4                                     ADD LITERAL
  Source image: P1030265.JPG
    37117>37204    11               0   0  0              1                D=3                                     ADD LITERAL
    37119>37205    11               0   0  0              1                P=2                                     ADD LITERAL
    37109>37206    11               0   0  0              1                A=1                                     ADD LITERAL
          37207    3       61      62   0  2              0                SWITCH SETTING                          COPY
          37208    84      374      2   0  0              0        374                                             SET SWITCH(ES) AT VARIABLE VALUE
    37216>37209    80      380      2   0  0              0        380     GET NEXT CHAR                           ENTER SUBROUTINE
          37210    12               0   0  0             7‼                )                                       SUBTRACT LITERAL
          37211    70      373      2   0  0              0        373                                             JUMP IF A == 0
          37212    00      61      98   1  0              0                COLLECT * IN'(B)' DIRECTIVE             SELECT
          37213    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          37214    1       61      24   0  0              0                THIS CHAR                               ADD
          37215    05      61      98   1  0              0                                                        TRANSFER
          37216    76      372      9   0  0              0        372     LOOP UNTIL')'FOUND                      JUMP unconditional
                                                                                                                   
          37300    PROCR   373       373     CONSTANTS                                                             
          37301     NOTES          RADIX     B                                                                     SELECT
    37211>37302    32               0   0  0             10                PRESERVE B DURING CONVERT               SHIFT (AB) BY QUARTETS
          37303    5       61      96   1  0              0                                                        TRANSFER
          37304            61      98   2  0              0                                                        SELECT
          37305    80      430      2   0  0              0        430     CONVERT NO OF BITS FOR BIN CONSTANT     ENTER SUBROUTINE
          37306    73      373      8   0  0              0        373     >SAFETY DEVICE                          JUMP IF A < 0
          37307    4       61      55   0  2              0                AUG SHIFT CONTROL                       AUGMENT
    37306>37308    34      61      96   1  0              0                RESTORE B                               SET (N) IN B
    38414>                                                                                                         
    38416>                                                                                                         
    38419>37309    10               0   0  0              0                                                        SELECT LITERAL
                                                                                                                   
          37400    PROCR   374       374     CONSTANTS MAIN LOOP                                                   
          37401     NOTES          RADIX     B                                                                     SELECT
    38311>                                                                                                         
    38509>                                                                                                         
    38518>                                                                                                         
    38608>37402    80      380      2   0  0              0        380     GET NEXT CHAR                           ENTER SUBROUTINE
    37608>                                                                                                         
    37728>                                                                                                         
    38806>37403    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          37404    70      374     15   0  0              0        374     >YES                                    JUMP IF A == 0
          37405    12               0   0  0              2                ,                                       SUBTRACT LITERAL
          37406    70      376      2   0  0              0        376                                             JUMP IF A == 0
          37407    12               0   0  0              1                NE                                      SUBTRACT LITERAL
          37408    70      377      2   0  0              0        377     >END OF CONSTANT                        JUMP IF A == 0
          37409    85      374      2   0  0              0        374                                             SWITCH R
          37410    C       383      2   0  0              0        383     ALPHA                                   
          37411    C       384      2   0  0              0        384     P                                       
          37412    C       385      2   0  0              0        385     D                                       
          37413    C       387      2   0  0              0        387     B                                       
          37414    C       389      2   0  0              0        389     R                                       
    37404>37415    10               0   0  0              1                                                        SELECT LITERAL
          37416    5       61      61   0  0              0                MIXED CONST IND                         TRANSFER
          37417    80      375      2   0  0              0        375     >SHIFT UP PREVIOUS SUBFIELD             ENTER SUBROUTINE
          37418    76      370      5   0  0              0        370     >GET NEXT CHAR                          JUMP unconditional
                                                                                                                   
          37500    PROCR   375       375     CONSTANTS S/R                                                         
          37501     NOTES          RADIX     B    ADD THIS SUBFIELD TO PREVIOUS ONES                               SELECT
          37502    81      375      2   0  0              0        375                                             START OF SUBROUTINE
          37503    0       61      26   1  0              0                CONSTANT TO DATE                        SELECT
          37504    124     61      60   0  0              0                SUBFIELD CTR                            modify address of next
          37505    124     61      55   0  0              0                LENGTH OF SUBFIELD                      modify address of next
          37506    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          37507    1       61      28   1  0              0                VALUE OF CURRENT SUBCONST               ADD
  Source image: P1030266.JPG
          37508    5       61      26   1  0              0                                                        TRANSFER
          37509    5       61      28   1  0              0                                                        TRANSFER
          37510    10               0   0  0              1                                                        SELECT LITERAL
          37511    4       61      60   0  0              0                STEP SF COUNTER                         AUGMENT
          37512    82      375      2   0  0              0        375                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          37600    PROCR   376       376     , ROUTINE                                                             
          37601     NOTES          RADIX     B                                                                     SELECT
    37406>37602    80      380      2   0  0              0        380     >GET NEXT CHAR AFTER COMMA              ENTER SUBROUTINE
          37603    80      375      2   0  0              0        375     >ADD IN SUBCONST PRECEDING COMMA        ENTER SUBROUTINE
    37726>37604    91      61      60   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          37605    84      374      2   0  0              0        374                                             SET SWITCH(ES) AT VARIABLE VALUE
          37606    C       61      62   0  2              0                NEXT SUBFIELD TYPE                      
          37607            61      24   0  0              0                NEXT CHAR AFTER COMMA                   SELECT
          37608    76      374      3   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          37700    PROCR   377       377     PREPARE FOR O/P                                                       
          37701     NOTES          RADIX     B    CONSTANTS                                                        SELECT
    37408>37702    80      375      2   0  0              0        375     >ADD IN FINAL SUBCONST                  ENTER SUBROUTINE
          37703            61      32   0  0              0                NEG IND                                 SELECT
          37704    70      377     13   0  0              0        377     >CONSTANT IS POSITIVE                   JUMP IF A == 0
          37705            61      47   0  0              0                CONST TYPE                              SELECT
          37706    70      377     11   0  0              0        377     SHORT CONST                             JUMP IF A == 0
          37707    10               0   0  0              0                                                        SELECT LITERAL
          37708    2       61      26   1  0              0                                                        SUBTRACT
          37709    5       61      26   1  0              0                                                        TRANSFER
          37710    76      377     13   0  0              0        377     COMPLEMENT CONST LONG OR SHORT          JUMP unconditional
    37706>37711    2       61      26   0  0              0                                                        SUBTRACT
          37712    5       61      26   0  0              0                                                        TRANSFER
    37919>                                                                                                         
    37710>                                                                                                         
    37704>37713                     6   2 12              0                                                        SELECT
          37714    5       61      31   0  0              0                SET END IND                             TRANSFER
          37715    80      403      2   0  0              0        403     >PRINT                                  ENTER SUBROUTINE
          37716    80      378      2   0  0              0        378     >CONST O/P SR                           ENTER SUBROUTINE
          37717            61      31   0  0              0                END IND                                 SELECT
          37718    71      353      2   0  0              0        353     >YES,GNB                                JUMP IF A != 0
          37719    80      401      2   0  0              0        401     -I/P                                    ENTER SUBROUTINE
          37720    80      379      2   0  0              0        379     -PREP S/R                               ENTER SUBROUTINE
          37721    10               0   0  0              0                CLEAR A FOR GET NEXTCHARACTER S/R       SELECT LITERAL
          37722    80      380      2   0  0              0        380     -GET NEXT CHAR                          ENTER SUBROUTINE
          37723    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          37724    70      377     29   0  0              0        377     >THIS IS A DIRECTIVE LINE               JUMP IF A == 0
          37725            61      61   0  0              0                                                        SELECT
          37726    71      376      4   0  0              0        376     -THIS IS A MIXED CONSTANT               JUMP IF A != 0
          37727            61      24   0  0              0                NEXT CHARACTER                          SELECT
          37728    76      374      3   0  0              0        374     -                                       JUMP unconditional
    37724>37729    5       61      55   0  0              0                                                        TRANSFER
          37730    5       61      56   1  0              0                                                        TRANSFER
          37731    5       61      58   1  0              0                                                        TRANSFER
          37732    76      371      2   0  0              0        371     >GET DIRECTIVE LETTER                   JUMP unconditional
                                                                                                                   
          37800    PROCR   378       378     O/P S/R                                                               
          37801     NOTES          RADIX     B    CONSTANTS                                                        SELECT
          37802    81      378      2   0  0              0        378                                             START OF SUBROUTINE
          37803            61      27   0  0              0                MOST SIG HALF LONG CONST                SELECT
          37804    5       67       3   0  0              0                                                        TRANSFER
          37805            61      26   0  0              0                LEAST SIG HALF                          SELECT
          37806    124     61      68   0  0              0                0 OR 2                                  modify address of next
          37807    5       67       1   0  0              0                                                        TRANSFER
  Source image: P1030267.JPG
          37808            61      47   0  0              0                CONST TYPE                              SELECT
          37809    71      378     16   0  0              0        378     -LONG NO CONST                          JUMP IF A != 0
          37810            61      31   0  0              0                NONZERO IF FINAL CONST IN SECTION       SELECT
          37811    71      378     16   0  0              0        378     -                                       JUMP IF A != 0
          37812    10               0   0  0              2                                                        SELECT LITERAL
          37813    2       61      68   0  0              0                                                        SUBTRACT
          37814    3       61      68   0  0              0                                                        COPY
          37815    71      378     23   0  0              0        378     >FIRST TIME THRU                        JUMP IF A != 0
    37811>                                                                                                         
    37809>37816            61      26   1  0              0                                    SET B8 OF PARAM     SELECT
          37817    72      378     22   0  0              0        378                         IF NEGATIVE LN CONSTJUMP IF A >= 0
          37818            61      27   0  0              0                                    WITH MOST SIGNI     SELECT
          37819    71      378     22   0  0              0        378     >MOST SIG HALF IS NOT MINUS ZERO        JUMP IF A != 0
          37820    10               0   0  0             80                B8                                      SELECT LITERAL
          37821    4       67       2   0  0              0                PARAMETER                               AUGMENT
    37819>                                                                                                         
    37817>37822    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
    37815>37823    82      378      2   0  0              0        378     END                                     END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          37900    PROCR   379       379     CONSTANTS PREP S/R                                                    
          37901     NOTES          RADIX     B                                                                     SELECT
          37902    81      379      2   0  0              0        379                                             START OF SUBROUTINE
          37903    54      61      26   0  0              8                CLEAR W/L'S                             BULK CLEAR
          37904            77       2   1  0              0                AMEND IND                               SELECT
          37905    5       7        2   1  0              0                                                        TRANSFER
          37906            77       4   1  0              0                LINE SERIAL                             SELECT
          37907    5       7        6   1  0              0                                                        TRANSFER
          37908    55      77       8   1  0             18                COPY CONSTANTS                          BULK COPY
          37909    C       7       12   1  0              0                                                        
          37910            77      26   1  0              0                PASS 1 REPORTS                          SELECT
          37911    5       7       48   1  0              0                                                        TRANSFER
          37912    55      77      28   1  0             16                COPY ANNOTATION                         BULK COPY
          37913    C       7       32   1  0              0                                                        
          37914    0       61      68   0  0              0                O/P IND                                 SELECT
          37915    71      379     17   0  0              0        379     >SECOND HALF OF SHORT CONST             JUMP IF A != 0
          37916    5       67       0   0  0              0                CLEAR THIS                              TRANSFER
    37915>37917            7       46   1  0              0                                                        SELECT
          37918    2       434     28   1  0              0        434     IGNORE TRANSLATION IND                  SUBTRACT
          37919    70      377     13   0  0              0        377     >YES,GO TO PRINT                        JUMP IF A == 0
          37920    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          37921    C                0   0  0             10                                                        
          37922    34      77       8   1  0              0                FIRST WORD OF CONSTANT                  SET (N) IN B
          37923    10               0   0  0              2                                                        SELECT LITERAL
          37924    5       61      38   0  0              0                SET WORD CTR                            TRANSFER
          37925    5       61      60   0  0              0                S/F MOD                                 TRANSFER
          37926    82      379      2   0  0              0        379                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38000    PROCR   380       380     GET NEXT CHAR S/R                                                     
          38001     NOTES          RADIX     B                                                                     SELECT
          38002    81      380      2   0  0              0        380                                             START OF SUBROUTINE
          38003    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          38004    5       61      24   1  0              0                THIS CHAR W/L                           TRANSFER
          38005    94      380     12   0  3              2        380                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          38006    124     61      38   0  0              0                                                        modify address of next
          38007    34      77       8   1  0              0                NEXT WORD                               SET (N) IN B
          38008    10               0   0  0              2                                                        SELECT LITERAL
          38009    4       61      38   0  0              0                                                        AUGMENT
          38010    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          38011    C                0   0  0             10                                                        
    38005>38012            61      24   1  0              0                                                        SELECT
  Source image: P1030268.JPG
          38013    82      380      2   0  0              0        380                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38100    PROCR   381       381     TEST (,NE S/R                                                         
          38101     NOTES          RADIX     B    CONSTANTS                                                        SELECT
          38102    81      381      2   0  0              0        381                                             START OF SUBROUTINE
          38103    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          38104    70      381      8   0  0              0        381                                             JUMP IF A == 0
          38105    12               0   0  0              2                ,                                       SUBTRACT LITERAL
          38106    70      381      8   0  0              0        381                                             JUMP IF A == 0
          38107    12               0   0  0              1                NE                                      SUBTRACT LITERAL
    38106>                                                                                                         
    38104>38108    82      381      2   0  0              0        381                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38200    PROCR   382       382     PUT THIS CHAR INTO O/P WORD S/R                                       
          38201     NOTES          RADIX     B                                                                     SELECT
          38202    81      382      2   0  0              0        382                                             START OF SUBROUTINE
          38203            61      28   1  0              0                                                        SELECT
          38204    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          38205    1       61      24   2  0              0                NEXT CHAR(BASIC ONLY)                   ADD
          38206    5       61      28   1  0              0                                                        TRANSFER
          38207    82      382      2   0  0              0        382                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38300    PROCR   383       383     ALPHA CONSTANTS                                                       
          38301     NOTES          RADIX     B                                                                     SELECT
    37410>38302            61      30   0  0              0                DEFN LINE IND                           SELECT
          38303    70      383      7   0  0              0        383     >NO                                     JUMP IF A == 0
          38304    10               0   0  0              8                                                        SELECT LITERAL
          38305    124     61      60   0  0              0                SF CTR                                  modify address of next
          38306    4       61      55   0  0              0                AUG SF LENGTH BY 8 FOR EACH ALPHA C     AUGMENT
    38303>38307            61      28   1  0              0                                                        SELECT
          38308    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          38309    1       61      24   0  0              0                                                        ADD
          38310    5       61      28   1  0              0                ADD IN THIS CHAR TO SUBCONST            TRANSFER
          38311    76      374      2   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          38400    PROCR   384       384     BINAY PATTERNS                                                        
          38401     NOTES          RADIX     B                                                                     SELECT
    37411>38402    0       61      24   0  0              0                THIS CHARACTER                          SELECT
          38403    12               0   0  0             10                MINUS SIGN                              SUBTRACT LITERAL
          38404    70      384     15   0  0              0        384                                             JUMP IF A == 0
          38405    0       61      30   0  0              0                                                        SELECT
          38406    70      384     10   0  0              0        384     >NOT DEFINITION LINE                    JUMP IF A == 0
          38407    10               0   0  0              1                                                        SELECT LITERAL
          38408    124     61      60   0  0              0                SF MOD                                  modify address of next
          38409    4       61      55   0  0              0                AUG SF LENGTH BY 1 BIT PER CHAR         AUGMENT
    38406>38410            61      28   1  0              0                                                        SELECT
          38411    1       61      28   1  0              0                                                        ADD
          38412    1       61      24   2  0              0                                                        ADD
          38413    5       61      28   1  0              0                ADD THIS BIT INTO SUBCONST              TRANSFER
          38414    76      373      9   0  0              0        373                                             JUMP unconditional
    38404>38415    0       61      60   0  0              0                TEST FIRST SUBFIELD                     SELECT
          38416    71      373      9   0  0              0        373                                             JUMP IF A != 0
          38417    10               0   0  0              1                                                        SELECT LITERAL
          38418    5       61      32   0  0              0                NEG INDICATOR                           TRANSFER
          38419    76      373      9   0  0              0        373                                             JUMP unconditional
                                                                                                                   
          38500    PROCR   385       385     DECIMAL CONSTS (-VE)                                                  
          38501     NOTES          RADIX     B                                                                     SELECT
    37412>38502            61      24   0  0              0                                                        SELECT
          38503    12               0   0  0             10                NEG SIGN                                SUBTRACT LITERAL
  Source image: P1030269.JPG
          38504    71      386      2   0  0              0        386                                             JUMP IF A != 0
          38505            61      60   0  0              0                S/F MOD                                 SELECT
          38506    71      385     10   0  0              0        385     NOT FIRST MOD                           JUMP IF A != 0
          38507    10               0   0  0              1                                                        SELECT LITERAL
          38508    5       61      32   0  0              0                NEG IND                                 TRANSFER
          38509    76      374      2   0  0              0        374                                             JUMP unconditional
    38506>38510    10               0   0  0              1                BIT 1                                   SELECT LITERAL
          38511    124     61      60   0  0              0                SF MOD                                  modify address of next
          38512    124     61      55   0  0              0                SF LENGTH                               modify address of next
          38513    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          38514    60               0   0  0              0                                                        SET DECIMAL RADIX
          38515    2       61      28   1  0              0                FORM N BIT                              SUBTRACT
          38516    5       61      28   1  0              0                DEC COMPT                               TRANSFER
          38517    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          38518    76      374      2   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          38600    PROCR   386       386     DECIMAL CONSTANTS (+VE)                                               
          38601     NOTES          RADIX     B                                                                     SELECT
    38504>38602            61      30   0  0              0                                                        SELECT
          38603    70      386      7   0  0              0        386     >NOT DIRECTIVE LINE                     JUMP IF A == 0
          38604    10               0   0  0              4                                                        SELECT LITERAL
          38605    124     61      60   0  0              0                SF MOD                                  modify address of next
          38606    4       61      55   0  0              0                AUG SF LENGTH BY 4 BITS PER CHAR        AUGMENT
    38603>38607    80      382      2   0  0              0        382     >ADD THIS CHAR TO O/P WORD              ENTER SUBROUTINE
          38608    76      374      2   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          38700    PROCR   387       387     BINARY NO CONSTANTS                                                   
          38701     NOTES          RADIX     B                                                                     SELECT
    38711>                                                                                                         
    37413>38702            61      24   0  0              0                                                        SELECT
          38703    12               0   0  0             10                -SIGN                                   SUBTRACT LITERAL
          38704    71      387      8   0  0              0        387                                             JUMP IF A != 0
          38705    10               0   0  0              1                                                        SELECT LITERAL
          38706    5       61      33   0  0              0                                                        TRANSFER
          38707    76      387      9   0  0              0        387                                             JUMP unconditional
    38704>38708    80      382      2   0  0              0        382     -THIS CHAP SET UP O/P                   ENTER SUBROUTINE
    38707>38709    80      380      2   0  0              0        380     -GET NEXT CHAT                          ENTER SUBROUTINE
          38710    80      381      2   0  0              0        381     -TEST S/R                               ENTER SUBROUTINE
          38711    71      387      2   0  0              0        387                                             JUMP IF A != 0
          38712    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          38713    5       61      34   1  0              0                PRESERVE B                              TRANSFER
          38714            61      28   1  0              0                DEC VALUE OD CONST                      SELECT
          38715    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          38716    5       61      28   1  0              0                                                        TRANSFER
          38717    34      61      34   1  0              0                RESTORE B                               SET (N) IN B
          38718            61      33   0  0              0                NEG IND FOR BIN CONSTS                  SELECT
          38719    70      388      5   0  0              0        388     >NOT NEGATIVE                           JUMP IF A == 0
          38720            61      60   0  0              0                S/F MOD                                 SELECT
          38721    70      388      2   0  0              0        388     >FIRST S/F                              JUMP IF A == 0
          38722    10               0   0  0              1                                                        SELECT LITERAL
          38723    124     61      60   0  0              0                S/F MOD                                 modify address of next
          38724    124     61      55   0  0              0                S/F LENGTH=N                            modify address of next
          38725    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          38726    2       61      28   1  0              0                FORM N-BIT COMPT                        SUBTRACT
          38727    5       61      28   1  0              0                                                        TRANSFER
          38728    76      388      4   0  0              0        388                                             JUMP unconditional
                                                                                                                   
          38800    PROCR   388       388     BINARY NO CONSTANTS                                                   
          38801     NOTES          RADIX                                                                           SELECT
    38721>38802    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1030270.JPG
          38803    5       61      32   0  0              0                NEG IND                                 TRANSFER
    38728>38804    5       61      33   0  0              0                BIN NO NEG IND                          TRANSFER
    39032>                                                                                                         
    38719>38805            61      24   0  0              0                                                        SELECT
          38806    76      374      3   0  0              0        374     -                                       JUMP unconditional
                                                                                                                   
          38900    PROCR   389       389     RELATIVE ADDRESS CONSTS                                               
          38901     NOTES          RADIX                                                                           SELECT
    38910>                                                                                                         
    37414>38902            61      24   0  0              0                                                        SELECT
          38903    12               0   0  0             4:                                                        SUBTRACT LITERAL
          38904    70      390      2   0  0              0        390     >COLON                                  JUMP IF A == 0
          38905    11               0   0  0             4:                                                        ADD LITERAL
          38906    80      381      2   0  0              0        381     -TEST S/R                               ENTER SUBROUTINE
          38907    70      390     24   0  0              0        390                                             JUMP IF A == 0
          38908    80      382      2   0  0              0        382     -THIS CHAR SET UP O/P                   ENTER SUBROUTINE
          38909    80      380      2   0  0              0        380     -GET NEXT CHAR                          ENTER SUBROUTINE
          38910    76      389      2   0  0              0        389                                             JUMP unconditional
                                                                                                                   
          39000    PROCR   390       390     RELATIVE ADDRESS CONSTS                                               
          39001     NOTES          RADIX     B                                                                     SELECT
    38904>39002    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          39003    5       61      98   1  0              0                STORE REGISTER B                        TRANSFER
          39004            61      28   1  0              0                                                        SELECT
          39005    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          39006    5       61      35   0  0              0                                                        TRANSFER
          39007    91      61      68   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          39008    80      396      2   0  0              0        396     -DET CHAP S/R                           ENTER SUBROUTINE
          39009    3       67       0   0  2              0                PARA                                    COPY
          39010    70      390     13   0  0              0        390     ABS ADD                                 JUMP IF A == 0
          39011    12               0   0  0              1                =2C+1                                   SUBTRACT LITERAL
          39012    4       67       0   0  2              0                                                        AUGMENT
    39010>39013            61      35   0  0              0                REF                                     SELECT
          39014    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          39015    4       67       0   0  2              0                                                        AUGMENT
          39016    10               0   0  0              0                                                        SELECT LITERAL
          39017    5       61      28   1  0              0                CLEAR FOR ITEM                          TRANSFER
          39018    34      61      98   1  0              0                                                        SET (N) IN B
    39023>39019    80      380      2   0  0              0        380     >GET NEXT CHAR                          ENTER SUBROUTINE
          39020    80      381      2   0  0              0        381     >TEST S/R                               ENTER SUBROUTINE
          39021    70      390     26   0  0              0        390                                             JUMP IF A == 0
          39022    80      382      2   0  0              0        382     >THIS CHAR SET UP O/P                   ENTER SUBROUTINE
          39023    76      390     19   0  0              0        390                                             JUMP unconditional
    38907>39024    91      61      68   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          39025    5       67       0   0  2              0                                                        TRANSFER
    39021>39026    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          39027    5       61      34   1  0              0                STORE 2                                 TRANSFER
          39028            61      28   1  0              0                                                        SELECT
          39029    80      430      2   0  0              0        430     CONVERT ITEM                            ENTER SUBROUTINE
          39030    5       61      28   1  0              0                                                        TRANSFER
          39031    34      61      34   1  0              0                REPLACE B                               SET (N) IN B
          39032    76      388      5   0  0              0        388     -                                       JUMP unconditional
                                                                                                                   
          39100    PROCR   391       391     TABLE ENTRIES                                                         
          39101     NOTES          RADIX     B                                                                     SELECT
    34504>39102    50      77       2   0  0              0                                                        UNPACK FIXED FIELD DATA
          39103    C       441      2   0  0              0        441                                             
          39104    52      7        2   0  0              0                EDIT TABLES                             EDIT
          39105    C       441      2   0  0              0        441                                             
          39106            77      22   1  0              0                PASS 1 REPORTS                          SELECT
  Source image: P1030271.JPG
          39107    5       7       48   1  0              0                                                        TRANSFER
          39108    55      77      24   1  0             16                COPY ANNOTATION                         BULK COPY
          39109    C       7       32   1  0              0                                                        
          39110    80      403      2   0  0              0        403     PRINT                                   ENTER SUBROUTINE
                                                                                                                   
          39200    PROCR   392       392     TABLE ENTRIES                                                         
          39201     NOTES          RADIX     B                                                                     SELECT
          39202    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          39203    C                0   0  0             20                                                        
    39207>39204            66       3   0  2              0                                                        SELECT
          39205    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          39206    5       66       3   0  2              0                                                        TRANSFER
          39207    94      392      4   0  2              1        392                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          39208    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          39209    C                0   0  0              4                                                        
    39217>39210            66      16   0  2              0                                                        SELECT
          39211    101            100   1  2              0                                                        subtract literal address
          39212    73      392     17   0  0              0        392     >SECTION                                JUMP IF A < 0
          39213    101            899   1  2              0                                                        subtract literal address
          39214    72      392     17   0  0              0        392     >999                                    JUMP IF A >= 0
          39215    10               0   0  0              2-                                                       SELECT LITERAL
          39216    4       66      17   0  2              0                REDUCE ITEM FOR CALCS                   AUGMENT
    39214>                                                                                                         
    39212>39217    94      392     10   0  2              2        392                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          39218    10               0   0  0              0                                                        SELECT LITERAL
          39219    34      61      47   0  0              0                TYPE                                    SET (N) IN B
          39220    36      436      6   0  0              0        436     BIT 1                                   COLLATE AND ADD
          39221    71      392     28   0  0              0        392     NOT TYPES 2 OR 4                        JUMP IF A != 0
          39222    0       66      19   0  0              0                SECOND ITEM                             SELECT
          39223    71      392     27   0  0              0        392     >'LAST ITEM'GIVEN                       JUMP IF A != 0
          39224    0       66      17   0  0              0                FIRST ITEM                              SELECT
          39225    71      392     27   0  0              0        392                                             JUMP IF A != 0
          39226    00      437      8   0  0              0        437     SOMETHING IN Q5                         SELECT
    39225>                                                                                                         
    39223>39227    5       67       2   0  0              0                                                        TRANSFER
    39221>39228    0       66      16   0  0              0                FIRST REF                               SELECT
          39229    5       61      35   0  0              0                REF                                     TRANSFER
          39230    80      396      2   0  0              0        396     DET CHAP                                ENTER SUBROUTINE
                                                                                                                   
          39300    PROCR   393       393     TABLE ENTRIES                                                         
          39301     NOTES          RADIX     B                                                                     SELECT
          39302    3       67       0   0  0              0                                    FORM PARA 2C-1      COPY
          39303    70      393      6   0  0              0        393     ABS ADD                                 JUMP IF A == 0
          39304    12               0   0  0              1                                                        SUBTRACT LITERAL
          39305    4       67       0   0  0              0                                                        AUGMENT
    39303>39306            61      35   0  0              0                REF                                     SELECT
          39307    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          39308    4       67       0   0  0              0                                                        AUGMENT
          39309    0       66       3   0  0              0                SHORT/LONG/ALPHA                        SELECT
          39310    70      393     15   0  0              0        393                                             JUMP IF A == 0
          39311    12               0   0  0              1                                                        SUBTRACT LITERAL
          39312    70      393     14   0  0              0        393                                             JUMP IF A == 0
          39313            437     49   0  0              0        437     B17                                     SELECT
    39312>39314    1       437     13   0  0              0        437     B18                                     ADD
    39310>39315    5       67       3   0  0              0                                                        TRANSFER
          39316            66      13   0  0              0                SIGN                                    SELECT
          39317    70      394      2   0  0              0        394                                             JUMP IF A == 0
          39318    12               0   0  0              2                                                        SUBTRACT LITERAL
          39319    70      393     21   0  0              0        393                                             JUMP IF A == 0
          39320            437     51   0  0              0        437     B20                                     SELECT
  Source image: P1030272.JPG
    39319>39321    1       437      9   0  0              0        437                                             ADD
          39322    4       67       3   0  0              0                                                        AUGMENT
                                                                                                                   
          39400    PROCR   394       394     TABLE ENTRIES                                                         
          39401     NOTES          RADIX     B                                                                     SELECT
    39317>39402    0       66       4   0  0              0                SINGLE/BE                               SELECT
          39403    70      394      6   0  0              0        394                                             JUMP IF A == 0
          39404            437     51   0  0              0        437     B20                                     SELECT
          39405    4       67       3   0  0              0                                                        AUGMENT
    39403>39406            66      12   0  0              0                ZEROS                                   SELECT
          39407    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          39408    1       66      10   0  0              0                DISC                                    ADD
          39409    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          39410    1       66      11   0  0              0                SPACES                                  ADD
          39411    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          39412    1       66       5   0  0              0                NO OF CHARS                             ADD
          39413    4       67       3   0  0              0                                                        AUGMENT
          39414            66      15   0  0              0                LTE                                     SELECT
          39415    70      395      4   0  0              0        395                                             JUMP IF A == 0
          39416    10               0   0  0              0                                                        SELECT LITERAL
          39417    2       67       3   0  0              0                                                        SUBTRACT
          39418    70      395      2   0  0              0        395                                             JUMP IF A == 0
          39419    5       67       3   0  0              0                                                        TRANSFER
          39420    76      395      4   0  0              0        395                                             JUMP unconditional
                                                                                                                   
          39500    PROCR   395       395     TABLE ENTRIES                                                         
          39501     NOTES          RADIX     B                                                                     SELECT
    39418>39502    10               0   0  0             80                B8                  SET B8 OF PARAM     SELECT LITERAL
          39503    4       67       0   0  0              0                                    IF LTE AND 67/3     AUGMENT
    39420>                                                                                                         
    39415>39504    0       66      17   0  0              0                FIRST ITEM                              SELECT
          39505    5       67       1   0  0              0                                                        TRANSFER
          39506            66      14   0  0              0                STERLING INDICATOR                      SELECT
          39507    70      395     16   0  0              0        395                         SET BIT 17          JUMP IF A == 0
          39508    4       61     109   0  0              0                                    ON 2ND TIME TWR     AUGMENT
          39509    0       61     109   0  0              0                                    AND THERE AFTER     SELECT
          39510    12               0   0  0              2                                    EVERY THIRD TIME    SUBTRACT LITERAL
          39511    71      395     16   0  0              0        395                         THRU IE FOR SHILLINGJUMP IF A != 0
          39512    12               0   0  0              1                                                        SUBTRACT LITERAL
          39513    5       61     109   0  0              0                SET CTR=1-                              TRANSFER
          39514            437     49   0  0              0        437     B17                                     SELECT
          39515    4       67       1   0  0              0                                                        AUGMENT
    39511>                                                                                                         
    39507>39516    0       66      15   0  0              0                LTE IND                                 SELECT
          39517    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          39518    76      353      2   0  0              0        353     GNB                                     JUMP unconditional
          39519    5       61     109   0  0              0                                                        TRANSFER
          39520    5       61     109   0  0              0                CLEAR STERLING CTR                      TRANSFER
          39521    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          39522    76      353      2   0  0              0        353     GNB                                     JUMP unconditional
                                                                                                                   
          39600    PROCR   396       396     DETERMINE CHAP S/R                                                    
          39601     NOTES          RADIX     B                                                                     SELECT
          39602    81      396      2   0  0              0        396                                             START OF SUBROUTINE
          39603            61      35   0  0              0                REF                                     SELECT
          39604    70      396     18   0  0              0        396     ABS ADD                                 JUMP IF A == 0
          39605    12               0   0  0             64                100                                     SUBTRACT LITERAL
          39606    72      397      2   0  0              0        397                                             JUMP IF A >= 0
          39607    35               0   0  0              1                Q1                                      PREPARE FOR DIGIT COLLATION
          39608    10               0   0  0              0                                                        SELECT LITERAL
  Source image: P1030273.JPG
          39609    124     61      35   0  0              0                                                        modify address of next
          39610    36      70       0   0  0              0                SECT DETS                               COLLATE AND ADD
          39611    5       61      18   0  0              0                                                        TRANSFER
          39612    34      437     51   0  0              0        437     B20                                     SET (N) IN B
          39613    124     61      35   0  0              0                                                        modify address of next
          39614    36      70       0   0  0              0                SECT DETS                               COLLATE AND ADD
    39714>39615    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          39616    124     61      18   0  0              0                UNCORRECTED CHAP                        modify address of next
          39617    36      92       9   0  0              0                CORRECTED CHAP IN Q1                    COLLATE AND ADD
    39604>39618    82      396      2   0  0              0        396                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          39700    PROCR   397       397     DET CHAP S/R                                                          
          39701     NOTES          RADIX     B                                                                     SELECT
    39606>39702    12               0   0  0            383                899                 REF999              SUBTRACT LITERAL
          39703    73      397      8   0  0              0        397                                             JUMP IF A < 0
          39704    71      397     10   0  0              0        397     >REF >999, CHEAT                        JUMP IF A != 0
          39705    5       61      35   0  0              0                SET REF ZERO                            TRANSFER
          39706            61      51   0  0              0                THIS CHAP                               SELECT
          39707    82      396      2   0  0              0        396                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    39703>39708    11               0   0  0            3.7                999                                     ADD LITERAL
          39709    30               0   0  0              2                PROCR IN Q3-5                           SHIFT (A) BY QUARTETS
    39704>39710    101     92      10   0  0              0                BIN LAST PROCRS IN CHAP                 table look up
          39711    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          39712    2       437      2   0  0              0        437     ABS ADDRESS 92/9                        SUBTRACT
          39713    5       61      18   0  0              0                UNCORR C NO                             TRANSFER
          39714    76      396     15   0  0              0        396                                             JUMP unconditional
                                                                                                                   
          39800    PROCR   398       398     SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS                      
          39801     NOTES  398                                                                                     SELECT
          39802    81      398      2   0  0              0        398                                             START OF SUBROUTINE
          39803    73      398      7   0  0              0        398     >NEGATIVE ACTION                        JUMP IF A < 0
          39804    1       61      43   0  0              0                                                        ADD
          39805    2       61      11   0  0              0                START OF CURRENT PROCR                  SUBTRACT
          39806    76      398      9   0  0              0        398                                             JUMP unconditional
    39803>39807    2       61      43   0  0              0                                                        SUBTRACT
          39808    1       61      11   0  0              0                                                        ADD
    39806>39809    5       67       3   0  0              0                                                        TRANSFER
          39810    0       61      10   0  0              0                CURRENT PROCR(IN THIS CHAPTER)          SELECT
          39811    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          39812    1       61       3   0  0              0                2C                                      ADD
          39813    5       67       2   0  0              0                PARA                                    TRANSFER
          39814    80      411      2   0  0              0        411     >O/P                                    ENTER SUBROUTINE
          39815    82      398      2   0  0              0        398                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          39900    PROCR   399       399     OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START               
          39901     NOTES  399                                                                                     SELECT
          39902    81      399      2   0  0              0        399                                             START OF SUBROUTINE
          39903    70      399      8   0  0              0        399     >24/0/3 BY 0                            JUMP IF A == 0
          39904    5       67       3   0  0              0                                                        TRANSFER
  Source image: P1030281.JPG
          39905    10               0   0  0              1                                                        SELECT LITERAL
          39906    2       67       3   0  0              0                                                        SUBTRACT
          39907    2       67       3   0  0              0                                                        SUBTRACT
    39903>39908    1       438      2   0  0              0        438     24/0/3                                  ADD
          39909    80      348      2   0  0              0        348     >O/P                                    ENTER SUBROUTINE
          39910    82      399      2   0  0              0        399                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40000    PROCR   400       400     OUTPUT 24/0/3 BY 0                                                    
          40001     NOTES          RADIX     B                                                                     SELECT
          40002    81      400      2   0  0              0        400                                             START OF SUBROUTINE
          40003    10               0   0  0              0                                                        SELECT LITERAL
          40004    80      399      2   0  0              0        399                                             ENTER SUBROUTINE
          40005    82      400      2   0  0              0        400                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40100    PROCR   401       401     I/P SR                                                                
          40101     NOTES          RADIX     B                                                                     SELECT
          40102    81      401      2   0  0              0        401                                             START OF SUBROUTINE
          40103                     0   2 12              0                CURRENT RECORD LENGTH                   SELECT
          40104    5       430      2   0  0              0        430                                             TRANSFER
          40105    97      430      2   0 12              0        430                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          40106    C       401      8   0  0              0        401                                             
          40107    80      432      2   0  0              0        432     >READ                                   ENTER SUBROUTINE
    40106>                                                                                                         
    33805>40108    10               0   0  0              0                                                        SELECT LITERAL
          40109    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          40110    36               2   1 12              0                'AMENDED IMPLICITY'IND                  COLLATE AND ADD
          40111    5       437     99   0  0              0        437                                             TRANSFER
          40112    37               2   1 12              0                CLEAR 2 CHARS                           REPLACE SELECTED BITS
          40113    54      77       0   1  0             44                BULK CLEAR                              BULK CLEAR
          40114    55               0   1 12              0                BULK COPY                               BULK COPY
          40115    C       77       0   1  0              0                                                        
          40116    C                0   2 12              0                                                        
          40117    82      401      2   0  0              0        401                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40200    PROCR   402       402     PRINT LINE AND RE-SITE AMEND IND                                      
          40201     NOTES  402                                                                                     SELECT
          40202    81      402      2   0  0              0        402                                             START OF SUBROUTINE
          40203            8        4   1  0              0                                                        SELECT
          40204    5       8        2   1  0              0                                                        TRANSFER
          40205    5       8        4   1  0              0                                                        TRANSFER
          40206    80      403      2   0  0              0        403     >PRINT                                  ENTER SUBROUTINE
          40207    82      402      2   0  0              0        402                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40300    PROCR   403       403     PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE              
          40301     NOTES          RADIX     B                                                                     SELECT
          40302    81      403      2   0  0              0        403                                             START OF SUBROUTINE
          40303    0       436      2   1  0              0        436     BEW                                     SELECT
          40304    5       7       50   1  0              0                                                        TRANSFER
          40305            7       46   1  0              0                                                        SELECT
          40306    80      408      2   0  0              0        408     >REPORT IF TOP 4 CHARS='?'              ENTER SUBROUTINE
          40307    70      403     21   0  0              0        403     >YES                                    JUMP IF A == 0
          40308            7       48   1  0              0                                                        SELECT
          40309    70      403     23   0  0              0        403     >NO ERRORS                              JUMP IF A == 0
  Source image: P1030282.JPG
          40310    80      408      2   0  0              0        408     >TEST FOR REPORT                        ENTER SUBROUTINE
          40311    70      403     21   0  0              0        403     >DISASTROUS ERROR                       JUMP IF A == 0
          40312            7       32   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          40313    12               0   0  0     7171717171                '/////'                                 SUBTRACT LITERAL
          40314    71      403     18   0  0              0        403                                             JUMP IF A != 0
          40315    35               0   0  0         111111                Q1-6                                    PREPARE FOR DIGIT COLLATION
          40316    37      7       48   1  0              0                                                        REPLACE SELECTED BITS
          40317    76      403     23   0  0              0        403     >DONT COUNT                             JUMP unconditional
    40314>40318    86      407      2   0  0              0        407                                             SELECT SWITCH R
          40319    11               0   0  0              1                STEP CTR OF OTHER ERRORS                ADD LITERAL
          40320    84      407      2   0  0              0        407                                             SET SWITCH(ES) AT VARIABLE VALUE
    40311>                                                                                                         
    40307>40321    10               0   0  0              1                (PRINT REPORTED LINES)                  SELECT LITERAL
          40322    5       437     99   0  0              0        437                                             TRANSFER
    40317>                                                                                                         
    40309>40323    0       23      46   1  0              0                'PRINT PROCR'+'PRINT ALL'INDS           SELECT
          40324    71      403     30   0  0              0        403     >PRINT                                  JUMP IF A != 0
          40325    0       437     99   0  0              0        437     'IMPLICITLY AMENDED'                    SELECT
          40326    70      403     35   0  0              0        403     >DONT PRINT                             JUMP IF A == 0
          40327    0       438     20   0  0              0        438     LAST RECORD PRINTED?                    SELECT
          40328    71      403     30   0  0              0        403     >YES                                    JUMP IF A != 0
          40329    80      405      2   0  0              0        405     >BLANK LINE                             ENTER SUBROUTINE
    40328>                                                                                                         
    40324>40330    0       61      46   0  0              0                HEAD OF FORM,OR ZERO                    SELECT
          40331    5       7        0   2  0              0                                                        TRANSFER
          40332    80      406      2   0  0              0        406     >PRINT LINE                             ENTER SUBROUTINE
          40333    10               0   0  0              1                                                        SELECT LITERAL
          40334    3       61      46   0  0              0                SET FOR NEXT TIME                       COPY
    40326>40335    5       438     20   0  0              0        438     SET/CLEAR IND                           TRANSFER
          40336    82      403      2   0  0              0        403                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40400    PROCR   404       404     STORE LINE SERIAL FOR DIS ERRORS                                      
          40402    100              0   0  0              0                                                        Halt
          40403    124     435     46   0  1              0        435                                             modify address of next
          40404    102     24       0   0  0              0                                                        transfer (A) to N
          40405    123              1   0  0              0                                                        step on and test
          40406    100     435     46   0  0              0        435                                             Halt
          40407    126     404      2   0  1              0        404                                             leave subroutine
          40408    106     404      7   0  0              0        404                                             select (N)
          40409    102     404      3   0  0              0        404                                             transfer (A) to N
          40410    126     404      2   0  1              0        404                                             leave subroutine
                                                                                                                   
          40500    PROCR   405       405     PRINT BLANK LINE UNCONDITIONALLY                                      
          40502    81      405      2   0  0              0        405                                             START OF SUBROUTINE
          40503            999     16   1  0              0                COPY SEC 7 PARAS                        SELECT
          40504    5       435     42   1  0              0        435                                             TRANSFER
          40505    0       999      8   0  0              0                PT ROUTE                                SELECT
          40506    5       999     16   0  0              0                                                        TRANSFER
          40507    2       999      8   0  0              0                                                        SUBTRACT
          40508    12               0   0  0             40                65                                      SUBTRACT LITERAL
          40509    5       999     17   0  0              0                CREATE R,-(64+R)                        TRANSFER
          40510    5       7        0   1  0              0                                                        TRANSFER
          40511    0       436      2   1  0              0        436     BEW                                     SELECT
          40512    5       7        2   1  0              0                                                        TRANSFER
          40513    80      406      2   0  0              0        406     >PRINT EX SEC 7                         ENTER SUBROUTINE
          40514    0       435     42   1  0              0        435                                             SELECT
          40515    5       999     16   1  0              0                RESTORE SEC 7 PARAS                     TRANSFER
          40516    82      405      2   0  0              0        405                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40600    PROCR   406       406     PRINT SEC 7(OR SEC 5,OR PT ANNEX)                                     
  Source image: P1030283.JPG
          40602    81      406      2   0  0              0        406                                             START OF SUBROUTINE
          40603            27       9   0  0              0                                                        SELECT
          40604    70      406      9   0  0              0        406     >PRINTER                                JUMP IF A == 0
          40605    55      7        0   1  0             54                                                        BULK COPY
          40606    C       10       4   1  0              0                                                        
          40607    80      433      2   0  0              0        433     >O/P>                                   ENTER SUBROUTINE
          40608    82      406      2   0  0              0        406                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    40604>40609            27       8   0  0              0                PRINTER TYPE                            SELECT
          40610    12               0   0  0              9                                                        SUBTRACT LITERAL
          40611    70      406     28   0  0              0        406     >SPECIAL                                JUMP IF A == 0
          40612            437     51   0  0              0        437     BIT20                                   SELECT
          40613    5       7        1   0  0              0                                                        TRANSFER
          40614    54      10       0   1  0            384                (GP ANNEX)                              BULK CLEAR
          40615    124     999     17   1  2              0                SEC 7                                   modify address of next
          40616    124              0   0  2              0                                                        select literal and division
          40617    124     999     13   1  2              0                SEC 10                                  modify address of next
          40618    129              0   0  1              0                                                        edit for anelex output
          40619    10               0   0  0              4                                                        SELECT LITERAL
    40631>40620    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          40621    1       999      7   0  0              0                ROUTE                                   ADD
          40622    34      999     12   0  0              0                                                        SET (N) IN B
          40623    125           4096   1  1              0                                                        clear indicators
          40624    124     999      0   0  3              0                                                        modify address of next
          40625    123            160   0  2              0                                                        enter master routine
          40626    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          40627    82      406      2   0  0              0        406                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    40611>40628    55      7        0   1  0             54                COPY ANNEXES                            BULK COPY
          40629    C       10       0   1  0              0                                                        
          40630    10               0   0  0              9                                                        SELECT LITERAL
          40631    76      406     20   0  0              0        406                                             JUMP unconditional
                                                                                                                   
          40700    PROCR   407       407     OUTPUT 9>A6                                                           
          40701     NOTES          RADIX     B                                                                     SELECT
          40702    81      407      2   0  0              0        407                                             START OF SUBROUTINE
          40703    43      A6       0   0  0              0                                                        OUTPUT
          40704    C       9        0   0  0              0                                                        
          40705    82      407      2   0  0              0        407                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40800    PROCR   408       408     TEST FOR DISASTROUS ERROR CONDITION IN PRINTER ANNEX                  
          40801     NOTES  408                                                                                     SELECT
          40802    81      408      2   0  0              0        408                                             START OF SUBROUTINE
          40803    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          40804    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          40805    11               0   0  0             5:                                                        ADD LITERAL
          40806    2       434     28   1  0              0        434     '?????'                                 SUBTRACT
          40807    71      408     14   0  0              0        408     >NOT DISASTROUS                         JUMP IF A != 0
          40808    86      403      2   0  0              0        403     STEP DISASTER CTR                       SELECT SWITCH R
          40809    11               0   0  0              1                                                        ADD LITERAL
          40810    84      403      2   0  0              0        403     (CLEARS A)                              SET SWITCH(ES) AT VARIABLE VALUE
          40811            7        6   2  0              0                                                        SELECT
          40812    80      404      2   0  0              0        404                                             ENTER SUBROUTINE
          40813    10               0   0  0              0                                                        SELECT LITERAL
    40807>40814    82      408      2   0  0              0        408                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40900    PROCR   409       409     O/P TYPE SR                                                           
          40901     NOTES          RADIX     B                                                                     SELECT
          40902    81      409      2   0  0              0        409                                             START OF SUBROUTINE
          40903    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          40904            61      26   1  0              0                TYPE NO ALPHA                           SELECT
          40905    1       434     18   1  0              0        434     TYPE(SPACE)                             ADD
  Source image: P1030284.JPG
          40906    05      9        4   1  2              0                                                        TRANSFER
          40907            61      28   1  0              0                                                        SELECT
          40908    05      9        6   1  2              0                                                        TRANSFER
          40909            61      43   0  0              0                SPACE CTR                               SELECT
          40910    05      9        8   2  2              0                                                        TRANSFER
          40911    5       9       10   1  2              0                CLEAR                                   TRANSFER
          40912    76      412      2   0  0              0        412                                             JUMP unconditional
                                                                                                                   
          41000    PROCR   410       410     ALPHA OUTPUT SR                                                       
          41001     NOTES          RADIX     B                                                                     SELECT
          41002    81      410      2   0  0              0        410                                             START OF SUBROUTINE
          41003    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          41004            61      26   1  0              0                                                        SELECT
          41005    05      9        4   1  2              0                                                        TRANSFER
          41006            61      28   1  0              0                                                        SELECT
          41007    05      9        6   1  2              0                                                        TRANSFER
          41008            67       2   0  0              0                                                        SELECT
          41009    05      9        8   2  2              0                                                        TRANSFER
          41010            67       3   0  0              0                                                        SELECT
          41011    05      9       10   2  2              0                                                        TRANSFER
          41012            410      2   0  0              0        410     O/P ALPHA S/R LINK                      SELECT
          41013    76      411     15   0  0              0        411                                             JUMP unconditional
                                                                                                                   
          41100    PROCR   411       411     O/P SR                                                                
          41101     NOTES          RADIX     B                                                                     SELECT
          41102    81      411      2   0  0              0        411                                             START OF SUBROUTINE
          41103            61      42   0  0              0                                                        SELECT
          41104    4       61      43   0  0              0                AUGMENT LOCATION COUNTER                AUGMENT
          41105    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          41106            67       0   0  0              0                SERIAL NO FOR INST  RUCTIONS            SELECT
          41107    05      9        4   2  2              0                                                        TRANSFER
          41108            67       1   0  0              0                SC INDICATOR FOR INSIONS                SELECT
          41109    05      9        6   2  2              0                                                        TRANSFER
          41110            67       2   0  0              0                PARAMETER                               SELECT
          41111    05      9        8   2  2              0                                                        TRANSFER
          41112            67       3   0  0              0                                                        SELECT
          41113    05      9       10   2  2              0                                                        TRANSFER
          41114            411      2   0  0              0        411     LINK                                    SELECT
    41013>41115    5       409      2   0  0              0        409     O/P TYPE S/R LINK                       TRANSFER
                                                                                                                   
          41200    PROCR   412       412     O/P SR                                                                
          41201     NOTES          RADIX     B                                                                     SELECT
    40912>41202    94      412      8   0  2              8        412                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41308>41203            436      2   1  0              0        436     BE WORD                                 SELECT
          41204    05      9        4   1  2              0                                                        TRANSFER
          41205    80      407      2   0  0              0        407     PREP STAGE OP                           ENTER SUBROUTINE
          41206    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          41207    C                0   0  0            144                                                        
    41202>41208    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          41209    5       61      44   1  0              0                                                        TRANSFER
          41210    5       67       1   0  0              0                CLEAR S67                               TRANSFER
          41211    5       67       2   1  0              0                                                        TRANSFER
          41212    82      409      2   0  0              0        409     -                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41300    PROCR   413       413     OP REMAINING DETAILS SR                                               
          41301     NOTES          RADIX     B                                                                     SELECT
          41302    81      413      2   0  0              0        413                                             START OF SUBROUTINE
          41303    00      61      44   0  0              0                                                        SELECT
          41304    70      413      9   0  0              0        413     NOTHING TO O/P                          JUMP IF A == 0
          41305    91      61      44   0  2              0                OP CTR                                  SET MODIFICATION REGISTER AT VARIABLE
  Source image: P1030285.JPG
          41306    00      413      2   0  0              0        413     LINK                                    SELECT
          41307    05      409      2   0  0              0        409     O/P TYPE S/R LINK                       TRANSFER
          41308    76      412      3   0  0              0        412                                             JUMP unconditional
    41304>41309    82      413      2   0  0              0        413                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41400    PROCR   414       414     I/P INSTRUCTION S/R                                                   
          41401     NOTES          RADIX     B                                                                     SELECT
          41402    81      414      2   0  0              0        414                                             START OF SUBROUTINE
          41403    80      401      2   0  0              0        401     -I/P                                    ENTER SUBROUTINE
          41404    10               0   0  0              1                                                        SELECT LITERAL
          41405    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          41406    80      415      2   0  0              0        415     -I/P C-LINE S/R                         ENTER SUBROUTINE
          41407    82      414      2   0  0              0        414                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41500    PROCR   415       415     I/P C-LINE S/R                                                        
          41501     NOTES          RADIX     B                                                                     SELECT
          41502    81      415      2   0  0              0        415                                             START OF SUBROUTINE
          41503            61      99   0  0              0                NON I/P IND                             SELECT
          41504    71      415     10   0  0              0        415                                             JUMP IF A != 0
          41505    80      427      2   0  0              0        427     SUSPEND                                 ENTER SUBROUTINE
          41506    80      401      2   0  0              0        401     INPUT                                   ENTER SUBROUTINE
          41507                     6   1 12              0                                                        SELECT
          41508    2       434     26   1  0              0        434     C, , , , ,                              SUBTRACT
          41509    71      353      3   0  0              0        353     -G.N.B.                                 JUMP IF A != 0
    41504>41510    50      77       2   0  0              0                                                        UNPACK FIXED FIELD DATA
          41511    C       440      2   0  0              0        440                                             
          41512    52      7        2   0  0              0                EDIT INSTRUCTIONS                       EDIT
          41513    C       440      2   0  0              0        440                                             
          41514            77      20   1  0              0                PREVIOUS PROCR NO                       SELECT
          41515    5       7       28   1  0              0                                                        TRANSFER
          41516            77      22   1  0              0                PASS 1 REPORTS                          SELECT
          41517    5       7       48   1  0              0                                                        TRANSFER
          41518    55      77      24   1  0             16                COPY ANNOTATION                         BULK COPY
          41519    C       7       32   1  0              0                                                        
          41520    0       66       4   1  0              0                ACTION ALPHA                            SELECT
          41521    2       434     26   1  0              0        434                                             SUBTRACT
          41522    70      419      2   0  0              0        419     >THIS IS A C-LINE                       JUMP IF A == 0
    41535>                                                                                                         
    35908>41523    10               0   0  0              0                                                        SELECT LITERAL
          41524    5       61      20   1  0              0                                                        TRANSFER
          41525    94      415     27   0  1              0        415     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          41526    76      418      2   0  0              0        418     >NO UNMATCHED SEQ CHS BACK              JUMP unconditional
    41525>41527                     1   0  1              0                (R1 ABS) SC BACK DEST                   SELECT
          41528    02      66       2   1  0              0                SERIAL THIS ORDER                       SUBTRACT
          41529    70      417      2   0  0              0        417     >THIS IS A DESTINATION                  JUMP IF A == 0
          41530    72      418      2   0  0              0        418     >NOW TRY SEQ CH FWD LIST                JUMP IF A >= 0
          41531            434     28   1  0              0        434     ?????                                   SELECT
          41532    5       61      20   1  0              0                                                        TRANSFER
          41533    80      416      2   0  0              0        416     >STORE 'ADDRESS'=CURRENT SPACE CTR      ENTER SUBROUTINE
    41840>41534    80      422      2   0  0              0        422     PRINT ENTRY POINT S/PRINT WRONG ENTRY POENTER SUBROUTINE
          41535    76      415     23   0  0              0        415                                             JUMP unconditional
                                                                                                                   
          41600    PROCR   416       416                                                                           
          41601     NOTES  416                                                                                     SELECT
          41602    81      416      2   0  0              0        416                                             START OF SUBROUTINE
          41603                     0   0  1              0                SOURCE OF SC BACK                       SELECT
          41604    3       61       0   0  0              0                                                        COPY
          41605    5                1   0  1              0                OVERWRITE DEST                          TRANSFER
          41606    0       61      20   1  0              0                                                        SELECT
          41607    71      416     15   0  0              0        416     >IGNORED                                JUMP IF A != 0
  Source image: P1030286.JPG
          41608    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          41609    36      66       2   0  0              0                                                        COLLATE AND ADD
          41610    12               0   0  0              2                                                        SUBTRACT LITERAL
          41611    71      416     15   0  0              0        416     >NOT TO PROCR START                     JUMP IF A != 0
          41612    96               0   0  1              0                                                        SELECT MODIFIER
          41613    80      365      2   0  0              0        365     >CONTRACT SC BACK LIST                  ENTER SUBROUTINE
          41614    76      416     20   0  0              0        416     >STEP R1                                JUMP unconditional
    41611>                                                                                                         
    41607>41615    0       61      10   0  0              0                CURRENT PROCR                           SELECT
          41616    31               0   0  0             10                                                        SHIFT (A) BY BITS
          41617    1       61      43   0  0              0                SPACE CTR                               ADD
          41618    2       61      11   0  0              0                PROCR START                             SUBTRACT
          41619    5                0   0  1              0                STORE PROCR+ADDRESS IN PROCR            TRANSFER
    41614>41620    94      416     21   0  1              2        416     STEP                                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41620>41621    82      416      2   0  0              0        416                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41700    PROCR   417       417     I/P C-LINE S/R                                                        
          41701     NOTES          RADIX     B    STORE ABS DEST FOR MATCHES SC'S BACK                             SELECT
    41707>                                                                                                         
    41529>41702    80      416      2   0  0              0        416     >STORE ADDRESS                          ENTER SUBROUTINE
          41703    0       0        1   0  1              0                (R1 IS ABS) NEXT DEST                   SELECT
          41704    2       66       2   0  0              0                THIS SERIAL                             SUBTRACT
          41705    71      418     41   0  0              0        418     >NONE,TRY SC FWD LIST                   JUMP IF A != 0
          41706    80      422      2   0  0              0        422                                             ENTER SUBROUTINE
          41707    76      417      2   0  0              0        417     >THERE MAY BE MORE                      JUMP unconditional
                                                                                                                   
          41800    PROCR   418       418     I/P C-LINE S/R                                                        
          41801     NOTES          RADIX     B    TRY MATCH WITH SEQ CHS FWD                                       SELECT
    41530>                                                                                                         
    41526>41802    0       61     117   0  0              0                CTR OF SEC 20 LENGTH                    SELECT
          41803    70      419      2   0  0              0        419     >EMPTY                                  JUMP IF A == 0
          41804    0       20       0   0  0              0                SMALLEST DEST OF SC FWD                 SELECT
          41805    70      419      2   0  0              0        419     >LIST EMPTY,SKIP TO END                 JUMP IF A == 0
          41806    2       66       2   1  0              0                THIS SERIAL                             SUBTRACT
          41807    70      418     11   0  0              0        418     >IS DEST OF SEQ CH FWD                  JUMP IF A == 0
          41808    72      419      2   0  0              0        419     >EARLIER THAN EARLIEST DEST             JUMP IF A >= 0
          41809    00      434     28   1  0              0        434                                             SELECT
          41810    5       61      20   1  0              0                                    SEQ CHS FORWARD     TRANSFER
    41845>                                                                                                         
    41807>41811            20       2   0  0              0                                                        SELECT
          41812    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          41813    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          41814    70      418     17   0  0              0        418     >SC TO PROCR START                      JUMP IF A == 0
          41815    99               0   1  1              0                                                        SUBTRACT MODIFICATION REGISTER FROM A
          41816    72      418     17   0  0              0        418     >OK                                     JUMP IF A >= 0
    41816>                                                                                                         
    41814>41817    0       20       1   0  0              0                                                        SELECT
          41818    5       61       0   0  0              0                                                        TRANSFER
          41819    0       20       2   0  0              0                                                        SELECT
          41820    70      418     30   0  0              0        418     >SC TO PROGR START                      JUMP IF A == 0
          41821    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          41822    5       416      2   0  0              0        416     FLIPFLOP                                TRANSFER
          41823    0       61      43   0  0              0                SPACE CTR                               SELECT
          41824    2       61      11   0  0              0                CURRENT PROCR START                     SUBTRACT
          41825    34      436     24   0  0              0        436     BITS 1-10                               SET (N) IN B
          41826    124     416      2   0  1              0        416     0 OR 10                                 modify address of next
          41827    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          41828    124     20       2   0  3              0                ABS LOCN Q1-4                           modify address of next
          41829    114              0   0  0              0                PACK NEXT ENTRY>SEC 18                  replace selected bits
    41820>41830    0       61     117   0  0              0                                                        SELECT
  Source image: P1030287.JPG
          41831    12               0   0  0              3                                                        SUBTRACT LITERAL
          41832    3       61     117   0  0              0                REDUCE NO OF SC'S IN TRANSIT            COPY
          41833    71      418     36   0  0              0        418     >LIST NOT EMPTY                         JUMP IF A != 0
          41834    5       20       0   0  0              0                                                        TRANSFER
          41835    76      418     39   0  0              0        418     >TEST IF LAST SC WAS WRONG              JUMP unconditional
    41833>41836    124     20       3   0  2              0                                                        select literal and division
          41837    1       61     116   1  0              0                LENGTH IN 61/117                        ADD
          41838    128     20       0   0  0              0                IP 3 LOCNS                              bulk copy short numeric
    41835>41839            61      20   1  0              0                                                        SELECT
          41840    71      415     34   0  0              0        415     >WAS A WRONG ENTRY POINT                JUMP IF A != 0
    41705>41841            20       0   0  0              0                NEXT SC FWD DEST    LOOK FOR MORE E     SELECT
          41842    2       66       2   0  0              0                                                        SUBTRACT
          41843    71      418     46   0  0              0        418     >NO MORE ENTRIES HERE                   JUMP IF A != 0
          41844    80      422      2   0  0              0        422                                             ENTER SUBROUTINE
          41845    76      418     11   0  0              0        418     >MOVE LIST UP,TRY AGAIN                 JUMP unconditional
    41843>41846    52      7        2   0  0              0                EDIT ENTRY POINT                        EDIT
          41847    C       443      8   0  0              0        443                                             
                                                                                                                   
          41900    PROCR   419       419     I/P C LINE S/R                                                        
          41901     NOTES          RADIX     B                                                                     SELECT
    41808>                                                                                                         
    41805>                                                                                                         
    41803>                                                                                                         
    41522>41902    10               0   0  0              0                                                        SELECT LITERAL
          41903    34      66       6   1  0              0                REF                                     SET (N) IN B
          41904    80      426      2   0  0              0        426     RT ALIGN S/R                            ENTER SUBROUTINE
          41905    5       66       6   1  0              0                                                        TRANSFER
          41906    5       66      16   0  0              0                CLEAR INDICATOR                         TRANSFER
          41907    35               0   0  0              1                QUARTET ONE.                            PREPARE FOR DIGIT COLLATION
          41908    36      66       8   1  0              0                ITEM                                    COLLATE AND ADD
          41909    12               0   0  0              +                +                                       SUBTRACT LITERAL
          41910    71      420      2   0  0              0        420     >NOT 'ITEM+'                            JUMP IF A != 0
          41911    10               0   0  0              1                                                        SELECT LITERAL
          41912    5       66      16   0  0              0                                    IF IT IS SET        TRANSFER
          41913            66       8   1  0              0                                    INDICATOR           SELECT
          41914    30               0   0  0              1-                                   AND REMOVE +        SHIFT (A) BY QUARTETS
          41915    72      419     17   0  0              0        419                                             JUMP IF A >= 0
          41916    11               0   0  0              1                TO MAKE COMPLEMENT  CORRECT             ADD LITERAL
    41915>41917    5       66       8   1  0              0                                                        TRANSFER
                                                                                                                   
          42000    PROCR   420       420     I/P C-LINE S/R                                                        
          42001     NOTES          RADIX     B                                                                     SELECT
    41910>42002            77      38   1  0              0                IGNORE'IND                              SELECT
          42003    2       434     28   1  0              0        434                                             SUBTRACT
          42004    3       61      98   1  0              0                                                        COPY
          42005    70      420      6   0  0              0        420                                             JUMP IF A == 0
    42005>42006    80      403      2   0  0              0        403     PRINT                                   ENTER SUBROUTINE
          42007            66       6   2  0              0                DEC REF                                 SELECT
          42008    12               0   0  0            100                                                        SUBTRACT LITERAL
          42009    73      420     16   0  0              0        420     >SECTION                                JUMP IF A < 0
          42010    12               0   0  0            899                                                        SUBTRACT LITERAL
          42011    72      420     16   0  0              0        420     >999 OR 1000+                           JUMP IF A >= 0
          42012    60               0   0  0              0                                                        SET DECIMAL RADIX
          42013    10               0   0  0              2-                                                       SELECT LITERAL
          42014    4       66       8   1  0              0                REDUCE ITEM                             AUGMENT
          42015    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    42011>                                                                                                         
    42009>42016            66       4   1  0              0                                                        SELECT
          42017    2       434     26   1  0              0        434     C, , , , ,                              SUBTRACT
          42018    70      421      6   0  0              0        421                                             JUMP IF A == 0
  Source image: P1030288.JPG
          42019    34      66       4   1  0              0                                                        SET (N) IN B
          42020    80      426      2   0  0              0        426     RT ALIGN S/R                            ENTER SUBROUTINE
          42021    5       66       4   1  0              0                                                        TRANSFER
          42022            66       4   2  0              0                ACTION                                  SELECT
          42023    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          42024    5       61     110   0  0              0                GROUP                                   TRANSFER
          42025    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          42026    11               0   0  0              1                                                        ADD LITERAL
          42027    5       61      50   0  0              0                VARIANT +1                              TRANSFER
                                                                                                                   
          42100    PROCR   421       421     I/P C-LINE S/R                                                        
          42101     NOTES          RADIX     B                                                                     SELECT
          42102    0       61     110   0  0              0                                                        SELECT
          42103    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          42104    11               0   0  0              1                                                        ADD LITERAL
          42105    5       61     110   0  0              0                GROUP+1                                 TRANSFER
    42018>42106            61      98   1  0              0                W/L                                     SELECT
          42107    71      421     10   0  0              0        421                                             JUMP IF A != 0
          42108    5       61     110   0  0              0                CLEAR GROUP WHEN'IGNORE'IND SET         TRANSFER
          42109    76      353      2   0  0              0        353     >GNB                                    JUMP unconditional
    42107>42110    124     435     22   0  2              0        435                                             select literal and division
          42111    112     66       8   1  0              0                                                        convert
          42112    5       66       8   1  0              0                ITEM TO BIN                             TRANSFER
          42113    124     435     22   0  2              0        435                                             select literal and division
          42114    112     66      12   1  0              0                                                        convert
          42115    5       66      12   1  0              0                MOD DIGITS TO BIN                       TRANSFER
          42116    124     435     22   0  2              0        435                                             select literal and division
          42117    112     66       7   1  0              0                                                        convert
          42118    5       66       6   1  0              0                REF TO BIN                              TRANSFER
          42119    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          42120    82      415      2   0  0              0        415                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42200    PROCR   422       422     PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE                         
          42201     NOTES          RADIX     B                                                                     SELECT
          42202    81      422      2   0  0              0        422                                             START OF SUBROUTINE
          42203    0       61      20   1  0              0                                                        SELECT
          42204    71      422      7   0  0              0        422     >PRINT REPORTED SC                      JUMP IF A != 0
          42205    0       23      46   1  0              0                'PRINT UNCONDITIONALLY' INDS            SELECT
          42206    70      422     12   0  0              0        422     >DONT PRINT SEPARATE SC                 JUMP IF A == 0
    42204>42207    52      5        2   0  0              0                                                        EDIT
          42208    C       443      2   0  0              0        443                                             
          42209    0       61      20   1  0              0                ?????'OR ZERO                           SELECT
          42210    5       5       46   1  0              0                                                        TRANSFER
          42211    80      423      2   0  0              0        423                                             ENTER SUBROUTINE
    42206>42212    82      422      2   0  0              0        422                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42300    PROCR   423       423     SECOND PRINT S/R                                                      
          42301     NOTES          RADIX     B                                                                     SELECT
          42302    81      423      2   0  0              0        423                                             START OF SUBROUTINE
          42303    00      436      2   1  0              0        436     BEW                                     SELECT
          42304    5       5       50   1  0              0                                                        TRANSFER
          42305    0       999     14   1  0              0                SEC 5 PARAS                             SELECT
          42306    5       999     16   1  0              0                CORRUPT SEC 7 PARAS                     TRANSFER
          42307    80      403      2   0  0              0        403     >PRINT SR(WHICH WILL USE SEC 5)         ENTER SUBROUTINE
          42308    0       999     30   1  0              0                                                        SELECT
          42309    5       999     16   1  0              0                RESTORE SEC 7 PARAS EX WL               TRANSFER
          42310    54      5        2   1  0             48                                                        BULK CLEAR
          42311    82      423      2   0  0              0        423                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42400    PROCR   424       424     NEG NO S/R                                                            
  Source image: P1030289.JPG
          42401     NOTES          RADIX     B                                                                     SELECT
          42402    81      424      2   0  0              0        424                                             START OF SUBROUTINE
          42403    10               0   0  0              0                                                        SELECT LITERAL
          42404    2       66       8   1  0              0                ITEM                                    SUBTRACT
          42405    70      424     17   0  0              0        424     DO NOT SET INDICATORFOR ZERO ITEM       JUMP IF A == 0
          42406    73      424     17   0  0              0        424                                             JUMP IF A < 0
          42407    5       66       8   1  0              0                                                        TRANSFER
          42408    10               0   0  0             80                B8                                      SELECT LITERAL
          42409    4       61      34   0  0              0                PARA W/L                                AUGMENT
          42410            66      10   1  0              0                                    DEAL WITH           SELECT
          42411    12               0   0  0              2                                    DISC 2              SUBTRACT LITERAL
          42412    71      424     17   0  0              0        424                         FOR -VE ITEM        JUMP IF A != 0
          42413    12               0   0  0              1                                                        SUBTRACT LITERAL
          42414    4       66       8   1  0              0                                                        AUGMENT
          42415    10               0   0  0              1                                                        SELECT LITERAL
          42416    5       66      10   1  0              0                                                        TRANSFER
    42412>                                                                                                         
    42406>                                                                                                         
    42405>42417    82      424      2   0  0              0        424                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42500    PROCR   425       425     STACK S/R                                                             
          42501     NOTES          RADIX     B                                                                     SELECT
          42502    81      425      2   0  0              0        425                                             START OF SUBROUTINE
          42503    0       61       0   0  0              0                ACTION                                  SELECT
          42504    5       67       3   0  0              0                                                        TRANSFER
          42505            66       6   1  0              0                REF                                     SELECT
          42506    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          42507    1       61      34   0  0              0                PARAM                                   ADD
          42508    5       67       2   0  0              0                                                        TRANSFER
          42509            66      10   1  0              0                                                        SELECT
          42510    70      425     16   0  0              0        425     GDISC 0                                 JUMP IF A == 0
          42511    12               0   0  0              2                                                        SUBTRACT LITERAL
          42512    71      425     15   0  0              0        425     >NOT DISC 2                             JUMP IF A != 0
          42513    10               0   0  0              1                STEP ITEM                               SELECT LITERAL
          42514    4       66       8   1  0              0                                                        AUGMENT
    42512>42515            437     29   0  0              0        437     B16                                     SELECT
    42510>42516    124     66      12   0  1              0                MOD DIGITS                              modify address of next
          42517    1       437     25   0  0              0        437     BITS IN B14 POSN                        ADD
          42518    1       66       8   0  0              0                ITEM                                    ADD
          42519    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          42520    36      67       3   0  0              0                                                        COLLATE AND ADD
          42521    37      67       3   0  0              0                PACK WITH ACTION                        REPLACE SELECTED BITS
          42522    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          42523    82      425      2   0  0              0        425                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42600    PROCR   426       426     RT ALIGN S/R                                                          
          42601     NOTES          RADIX     B                                                                     SELECT
          42602    81      426      2   0  0              0        426                                             START OF SUBROUTINE
          42603    10               0   0  0              0                                                        SELECT LITERAL
          42604    05      61      18   1  0              0                                                        TRANSFER
    42608>42605    00      61      18   1  0              0                                                        SELECT
          42606    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          42607    05      61      18   1  0              0                                                        TRANSFER
          42608    75      426      5   0  0              0        426                                             JUMP IF AB != 0
          42609    00      61      18   1  0              0                                                        SELECT
          42610    82      426      2   0  0              0        426                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42700    PROCR   427       427     SUSPEND S/R                                                           
          42701     NOTES          RADIX     B                                                                     SELECT
          42702    81      427      2   0  0              0        427                                             START OF SUBROUTINE
  Source image: P1030290.JPG
          42703    55      66       6   1  0              8                                                        BULK COPY
          42704    C       61      26   1  0              0                                                        
          42705            66      16   0  0              0                ITEM + IND                              SELECT
          42706    5       66      17   0  0              0                ITEM + IND (STORE)                      TRANSFER
          42707    82      427      2   0  0              0        427                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42800    PROCR   428       428     REPLACE S/R                                                           
          42801     NOTES          RADIX     B                                                                     SELECT
          42802    81      428      2   0  0              0        428                                             START OF SUBROUTINE
          42803    55      61      26   1  0              8                                                        BULK COPY
          42804    C       66       6   1  0              0                                                        
          42805            66      17   0  0              0                ITEM + IND (STORE)                      SELECT
          42806    5       66      16   0  0              0                ITEM + IND                              TRANSFER
          42807    82      428      2   0  0              0        428                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42900    PROCR   429       429     OP INST S/R                                                           
          42901     NOTES          RADIX     B                                                                     SELECT
          42902    81      429      2   0  0              0        429                                             START OF SUBROUTINE
          42903            66      12   1  0              0                MOD DIGITS                              SELECT
          42904    5       61       2   0  0              0                                                        TRANSFER
          42905    80      497      2   0  0              0        497     >MOD AND PARAMETER                      ENTER SUBROUTINE
          42906            61       2   0  0              0                                                        SELECT
          42907    5       66      12   1  0              0                                                        TRANSFER
          42908    0       66       8   1  0              0                                                        SELECT
          42909    72      429     11   0  0              0        429     >NOT NEGATIVE ITEM                      JUMP IF A >= 0
          42910    80      424      2   0  0              0        424     NEG NO                                  ENTER SUBROUTINE
    42909>42911    80      425      2   0  0              0        425     STACK                                   ENTER SUBROUTINE
          42912    80      411      2   0  0              0        411     OP                                      ENTER SUBROUTINE
          42913    82      429      2   0  0              0        429                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43000    PROCR   430       430     CONVERT (A) TO BINARY                                                 
          43001     NOTES          RADIX                                                                           SELECT
          43002    81      430      2   0  0              0        430                                             START OF SUBROUTINE
          43003    5       435     42   1  0              0        435                                             TRANSFER
          43004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          43005    124     435     22   0  2              0        435                                             select literal and division
          43006    112     435     42   1  0              0        435                                             convert
          43007    82      430      2   0  0              0        430                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43100    PROCR   431       431     CONVERT (A) TO DECIMAL                                                
          43101     NOTES  431                                                                                     SELECT
          43102    81      431      2   0  0              0        431                                             START OF SUBROUTINE
          43103    5       435     42   1  0              0        435                                             TRANSFER
          43104    60               0   0  0              0                                                        SET DECIMAL RADIX
          43105    124     435      2   0  2              0        435                                             select literal and division
          43106    112     435     42   1  0              0        435                                             convert
          43107    82      431      2   0  0              0        431                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43200    PROCR   432       432     A2>8                                                                  
          43202    81      432      2   0  0              0        432                                             START OF SUBROUTINE
          43203    42      A2       0   0  0              0                                                        INPUT
          43204    C       8        0   0  0              0                                                        
          43205    59      8        6   0 12              0                                                        SET MODIFICATION REGISTER FOR MERGE
          43206    C       8        4   2  0              0                                                        
          43207    82      432      2   0  0              0        432                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43300    PROCR   433       433     O/P>A9                                                                
          43302    81      433      2   0  0              0        433                                             START OF SUBROUTINE
          43303    10               0   0  0         800000                                                        SELECT LITERAL
          43304    34      999     12   0  0              0                                                        SET (N) IN B
  Source image: P1030291.JPG
          43305    125           4096   1  1              0                                                        clear indicators
          43306    1       999      7   0  0              0                D1/A9                                   ADD
          43307    124     999      0   0  3              0                                                        modify address of next
          43308    123            160   0  2              0                                                        enter master routine
          43309    82      433      2   0  0              0        433                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43400    CONST   434       434     1    ALPHA CONSTANTS                                                  
          43402          (A)VALUE;                                                                                 
          43404          TABLE;                                                                                    
          43406          CONST;                                                                                    
          43408          PROCR;                                                                                    
          43410          (A)NOTES;                                                                                 
          43412          END  ;                                            END                                     
          43414          DUMPS;                                                                                    
          43416          FILES;                                                                                    
          43418          TYPE ;                                                                                    
          43420          FIEND;                                                                                    
          43422          >    ;                                                                                    
          43424          TYPE.;                                                                                    
          43426          C    ;                                                                                    
          43428          ?????;                                                                                    
          43430          TYPE£;                                                                                    
          43432          (B)1;                                             CONVERT LITERALS OF 35 ACTION           
          43434          2;                                                                                        
          43436          4;                                                                                        
          43438          8;                                                                                        
          43440          16;                                                                                       
          43442          32;                                                                                       
          43444          64;                                                                                       
          43446          128;                                                                                      
          43448          256;                                                                                      
          43450          512;                                                                                      
                                                                                                                   
          43500    CONST   435       435     1    CONVERT TABLES                                                   
          43502          (D)1;                                             BIN>DEC                                 
          43504          16;                                                                                       
          43506          256;                                                                                      
          43508          4096;                                                                                     
          43510          65536;                                                                                    
          43512          1048576;                                                                                  
          43514          16777216;                                                                                 
          43516          268435456;                                                                                
          43518          4294967296;                                                                               
          43520          ££££££££££;                                                                               
          43522          1;                                                DEC>BIN                                 
          43524          Ю;                                                                                        
          43526          64;                                                                                       
          43528          3.8;                                                                                      
          43530          2710;                                                                                     
          43532          186Ю0;                                                                                    
          43534          £4240;                                                                                    
          43536          989680;                                                                                   
          43538          5£5.100;                                                                                  
          43540          3‼9Ю+Ю00;                                                                                 
          43542          0;                                                (A)WL                                   
          43544          0;                                                'CLEO'PARA WORD                         
          43546          +00000;                                                                                   
                                                                                                                   
          43600    CONST   436       436     0    DECIMAL CONSTANTS                                                
          43602          (D)7.;                                            B.E.                                    
  Source image: P1030292.JPG
          43603          7.000;                                            WORD                                    
          43604          0;                                                0:48  MR SETTING                        
          43605          90;                                               MR NOW 0:144                            
          43606          1;                                                FUNCTION WORDS                          
          43607          45;                                               TYPES IN ALPHA                          
          43608          45;                                                                                       
          43609          44;                                                                                       
          43610          4;                                                                                        
          43611          4;                                                                                        
          43612          2;                                                                                        
          43613          0;                                                                                        
          43614          (R)18:2499;                                       FOR SEQUENCE CHANGES                    
          43615          18:0;                                                                                     
          43616          (B)180;                                           FOR TSL STORAGE                         
          43617          180;                                                                                      
          43618          (D)3;                                                                                     
          43619          7£££0;                                            B5-19                                   
          43620          1£££;                                             B1-13                                   
          43621          66666;                                            DEC RADIX                               
          43622          66.64;                                            ST RADIX                                
          43623          66666;                                            DEC RADIX                               
          43624          3££;                                              BITS 1-10                               
          43625          01000;                                            BIT 13                                  
          43626          3£;                                               BITS 1-6                                
                                                                                                                   
          43700    CONST   437       437     0    INSTRUCTIONS                                                     
          43702          (R)92:9;                                                                                  
          43703          (D)08006;                                         10/1/0/6                                
          43704          +8006;                                            12/1/0/6                                
          43705          7;                                                                                        
          43706          £££££;                                            THIS ISN'T A DUMMY                      
          43707          £££££;                                                                                    
          43708          (D)60000;                                         6                                       
          43709          40000;                                            4 B19                                   
          43710          50000;                                            5                                       
          43711          30000;                                            3                                       
          43712          70000;                                            7                                       
          43713          20000;                                            2      B18                              
          43714          90000;                                            9                                       
          43715          Ю0000;                                            10                                      
          43716          ‼0000;                                            11                                      
          43717          :0000;                                            13                                      
          43718          20001-;                                           18/1/1/0/1                              
          43719          8+000-;                                           24/1/2                                  
          43720          80000-;                                           24/0/0                                  
          43721          0Ю000;                                            0/1/1                                   
          43722          1.000;                                            0/1/3                                   
          43723          1Ю000;                                            1/1/1                                   
          43724          1+000;                                            1/1/2                                   
          43725          0;                                                0/0/0                                   
          43726          02000;                                            0/0/1 B14                               
          43727          04000;                                            0/0/2 B15                               
          43728          06000;                                            0/0/3 B14                               
          43729          08000;                                            0/1/0 B16                               
          43730          28000;                                            2/1/0                                   
          43731          38000;                                            3/1/0                                   
          43732          22000-;                                           18/0/1                                  
          43733          26000-;                                           18/0/3                                  
          43734          2Ю000-;                                           18/1/1                                  
          43735          2.000-;                                           18/1/3                                  
  Source image: P1030293.JPG
          43736          12000;                                            1/0/1                                   
          43737          £0000;                                            15                                      
          43738          .0000;                                            14                                      
          43739          14000;                                            1/0/2                                   
          43740          ‼0000-;                                           27/0/0                                  
          43741          ‼2000-;                                           27/0/1                                  
          43742          ‼4000-;                                           27/0/2                                  
          43743          ‼6000-;                                           27/0/3                                  
          43744          ‼8000-;                                           27/1/0                                  
          43745          ‼Ю000-;                                           27/1/1                                  
          43746          88000-;                                           24/1/0                                  
          43747          Ю0000-;                                           26/0/0                                  
          43748          Ю2000-;                                           26/0/1                                  
          43749          10000;                                            1/0/0 B17                               
          43750          2Ю00Ю-;                                           18/1/1/0/10                             
          43751          80000;                                            8/0/0 B20                               
          43752          88000;                                            8/1/0                                   
          43753          1.001;                                            1/1/3/0/1                               
          43754          48000;                                            4/1/0                                   
          43755          2Ю005-;                                           18/1/1/0/5                              
          43756          Ю8000-;                                           26/1/0                                  
          43757          68000;                                            6/1/0                                   
          43758          +0000;                                            12                                      
          43759          90000-;                                           25/0/0                                  
          43760          74000-;                                           23/0/2                                  
          43761          70000-;                                           23/0/0                                  
          43762          2‼016-;                                           18/1/1/0/10  (18/1/11/4096+22)          
          43763          Ю4000-;                                           26/0/2                                  
          43764          2‼017-;                                           18/1/1/0/9- (18/1/1/4094+23             
          43765          +0000-;                                           28/0/0                                  
          43766          84000-;                                           24/0/2                                  
          43767          :2000-;                                           29/0/1                                  
          43768          +4000-;                                           28/0/2                                  
          43769          +6000-;                                           28/0/3                                  
          43770          ++000-;                                           28/1/2                                  
          43771          +.000-;                                           28/1/3                                  
          43772          2‼01‼-;                                           18/1/1/0/5-                             
          43773          9‼000-;                                                                                   
          43774          (R)18:2496;                                       FOR SEQUENCE CHANGES                    
          43775          (D)1;                                                                                     
          43776          £0000-;                                           31/0/0                                  
          43777          £8000-;                                           31/1/0                                  
          43778          .8000-;                                           30/1/0                                  
          43779          .0008-;                                           30/0/0/8                                
          43780          .0000-;                                           30/0/0                                  
          43781          £0008-;                                           31/0/0/8                                
          43782          40000-;                                           20/0/0                                  
          43783          48000-;                                           20/1/0                                  
          43784          58000-;                                           21/1/0                                  
          43785          40008-;                                           20/0/0/8                                
          43786          50000-;                                           21/0/0                                  
          43787          60000-;                                           22/0/0                                  
          43788          .0004-;                                           30/0/0 4                                
          43789          £8004-;                                           31/1/0 4                                
          43790          68000-;                                           22/1/0                                  
          43791          407+;                                             BITS 3-7+15                             
          43792          400;                                              PARA 152                                
          43793          6808Ю;                                            6/1/0 138                               
          43794          500;                                              PARA 154                                
          43795          0409+;                                            0/0/2/156                               
  Source image: P1030294.JPG
          43796          200;                                              PARA 150                                
          43797          300;                                              PARA 151                                
          43798          Ю6000-;                                           26/0/3 0                                
          43799          ;                                                 INDICATOR FOR PRINTING CURRENT BLOCK    
                                                                                                                   
          43800    CONST   438       438     0    MORE ACTIONS                                                     
          43802          (D)86000-;                                        24/0/3                                  
          43803          82000-;                                           24/0/1                                  
          43804          28006;                                            2/1/06                                  
          43805          38006;                                            3/1/06                                  
          43806          ‼8002-;                                           27/1/02                                 
          43807          1Ю002;                                            1/1/12                                  
          43808          22005-;                                           18/0/15                                 
          43809          06004;                                            0/0/34                                  
          43810          20001;                                            2/0/01                                  
          43811          88001-;                                           24/1/01                                 
          43812          ‼4002-;                                           27/0/22                                 
          43813          88007-;                                           24/1/07                                 
          43814          Ю5££‼-;                                           26/0/35-                                
          43815          Ю1££Ю-;                                           26/0/16-                                
          43816          20006;                                            2/0/06                                  
          43817          86006-;                                           24/0/36                                 
          43818          74002-;                                           23/0/22                                 
          43819          0;                                                THIS IS A 0/10 FLIPFLOP USED FOR SC'S FW
          43820          0;                                                SERIAL LAST MT BLOCK PRINTED IMPLICITLY 
          43821          8+006-;                                           24/1/2 6                                
          43822          1Ю00Ю;                                            1/1/1 10                                
          43823          30002;                                            3/0/0 2                                 
          43824          1Ю014;                                            1/1/1 20                                
          43825          04002;                                            0/0/2 2                                 
          43826          88005-;                                           24/1/0 5                                
          43827          :6000-;                                           29/0/3 0                                
          43828          8000-;                                            16/1/0 0                                
                                                                                                                   
          43900    TABLE   439       439     1    TRIAL DATA HEADING BLOCK 'FILES'                                 
          43901     NOTES                                                                                          
                                                                                                                   
          44000    TABLE   440       440     1    INSTRUCTIONS                                                     
          44001     NOTES                                                                                          
          44002    66     0     0     0  2  0   5   0   0   0  0  0  0     AM IND                                  
          44004    66     2     0     0  1  0   5   5   5   0  0  0  0     S. NO                                   
          44006    66     4     0     0  2  0   5   0   4   0  0  0  0     ACTION                                  
          44008    66     6     0     0  2  0   5   0   3   0  0  0  0     REF                                     
          44010    66     8     0     0  1  0   5   5   0   4  2  0  0     ITEM                                    
          44012    66    10     0     0  1  0   2   8   1   1  0  0  0     DISC                                    
          44014    66    12     0     0  1  0   3   7   0   2  0  0  0     MOD                                     
          44016    66    14     0     0  1  0  10   0   5   9  2  0  0     LITERAL                                 
          44018   435    44     0     0  2  0   5   0   0   0  0  0  1     'CLEO'PARA WORD                         
                                                                                                                   
          44100    TABLE   441       441     1    TABLES                                                           
          44101     NOTES                                                                                          
          44102    66     0     0     0  2  0   5   0   0   0  0  0  0     AM IND                                  
          44104    66     2     0     0  0  0   5   0   5   0  0  0  0     S NO                                    
          44106    66    16     0     0  0  0   5   0   1   4  0  0  0     FIRST REF                               
          44108    66    17     0     0  0  0   5   0   1   4  0  0  0     FIRST ITEM                              
          44110    66    18     0     0  0  0   5   0   1   4  0  0  0     SECOND REF                              
          44112    66    19     0     0  0  0   5   0   1   4  0  0  0     SECOND ITEM                             
          44114    66     3     0     0  0  0   2   3   1   1  0  0  0     S/L/ALPHA                               
          44116    66     4     0     0  0  0   3   2   0   2  0  0  0     SINGLE/BE                               
          44118    66     5     0     0  0  0   2   3   2   1  0  0  0     NO OF CHARS                             
  Source image: P1030295.JPG
          44120    66    10     0     0  0  0   3   2   1   2  0  0  0     DISC                                    
          44122    66    11     0     0  0  0   2   3   2   1  0  0  0     SPACES                                  
          44124    66    12     0     0  0  0   3   2   1   2  0  0  0     ZEROS                                   
          44126    66    13     0     0  0  0   1   4   2   0  0  0  0     SIGN                                    
          44128    66    14     0     0  0  0   2   3   1   1  0  0  0     STERLING                                
          44130    66    15     0     0  0  0   2   3   1   1  0  0  1     L.T.E.                                  
                                                                                                                   
          44200    TABLE   442       442     1    VALUE                                                            
          44201     NOTES                                                                                          
          44202    67     3     0     0  0  0   5   0   1   4  1  0  0     VALUE                                   
          44204    67     2     0     0  0  0   4   1   0   3  0  0  1     PARA                                    
                                                                                                                   
          44300    TABLE   443       443     1                                                                     
          44301     NOTES                         ENTRY PT  ADJUSTMENTPM POINTS                                    
          44302    61    20     0     0  2  0   3   2   0   0  0  0  0     ??? OR ZERO                             
          44304    61     0     0     0  0  0   5   0   1   0  0  0  0     ENTRY POINT                             
          44306   434    22     0     0  2  0   1   0   0   0  0  0  1     '+'                                     
          44308    66     0     0     0  2  0   3   0   0   0  0  0  0     AMEND IND                               
          44310    61     0     0     0  0  0   5   0   1   0  0  0  0     ENTRY PT                                
          44312   434    22     0     0  2  0   1   0   0   0  0  0  1     >                                       
                                                                                                                   
          44400    CONST   444       444     1    DUMMY FOR INSERTING M/C MODS                                     
                                                                                                                   
          44500    PROCR   445       445     START OF PASS 3                                                       
          44501     NOTES          RADIX          PREP STAGE                                                       SELECT
          44502    152     200      4   0  0              0        200                         CALL PASS 4         OVERLAY
          44503    C       557      2   0  0              0        557     COPY SECTION DETAILS                    
          44504    55      9        0   1  0            100                                                        BULK COPY
          44505    C       15       0   1  0              0                INPUT EX PASS 2                         
          44506    40      A6       0   0  0              1                                                        OPEN FILE
          44507    54      16       0   0  0             40                CLEAR PRINTER ANNEX                     BULK CLEAR
          44508    54      5        0   0  0             50                CLEAR DETAILS                           BULK CLEAR
          44509    10               0   0  0              0                OF SECTION 0                            SELECT LITERAL
          44510    5       94       0   0  0              0                                                        TRANSFER
          44511    55      72       3   0  0             14                                                        BULK COPY
          44512    C       16       5   0  0              0                                                        
          44513    54      72       3   0  0             14                                                        BULK CLEAR
          44514    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          44515    C                0   0  0              0                /////                                   
          44516            92       0   0  0              0                CHAPTERS CODED +1                       SELECT
          44517    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          44518    11               0   0  0              1                                                        ADD LITERAL
          44519    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    44611>44520    10               0   0  0              0                                                        SELECT LITERAL
          44521    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          44522    36      92       9   0  1              0                                                        COLLATE AND ADD
          44523    5       16       2   0  0              0                CORRECTED CHAP                          TRANSFER
          44524    96               0   0  1              0                                                        SELECT MODIFIER
          44525    5       16       1   0  0              0                UNCORR CHAP                             TRANSFER
          44526    10               0   0  0             10                BIT 5                                   SELECT LITERAL
          44527    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          44528    36      92       9   0  1              0                UNIQUENESS IND Q2                       COLLATE AND ADD
          44529    32               0   0  0              2-               (CLEAR A)                               SHIFT (AB) BY QUARTETS
          44530    75      445     33   0  0              0        445     >CHAP NOT UNIQUE                        JUMP IF AB != 0
          44531    124     16       2   0  1              0                CORR CHAP                               modify address of next
          44532            16       4   0  0              0                SW SEC LENGTH                           SELECT
    44530>44533    1       72      18   0  3              0                CHAP LENGTH(CODING ONLY)                ADD
          44534    5       16       3   0  0              0                START OF FIRST SEC IN UNCORR CHAP       TRANSFER
          44535    5       16       4   0  0              0                CLEAR FOR TOT LENGTHS ALL SECS IN C     TRANSFER
                                                                                                                   
  Source image: P1030296.JPG
          44600    PROCR   446       446     UPDATE SEC INDEX, SWITCH PROCR STARTS                                 
          44601     NOTES  446                                                                                     SELECT
          44602    80      447      2   0  0              0        447     >DEAL WITH SECTIONS,ANNEXES             ENTER SUBROUTINE
          44603            16       3   0  0              0                UNCORR CHAP LENGTH                      SELECT
          44604    1       16       4   0  0              0                                                        ADD
          44605    124     16       2   0  1              0                CORR CHAP                               modify address of next
          44606    2       72       2   0  0              0                                                        SUBTRACT
          44607    73      446     10   0  0              0        446                                             JUMP IF A < 0
          44608    124     16       2   0  1              0                                                        modify address of next
          44609    4       72       2   0  0              0                FORM MAX CORR CHAP LENGTH               AUGMENT
    44607>44610    94      446     11   0  3              1        446                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    44610>44611    94      445     20   0  1              1        445     >NEXT UNCORR CHAP                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          44612    91      92      28   0  1              0                COUNT CORR CHAPS                        SET MODIFICATION REGISTER AT VARIABLE
          44613    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          44614    C                0   0  0              0                /////                                   
    44624>44615    10               0   0  0             10                BIT 5                                   SELECT LITERAL
          44616    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          44617    36      92      10   0  1              0                                                        COLLATE AND ADD
          44618    70      446     23   0  0              0        446     >CHAR IS UNIQUE                         JUMP IF A == 0
          44619    0       72       3   0  1              0                                                        SELECT
          44620    5       72      18   0  2              0                SWITCH PROCR START=END OF SECTIONS      TRANSFER
          44621    0       16       5   0  1              0                                                        SELECT
          44622    4       72       3   0  1              0                UPDATE CHAPTER LENGTH.                  AUGMENT
    44618>44623    94      446     24   0  2              1        446                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    44623>44624    94      446     15   0  1              1        446     >NEXT CHAP                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          44625    0       61     100   0  0              0                BASIC SPECIAL CHAP LENGTH               SELECT
          44626    5       16       3   0  0              0                                                        TRANSFER
          44627    5       16       1   0  0              0                ZERO UNCORR CHAP                        TRANSFER
          44628    0       92      29   0  0              0                                                        SELECT
          44629    5       16       2   0  0              0                CORR CHAP=SPEC CHAP                     TRANSFER
          44630    5       16       4   0  0              0                CLEAR SUBTOTAL                          TRANSFER
          44631    80      447      2   0  0              0        447     >DEAL WITH SPECIAL CHAP                 ENTER SUBROUTINE
          44632    0       16       3   0  0              0                                                        SELECT
          44633    1       16       4   0  0              0                FORM SPECIAL CHAP LENGTH                ADD
          44634    5       72       2   0  1              0                                                        TRANSFER
          44635    101            220   1  3              0                FIRST CHAP MIN LENGTH=220               select literal address
          44636    2       72       3   0  0              0                                                        SUBTRACT
          44637    73      446     39   0  0              0        446     >OK                                     JUMP IF A < 0
          44638    4       72       3   0  0              0                                                        AUGMENT
    44637>44639    54      16       0   0  0             40                CLEAR WL'S                              BULK CLEAR
          44640    0       92      29   0  0              0                                                        SELECT
          44641    12               0   0  0              7                                                        SUBTRACT LITERAL
          44642    73      446     44   0  0              0        446     >OK                                     JUMP IF A < 0
          44643    10               0   0  0              0                                                        SELECT LITERAL
    44642>44644    11               0   0  0              7                MAX VALUE=7                             ADD LITERAL
          44645    5       92      29   0  0              0                SPECIAL CHAP NUMBER                     TRANSFER
          44646    80      461      2   0  0              0        461     READ ALIGN BLOCK A6 NORMAL RUN, PREP STAENTER SUBROUTINE
          44647    80      461      2   0  0              0        461     READ SECOND INDEX BLOCK                 ENTER SUBROUTINE
          44648    80      461      2   0  0              0        461     READ PROG DETAILS BLOCK                 ENTER SUBROUTINE
          44649    00      9        4   2  0              0                PROG ID                                 SELECT
          44650    5       16       2   0  0              0                                                        TRANSFER
          44651    00      9        6   2  0              0                PROG SERIAL                             SELECT
          44652    5       16       3   0  0              0                                                        TRANSFER
          44653    54      13       0   0  0             14                                                        BULK CLEAR
          44654    46      A2      10   0  0              1                BACK TO ALIGN BLOCK                     RUN BACK
          44655    C                0   0  0              6                                                        
          44656    48      A2       0   0  0              0                (STEP SO AS TO OVERWRITE IT)            STEP BACK
          44657    C                0   0  0              1                                                        
          44658            468     60   1  0              0        468     ALIGN MARKS                             SELECT
          44659    5       8        4   1  0              0                                                        TRANSFER
  Source image: P1030297.JPG
          44660            469      4   1  0              0        469     'INDEX'                                 SELECT
          44661    5       8        6   1  0              0                                                        TRANSFER
          44662            468     60   2  0              0        468                                             SELECT
          44663    5       8        8   2  0              0                                                        TRANSFER
          44664    10               0   0  0              3                INDEX IDENTIFIER                        SELECT LITERAL
          44665    5       8       10   1  0              0                                                        TRANSFER
          44666    80      464      2   0  0              0        464     >WRITE                                  ENTER SUBROUTINE
          44667    80      448      2   0  0              0        448     >WRITE DETAILS                          ENTER SUBROUTINE
          44668    76      449      2   0  0              0        449                                             JUMP unconditional
                                                                                                                   
          44700    PROCR   447       447     PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR                  
          44702    81      447      2   0  0              0        447                                             START OF SUBROUTINE
          44703    82      447      2   0  0              0        447                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          44800    PROCR   448       448     SR TO WRITE'INDEX'DATA                                                
          44801     NOTES  448                                                                                     SELECT
          44802    81      448      2   0  0              0        448                                             START OF SUBROUTINE
          44803            16       2   0  0              0                PROG ID                                 SELECT
          44804    3       8        4   2  0              0                                                        COPY
          44805    5       8       12   2  0              0                                                        TRANSFER
          44806    0       16       3   0  0              0                PROG SERIAL                             SELECT
          44807    3       8        6   2  0              0                                                        COPY
          44808    5       8       14   2  0              0                                                        TRANSFER
          44809    10               0   0  0              2                                                        SELECT LITERAL
          44810    5       8       10   2  0              0                PASS 1 IDENTIFIER                       TRANSFER
          44811    10               0   0  0              3                                                        SELECT LITERAL
          44812    3       8       18   2  0              0                IDENTIFIER                              COPY
          44813    10               0   0  0              2                                                        SELECT LITERAL
          44814    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
          44815    5       8       16   2  0              0                PASS IND                                TRANSFER
          44816            468     60   2  0              0        468                                             SELECT
          44817    5       8       20   2  0              0                                                        TRANSFER
          44818    80      464      2   0  0              0        464     >WRITE ON A2                            ENTER SUBROUTINE
          44819    82      448      2   0  0              0        448                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          44900    PROCR   449       449     HEADING BLOCK                                                         
          44901     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    44668>44902    54      5        0   1  0             50                                                        BULK CLEAR
          44903    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          44904    C                0   0  0             10                                                        
    44906>44905    80      463      2   0  0              0        463     >PRINT SPACERS                          ENTER SUBROUTINE
          44906    94      449      5   0  1              1        449                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          44907    5       464      2   0  0              0        464     NO OF FILES         NON                 TRANSFER
          44908    5       463      2   0  0              0        463     NO OF TX AREAS                          TRANSFER
          44909    10               0   0  0             80                HEAD OF FORM                            SELECT LITERAL
          44910    5       472      9   0  0              0        472                                             TRANSFER
          44911    52      5        0   0  0              0                EDIT FIRST LINE                         EDIT
          44912    C       478      2   0  0              0        478                                             
          44913    80      463      2   0  0              0        463     >PRINT                                  ENTER SUBROUTINE
          44914    80      463      2   0  0              0        463     >SPACER                                 ENTER SUBROUTINE
          44915    0       468     60   2  0              0        468                                             SELECT
          44916    5       8        4   2  0              0                                                        TRANSFER
          44917    10               0   0  0             55                                                        SELECT LITERAL
          44918    5       8        6   2  0              0                                                        TRANSFER
          44919            16       2   0  0              0                PROG ID                                 SELECT
          44920    5       8        8   2  0              0                                                        TRANSFER
          44921            16       3   0  0              0                PROG SERIAL                             SELECT
          44922    5       8       10   2  0              0                                                        TRANSFER
          44923    0       468     70   1  0              0        468     'PASS3'                                 SELECT
          44924    5       8       12   1  0              0                                                        TRANSFER
  Source image: P1030298.JPG
          44925    80      464      2   0  0              0        464     >WRITE                                  ENTER SUBROUTINE
          44926    80      461      2   0  0              0        461     >READ                                   ENTER SUBROUTINE
          44927    55      9        4   1  0             10                                                        BULK COPY
          44928    C       11       0   1  0              0                                                        
          44929    5       11      12   2  0              0                T                                       TRANSFER
          44930    5       11      10   2  0              0                R                                       TRANSFER
          44931    5       11      14   2  0              0                NO OF DISCS                             TRANSFER
                                                                                                                   
          45000    PROCR   450       450     OUTPUT SECOND HEADING BLOCK                                           
          45001     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          45002    55      11       0   1  0             16                                                        BULK COPY
          45003    C       8        4   1  0              0                                                        
          45004    5       92      28   0  0              0                CLEAR                                   TRANSFER
          45005            92       6   0  0              0                2ND HEADING BLOCK                       SELECT
          45006    5       8       20   2  0              0                                                        TRANSFER
          45007            92       8   0  0              0                CHAPTER                                 SELECT
          45008    5       8       22   2  0              0                                                        TRANSFER
          45009    91      92      28   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          45010    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          45011    C                0   0  0             14                                                        
    45025>45012    0       72       3   0  2              0                CHAP LENGTH                             SELECT
          45013    71      450     16   0  0              0        450                                             JUMP IF A != 0
          45014            468     92   1  0              0        468     100,000 INBIN                           SELECT
          45015    3       72       3   0  2              0                SET RIDICULOUS LENGTH                   COPY
    45013>45016    5       8       24   2  1              0                                                        TRANSFER
          45017    10               0   0  0             20                BIT 6                                   SELECT LITERAL
          45018    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          45019    36      92      10   0  2              0                                                        COLLATE AND ADD
          45020    70      450     24   0  0              0        450     >NORMAL                                 JUMP IF A == 0
          45021    10               0   0  0              0                                                        SELECT LITERAL
          45022    2       8       24   2  1              0                                                        SUBTRACT
          45023    5       8       24   2  1              0                SET IND THAT IN ANOTHER STORE           TRANSFER
    45020>45024    94               0   0  1              2                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          45025    94      450     12   0  2              1        450                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          45026    0       16       2   0  0              0                                                        SELECT
          45027    5       8       38   2  0              0                PROG ID                                 TRANSFER
          45028    0       16       3   0  0              0                                                        SELECT
          45029    5       8       40   2  0              0                PROG SERIAL                             TRANSFER
          45030    10               0   0  0     5163636653                'ALLOC'                                 SELECT LITERAL
          45031    5       8       42   1  0              0                                                        TRANSFER
          45032    80      464      2   0  0              0        464     >WRITE                                  ENTER SUBROUTINE
                                                                                                                   
          45100    PROCR   451       451     SECOND HEADING LINE                                                   
          45101     NOTES          RADIX     B    PREP. STAGE                                                      SELECT
          45102    91      478      2   0  1              0        478                                             SET MODIFICATION REGISTER AT VARIABLE
          45103    91      478      4   0  2              0        478                                             SET MODIFICATION REGISTER AT VARIABLE
          45104    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          45105    5       478      2   1  0              0        478                                             TRANSFER
          45106    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          45107    5       478      4   1  0              0        478                                             TRANSFER
          45108    90               0   0  2              0                SET MOD REGISTER                        SET MODIFICATION REGISTER AT LITERAL
          45109    C                0   0  0              4                                                        
    45116>45110            11       0   2  2              0                SELECT DETAIL                           SELECT
          45111    70      451     14   0  0              0        451     OUT IF ZERO                             JUMP IF A == 0
          45112            468      4   1  0              0        468     ELSE SELECT                             SELECT
          45113    76      451     15   0  0              0        451     YES                                     JUMP unconditional
    45111>45114            468      6   1  0              0        468     SELECT NO                               SELECT
    45113>45115    5       13       0   1  2              0                STORE YES OR NO                         TRANSFER
          45116    94      451     10   0  2              2        451     REPEAT                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          45117    0       92       6   0  0              0                                                        SELECT
  Source image: P1030299.JPG
          45118    80      465      2   0  0              0        465     TO DEC                                  ENTER SUBROUTINE
          45119    5       92       6   0  0              0                                                        TRANSFER
          45120    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          45121    52      5        2   0  0              0                                                        EDIT
          45122    C       477      2   0  0              0        477     EDIT AND OUTPUT                         
          45123    80      463      2   0  0              0        463     >PRINT FP, MOD GP, ENTRY ETC            ENTER SUBROUTINE
          45124    80      463      2   0  0              0        463     >SPACER                                 ENTER SUBROUTINE
          45125            11       8   2  0              0                                                        SELECT
          45126    5       13       2   1  0              0                                                        TRANSFER
                                                                                                                   
          45200    PROCR   452       452     THIRD HEADING LINE                                                    
          45201     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          45202            11      10   2  0              0                STORE                                   SELECT
          45203    5       16       8   0  0              0                NO. OF FILES                            TRANSFER
          45204    0       11       8   2  0              0                NUMBER OF CHAPTERS INITIALLY            SELECT
          45205    5       16       9   0  0              0                NO. OF CHAPTERS                         TRANSFER
          45206    54      13       0   0  0             14                CLEAR WL'S                              BULK CLEAR
          45207            92      28   1  0              0                                                        SELECT
          45208    12               0   0  0         100000                                                        SUBTRACT LITERAL
          45209    91               0   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    45219>45210            72       3   0  2              0                                                        SELECT
          45211    80      465      2   0  0              0        465     TO DEC                                  ENTER SUBROUTINE
          45212    5       13       0   0  2              0                STORE CHAPTER LENGTHS                   TRANSFER
          45213    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          45214            72       3   0  2              0                                                        SELECT
          45215    12               0   0  0           2001                8193 INBIN                              SUBTRACT LITERAL
          45216    73      452     19   0  0              0        452     >OK                                     JUMP IF A < 0
          45217    10               0   0  0              1                                                        SELECT LITERAL
          45218    3       13      10   0  0              0                                                        COPY
    45216>45219    94      452     10   0  2              1        452                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          45220    10               0   0  0            506                                                        SELECT LITERAL
          45221    3       470      4   0  0              0        470                                             COPY
          45222    5       13       0   0  2              0                STD LENGTH 506                          TRANSFER
          45223            13      10   0  0              0                                                        SELECT
          45224    70      452     33   0  0              0        452     >OK                                     JUMP IF A == 0
          45225    86      403      2   0  0              0        403     CTR DISASTROUS ERRORS                   SELECT SWITCH R
          45226    11               0   0  0              1                                                        ADD LITERAL
          45227    84      403      2   0  0              0        403     AUGMENT                                 SET SWITCH(ES) AT VARIABLE VALUE
          45228    10               0   0  0     5:5:5:5:5:                '?????'                                 SELECT LITERAL
          45229    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          45230    C                0   0  0             10                                                        
    45232>45231    3       5       40   1  2              0                25 QUESTION MARKS                       COPY
          45232    94      452     31   0  2              2        452                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    45224>45233    52      5        2   0  0              0                EDIT AND OUTPUT                         EDIT
          45234    C       476      2   0  0              0        476                                             
          45235    80      463      2   0  0              0        463     PRINT                                   ENTER SUBROUTINE
          45236    80      463      2   0  0              0        463     SPACER                                  ENTER SUBROUTINE
          45237    52      5        2   0  0              0                                                        EDIT
          45238    C       475      2   0  0              0        475     EDIT FILE DETAILS HEADING               
          45239    80      463      2   0  0              0        463     PRINT                                   ENTER SUBROUTINE
          45240    54      13       0   0  0             31                                                        BULK CLEAR
                                                                                                                   
          45300    PROCR   453       453     FILE DETAILS FOR PRINT-OUT                                            
          45301     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          45302    52      5        2   0  0              0                EDIT HEADINGS&OUTPUT                    EDIT
          45303    C       479     14   0  0              0        479     HEADING BLOCK                           
          45304    80      463      2   0  0              0        463     PRINT TX AREA HEADING                   ENTER SUBROUTINE
                                                                                                                   
          45400    PROCR   454       454     PRINT SECTION START POINTS                                            
          45401     NOTES          RADIX                                                                           SELECT
  Source image: P1030300.JPG
          45402            468     62   1  0              0        468     'SEC'                                   SELECT
          45403    05      5        2   1  0              0                                                        TRANSFER
          45404            468     64   1  0              0        468     'TION.'                                 SELECT
          45405    05      5        4   1  0              0                                                        TRANSFER
          45406    0       468     84   1  0              0        468                                             SELECT
          45407    05      5        6   1  0              0                                                        TRANSFER
          45408    80      463      2   0  0              0        463     >PRINT                                  ENTER SUBROUTINE
          45409    80      463      2   0  0              0        463     PRINT LAST LINE                         ENTER SUBROUTINE
          45410    76      457      2   0  0              0        457     >PRINT SWITCHES                         JUMP unconditional
                                                                                                                   
          45500    PROCR   455       455     PRINT LOCNS OF MOD REGISTERS 4-20                                     
          45501     NOTES  455                                                                                     SELECT
    45605>45502    52      5        2   0  0              0                                                        EDIT
          45503    C       480      8   0  0              0        480                                             
          45504    80      463      2   0  0              0        463     >PRINT HEADING                          ENTER SUBROUTINE
          45505    80      463      2   0  0              0        463     >PRINT LAST LINE                        ENTER SUBROUTINE
          45506    90               0   0 12           2499                                                        SET MODIFICATION REGISTER AT LITERAL
          45507    C                0   0  0              0                                                        
          45508    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          45509    C                0   0  0             40                                                        
          45510    91               0   0  1              0                CLEAR R1                                SET MODIFICATION REGISTER AT VARIABLE
          45511    76      483      2   0  0              0        483     PASS 4                                  JUMP unconditional
                                                                                                                   
          45600    PROCR   456       456     PRINT LOCATIONS OF ITEM+ COUNTERS                                     
          45601     NOTES  456                                                                                     SELECT
    45706>45602    52      5        2   0  0              0                                                        EDIT
          45603    C       480     12   0  0              0        480                                             
          45604    80      463      2   0  0              0        463     >PRINT HEADING                          ENTER SUBROUTINE
          45605    76      455      2   0  0              0        455     >NONE                                   JUMP unconditional
                                                                                                                   
          45700    PROCR   457       457                                                                           
          45701     NOTES                         PRINT LOCATION OF SWITCHES                                       SELECT
    45410>45702    52      5        2   0  0              0                                                        EDIT
          45703    C       480     16   0  0              0        480                                             
          45704    80      463      2   0  0              0        463     >PRINT HEADING                          ENTER SUBROUTINE
          45705    80      463      2   0  0              0        463     >PRINT LAST LINE                        ENTER SUBROUTINE
          45706    76      456      2   0  0              0        456     >PRINT ITEM+                            JUMP unconditional
                                                                                                                   
          45800    PROCR   458       458                                                                           
          45801     NOTES          RADIX          EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS         SELECT
          45802    81      458      2   0  0              0        458                                             START OF SUBROUTINE
          45803    0       468      2   0  0              0        468                                             SELECT
          45804    80      465      2   0  0              0        465     TO DEC                                  ENTER SUBROUTINE
          45805    5       468      2   0  0              0        468                                             TRANSFER
          45806    0       468      3   0  0              0        468                                             SELECT
          45807    80      465      2   0  0              0        465                                             ENTER SUBROUTINE
          45808    5       468      3   0  0              0        468                                             TRANSFER
          45809    0       468      4   0  0              0        468                                             SELECT
          45810    80      465      2   0  0              0        465                                             ENTER SUBROUTINE
          45811    5       468      4   0  0              0        468                                             TRANSFER
          45812    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          45813    52      5        2   0  1              0                                                        EDIT
          45814    C       480     20   0  0              0        480                                             
          45815    94      458     19   0  1              6        458     >LINE NOT FULL                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          45816    80      463      2   0  0              0        463     >PRINT                                  ENTER SUBROUTINE
          45817    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          45818    C                0   0  0             48                                                        
    45815>45819    82      458      2   0  0              0        458                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          45900    PROCR   459       459     READ A2                                                               
  Source image: P1030301.JPG
          45901     NOTES                         READ A2                                                          SELECT
          45902    81      459      2   0  0              0        459                                             START OF SUBROUTINE
          45903    42      A2       0   0  0              0                                                        INPUT
          45904    C       8        0   0  0              0                                                        
          45905    82      459      2   0  0              0        459                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46000    PROCR   460       460     INPUT OFF PASS 2                                                      
          46001     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          46002    81      460      2   0  0              0        460                                             START OF SUBROUTINE
          46003    94      460      7   0  2              8        460     STANDARD INCREMENT                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          46004    80      461      2   0  0              0        461     READ A6>SEC 9                           ENTER SUBROUTINE
          46005    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          46006    C                0   0  0            144                                                        
    46003>46007    82      460      2   0  0              0        460                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46100    PROCR   461       461     INPUT                                                                 
          46101     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          46102    81      461      2   0  0              0        461                                             START OF SUBROUTINE
          46103    42      A6       0   0  0              0                                                        INPUT
          46104    C       9        0   0  0              0                                                        
          46105    82      461      2   0  0              0        461                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46200    PROCR   462       462     WRITE ON WORKING TAPE                                                 
          46201     NOTES  462                                                                                     SELECT
          46202    81      462      2   0  0              0        462                                             START OF SUBROUTINE
          46203    55      8        4   1  0             50                COPY ANNEXES                            BULK COPY
          46204    C       9        4   1  0              0                                                        
          46205    0       468     56   1  0              0        468     BEW                                     SELECT
          46206    5       9       52   1  0              0                                                        TRANSFER
          46207    43      A6       0   0  0              0                                                        OUTPUT
          46208    C       9        0   0  0              0                                                        
          46209    54      9        0   0  0             52                                                        BULK CLEAR
          46210    82      462      2   0  0              0        462                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46300    PROCR   463       463     PRINT                                                                 
          46301     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          46302    81      463      2   0  0              0        463                                             START OF SUBROUTINE
          46303    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          46304            468     56   1  0              0        468                                             SELECT
          46305    05      5       50   1  0              0                BEW                                     TRANSFER
          46306            472      9   0  0              0        472     HEAD OF FORM OR TRAC1                   SELECT
          46307    05      5        0   1  0              0                FUNCTION WORD                           TRANSFER
          46308    10               0   0  0              1                                                        SELECT LITERAL
          46309    5       472      9   0  0              0        472                                             TRANSFER
          46310            27       9   0  0              0                                                        SELECT
          46311    70      463     16   0  0              0        463     >PRINTER                                JUMP IF A == 0
          46312    55      5        0   1  0             54                                                        BULK COPY
          46313    C       10       4   1  0              0                                                        
          46314    80      467      2   0  0              0        467     >WRITE ON A9                            ENTER SUBROUTINE
          46315    76      463     39   0  0              0        463                                             JUMP unconditional
    46311>46316            27       8   0  0              0                PRINTER TYPE                            SELECT
          46317    12               0   0  0              9                                                        SUBTRACT LITERAL
          46318    70      463     35   0  0              0        463     >SPECIAL                                JUMP IF A == 0
          46319    10               0   0  0          80000                                                        SELECT LITERAL
          46320    5       5        1   0  0              0                BIT 40                                  TRANSFER
          46321    54      10       0   1  0            384                                                        BULK CLEAR
          46322    124     999     15   1  2              0                SEC 5                                   modify address of next
          46323    124              0   0  2              0                                                        select literal and division
          46324    124     999     13   1  2              0                SEC 10                                  modify address of next
          46325    129              0   0  1              0                                                        edit for anelex output
  Source image: P1030302.JPG
          46326    10               0   0  0              4                                                        SELECT LITERAL
    46338>46327    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          46328    1       999      7   0  0              0                ROUTE                                   ADD
          46329    34      999     12   0  0              0                                                        SET (N) IN B
          46330    125           4096   1  1              0                                                        clear indicators
          46331    124     999      0   0  3              0                                                        modify address of next
          46332    123            160   0  2              0                                                        enter master routine
          46333    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          46334    76      463     39   0  0              0        463                                             JUMP unconditional
    46318>46335    55      5        0   1  0             54                                                        BULK COPY
          46336    C       10       0   1  0              0                                                        
          46337    10               0   0  0              9                                                        SELECT LITERAL
          46338    76      463     27   0  0              0        463                                             JUMP unconditional
    46334>                                                                                                         
    46315>46339    54      5        0   0  0             50                                                        BULK CLEAR
          46340    5       16       1   0  0              0                CLEAR INDICATOR                         TRANSFER
          46341    82      463      2   0  0              0        463                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46400    PROCR   464       464     OUTPUT ON A2                                                          
          46401     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          46402    81      464      2   0  0              0        464                                             START OF SUBROUTINE
          46403            468     56   1  0              0        468     BEW                                     SELECT
          46404    5       8       52   1  0              0                                                        TRANSFER
          46405    43      A2       0   0  0              0                OUTPUT                                  OUTPUT
          46406    C       8        0   0  0              0                                                        
          46407    54      8        0   0  0             52                CLEAR                                   BULK CLEAR
          46408    82      464      2   0  0              0        464                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46500    PROCR   465       465     CONVERT (A) TO DECIMAL                                                
          46501     NOTES  465                                                                                     SELECT
          46502    81      465      2   0  0              0        465                                             START OF SUBROUTINE
          46503    5       470      4   1  0              0        470                                             TRANSFER
          46504    60               0   0  0              0                                                        SET DECIMAL RADIX
          46505    124     471     22   0  2              0        471                                             select literal and division
          46506    112     470      4   1  0              0        470                                             convert
          46507    82      465      2   0  0              0        465                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46600    PROCR   466       466     CONVERT (A) TO BIN                                                    
          46601     NOTES  466                                                                                     SELECT
          46602    81      466      2   0  0              0        466                                             START OF SUBROUTINE
          46603    5       470      4   1  0              0        470                                             TRANSFER
          46604    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          46605    124     471      2   0  2              0        471                                             select literal and division
          46606    112     470      4   1  0              0        470                                             convert
          46607    82      466      2   0  0              0        466                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46700    PROCR   467       467     O/P>A9                                                                
          46702    81      467      2   0  0              0        467                                             START OF SUBROUTINE
          46703    10               0   0  0         800000                                                        SELECT LITERAL
          46704    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          46705    125           4096   1  1              0                                                        clear indicators
          46706    1       999      7   0  0              0                D1/A9                                   ADD
          46707    124     999      0   0  3              0                                                        modify address of next
          46708    123            160   0  2              0                                                        enter master routine
          46709    82      467      2   0  0              0        467                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46800    CONST   468       468     1                                                                     
          46802          (A)F.PT.;                                                                                 
          46804          YES;                                                                                      
          46806          NO;                                                                                       
  Source image: P1030303.JPG
          46808          MOD.;                                                                                     
          46810          GP.;                                                                                      
          46812          PRIOR;                                                                                    
          46814          ITY;                                                                                      
          46816          FIRST;                                                                                    
          46818          LOCN.;                                                                                    
          46820          CHAPT;                                                                                    
          46822          TYPE£;                                                                                    
          46824          FILES;                                                                                    
          46826          TRAN.;                                                                                    
          46828          AREAS;                                                                                    
          46830          ALT.R;                                                                                    
          46832          OUTES;                                                                                    
          46834          PROGR;                                                                                    
          46836          AMME;                                                                                     
          46838          SERIA;                                                                                    
          46840          ID.;                                                                                      
          46842          RTE.;                                                                                     
          46844          TYPE;                                                                                     
          46846          ST.OF;                                                                                    
          46848          BLOCK;                                                                                    
          46850          SIZE;                                                                                     
          46852          SIT;                                                                                      
          46854          PREND;                                                                                    
          46856          (D)7.0000007.;                                                                            
          46858          (A)= CH/;                                                                                 
          46860          (D)6£6£6£6£6£;                                                                            
          46862          (A)SEC;                                                                                   
          46864          TION.;                                                                                    
          46866          PROC;                                                                                     
          46868          EDURE;                                                                                    
          46870          PASS3;                                                                                    
          46872          (A)MR'S ;                                                                                 
          46874          4-20 ;                                                                                    
          46876          ITEM+;                                                                                    
          46878           CTRS;                                                                                    
          46880          SWITC;                                                                                    
          46882          HES  ;                                                                                    
          46884          (A)START;                                                                                 
          46886          NOTES;                                                                                    
          46888          SPOOL;                                                                                    
          46890          ENTRY;                                                                                    
          46892          (B)100000;                                        100,000                                 
                                                                                                                   
          46900    CONST   469       469     1                                                                     
          46902          (D)5.5.;                                                                                  
          46904          (A)INDEX;                                                                                 
          46906          CHAIN;                                                                                    
          46908          (D)7£££0003££;                                    BITS 5-19+1-10                          
          46910          (A)08000;                                                                                 
          46912          PTS I;                                                                                    
          46914          NCLUD;                                                                                    
          46916          ED   ;                                                                                    
                                                                                                                   
          47000    CONST   470       470     1    CONVERT TABLE                                                    
          47002          (D)1;                                             BIN>DEC                                 
          47004          0;                                                (A) WL                                  
                                                                                                                   
          47100    CONST   471       471     1    COMPILER'S CONVERT TABLES                                        
          47102          (D)1;                                             DEC>BIN                                 
  Source image: P1030304.JPG
          47104          Ю;                                                                                        
          47106          64;                                                                                       
          47108          3.8;                                                                                      
          47110          2710;                                                                                     
          47112          186Ю0;                                                                                    
          47114          £4240;                                                                                    
          47116          989680;                                                                                   
          47118          5£5.100;                                                                                  
          47120          3‼9Ю+Ю00;                                                                                 
          47122          1;                                                BIN>DEC                                 
          47124          16;                                                                                       
          47126          256;                                                                                      
          47128          4096;                                                                                     
          47130          65536;                                                                                    
          47132          1048576;                                                                                  
          47134          16777216;                                                                                 
          47136          268435456;                                                                                
          47138          4294967296;                                                                               
          47140          ££££££££££;                                                                               
                                                                                                                   
          47200    CONST   472       472     0                                                                     
          47202          (D)7;                                                                                     
          47203          80000;                                                                                    
          47204          0;                                                THIS IS A 0/1 FLIPFLOP FOR SC'S FWD     
          47205          3£;                                               BITS 1-6                                
          47206          £0000;                                            £ IN Q5                                 
          47207          7£;                                                                                       
          47208          80;                                               HEAD OF FORM                            
          47209          0;                                                IND FOR HEAD OF FORM                    
                                                                                                                   
          47300    TABLE   473       473     1    TRIAL DATA HEADING+T/W COMMENT                                   
          47301     NOTES                                                                                          
                                                                                                                   
          47400    TABLE   474       474     1    PRINT HEADING DATA                                               
          47401     NOTES                                                                                          
          47402   468    20     0     0  2  0   4   0   1   0  0  0  0     CHAPS                                   
          47404   468    38     0     0  2  0   1   0   0   0  0  0  0                                             
          47406    11     8     0     0  2  0   1   4   2   0  0  0  0     NO OF CHAPS INITIALLY                   
          47408   468    24     0     0  2  0   5   0   3   0  0  0  0     FILES                                   
          47410    11    10     0     0  0  0   2   3   2   1  0  0  0     NO OF FILES                             
          47412   468    26     0     0  2  0   5   0   7   0  0  0  0     TRAN AREAS                              
          47414   468    28     0     0  2  0   5   0   2   0  0  0  0     XX                                      
          47416    11    12     0     0  0  0   2   3   2   1  0  0  0                                             
          47418   468    56     0     0  2  0   5   0   6   0  0  0  1                                             
          47420    13     4     0     0  0  0   5   0   0   0  0  0  0                                             
          47422    13     3     0     0  0  0   5   0   0   0  0  0  0                                             
          47424    13     0     0     0  0  0   5   0   0   0  0  0  0                                             
          47426    13     2     0     0  0  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          47500    TABLE   475       475     1    PRINT                                                            
          47501     NOTES                         G LINE                                                           
          47502   468    24     0     0  2  0   4   0   1   0  0  0  0                                             
          47504   468    40     0     0  2  0   3   2   2   0  0  0  0     FILE 10.                                
          47506   468    42     0     0  2  0   4   1   6   0  0  0  0                                             
          47508   468    44     0     0  2  0   4   1   2   0  0  0  0     RTE. TYPE                               
          47510   468    84     0     0  2  0   5   0   6   0  0  0  0                                             
          47512   468    18     0     0  2  0   5   0   2   0  0  0  0     START LOCN.                             
          47514   468    30     0     0  2  0   5   0   6   0  0  0  0                                             
          47516   468    32     0     0  2  0   5   0   0   0  0  0  0     ALT ROUTES                              
          47518   468    48     0     0  2  0   5   0   4   0  0  0  0                                             
  Source image: P1030305.JPG
          47520   468    50     0     0  2  0   5   0   1   0  0  0  0     'BLOCK SIZE'                            
          47522   468    20     0     0  2  0   5   0  10   0  0  0  1     CHAPT                                   
                                                                                                                   
          47600    TABLE   476       476     1    PRINT HEADING DATA                                               
          47601     NOTES                    4TH                                                                   
          47602   468    50     0     0  2  0   5   0   3   0  0  0  0     LGTH. OF CHAPS                          
          47604   468    46     0     0  2  0   2   3   2   0  0  0  0                                             
          47606   468    20     0     0  2  0   4   0   2   0  0  0  0                                             
          47608   468    38     0     0  2  0   1   0   0   0  0  0  0                                             
          47610    13     0     0     0  0  0   5   0   2   4  2  0  0                                             
          47612    13     1     0     0  0  0   5   0   2   4  2  0  0                                             
          47614    13     2     0     0  0  0   5   0   2   4  2  0  0                                             
          47616    13     3     0     0  0  0   5   0   2   4  2  0  0                                             
          47618    13     4     0     0  0  0   5   0   2   4  2  0  0                                             
          47620    13     5     0     0  0  0   5   0   2   4  2  0  0                                             
          47622    13     6     0     0  0  0   5   0   2   4  2  0  1                                             
          47624    13     0     0     0  0  0   5   0   0   0  0  0  0     TX AREA DETAILS MT                      
          47626    13     2     0     0  2  0   5   0   0   0  0  0  0                                             
          47628    13     4     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          47700    TABLE   477       477     1    PRINT HEADING DATA                                               
          47701     NOTES                    SEC                                                                   
          47702   468     2     0     0  2  0   5   0   4   0  0  0  0     F.PT.                                   
          47704    13     0     0     0  2  0   3   2   2   0  0  0  0     XXX                                     
          47706   468     8     0     0  2  0   4   1   7   0  0  0  0                                             
          47708   468    10     0     0  2  0   3   2   2   0  0  0  0     MOD. GP.                                
          47710    13     2     0     0  2  0   3   2   2   0  0  0  0     XXX                                     
          47712   468    12     0     0  2  0   5   0   7   0  0  0  0                                             
          47714   468    14     0     0  2  0   3   2   0   0  0  0  0     PRIORITY                                
          47716    11     4     0     0  2  0   1   4   2   0  0  0  0     X                                       
          47718   468    90     0     0  2  0   5   0   7   0  0  0  0     'ENTRY'                                 
          47720   468    58     0     0  2  0   4   0   0   0  0  0  0     '= CH'                                  
          47722    92     8     0     0  0  0   1   4   0   0  0  0  0     CHAP NUMBER                             
          47724   468    58     0     0  2  0   1   4   0   0  0  0  0     '/'                                     
          47726    92     6     0     0  0  0   4   1   0   3  0  0  1     LOCN IN CHAP                            
                                                                                                                   
          47800    TABLE   478       478     1    PRINT FIRST HEADING LINE                                         
          47801     NOTES                                                                                          
          47802   472     8     0     0  0  0   5   0   0   4  0  0  0     CALL HEAD OF FORM                       
          47804   468    34     0     0  2  0   5   0   1   0  0  0  0                                             
          47806   468    36     0     0  2  0   4   1   0   0  0  0  0                                             
          47808    16     2     0     0  0  0   5   0   3   0  0  0  0     PROG IDENTITY                           
          47810   468    38     0     0  2  0   5   0   3   0  0  0  0     'SERIA-                                 
          47812   468    18     0     0  2  0   1   0   0   0  0  0  0     '-L'                                    
          47814    16     3     0     0  0  0   5   0   3   4  0  0  0     PROG SERIAL                             
          47816   468    20     0     0  2  0   4   0  15   0  0  0  0     'CHAP-'                                 
          47818   468    38     0     0  2  0   1   0   0   0  0  0  0     -S'                                     
          47820    92    29     0     0  0  0   1   4   2   0  0  0  0     NUMBER OF CHAPS                         
          47822   468    24     0     0  2  0   5   0   3   0  0  0  0     'FILES'                                 
          47824   464     2     0     0  0  0   1   4   2   0  0  0  0     NUMBER OF FILES                         
          47826   468    26     0     0  2  0   5   0   6   0  0  0  0     'TRAN'                                  
          47828   468    28     0     0  2  0   5   0   2   0  0  0  0     'AREAS'                                 
          47830   463     2     0     0  0  0   1   4   2   0  0  0  1     NUMBER OF TX AREAS                      
                                                                                                                   
          47900    TABLE   479       479     1    PRINT                                                            
          47901     NOTES                    FIL                                                                   
          47902    11     0     0     0  2  0   5   0   6   0  0  0  0     FILE ID                                 
          47904   468     2     0     0  0  0   4   0  12   3  0  0  0     ROUTE TYPE                              
          47906    13     6     0     0  0  0   4   1  13   3  0  0  0     START LOCATION                          
          47908    13     8     0     0  2  0   3   2  11   0  0  0  0     ALT ROUTE                               
  Source image: P1030306.JPG
          47910    13     4     0     0  0  0   4   1  12   3  0  0  0     LENGTH                                  
          47912    13     2     0     0  0  0   4   1  12   3  0  0  1     'CHAPT'                                 
          47914   468    26     0     0  2  0   5   0   1   0  0  0  0                                             
          47916   468    28     0     0  2  0   5   0   2   0  0  0  0                                             
          47918   468    84     0     0  2  0   5   0   2   0  0  0  0                                             
          47920   468    18     0     0  2  0   5   0   2   0  0  0  0                                             
          47922   468    20     0     0  2  0   5   0   7   0  0  0  0                                             
          47924   468    50     0     0  2  0   5   0   6   0  0  0  1     LGTH                                    
          47926   468     2     0     0  0  0   5   0   5   5  0  0  0     SEC NO                                  
          47928    13     0     0     0  0  0   4   1  11   3  0  0  0     START                                   
          47930   466     2     0     0  0  0   1   4  13   0  0  0  0     CHAPTER                                 
          47932    13     4     0     0  0  0   4   1   7   3  0  0  1     LENGTH                                  
          47934    11     0     0     0  2  0   5   0   0   0  0  0  0     SENTINEL MARK                           
          47936    11     2     0     0  2  0   5   0   0   0  0  0  0     SENTINEL TYPE                           
          47938    11     4     0     0  2  0   5   0   0   0  0  0  0     PROG ID NO                              
          47940    11     6     0     0  2  0   5   0   0   0  0  0  1     SERIAL NO                               
                                                                                                                   
          48000    TABLE   480       480     1                                                                     
          48001     NOTES                                                                                          
          48002   468     2     0     0  0  0   2   3   3   1  0  0  0     SEC NO                                  
          48004   468    58     0     0  2  0   1   0   0   0  0  0  0     '='                                     
          48006   468     3     0     0  0  0   4   1   0   3  0  0  1     SECTION START                           
          48008   468    72     0     0  2  0   5   0   0   0  0  0  0     MR'S 4-20                               
          48010   468    74     0     0  2  0   5   0   0   0  0  0  1                                             
          48012   468    76     0     0  2  0   5   0   0   0  0  0  0     ITEM+COUNTERS                           
          48014   468    78     0     0  2  0   5   0   0   0  0  0  1                                             
          48016   468    80     0     0  2  0   5   0   0   0  0  0  0     SWITCHES                                
          48018   468    82     0     0  2  0   5   0   0   0  0  0  1                                             
          48020   468     4     0     0  0  0   5   0   0   4  0  0  0     SW/MR/SEC                               
          48022   468    58     0     0  2  0   4   0   0   0  0  0  0     '=CH'                                   
          48024   468     2     0     0  0  0   1   4   0   0  0  0  0     CHAP NO                                 
          48026   468    58     0     0  2  0   1   4   0   0  0  0  0     '/'                                     
          48028   468     3     0     0  0  0   4   1   0   3  0  0  1     POSITION                                
                                                                                                                   
          48100    TABLE   481       481     3                                                                     
          48101     NOTES                         G BLOCK                                                          
          48102    16    16     0     0  0  0   5   0   0   0  0  0  0                                             
          48104   472     2     0     0  0  0   5   0   0   0  0  0  0                                             
          48106    16     2     0     0  0  0   5   0   0   0  0  0  0                                             
          48108    16     3     0     0  0  0   5   0   0   0  0  0  0     SERIAL                                  
          48110   468    20     0     0  2  0   5   0   0   0  0  0  1     'CHAPT'                                 
          48112   468    20     0     0  2  0   5   0   0   0  0  0  0                                             
          48114    16    16     0     0  0  0   5   0   3   4  0  0  1                                             
          48116    11     0     0     0  2  0   5   0   0   0  0  0  0     FILE IDENTITY                           
          48118    11     2     0     0  2  0   4   0   1   0  0  0  0     ROUTE TYPE                              
          48120    11     8     0     0  2  0   5   0   0   0  0  0  0     START LOCATION                          
          48122    11     4     0     0  2  0   5   0   0   0  0  0  0     TWICE CHAP                              
          48124    11     6     0     0  2  0   5   0   0   0  0  0  0     MAX BLOCK LENGTH                        
          48126    11    10     0     0  2  0   5   0   0   0  0  0  1     ALT ROUTE                               
                                                                                                                   
          48200    CONST   482       482     1    CONSTANTS                                                        
          48202          (D)0;                                                                                     
          48204          (A)£    ;                                                                                 
          48206          0;                                                CHUNK START/ORDER                       
          48208          0;                                                A                                       
          48210          0;                                                B                                       
          48212          0;                                                C                                       
          48214          0;                                                A                                       
          48216          0;                                                B                                       
          48218          0;                                                C                                       
                                                                                                                   
  Source image: P1030307.JPG
          48300    PROCR   483       483     START OF PASS 4=READ/STORE PROCR START INDEX                          
    45511>48302    52      5        0   0  0              0                TYPE'PROG OUT'                          EDIT
          48303    C       530     14   0  0              0        530                                             
          48304    154     5        0   0  0              0                                                        COMMENT IN LOG
          48305    54      5        0   1  0             50                                                        BULK CLEAR
          48306    54      26       0   1  0           1080                                                        BULK CLEAR
          48307    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48308    C                0   0  0             48                FOR PROCR STARTS                        
    48324>48309    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48310    C                0   0  0            144                                                        
          48311    80      517      2   0  0              0        517     READ A6>SEC 9                           ENTER SUBROUTINE
          48312    55      9        4   2  0              8                                                        BULK COPY
          48313    C       11       0   2  0              0                                                        
          48314    5       18       0   0  0              0                CLEAR CTR                               TRANSFER
          48315            11       0   1  0              0                                                        SELECT
          48316    32               0   0  0              2-               TEST TYPE AS EXPECTED                   SHIFT (AB) BY QUARTETS
          48317    2       525      8   1  0              0        525                                             SUBTRACT
          48318    70      483     25   0  0              0        483     >OK                                     JUMP IF A == 0
          48319    10               0   0  0         900000                                                        SELECT LITERAL
          48320    1       27       9   0  0              0                                                        ADD
          48321    91               0   0  1              0                FOR REENTRY                             SET MODIFICATION REGISTER AT VARIABLE
          48322    150              0   0  0              8                                    ALARM 8             OFFER OPTIONS
          48323    C       100      5   0  0              0        100     RE-ENTER PASS 0                         
          48324    C       483      9   0  0              0        483     >READ NEXT BLOCK                        
    48318>48325            9        0   2  0              0                                                        SELECT
          48326    5       511      2   0  0              0        511     CURRENT BLOCK SERIAL WL                 TRANSFER
    48349>48327    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48328    C                0   0  0            144                                                        
    48347>48329            9        4   1  2              0                                                        SELECT
          48330    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          48331    2       525      8   1  0              0        525     'TYPE'                                  SUBTRACT
          48332    71      483     47   0  0              0        483     >STEP R2                                JUMP IF A != 0
          48333    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          48334    12               0   0  0             46                                                        SUBTRACT LITERAL
          48335    70      483     47   0  0              0        483     >6=C-PROCR                              JUMP IF A == 0
          48336    12               0   0  0              1                >7=VALUES                               SUBTRACT LITERAL
          48337    70      483     47   0  0              0        483     >TYPE 1-5                               JUMP IF A == 0
          48338    73      483     42   0  0              0        483                                             JUMP IF A < 0
          48339    12               0   0  0              8                >END OF PROGM                           SUBTRACT LITERAL
          48340    70      483     50   0  0              0        483                                             JUMP IF A == 0
          48341    76      483     47   0  0              0        483                                             JUMP unconditional
    48338>48342            9        6   2  2              0                                                        SELECT
          48343    5       26       0   0  0              0                                                        TRANSFER
          48344            9        8   2  2              0                START                                   SELECT
          48345    124     26       0   0  1              0                                                        modify address of next
          48346    5       26       0   0  0              0                                                        TRANSFER
    48341>                                                                                                         
    48337>                                                                                                         
    48335>                                                                                                         
    48332>48347    94      483     29   0  2              8        483                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          48348    80      517      2   0  0              0        517     >READ                                   ENTER SUBROUTINE
          48349    76      483     27   0  0              0        483                                             JUMP unconditional
    48340>48350    46      A6       4   0  0              1                                    REALIGN             RUN BACK
          48351    C                0   0  0                                                                       
    48355>48352    80      517      2   0  0              0        517     >READ                                   ENTER SUBROUTINE
          48353            9        0   2  0              0                                                        SELECT
          48354    2       511      2   0  0              0        511                                             SUBTRACT
          48355    71      483     52   0  0              0        483     >GET TO REQUIRED BLOCK                  JUMP IF A != 0
          48356    55      94       0   1  0            100                SECTION START ADDRESSES                 BULK COPY
  Source image: P1030308.JPG
          48357    C       26       0   1  0              0                                                        
          48358    101            204   1  3              0                                                        select literal address
          48359    5       26    1000   0  0              0                CONVERT TABLE START                     TRANSFER
          48360    124     92      29   0  1              0                                                        modify address of next
          48361            26    1001   0  0              0                                                        SELECT
          48362    124     92      29   0  1              0                                                        modify address of next
          48363    5       72      17   0  0              0                (TO PRESERVE IT IN COPY)                TRANSFER
          48364    55      72      18   0  0              0                SWITCH PROCR STARTS                     BULK COPY
          48365    C       26    1002   0  0              0                                                        
          48366    C       92      29   0  0              0                (CHAPS INITIALLY)                       
          48367    124     92      29   0  1              0                                                        modify address of next
          48368            72       2   0  0              0                SPECIAL CHAP LENGTH                     SELECT
          48369    5       26    1001   0  0              0                SET START OF PRINT SR                   TRANSFER
          48370    5       27       7   0  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          48400    PROCR   484       484     SET UP BLOCKS FOR PTS                                                 
          48402            16       2   0  0              0                PROG ID                                 SELECT
          48403    5       8        6   2  0              0                                                        TRANSFER
          48404            16       3   0  0              0                PROG SERIAL                             SELECT
          48405    5       8        8   2  0              0                                                        TRANSFER
          48406            526     12   1  0              0        526     'FIEND'                                 SELECT
          48407    5       8        4   1  0              0                                                        TRANSFER
          48408    80      521      2   0  0              0        521     WRITE'FIEND'BLOCK                       ENTER SUBROUTINE
          48409    80      521      2   0  0              0        521     WRITE FINAL BLOCK                       ENTER SUBROUTINE
                                                                                                                   
          48500    PROCR   485       485     CHAPTER HEADING BLOCK-THE FIRST ONE                                   
          48502    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48503    C                0   0  0             48                                                        
          48504    10               0   0  0              1                                                        SELECT LITERAL
          48505    5       16      16   0  0              0                                                        TRANSFER
          48506    52      8        4   0  0              0                                                        EDIT
          48507    C       532      2   0  0              0        532                                             
          48508    80      521      2   0  0              0        521     WRITE CHAP HEADING BLOCK                ENTER SUBROUTINE
          48509    52      5        2   0  0              0                                                        EDIT
          48510    C       532     12   0  0              0        532                                             
          48511    10               0   0  0              2                                                        SELECT LITERAL
          48512    3       16      16   0  0              0                                                        COPY
          48513    80      519      2   0  0              0        519     >PRINT CHAP HEADING                     ENTER SUBROUTINE
          48514    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48515    C                0   0  0            144                                                        
          48516    76      486      3   0  0              0        486     >DEAL WITH FIRST'TYPE'BLOCK             JUMP unconditional
                                                                                                                   
          48600    PROCR   486       486     ENTRY POINT                                                           
          48601     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    48706>                                                                                                         
    48718>                                                                                                         
    48722>                                                                                                         
    48819>                                                                                                         
    49815>                                                                                                         
    50117>                                                                                                         
    50119>                                                                                                         
    50505>                                                                                                         
    50537>                                                                                                         
    50539>                                                                                                         
    50630>                                                                                                         
    50712>                                                                                                         
    50720>                                                                                                         
    50818>                                                                                                         
    50827>                                                                                                         
    50831>48602    80      516      2   0  0              0        516     >GET NEXT ITEM                          ENTER SUBROUTINE
  Source image: P1030309.JPG
    48516>48603    80      522      2   0  0              0        522                                             ENTER SUBROUTINE
    49044>48604            11       0   1  0              0                                                        SELECT
          48605    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          48606    2       525      8   1  0              0        525     'TYPE'                                  SUBTRACT
          48607    71      495      2   0  0              0        495     >SWITCH, NOT A 'TYPE' UNIT              JUMP IF A != 0
          48608    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          48609    12               0   0  0             48                                                        SUBTRACT LITERAL
          48610    72      489      2   0  0              0        489     (MUST BE 14=CHAP END)                   JUMP IF A >= 0
          48611    11               0   0  0              8                                                        ADD LITERAL
          48612    84      495      2   0  0              0        495                                             SET SWITCH(ES) AT VARIABLE VALUE
          48613    00      11       4   2  0              0                                                        SELECT
          48614    05      16      23   0  0              0                SPACE CTR FOR USE WITH VALUES           TRANSFER
          48615            11       2   2  0              0                                                        SELECT
          48616    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          48617    3       16      17   0  0              0                                                        COPY
          48618    5       527      6   0  0              0        527     STORE CURRENT PROCR                     TRANSFER
          48619    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
                                                                                                                   
          48700    PROCR   487       487     PRINT HEADING FOR INSTRUCTIONS                                        
          48701     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
          48702    85      100      5   0  0              0        100                                             SWITCH R
          48703    C       487     23   0  0              0        487     >PRINT                                  
          48704    C       487      5   0  0              0        487     >DONT PRINT                             
    48704>48705    0       11       2   2  0              0                PROCR                                   SELECT
          48706    70      486      2   0  0              0        486     >DONT PRINT                             JUMP IF A == 0
          48707    0       11       4   2  0              0                PROCR START                             SELECT
          48708    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          48709    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          48710    5       16      36   0  0              0                PROCR START                             TRANSFER
          48711    52      5        2   0  8              0                                                        EDIT
          48712    C       532     16   0  0              0        532                                             
          48713    86      495      2   0  0              0        495     TYPE                                    SELECT SWITCH R
          48714    12               0   0  0              6                                                        SUBTRACT LITERAL
          48715    71      487     18   0  0              0        487                                             JUMP IF A != 0
          48716    10               0   0  0         537354                'CTD'                                   SELECT LITERAL
          48717    5       5        2   1  8              0                                                        TRANSFER
    48715>48718    94      486      2   0  8              4        486                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          48719    80      519      2   0  0              0        519     >PRINT                                  ENTER SUBROUTINE
          48720    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48721    C                0   0  0             48                                                        
          48722    76      486      2   0  0              0        486                                             JUMP unconditional
    48703>48723    95               0   0  5              0                                                        SELECT MODIFICATION REGISTER
          48724    5       525     38   1  0              0        525                                             TRANSFER
          48725    0       16       1   0  0              0                LINE PRINTED?                           SELECT
          48726    70      487     28   0  0              0        487     >YES                                    JUMP IF A == 0
          48727    80      511      2   0  0              0        511     >O/P LINE                               ENTER SUBROUTINE
    48726>48728    91      525     38   0  5              0        525     RESET R5                                SET MODIFICATION REGISTER AT VARIABLE
          48729    5       16      37   0  0              0                CLEAR SUBCTR                            TRANSFER
          48730    86      495      2   0  0              0        495     TEST TYPE 1                             SELECT SWITCH R
          48731    12               0   0  0              1                                                        SUBTRACT LITERAL
          48732    71      488      2   0  0              0        488     IF NOT GO TO 728                        JUMP IF A != 0
          48733    0       525     28   1  0              0        525     SET UP'PROCEDURE'                       SELECT
          48734    34      525     30   1  0              0        525                                             SET (N) IN B
          48735    76      488     15   0  0              0        488                                             JUMP unconditional
                                                                                                                   
          48800    PROCR   488       488     PRINT OTHER HEADINGS                                                  
          48801     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    48732>48802    12               0   0  0              5                                                        SUBTRACT LITERAL
          48803    71      488      7   0  0              0        488     >NOT TYPE 6                             JUMP IF A != 0
          48804    10               0   0  0     5366657354                'CONTD'                                 SELECT LITERAL
  Source image: P1030310.JPG
    48812>48805    5       5        2   1  0              0                                                        TRANSFER
          48806    76      488     18   0  0              0        488     >PRINT                                  JUMP unconditional
    48803>48807    12               0   0  0              1                                                        SUBTRACT LITERAL
          48808    71      488     13   0  0              0        488     >NOT TYPE 7                             JUMP IF A != 0
          48809    90               0   0  8              0                (FOR SPECIAL PRINTING)                  SET MODIFICATION REGISTER AT LITERAL
          48810    C                0   0  0             40                                                        
          48811    10               0   0  0     7551637455                'VALUE'                                 SELECT LITERAL
          48812    76      488      5   0  0              0        488                                             JUMP unconditional
    48808>48813    0       525     32   1  0              0        525                                             SELECT
          48814    34      525     34   1  0              0        525                                             SET (N) IN B
    48735>48815    100     16      18   1  0              0                                                        copy registers
          48816    52      5        2   0  0              0                                                        EDIT
          48817    C       532     42   0  0              0        532     HEADING BLOCK                           
    48806>48818    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          48819    76      486      2   0  0              0        486                                             JUMP unconditional
                                                                                                                   
          48900    PROCR   489       489     CHAPTER END                                                           
          48901     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    48910>                                                                                                         
    48610>48902    80      516      2   0  0              0        516     GET NEXT ITEM                           ENTER SUBROUTINE
          48903    80      522      2   0  0              0        522                                             ENTER SUBROUTINE
          48904            11       0   1  0              0                                                        SELECT
          48905    2       525     20   1  0              0        525     BEW                                     SUBTRACT
          48906    70      516      4   0  0              0        516     >READ BLOCK,SR LINK STILL SET           JUMP IF A == 0
          48907            11       0   1  0              0                                                        SELECT
          48908    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          48909    2       525      8   1  0              0        525     'TYPE'                                  SUBTRACT
          48910    71      489      2   0  0              0        489     >LOOP                                   JUMP IF A != 0
    49114>48911            529     10   0  0              0        529     £ IN Q5                                 SELECT
          48912    5       8        4   2  1              0                =PARAMETER                              TRANSFER
          48913    5       8        6   1  1              0                                                        TRANSFER
          48914    80      521      2   0  0              0        521     >WRITE                                  ENTER SUBROUTINE
          48915    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48916    C                0   0  0             48                                                        
          48917    0       16       1   0  0              0                                                        SELECT
          48918    70      490      2   0  0              0        490                                             JUMP IF A == 0
          48919    80      511      2   0  0              0        511     >O/P LINE                               ENTER SUBROUTINE
                                                                                                                   
          49000    PROCR   490       490     NEW CHAPTER HEADING                                                   
          49001     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    48918>49002    10               0   0  0              0                                                        SELECT LITERAL
          49003    5       16      28   0  0              0                                                        TRANSFER
          49004    5       16      37   0  0              0                CLEAR SERIAL SUB-CTR                    TRANSFER
          49005    52      8        4   0  0              0                EDIT                                    EDIT
          49006    C       532      2   0  0              0        532                                             
          49007    0       16      16   0  0              0                                                        SELECT
          49008    80      524      2   0  0              0        524     >TO BIN                                 ENTER SUBROUTINE
          49009    5       8        4   2  0              0                BIN CHAP NUMBER ON MT                   TRANSFER
          49010    85      100      5   0  0              0        100                                             SWITCH R
          49011    C       490     16   0  0              0        490     >PRINT                                  
          49012    C       490     13   0  0              0        490     >DONT PRINT                             
    49012>49013    80      519      2   0  0              0        519     >PRINT PROCR START LINE                 ENTER SUBROUTINE
          49014    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          49015    C                0   0  0             48                                                        
    49011>49016    52      5        2   0  0              0                                                        EDIT
          49017    C       532     12   0  0              0        532                                             
          49018    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          49019    C                0   0  0             40                                                        
          49020    60               0   0  0              0                                                        SET DECIMAL RADIX
          49021    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1030311.JPG
          49022    4       16      16   0  0              0                                                        AUGMENT
          49023    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          49024            16      16   0  0              0                                                        SELECT
          49025    12               0   0  0              1                                                        SUBTRACT LITERAL
          49026    2       92      29   0  0              0                                                        SUBTRACT
          49027    71      490     35   0  0              0        490                                             JUMP IF A != 0
          49028    55      526      2   1  0              6        526                                             BULK COPY
          49029    C       5       10   1  0              0                                                        
          49030    101            202   1  3              0                                                        select literal address
          49031    5       16      28   0  0              0                                                        TRANSFER
          49032    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49033    80      521      2   0  0              0        521                                             ENTER SUBROUTINE
          49034    76      491      2   0  0              0        491                                             JUMP unconditional
    49027>49035            11       0   1  0              0                                                        SELECT
          49036    2       525      4   1  0              0        525                                             SUBTRACT
          49037    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          49038    C                0   0  0              0                /////                                   
          49039    70      490     45   0  0              0        490                                             JUMP IF A == 0
          49040    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          49041    C                0   0  0             48                                                        
          49042    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49043    80      521      2   0  0              0        521                                             ENTER SUBROUTINE
          49044    76      486      4   0  0              0        486                                             JUMP unconditional
    49039>49045            27       7   0  0              0                                                        SELECT
          49046    70      490     71   0  0              0        490                                             JUMP IF A == 0
          49047    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          49048    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          49049    54      5        2   1  0             46                                                        BULK CLEAR
          49050    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49051    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49052    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49053    10               0   0  0     6955560000                                                        SELECT LITERAL
          49054    5       5        4   1  0              0                                                        TRANSFER
          49055    10               0   0  0     6769665369                                                        SELECT LITERAL
          49056    5       5        6   1  0              0                                                        TRANSFER
          49057    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
    49067>49058            18       3   0  3              0                                                        SELECT
          49059    80      523      2   0  0              0        523                                             ENTER SUBROUTINE
          49060    5       523      2   0  0              0        523                                             TRANSFER
          49061            18       2   0  3              0                                                        SELECT
          49062    5       519      2   0  0              0        519                                             TRANSFER
          49063    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          49064    52      5        4   0  0              0                                                        EDIT
          49065    C       530     10   0  0              0        530                                             
          49066    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49067    94      490     58   0  3              2        490                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          49068    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49069    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
          49070    80      519      2   0  0              0        519                                             ENTER SUBROUTINE
    49046>49071    55      26       0   1  0           1000                                                        BULK COPY
          49072    C       18    1000   1  0              0                                                        
          49073    76      535      2   0  0              0        535                                             JUMP unconditional
                                                                                                                   
          49100    PROCR   491       491                                                                           
    49034>49102    10               0   0  0            £00                                                        SELECT LITERAL
          49103    5       13       0   2  0              0                                                        TRANSFER
          49104    101            202   1  3              0                                                        select literal address
          49105    5       13       2   2  0              0                                                        TRANSFER
          49106    80      513      2   0  0              0        513                                             ENTER SUBROUTINE
          49107    10               0   0  0             14                                                        SELECT LITERAL
  Source image: P1030312.JPG
          49108    92               0   0  5              0                                                        SET MODIFIER AT VARIABLE
          49109    10               0   0  0              0                                                        SELECT LITERAL
          49110    5       13       0   2  0              0                                                        TRANSFER
          49111    5       13       2   2  0              0                                                        TRANSFER
          49112    80      510      2   0  0              0        510                                             ENTER SUBROUTINE
          49113    80      510      2   0  0              0        510     O/P LOCNS 202 203 BLANK                 ENTER SUBROUTINE
          49114    76      489     11   0  0              0        489                                             JUMP unconditional
                                                                                                                   
          49200    PROCR   492       492     WRITE PTS BLOCK TO A2                                                 
          49202    81      492      2   0  0              0        492                                             START OF SUBROUTINE
          49203    5       8        4   2  2              0                                                        TRANSFER
          49204    94      492      8   0  2              2        492                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          49205    80      521      2   0  0              0        521     WRITE>A2                                ENTER SUBROUTINE
          49206    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          49207    C                0   0  0             48                                                        
    49204>49208    82      492      2   0  0              0        492                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49300    PROCR   493       493     READ/STORE NEXT'FIEND'ITEM                                            
          49302    81      493      2   0  0              0        493                                             START OF SUBROUTINE
          49303    94      493      8   0  2              2        493                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          49304    80      494      2   0  0              0        494     READ A1>7                               ENTER SUBROUTINE
          49305    80      504      2   0  0              0        504     COPY 7>8>A2                             ENTER SUBROUTINE
          49306    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          49307    C                0   0  0             48                                                        
    49303>49308            7        4   2  2              0                                                        SELECT
          49309    82      493      2   0  0              0        493     READ A1>7                               END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49400    PROCR   494       494     READ A1>7                                                             
          49402    81      494      2   0  0              0        494                                             START OF SUBROUTINE
          49403    42      A1       0   0  0              0                                                        INPUT
          49404    C       7        0   0  0              0                                                        
          49405    82      494      2   0  0              0        494                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49500    PROCR   495       495     'TYPE'SWITCH                                                          
          49501     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    48607>49502    85      495      2   0  0              0        495                                             SWITCH R
          49503    C       496      2   0  0              0        496     INSTRUCTIONS                            
          49504    C       502      2   0  0              0        502     TABLE ENTRIES                           
          49505    C       506      2   0  0              0        506     PROGRAMME CONSTS                        
          49506    C       506      2   0  0              0        506     TABLE STARTS                            
          49507    C       507      2   0  0              0        507     FORMED CONST                            
          49508    C       496      2   0  0              0        496     6=C-PROCR                               
          49509    C       508      2   0  0              0        508     7=VALUES                                
                                                                                                                   
          49600    PROCR   496       496     TEST FOR SEQUENCE CHANGE                                              
          49601     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    49508>                                                                                                         
    49503>49602            11       4   2  0              0                                                        SELECT
          49603    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          49604    5       16      18   0  0              0                REF                                     TRANSFER
          49605    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          49606    5       16      24   0  0              0                NEG ITEM IND                            TRANSFER
          49607    33               0   0  0              7                                                        SHIFT (AB) BY BITS
          49608    5       13       0   2  0              0                PARA                                    TRANSFER
          49609    34      11       6   2  0              0                ADM+ITEM                                SET (N) IN B
          49610            11       2   2  0              0                TEST FOR SEQUENCE CHANGE                SELECT
          49611    70      497      2   0  0              0        497     >NOT SEQ CHANGE OR MR ENTRY             JUMP IF A == 0
          49612    12               0   0  0              1                                                        SUBTRACT LITERAL
          49613    70      499      2   0  0              0        499     >IS SEQ CHANGE                          JUMP IF A == 0
          49614    12               0   0  0              1                                                        SUBTRACT LITERAL
  Source image: P1030313.JPG
          49615    71      496     27   0  0              0        496     >NOT ACTION 16/0/0                      JUMP IF A != 0
          49616    36      529      3   0  0              0        529     BITS 1-13                               COLLATE AND ADD
          49617    5       16      19   0  0              0                MODULUS OF ITEM                         TRANSFER
          49618    34      16      24   0  0              0                                                        SET (N) IN B
          49619    74      496     22   0  0              0        496     >POSITIVE ITEM                          JUMP IF AB == 0        // 27, 1, 0
          49620    1       16      19   0  0              0                                                        ADD
          49621    76      496     23   0  0              0        496                                             JUMP unconditional
    49619>49622    2       16      19   0  0              0                                                        SUBTRACT
    49621>49623    124     16      18   0  1              0                REF                                     modify address of next
          49624    2       26       0   0  0              0                                                        SUBTRACT
          49625    5       13       2   2  0              0                                                        TRANSFER
          49626    76      498     12   0  0              0        498     >O/P                                    JUMP unconditional
    49615>49627    0       11       2   2  0              0                                                        SELECT
          49628    5       13       0   2  0              0                COPY IND AS PARA                        TRANSFER
                                                                                                                   
          49700    PROCR   497       497     INSTRUCTIONS                                                          
          49701     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    49611>49702    36      529      3   0  0              0        529     BITS 1-13                               COLLATE AND ADD
          49703    5       16      19   0  0              0                MODULUS OF ITEM                         TRANSFER
          49704            11       6   2  0              0                                                        SELECT
          49705    5       13       2   2  0              0                                                        TRANSFER
          49706    34      16      24   0  0              0                                                        SET (N) IN B
          49707    74      497     10   0  0              0        497     >NOT NEGATIVE ITEM                      JUMP IF AB == 0        // 27, 1, 0
          49708    2       16      19   0  0              0                                                        SUBTRACT
          49709    5       16      19   0  0              0                (SET SIGN)                              TRANSFER
    49707>49710            16      19   0  0              0                                                        SELECT
          49711    124     16      18   0  1              0                                                        modify address of next
          49712    1       26       0   0  0              0                PROCR START                             ADD
          49713    73      498      2   0  0              0        498     >REPORT                                 JUMP IF A < 0
          49714    34      529      3   0  0              0        529     BITS 1-13                               SET (N) IN B
          49715    37      13       2   2  0              0                                                        REPLACE SELECTED BITS
          49716    76      498     12   0  0              0        498                                             JUMP unconditional
                                                                                                                   
          49800    PROCR   498       498     REPORT ACTION WITH NEGATIVE ITEM                                      
          49801     NOTES          RADIX     B    ACTION DETAILS                                                   SELECT
    49713>49802    10               0   0  0          78000-               23/1/0 ACTION FOR LOCKOUT               SELECT LITERAL
          49803    5       13       2   2  0              0                                                        TRANSFER
          49804    5       13       0   2  0              0                                                        TRANSFER
          49805    91      27       7   0  3              0                QTR                                     SET MODIFICATION REGISTER AT VARIABLE
          49806            16      18   0  0              0                THIS REF                                SELECT
          49807    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          49808    1       527      6   0  0              0        527     CURRENT PROCR                           ADD
          49809    5       18       2   1  3              0                                                        TRANSFER
          49810    10               0   0  0              2                                                        SELECT LITERAL
          49811    4       27       7   0  0              0                STEP CTR                                AUGMENT
    49922>                                                                                                         
    49924>                                                                                                         
    49716>                                                                                                         
    49626>49812    80      513      2   0  0              0        513     EDIT+WRITE INSTRUCTION                  ENTER SUBROUTINE
          49813    85      100      5   0  0              0        100                                             SWITCH R
          49814    C       500      2   0  0              0        500     >PRINT                                  
          49815    C       486      2   0  0              0        486     >DONT PRINT                             
                                                                                                                   
          49900    PROCR   499       499     SEQUENCE CHANGES                                                      
          49901     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    49613>49902    0       529     15   0  0              0        529     FLIPFLOP                                SELECT
          49903    70      499      7   0  0              0        499     >BOTTOM 10 BITS                         JUMP IF A == 0
          49904    0       18       0   0 12              0                                                        SELECT
          49905    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          49906    76      499      9   0  0              0        499                                             JUMP unconditional
  Source image: P1030314.JPG
    49903>49907    34      529     14   0  0              0        529     BITS 1-10                               SET (N) IN B
          49908    36      18       0   0 12              0                                                        COLLATE AND ADD
    49906>49909    124     16      18   0  1              0                ITEM WITHIN PROCR IN A                  modify address of next
          49910    1       26       0   0  0              0                                                        ADD
          49911    5       16      18   0  0              0                =SEQ CHANGE ADDRESS                     TRANSFER
          49912    34      11       6   2  0              0                                                        SET (N) IN B
          49913    36      529      4   0  0              0        529     BITS 14-20+SIGN                         COLLATE AND ADD
          49914    73      499     17   0  0              0        499                                             JUMP IF A < 0
          49915    1       16      18   0  0              0                                                        ADD
          49916    76      499     18   0  0              0        499                                             JUMP unconditional
    49914>49917    2       16      18   0  0              0                                                        SUBTRACT
    49916>49918    5       13       2   2  0              0                                                        TRANSFER
          49919    10               0   0  0              1                                                        SELECT LITERAL
          49920    2       529     15   0  0              0        529                                             SUBTRACT
          49921    3       529     15   0  0              0        529     REVERSE FLIPFLOP                        COPY
          49922    71      498     12   0  0              0        498     >NOW ADDRESSES TOP 10 BITS              JUMP IF A != 0
          49923    94               0   0 12              1-                                                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          49924    76      498     12   0  0              0        498     >SAFETY                                 JUMP unconditional
                                                                                                                   
          50000    PROCR   500       500     DECODE INSTRUCTION FOR PRINTING                                       
          50001     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    49814>50002    34      13       2   2  0              0                (A IS CLEAR)                            SET (N) IN B
          50003    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
          50004    5       16      21   0  0              0                ACTION                                  TRANSFER
          50005    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          50006    5       16      25   0  0              0                DISC                                    TRANSFER
          50007    33               0   0  0              2                                                        SHIFT (AB) BY BITS
          50008    5       16      26   0  0              0                MOD                                     TRANSFER
          50009    33               0   0  0             13                                                        SHIFT (AB) BY BITS
          50010    5       16      24   0  0              0                ADDRESS                                 TRANSFER
          50011    0       13       2   2  0              0                                                        SELECT
          50012    72      501      2   0  0              0        501     >POSITIVE ACTION                        JUMP IF A >= 0
          50013    10               0   0  0             10                16                                      SELECT LITERAL
          50014    4       16      21   0  0              0                                                        AUGMENT
                                                                                                                   
          50100    PROCR   501       501     CONVERT FOR PRINT                                                     
          50101     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    50012>50102    0       13       0   2  0              0                PARA                                    SELECT
          50103    80      523      2   0  0              0        523     >CONVERT TO DEC                         ENTER SUBROUTINE
          50104    5       13       4   0  0              0                                                        TRANSFER
          50105    0       16      24   0  0              0                ADDRESS                                 SELECT
          50106    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          50107    5       13       2   1  0              0                                                        TRANSFER
          50108    0       16      21   0  0              0                ACTION                                  SELECT
          50109    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          50110    5       13       0   1  0              0                                                        TRANSFER
          50111    62               0   0  0              0                RESET BINARY        BINARY              SET EXCESS CONSTANTS
          50112    52      5        4   0  5              0                                                        EDIT
          50113    C       533      2   0  0              0        533                                             
          50114    10               0   0  0              1                                                        SELECT LITERAL
          50115    4       16      37   0  0              0                AUG SUBCTR                              AUGMENT
          50116    5       16       1   0  0              0                                                        TRANSFER
          50117    94      486      2   0  5             10        486                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50118    80      511      2   0  0              0        511     >O/P LINE                               ENTER SUBROUTINE
          50119    76      486      2   0  0              0        486                                             JUMP unconditional
                                                                                                                   
          50200    PROCR   502       502     FORM ADDRESS                                                          
          50201     NOTES          RADIX     B    TABLE ENTRIES                                                    SELECT
    49504>50202            11       0   2  0              0                                                        SELECT
          50203    32               0   0  0              2-               SELECT REFERENCE                        SHIFT (AB) BY QUARTETS
  Source image: P1030315.JPG
          50204    5       16      18   0  0              0                                                        TRANSFER
          50205    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          50206    5       16      21   0  0              0                NEG ITEM IND                            TRANSFER
          50207    33               0   0  0              7                                                        SHIFT (AB) BY BITS
          50208    3       13       0   2  0              0                                                        COPY
          50209    5       13       4   2  0              0                PARAMETER                               TRANSFER
                                                                                                                   
          50300    PROCR   503       503     DEAL WITH 2ND ITEM FOR CONDENSE                                       
          50301     NOTES          RADIX     B    TABLE ENTRIES                                                    SELECT
          50302            11       6   1  0              0                                                        SELECT
          50303    5       13       6   1  0              0                STORE Q'S AND I'S                       TRANSFER
          50304            11       4   2  0              0                                                        SELECT
          50305    70      503     26   0  0              0        503     >NOT CONDENSE/UNPACK TABLE              JUMP IF A == 0
          50306    124     16      18   0  1              0                REF                                     modify address of next
          50307    0       26       0   0  0              0                                                        SELECT
          50308    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          50309    36      11       4   2  0              0                (POSITIVE) ITEM                         COLLATE AND ADD
          50310    5       16      22   0  0              0                PROVISIONAL ADDRESS                     TRANSFER
          50311    0       13       6   2  0              0                Q+1                                     SELECT
          50312    72      503     15   0  0              0        503     >NORMAL                                 JUMP IF A >= 0
          50313    2       16      22   0  0              0                                                        SUBTRACT
          50314    76      503     16   0  0              0        503                                             JUMP unconditional
    50312>50315    1       16      22   0  0              0                                                        ADD
    50314>50316    5       13       6   2  0              0                SET SECOND ADDRESS+LTE                  TRANSFER
          50317    34      16      21   0  0              0                '-0'IND                                 SET (N) IN B
          50318    74      503     27   0  0              0        503     >NO,CALC FIRST ADDRESS                  JUMP IF AB == 0        // 27, 1, 0
          50319    2       13       6   2  0              0                                                        SUBTRACT
          50320    70      503     24   0  0              0        503     >SET'-0'PARA,CALC FIRST ADDRESS         JUMP IF A == 0
          50321    5       13       6   2  0              0                (SET SIGN BIT)                          TRANSFER
          50322    5       16      21   0  0              0                                                        TRANSFER
          50323    76      503     27   0  0              0        503                                             JUMP unconditional
    50320>50324    5       16      21   0  0              0                CLEAR THIS                              TRANSFER
          50325    0       529      8   0  0              0        529     £ IN Q4 (MINUS ZERO)                    SELECT
    50305>50326    5       13       4   2  0              0                CLEAR PARA          FIXED FIELD         TRANSFER
    50323>                                                                                                         
    50318>50327    124     16      18   0  1              0                REF                                     modify address of next
          50328    0       26       0   0  0              0                                                        SELECT
          50329    1       11       2   2  0              0                FIRST ITEM (ALWAYS>0)                   ADD
          50330    5       13       2   2  0              0                                                        TRANSFER
          50331    0       16      21   0  0              0                '-0'IND                                 SELECT
          50332    70      503     35   0  0              0        503     >NO                                     JUMP IF A == 0
          50333    0       529      8   0  0              0        529     £ IN Q4                                 SELECT
          50334    5       13       4   2  0              0                SET SECOND PARA                         TRANSFER
    50332>50335    80      513      2   0  0              0        513     >O/P MT                                 ENTER SUBROUTINE
          50336    0       13       0   2  0              0                PARA                                    SELECT
          50337    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          50338    5       16      22   0  0              0                                                        TRANSFER
          50339    34      13       2   2  0              0                                                        SET (N) IN B
          50340    32               0   0  0              6                DELETE B17                              SHIFT (AB) BY QUARTETS
          50341    10               0   0  0              0                (STARLING INDICATOR)                    SELECT LITERAL
          50342    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          50343    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          50344    5       16      30   0  0              0                                                        TRANSFER
          50345    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          50346    35               0   0  0          10000                Q5                                      PREPARE FOR DIGIT COLLATION
          50347    36      13       2   2  0              0                STERLING IND                            COLLATE AND ADD
          50348    4       16      22   0  0              0                STORE WITH PARA                         AUGMENT
          50349            13       4   1  0              0                SET UP SECOND HALF OF                   SELECT
          50350    5       13       0   1  0              0                DETAILS FOR                             TRANSFER
          50351            13       6   1  0              0                OUTPUT                                  SELECT
  Source image: P1030316.JPG
          50352    5       13       2   1  0              0                                                        TRANSFER
          50353    80      513      2   0  0              0        513     >O/P SECOND HALF                        ENTER SUBROUTINE
          50354    76      505      2   0  0              0        505                                             JUMP unconditional
                                                                                                                   
          50400    PROCR   504       504     WRITE SEC 7>A2                                                        
          50402    81      504      2   0  0              0        504                                             START OF SUBROUTINE
          50403    55      7        4   1  0             50                                                        BULK COPY
          50404    C       8        4   1  0              0                                                        
          50405    80      521      2   0  0              0        521     >WRITE 9>A2                             ENTER SUBROUTINE
          50406    82      504      2   0  0              0        504                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50500    PROCR   505       505                                                                           
          50501     NOTES          RADIX                                                                           SELECT
    50354>50502    35               0   0  0           1111                Q1-4 OF INDS/QTTS                       PREPARE FOR DIGIT COLLATION
          50503    85      100      5   0  0              0        100                                             SWITCH R
          50504    C       505      6   0  0              0        505     >PRINT                                  
          50505    C       486      2   0  0              0        486     >DONT PRINT                             
    50504>50506    36      13       2   2  0              0                                                        COLLATE AND ADD
          50507    80      523      2   0  0              0        523     TO DEC                                  ENTER SUBROUTINE
          50508    62               0   0  0              0                ITEM FOR                                SET EXCESS CONSTANTS
          50509    5       525     38   0  0              0        525     CONDENSE                                TRANSFER
          50510    5       13      22   0  0              0                CLEAR'LAST TE'IND                       TRANSFER
          50511            13       2   2  0              0                QTTS+INDS                               SELECT
          50512    73      505     16   0  0              0        505     > LAST TE                               JUMP IF A < 0
          50513            13       0   2  0              0                SECOND PARA                             SELECT
          50514    30               0   0  0              3-               TEST Q 4 NON-ZERO                       SHIFT (A) BY QUARTETS
          50515    70      505     18   0  0              0        505     > NOT LTE IND                           JUMP IF A == 0
    50512>50516    10               0   0  0              1                                                        SELECT LITERAL
          50517    5       13      22   0  0              0                SET LTE IND                             TRANSFER
    50515>50518    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          50519    C                0   0  0              5                                                        
          50520    34      13       2   2  0              0                QTTS                                    SET (N) IN B
          50521    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
    50524>50522    5       13       0   0  3              0                                                        TRANSFER
          50523    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          50524    94      505     22   0  3              1        505     STORE Q5-1 IN 13/0-4                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50525    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          50526    C                0   0  0              5                                                        
    50530>50527    00      13       0   0  3              0                                                        SELECT
          50528    80      523      2   0  0              0        523     TO DECIMAL                              ENTER SUBROUTINE
          50529    05      13       0   0  3              0                                                        TRANSFER
          50530    94      505     27   0  3              1        505                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50531    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          50532    52      5        4   0  5              0                                                        EDIT
          50533    C       532     22   0  0              0        532                                             
    50633>50534    10               0   0  0              2                                                        SELECT LITERAL
          50535    4       16      37   0  0              0                AUG SUBCTR                              AUGMENT
          50536    5       16       1   0  0              0                                                        TRANSFER
          50537    94      486      2   0  5             20        486                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50538    80      511      2   0  0              0        511     >O/P LINE                               ENTER SUBROUTINE
          50539    76      486      2   0  0              0        486                                             JUMP unconditional
                                                                                                                   
          50600    PROCR   506       506     DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S                        
          50601     NOTES          RADIX     B                                                                     SELECT
    49506>                                                                                                         
    49505>50602    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          50603    C                0   0  0              8                                                        
    50627>50604            11       0   2  4              0                                                        SELECT
          50605    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          50606    5       16      18   0  0              0                REF                                     TRANSFER
  Source image: P1030317.JPG
          50607    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          50608    5       13       0   2  0              0                PARA                                    TRANSFER
          50609    34      529     11   0  0              0        529     BIT 8                                   SET (N) IN B
          50610    36      13       0   2  0              0                                                        COLLATE AND ADD
          50611    70      506     14   0  0              0        506     >NOT MINUS ZERO                         JUMP IF A == 0
          50612            529      8   0  0              0        529     £ IN Q4                                 SELECT
          50613    5       13       0   2  0              0                                                        TRANSFER
    50611>50614    0       11       2   2  4              0                                                        SELECT
          50615    72      506     19   0  0              0        506     >POSITIVE ITEM                          JUMP IF A >= 0
          50616    124     16      18   0  1              0                                                        modify address of next
          50617    2       26       0   0  0              0                PROCR START                             SUBTRACT
          50618    76      506     21   0  0              0        506                                             JUMP unconditional
    50615>50619    124     16      18   0  1              0                                                        modify address of next
          50620    1       26       0   0  0              0                                                        ADD
    50618>50621    5       13       2   2  0              0                                                        TRANSFER
          50622    80      513      2   0  0              0        513     >O/P                                    ENTER SUBROUTINE
          50623    0       13       2   2  0              0                CONST                                   SELECT
          50624    5       13       4   0  4              0                                    STORE FOR PRINT     TRANSFER
          50625    0       13       0   2  0              0                PARA                                    SELECT
          50626    5       13       6   0  4              0                                                        TRANSFER
          50627    94      506      4   0  4              4        506                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50628    85      100      5   0  0              0        100                                             SWITCH R
          50629    C       506     31   0  0              0        506     >PRINT                                  
          50630    C       486      2   0  0              0        486     >DONT PRINT                             
    50629>50631    52      5        4   0  5              0                                                        EDIT
          50632    C       531      6   0  0              0        531                                             
          50633    76      505     34   0  0              0        505     >VIA TABLE ENTRIES                      JUMP unconditional
                                                                                                                   
          50700    PROCR   507       507     DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS                       
          50701     NOTES          RADIX     B    FORMED CONSTANTS                                                 SELECT
    49507>50702    90               0   0  4              0                4 CONSTANTS PER ITEM                    SET MODIFICATION REGISTER AT LITERAL
          50703    C                0   0  0              8                                                        
          50704    10               0   0  0              0                CLEAR PARA                              SELECT LITERAL
          50705    5       13       0   2  0              0                                                        TRANSFER
    50709>50706    0       11       0   1  4              0                                                        SELECT
          50707    5       13       2   1  0              0                                                        TRANSFER
          50708    80      513      2   0  0              0        513                                             ENTER SUBROUTINE
          50709    94      507      6   0  4              2        507                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50710    85      100      5   0  0              0        100                                             SWITCH R
          50711    C       507     13   0  0              0        507     >PRINT                                  
          50712    C       486      2   0  0              0        486     >DONT PRINT                             
    50711>50713    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          50714    C                0   0  0              8                                                        
    50719>50715    0       11       0   2  4              0                                                        SELECT
          50716    5       13       4   0  0              0                                                        TRANSFER
          50717    5       13       6   0  0              0                                                        TRANSFER
          50718    80      509      2   0  0              0        509                                             ENTER SUBROUTINE
          50719    94      507     15   0  4              2        507                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50720    76      486      2   0  0              0        486                                             JUMP unconditional
                                                                                                                   
          50800    PROCR   508       508     VALUES                                                                
          50801     NOTES          RADIX     B                                                                     SELECT
    49509>50802            11       0   1  0              0                                                        SELECT
          50803    2       525     24   1  0              0        525     'NOTES'                                 SUBTRACT
          50804    71      508     32   0  0              0        508     >NOT NEW REF/ITEM                       JUMP IF A != 0
          50805            11       4   2  0              0                REF                                     SELECT
          50806    5       16      18   0  0              0                                                        TRANSFER
          50807            11       6   2  0              0                ITEM                                    SELECT
          50808    124     16      18   0  0              0                                                        modify address of next
          50809    1       26       0   0  0              0                                                        ADD
  Source image: P1030318.JPG
          50810    02      16      23   0  0              0                CURRENT VALUE OF STACKER                SUBTRACT
          50811    03      13       2   2  0              0                >DELTA                                  COPY
          50812    04      16      23   0  0              0                >NEW VALUE OF STACKER                   AUGMENT
          50813    10               0   0  0            £00                                                        SELECT LITERAL
    50837>50814    5       13       0   2  0              0                PARA FOR DELTA                          TRANSFER
          50815    80      513      2   0  0              0        513     WRITE                                   ENTER SUBROUTINE
          50816    85      100      5   0  0              0        100                                             SWITCH R
          50817    C       508     19   0  0              0        508     >PRINT                                  
          50818    C       486      2   0  0              0        486     >DONT PRINT                             
    50817>50819    0       13       0   2  0              0                PARA                                    SELECT
          50820    5       13       6   0  0              0                                                        TRANSFER
          50821    0       13       2   2  0              0                VALUE                                   SELECT
          50822    5       13       4   0  0              0                                                        TRANSFER
          50823    10               0   0  0              1                                                        SELECT LITERAL
          50824    5       16       1   0  0              0                SET PRINT IND                           TRANSFER
          50825    52      5        4   0  8              0                                                        EDIT
          50826    C       531      2   0  0              0        531                                             
          50827    94      486      2   0  8             10        486                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50828    80      519      2   0  0              0        519     >PRINT                                  ENTER SUBROUTINE
          50829    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          50830    C                0   0  0             40                                                        
          50831    76      486      2   0  0              0        486                                             JUMP unconditional
    50804>50832    10               0   0  0              1                                                        SELECT LITERAL
          50833    04      16      23   0  0              0                AUGMENT LOCN COUNTER                    AUGMENT
          50834    00      11       6   2  0              0                                                        SELECT
          50835    5       13       2   2  0              0                VALUE                                   TRANSFER
          50836            11       4   2  0              0                PARA FOR VALUE                          SELECT
          50837    76      508     14   0  0              0        508                                             JUMP unconditional
                                                                                                                   
          50900    PROCR   509       509     PRINT CONVERT TABLES+TRANSLATOR'S CONSTS                              
          50902    81      509      2   0  0              0        509                                             START OF SUBROUTINE
          50903    10               0   0  0              1                                                        SELECT LITERAL
          50904    4       16      37   0  0              0                                                        AUGMENT
          50905    5       16       1   0  0              0                                                        TRANSFER
          50906    52      5        4   0  5              0                                                        EDIT
          50907    C       531      2   0  0              0        531                                             
          50908    94      509     10   0  5             10        509                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50909    80      511      2   0  0              0        511     >O/P LINE                               ENTER SUBROUTINE
    50908>50910    82      509      2   0  0              0        509                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51000    PROCR   510       510                                                                           
          51002    81      510      2   0  0              0        510                                             START OF SUBROUTINE
          51003    80      513      2   0  0              0        513     >WRITE                                  ENTER SUBROUTINE
          51004            13       2   2  0              0                                                        SELECT
          51005    5       13       4   0  0              0                                                        TRANSFER
          51006    5       13       6   0  0              0                                                        TRANSFER
          51007    85      100      5   0  0              0        100                                             SWITCH R
          51008    C       510     10   0  0              0        510     >PRINT                                  
          51009    C       510     11   0  0              0        510     >DONT PRINT                             
    51008>51010    80      509      2   0  0              0        509     >PRINT                                  ENTER SUBROUTINE
    51009>51011    82      510      2   0  0              0        510                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51100    PROCR   511       511     PRINT LINE WHEN FULL,STEP SERIAL                                      
          51101     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          51102    81      511      2   0  0              0        511                                             START OF SUBROUTINE
          51103    0       16      28   0  0              0                SERIAL AT START OF LINE                 SELECT
          51104    80      523      2   0  0              0        523     >TO DEC                                 ENTER SUBROUTINE
          51105    5       525     40   0  0              0        525     WL                                      TRANSFER
          51106    52      5        2   0  0              0                EDIT SERIAL                             EDIT
          51107    C       532     52   0  0              0        532                                             
  Source image: P1030319.JPG
          51108    80      519      2   0  0              0        519     >PRINT                                  ENTER SUBROUTINE
          51109    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          51110    0       16      37   0  0              0                INCREMENT THIS LINE                     SELECT
          51111    4       16      28   0  0              0                UPDATE FOR NEXT                         AUGMENT
          51112    10               0   0  0              0                                                        SELECT LITERAL
          51113    5       16      37   0  0              0                                                        TRANSFER
          51114    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          51115    C                0   0  0             40                                                        
          51116    82      511      2   0  0              0        511                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51200    CONST   512       512     1    CONSTANTS                                                        
          51202          (D);                                                                                      
          51204          (A)£    ;                                                                                 
          51206          (D)0;                                             CHUNK START/ORDER                       
          51208          0;                                                A                                       
          51210          0;                                                B                                       
          51212          0;                                                C                                       
          51214          0;                                                A                                       
          51216          0;                                                B                                       
          51218          0;                                                C                                       
                                                                                                                   
          51300    PROCR   513       513     GENERAL MAG - TAPE EDIT & OUTPUT                                      
          51301     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          51302    81      513      2   0  0              0        513                                             START OF SUBROUTINE
          51303    0       13       0   1  0              0                QUICKER THAN EDIT                       SELECT
          51304    5       8        4   1  1              0                                                        TRANSFER
          51305    0       13       2   1  0              0                                                        SELECT
          51306    5       8        6   1  1              0                                                        TRANSFER
          51307    94      513     11   0  1              4        513                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          51308    80      521      2   0  0              0        521     >WRITE BLOCK                            ENTER SUBROUTINE
          51309    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          51310    C                0   0  0             48                                                        
    51307>51311    82      513      2   0  0              0        513                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51400    PROCR   514       514     READ A2                                                               
          51401     NOTES  514                                                                                     SELECT
          51402    81      514      2   0  0              0        514                                             START OF SUBROUTINE
          51403    42      A2       0   0  0              0                                                        INPUT
          51404    C       8        0   0  0              0                                                        
          51405    82      514      2   0  0              0        514                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51500    PROCR   515       515     CLOSE OUTPUT FILES                                                    
          51501     NOTES          RADIX                                                                           SELECT
          51502    81      515      2   0  0              0        515                                             START OF SUBROUTINE
    51506>51503    80      514      2   0  0              0        514                                             ENTER SUBROUTINE
          51504    0       8        4   1  0              0                                                        SELECT
          51505    12               0   0  0     5659655972                'FINIF'                                 SUBTRACT LITERAL
          51506    71      515      3   0  0              0        515                                             JUMP IF A != 0
          51507    41      A2       0   0  0              1                CLOSE I/P                               CLOSE FILE
          51508    82      515      2   0  0              0        515                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51600    PROCR   516       516     INPUT OFF PASS 2                                                      
          51601     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          51602    81      516      2   0  0              0        516                                             START OF SUBROUTINE
          51603    94      516      7   0  2              8        516     STANDARD INCREMENT                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    48906>51604    80      517      2   0  0              0        517     READ A6>SEC 9                           ENTER SUBROUTINE
          51605    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          51606    C                0   0  0            144                                                        
    51603>51607    82      516      2   0  0              0        516                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030320.JPG
          51700    PROCR   517       517     INPUT                                                                 
          51701     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          51702    81      517      2   0  0              0        517                                             START OF SUBROUTINE
          51703    42      A6       0   0  0              0                                                        INPUT
          51704    C       9        0   0  0              0                                                        
          51705    82      517      2   0  0              0        517                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51800    PROCR   518       518     WRITE ON WORKING TAPE                                                 
          51801     NOTES  518                                                                                     SELECT
          51802    81      518      2   0  0              0        518                                             START OF SUBROUTINE
          51803    55      8        4   1  0             50                COPY ANNEXES                            BULK COPY
          51804    C       9        4   1  0              0                                                        
          51805    0       525     20   1  0              0        525     BEW                                     SELECT
          51806    5       9       52   1  0              0                                                        TRANSFER
          51807    43      A6       0   0  0              0                                                        OUTPUT
          51808    C       9        0   0  0              0                                                        
          51809    54      9        0   0  0             52                                                        BULK CLEAR
          51810    82      518      2   0  0              0        518                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51900    PROCR   519       519     PRINT                                                                 
          51901     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          51902    81      519      2   0  0              0        519                                             START OF SUBROUTINE
          51903    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          51904            525     20   1  0              0        525                                             SELECT
          51905    05      5       50   1  0              0                BEW                                     TRANSFER
          51906    10               0   0  0              1                ALWAYS TRACK 1                          SELECT LITERAL
          51907    05      5        0   1  0              0                FUNCTION WORD                           TRANSFER
          51908            27       9   0  0              0                                                        SELECT
          51909    70      519     14   0  0              0        519     >PRINTER                                JUMP IF A == 0
          51910    55      5        0   1  0             54                                                        BULK COPY
          51911    C       10       4   1  0              0                                                        
          51912    80      520      2   0  0              0        520     >O/P                                    ENTER SUBROUTINE
          51913    76      519     37   0  0              0        519                                             JUMP unconditional
    51909>51914            27       8   0  0              0                PRINTER TYPE                            SELECT
          51915    12               0   0  0              9                                                        SUBTRACT LITERAL
          51916    70      519     33   0  0              0        519     >SPECIAL                                JUMP IF A == 0
          51917    10               0   0  0          80000                                                        SELECT LITERAL
          51918    5       5        1   0  0              0                BIT 40                                  TRANSFER
          51919    54      10       0   1  0            384                                                        BULK CLEAR
          51920    124     999     15   1  2              0                SEC 5                                   modify address of next
          51921    124              0   0  2              0                                                        select literal and division
          51922    124     999     13   1  2              0                SEC 10                                  modify address of next
          51923    129              0   0  1              0                                                        edit for anelex output
          51924    10               0   0  0              4                                                        SELECT LITERAL
    51936>51925    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          51926    1       999      7   0  0              0                ROUTE                                   ADD
          51927    34      999     12   0  0              0                                                        SET (N) IN B
          51928    125           4096   1  1              0                                                        clear indicators
          51929    124     999      0   0  3              0                                                        modify address of next
          51930    123            160   0  2              0                                                        enter master routine
          51931    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          51932    76      519     37   0  0              0        519                                             JUMP unconditional
    51916>51933    55      5        0   1  0             54                                                        BULK COPY
          51934    C       10       0   1  0              0                                                        
          51935    10               0   0  0              9                                                        SELECT LITERAL
          51936    76      519     25   0  0              0        519                                             JUMP unconditional
    51932>                                                                                                         
    51913>51937    54      5        0   0  0             50                                                        BULK CLEAR
          51938    5       16       1   0  0              0                CLEAR INDICATOR                         TRANSFER
          51939    82      519      2   0  0              0        519                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030321.JPG
          52000    PROCR   520       520     O/P>A9                                                                
          52002    81      520      2   0  0              0        520                                             START OF SUBROUTINE
          52003    10               0   0  0         800000                                                        SELECT LITERAL
          52004    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          52005    125           4096   1  1              0                                                        clear indicators
          52006    1       999      7   0  0              0                D1/A9                                   ADD
          52007    124     999      0   0  3              0                                                        modify address of next
          52008    123            160   0  2              0                                                        enter master routine
          52009    82      520      2   0  0              0        520                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52100    PROCR   521       521     OUTPUT ON A2                                                          
          52101     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          52102    81      521      2   0  0              0        521                                             START OF SUBROUTINE
          52103            525     20   1  0              0        525     BEW                                     SELECT
          52104    5       8       52   1  0              0                                                        TRANSFER
          52105    43      A2       0   0  0              0                OUTPUT                                  OUTPUT
          52106    C       8        0   0  0              0                                                        
          52107    54      8        0   0  0             52                CLEAR                                   BULK CLEAR
          52108    82      521      2   0  0              0        521                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52200    PROCR   522       522                                                                           
          52202    81      522      2   0  0              0        522                                             START OF SUBROUTINE
          52203    50      9        4   0  2              0                                                        UNPACK FIXED FIELD DATA
          52204    C       531     14   0  0              0        531     UNPACK NEXT ITEM                        
          52205    82      522      2   0  0              0        522                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52300    PROCR   523       523     CONVERT (A) TO DECIMAL                                                
          52301     NOTES  523                                                                                     SELECT
          52302    81      523      2   0  0              0        523                                             START OF SUBROUTINE
          52303    5       527      4   1  0              0        527                                             TRANSFER
          52304    60               0   0  0              0                                                        SET DECIMAL RADIX
          52305    124     528     22   0  2              0        528                                             select literal and division
          52306    112     527      4   1  0              0        527                                             convert
          52307    82      523      2   0  0              0        523                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52400    PROCR   524       524     CONVERT (A) TO BIN                                                    
          52401     NOTES  524                                                                                     SELECT
          52402    81      524      2   0  0              0        524                                             START OF SUBROUTINE
          52403    5       527      4   1  0              0        527                                             TRANSFER
          52404    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          52405    124     528      2   0  2              0        528                                             select literal and division
          52406    112     527      4   1  0              0        527                                             convert
          52407    82      524      2   0  0              0        524                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52500    CONST   525       525     1                                                                     
          52502          (A)CHAPT;                                                                                 
          52504          TYPE£;                                                                                    
          52506          FILES;                                                                                    
          52508          TYPE;                                                                                     
          52510          ST.OF;                                                                                    
          52512          BLOCK;                                                                                    
          52514          SIZE;                                                                                     
          52516          SIT;                                                                                      
          52518          PREND;                                                                                    
          52520          (D)7.0000007.;                                                                            
          52522          (A)START;                                                                                 
          52524          NOTES;                                                                                    
          52526          SPOOL;                                                                                    
          52528          (A)PROC;                                                                                  
  Source image: P1030322.JPG
          52530          EDURE;                                                                                    
          52532          SEC;                                                                                      
          52534          TION ;                                                                                    
          52536          (D)6£6£6£6£6£;                                                                            
          52538          0;                                                                                        
          52540          0;                                                                                        
          52542          0;                                                                                        
          52544          (A)ON/=;                                                                                  
                                                                                                                   
          52600    CONST   526       526     1                                                                     
          52602          (A)EXTRA;                                                                                 
          52604           CHAP;                                                                                    
          52606          TER  ;                                                                                    
          52608          (D)7£££0003££;                                    BITS 1-10+25-39                         
          52610          5.5.;                                                                                     
          52612          (A)FIEND;                                                                                 
          52614          (A)INDEX;                                                                                 
          52616          CHAIN;                                                                                    
          52618          08004;                                                                                    
          52620          PROG;                                                                                     
          52622          OUT;                                                                                      
          52624          (D)5.5.;                                                                                  
                                                                                                                   
          52700    CONST   527       527     1    CONVERT TABLE                                                    
          52702          (D)1;                                             BIN>DEC                                 
          52704          0;                                                (A) WL                                  
          52706          0;                                                CURRENT PROCR                           
                                                                                                                   
          52800    CONST   528       528     1    COMPILER'S CONVERT TABLES                                        
          52802          (D)1;                                             DEC>BIN                                 
          52804          Ю;                                                                                        
          52806          64;                                                                                       
          52808          3.8;                                                                                      
          52810          2710;                                                                                     
          52812          186Ю0;                                                                                    
          52814          £4240;                                                                                    
          52816          989680;                                                                                   
          52818          5£5.100;                                                                                  
          52820          3‼9Ю+Ю00;                                                                                 
          52822          1;                                                BIN>DEC                                 
          52824          16;                                                                                       
          52826          256;                                                                                      
          52828          4096;                                                                                     
          52830          65536;                                                                                    
          52832          1048576;                                                                                  
          52834          16777216;                                                                                 
          52836          268435456;                                                                                
          52838          4294967296;                                                                               
          52840          ££££££££££;                                                                               
                                                                                                                   
          52900    CONST   529       529     0                                                                     
          52902          (D)7;                                                                                     
          52903          1£££;                                                                                     
          52904          £.000-;                                                                                   
          52905          7£;                                                                                       
          52906          8000;                                                                                     
          52907          6000;                                                                                     
          52908          £000;                                                                                     
          52909          80000;                                                                                    
          52910          £0000;                                                                                    
  Source image: P1030323.JPG
          52911          80;                                                                                       
          52912          £0000-;                                                                                   
          52913          £;                                                                                        
          52914          3££;                                              BITS 1-10                               
          52915          0;                                                THIS IS A FLIPFLOP FOR SC'S FWD         
          52916          3£;                                               BITS 1-6                                
                                                                                                                   
          53000    TABLE   530       530     1    PRINT HEADING DATA                                               
          53001     NOTES                                                                                          
          53002    13     4     0     0  0  0   5   0   0   0  0  0  0                                             
          53004    13     3     0     0  0  0   5   0   0   0  0  0  0                                             
          53006    13     0     0     0  0  0   5   0   0   0  0  0  0                                             
          53008    13     2     0     0  0  0   5   0   0   0  0  0  1                                             
          53010   523     2     0     0  0  0   3   2   0   2  0  0  0     REF----ACTIONS WITH NEGATIVE ADDRESSES  
          53012   519     2     0     0  0  0   5   0   2   4  0  0  1     PROCR                                   
          53014   526    18     0     0  2  0   5   0   0   0  0  0  0     '08000'                                 
          53016   526    20     0     0  2  0   4   1   1   0  0  0  0     'PROG'                                  
          53018   526    22     0     0  2  0   3   2   1   0  0  0  0     'OUT'                                   
          53020    16     2     0     0  0  0   5   0   2   0  0  0  0     PROGM                                   
          53022    16     3     0     0  0  0   5   0   2   4  0  0  0     SERIAL                                  
          53024   526    24     0     0  2  0   2   3   0   0  0  0  1     DOUBLE LE                               
                                                                                                                   
          53100    TABLE   531       531     1                                                                     
          53101     NOTES                                                                                          
          53102    13     4     0     0  0  0   5   0   7   4  2  0  0                                             
          53104    13     6     0     0  0  0   5   0   2   4  0  0  1                                             
          53106    13     4     0     0  0  0   5   0   7   4  2  0  0     CONST                                   
          53108    13     6     0     0  0  0   5   0   2   4  0  0  0     PARA                                    
          53110    13     8     0     0  0  0   5   0  12   4  2  0  0     CONST                                   
          53112    13    10     0     0  0  0   5   0   2   4  0  0  1                                             
          53114    11     0     0     0  2  0   5   0   0   0  0  0  0                                             
          53116    11     2     0     0  2  0   5   0   0   0  0  0  0                                             
          53118    11     4     0     0  2  0   5   0   0   0  0  0  0                                             
          53120    11     6     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          53200    TABLE   532       532     3                                                                     
          53201     NOTES                         G BLOCK                                                          
          53202    16    16     0     0  0  0   5   0   0   0  0  0  0                                             
          53204   529     2     0     0  0  0   5   0   0   0  0  0  0                                             
          53206    16     2     0     0  0  0   5   0   0   0  0  0  0                                             
          53208    16     3     0     0  0  0   5   0   0   0  0  0  0     SERIAL                                  
          53210   525     2     0     0  2  0   5   0   0   0  0  0  1     'CHAPT'                                 
          53212   525     2     0     0  2  0   5   0   0   0  0  0  0                                             
          53214    16    16     0     0  0  0   5   0   3   4  0  0  1                                             
          53216    16    17     0     0  0  0   4   1   1   3  0  0  0     PROCR NUMBER                            
          53218   525    44     0     0  2  0   1   4   0   0  0  0  0     '='                                     
          53220    16    36     0     0  0  0   4   1   0   3  0  0  1     PROCR START                             
          53222    16    22     0     0  0  0   1   0   4   0  0  0  0     £ IND                                   
          53224    16    30     0     0  0  0   4   1   3   3  0  0  0     FIRST ADDRESS                           
          53226    16    22     0     0  0  0   2   3   2   1  0  0  0     PARA                                    
          53228   525    38     0     0  0  0   5   0   4   4  0  0  0     SECOND ADDRESS                          
          53230    13     0     0     0  0  0   2   3   2   1  0  0  0     Q5                                      
          53232    13     1     0     0  0  0   2   3   1   1  0  0  0     Q4                                      
          53234    13     2     0     0  0  0   2   3   1   1  0  0  0     Q3                                      
          53236    13     3     0     0  0  0   2   3   1   1  0  0  0     Q2                                      
          53238    13     4     0     0  0  0   2   3   1   1  0  0  0     Q1                                      
          53240    13    22     0     0  0  0   1   4   3   0  0  0  1     LTE                                     
          53242    16    18     0     0  2  0   5   0   0   0  0  0  0                                             
          53244    16    20     0     0  2  0   5   0   0   0  0  0  0                                             
          53246    16    17     0     0  0  0   4   1   1   3  0  0  1     PROCR NUMBER                            
  Source image: P1030324.JPG
          53248    13     0     0     0  2  0   5   0   0   0  0  0  0                                             
          53250    13     2     0     0  2  0   5   0   0   0  0  0  1                                             
          53252   525    40     0     0  0  0   5   0   0   4  0  0  1                                             
                                                                                                                   
          53300    TABLE   533       533     1    EDIT INSTRUCTION FOR PRINT                                       
          53301     NOTES                                                                                          
          53302    13     0     0     0  0  0   2   3   6   1  0  0  0     A                                       
          53304    16    25     0     0  0  0   1   4   2   0  0  0  0     D                                       
          53306    16    26     0     0  0  0   1   4   2   0  0  0  0     M                                       
          53308    13     2     0     0  0  0   4   1   2   3  0  0  0     ADDR                                    
          53310    13     4     0     0  0  0   4   1   1   3  0  0  1     PARAMETER                               
                                                                                                                   
          53400    PROCR   534       534     START OF PASS 5                                                       
    53405>                                                                                                         
    53407>                                                                                                         
    53409>                                                                                                         
    53411>                                                                                                         
    53413>53402    152     200      4   0  0              0        200     DUMMY                                   OVERLAY
          53403    C       557      2   0  0              0        557                                             
          53404    85      403      2   0  0              0        403                                             SWITCH R
          53405    C       534      2   0  0              0        534                                             
          53406    85      407      2   0  0              0        407                                             SWITCH R
          53407    C       534      2   0  0              0        534                                             
          53408    85      212      2   0  0              0        212                                             SWITCH R
          53409    C       534      2   0  0              0        534                                             
          53410    85      645      2   0  0              0        645                                             SWITCH R
          53411    C       534      2   0  0              0        534                                             
          53412    85      411      2   0  0              0        411                                             SWITCH R
          53413    C       534      2   0  0              0        534                                             
          53414    43      A1       0   0  0              0                SET UP SEC 5                            OUTPUT
          53415    C       5        0   0  0              0                                                        
                                                                                                                   
          53500    PROCR   535       535     08005 INSERTED BEFORE HERE-FINAL ROUTINES                             
    49073>53502    54      8        4   1  0             48                                                        BULK CLEAR
          53503    10               0   0  0             55                                                        SELECT LITERAL
          53504    5       8        4   1  0              0                                                        TRANSFER
          53505    80      538      2   0  0              0        538     >WRITE'E'BLOCK                          ENTER SUBROUTINE
          53506            546      2   1  0              0        546     'PREND'                                 SELECT
          53507    5       8        4   1  0              0                                                        TRANSFER
          53508            16       2   0  0              0                PROG ID                                 SELECT
          53509    5       8        6   2  0              0                                                        TRANSFER
          53510    80      538      2   0  0              0        538     >WRITE'PREND'                           ENTER SUBROUTINE
          53511            546     12   1  0              0        546     'INDEX'                                 SELECT
          53512    5       8        6   1  0              0                                                        TRANSFER
          53513            546     18   2  0              0        546     '£££££'                                 SELECT
          53514    5       8        8   2  0              0                                                        TRANSFER
          53515    10               0   0  0              4                                                        SELECT LITERAL
          53516    5       8       10   1  0              0                                                        TRANSFER
          53517            546     18   1  0              0        546     ALINMENT MARKS                          SELECT
          53518    5       8        4   1  0              0                                                        TRANSFER
          53519    80      538      2   0  0              0        538     >WRITE                                  ENTER SUBROUTINE
          53520            16       2   0  0              0                PROG IDENTITY                           SELECT
          53521    3       8        4   2  0              0                                                        COPY
          53522    5       8       12   2  0              0                                                        TRANSFER
          53523            16       3   0  0              0                PROG SERIAL                             SELECT
          53524    3       8        6   2  0              0                                                        COPY
          53525    5       8       14   2  0              0                                                        TRANSFER
          53526    10               0   0  0              2                                                        SELECT LITERAL
          53527    5       8       10   2  0              0                                                        TRANSFER
          53528    10               0   0  0              3                                                        SELECT LITERAL
  Source image: P1030325.JPG
          53529    3       8       18   2  0              0                                                        COPY
          53530    10               0   0  0              2                                                        SELECT LITERAL
          53531    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
          53532    5       8       16   2  0              0                                                        TRANSFER
          53533            546     18   2  0              0        546     '£££££'                                 SELECT
          53534    5       8       20   2  0              0                                                        TRANSFER
          53535    80      538      2   0  0              0        538     >WRITE'INDEX'DATA                       ENTER SUBROUTINE
          53536    45      A6       0   0  0              1                                                        REWIND
          53537    54      5        0   1  0             48                                                        BULK CLEAR
          53538    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          53539    C                0   0  0              5                                                        
    53541>53540    80      540      2   0  0              0        540     >PRINT 5 BLANKS                         ENTER SUBROUTINE
          53541    94      535     40   0  1              1        535                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          53542    55      546     70   1  0             22        546     HEADINGS                                BULK COPY
          53543    C       5       10   1  0              0                                                        
          53544    80      540      2   0  0              0        540     >PRINT                                  ENTER SUBROUTINE
                                                                                                                   
          53600    PROCR   536       536     PRINT FINAL LINE, TEST FOR PASS 3 COPY                                
          53602    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          53603    C                0   0  0             13                                                        
          53604            27       6   0  0              0                'PT OMITTED'                            SELECT
          53605    70      536      8   0  0              0        536     >NO                                     JUMP IF A == 0
          53606            546     66   1  0              0        546     'YES'                                   SELECT
          53607    76      536      9   0  0              0        536                                             JUMP unconditional
    53605>53608            546     68   1  0              0        546     'NO'                                    SELECT
    53607>53609    5       5       12   1  0              0                                                        TRANSFER
          53610    80      553      2   0  0              0        553     PRINT                                   ENTER SUBROUTINE
          53611    94               0   0  1              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          53612    10               0   0  0              0                                                        SELECT LITERAL
          53613    5       546     48   0  0              0        546                                             TRANSFER
          53614    86      403      2   0  0              0        403     SERIOUS ERRORS CTR                      SELECT SWITCH R
          53615    80      551      2   0  0              0        551     CONVERT                                 ENTER SUBROUTINE
          53616    80      554      2   0  0              0        554     EDIT                                    ENTER SUBROUTINE
          53617    52      5       18   0  0              0                                                        EDIT
          53618    C       549     38   0  0              0        549                                             
          53619    80      553      2   0  0              0        553     PRINT                                   ENTER SUBROUTINE
          53620    94               0   0  1              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          53621    10               0   0  0              0                                                        SELECT LITERAL
          53622    5       546     48   0  0              0        546                                             TRANSFER
          53623    86      407      2   0  0              0        407     OTHER ERRORS CTR                        SELECT SWITCH R
          53624    80      551      2   0  0              0        551     CONVERT                                 ENTER SUBROUTINE
          53625    80      554      2   0  0              0        554     EDIT                                    ENTER SUBROUTINE
          53626    80      553      2   0  0              0        553     PRINT                                   ENTER SUBROUTINE
          53627    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    53629>53628    80      540      2   0  0              0        540     >MORE BLANK LINES                       ENTER SUBROUTINE
          53629    94      536     28   0  1              1        536                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          53630    155              0   0  0              0                TRANSLATOR SERIAL                       SELECT PROGRAM SERIAL TO A
          53631    5       546     32   1  0              0        546                                             TRANSFER
          53632    55      546     20   1  0             14        546                                             BULK COPY
          53633    C       5        6   1  0              0                                                        
          53634    153              0   0  0              0                DATE                                    SELECT DATE TO A, TIME TO B
          53635    5       546     32   1  0              0        546                                             TRANSFER
          53636    86      212      2   0  0              0        212     A2 SPOOL NO                             SELECT SWITCH R
          53637    5       546     14   0  0              0        546                                             TRANSFER
          53638    52      5       20   0  0              0                                                        EDIT
          53639    C       549      2   0  0              0        549                                             
          53640    80      540      2   0  0              0        540     PRINT 'MADE BY'                         ENTER SUBROUTINE
          53641    55      546     92   1  0              8        546                                             BULK COPY
          53642    C       5       20   1  0              0                                                        
          53643    80      540      2   0  0              0        540     PRINT 'ISSUE'                           ENTER SUBROUTINE
  Source image: P1030326.JPG
          53644            27       9   0  0              0                                                        SELECT
          53645    70      536     48   0  0              0        536     >CLOSE PRINTER                          JUMP IF A == 0
          53646    10               0   0  0        1+00000                CLOSE A9                                SELECT LITERAL
          53647    76      536     51   0  0              0        536                                             JUMP unconditional
    53645>53648            27       8   0  0              0                PRINTER TYPE                            SELECT
          53649    11               0   0  0             14                                                        ADD LITERAL
          53650    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
    53647>53651    1       999      7   0  0              0                                                        ADD
          53652    125           4096   1  1              0                                                        clear indicators
          53653    124     999      0   0  3              0                                                        modify address of next
          53654    123            160   0  2              0                CLOSE PRINTER                           enter master routine
          53655    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          53656    46      A2      10   0  0              0                RUN BACK TO SECOND'INDEX'BLOCK          RUN BACK
          53657    C                0   0  0              3                                                        
          53658    10               0   0  0              1                                                        SELECT LITERAL
          53659    5       546     52   0  0              0        546     SET IND                                 TRANSFER
          53660    5       546     52   0  0              0        546     CLEAR IND                               TRANSFER
          53661    40      A6       0   0  0              0                                                        OPEN FILE
          53662    100     546     46   1  0              0        546     SPOOL NUMBER>66                         copy registers
          53663    52      9        4   0  0              0                                                        EDIT
          53664    C       549     18   0  0              0        549                                             
          53665    154     9        4   0  0              0                TYPE COMMENT                            COMMENT IN LOG
          53666    80      541      2   0  0              0        541     >WRITE BLANKS                           ENTER SUBROUTINE
          53667    80      541      2   0  0              0        541     >WRITE 2 BLANK BLOCKS>A6                ENTER SUBROUTINE
          53668    80      542      2   0  0              0        542     READ A2                                 ENTER SUBROUTINE
          53669    10               0   0  0              2                                                        SELECT LITERAL
          53670    5       8       10   2  0              0                                                        TRANSFER
          53671            546      4   1  0              0        546     'CHAIN'                                 SELECT
          53672    5       8       12   1  0              0                                                        TRANSFER
          53673    80      541      2   0  0              0        541     >A6                                     ENTER SUBROUTINE
                                                                                                                   
          53700    PROCR   537       537     ALARM 6 OR 7                                                          
          53702    80      542      2   0  0              0        542     A2>                                     ENTER SUBROUTINE
          53703    10               0   0  0              2                                                        SELECT LITERAL
          53704    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
          53705    5       8        8   2  0              0                                                        TRANSFER
          53706    10               0   0  0                                                                       SELECT LITERAL
          53707    5       8       12   2  0              0                                                        TRANSFER
          53708    80      541      2   0  0              0        541     >A6                                     ENTER SUBROUTINE
    53714>53709    80      542      2   0  0              0        542     A2>                                     ENTER SUBROUTINE
          53710    0       8        6   1  0              0                                                        SELECT
          53711    2       546     12   1  0              0        546     'INDEX'                                 SUBTRACT
          53712    70      537     15   0  0              0        537     >YES                                    JUMP IF A == 0
          53713    80      541      2   0  0              0        541     >WRITE                                  ENTER SUBROUTINE
          53714    76      537      9   0  0              0        537                                             JUMP unconditional
    53712>53715    80      541      2   0  0              0        541     >WRITE 'INDEX'                          ENTER SUBROUTINE
          53716    80      542      2   0  0              0        542     >READ                                   ENTER SUBROUTINE
          53717    10               0   0  0              2                                                        SELECT LITERAL
          53718    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
          53719    5       8        8   2  0              0                                                        TRANSFER
          53720    10               0   0  0                                                                       SELECT LITERAL
          53721    5       8       12   2  0              0                                                        TRANSFER
          53722    80      541      2   0  0              0        541     >WRITE                                  ENTER SUBROUTINE
          53723    41      A6       0   0  0              0                                                        CLOSE FILE
          53724    46      A2      10   0  0              1                RUN BACK TO SECOND 'INDEX' BLOCK        RUN BACK
          53725    C                0   0  0              3                                                        
          53726    90               0   0  1              0                CLEAR R1                                SET MODIFICATION REGISTER AT LITERAL
          53727    C                0   0  0              0                /////                                   
          53728    10               0   0  0              6                                                        SELECT LITERAL
          53729    5       546     14   0  0              0        546                                             TRANSFER
  Source image: P1030327.JPG
          53730    0       27       9   0  0              0                                                        SELECT
          53731    70      537     38   0  0              0        537     >ON-LINE PRINT                          JUMP IF A == 0
          53732    86      403      2   0  0              0        403     'DISASTROUS'                            SELECT SWITCH R
          53733    11               0   0  0              0                                                        ADD LITERAL
          53734    71      537     40   0  0              0        537                                             JUMP IF A != 0
          53735    0       27       6   0  0              0                'PT OMITTED'                            SELECT
          53736    11               0   0  0              0                                                        ADD LITERAL
          53737    71      537     40   0  0              0        537                                             JUMP IF A != 0
    53731>53738            27       7   0  0              0                                                        SELECT
          53739    70      537     42   0  0              0        537     >NO CATASTROPHES                        JUMP IF A == 0
    53737>                                                                                                         
    53734>53740    10               0   0  0              7                                                        SELECT LITERAL
          53741    5       546     14   0  0              0        546                                             TRANSFER
    53739>53742    150     546     14   0  0              0        546     ALARM 6 OR 7                            OFFER OPTIONS
          53743    C       537     51   0  0              0        537     >END                                    
          53744    C       537     53   0  0              0        537     >CLOSE FILES,REENTER TO PRINT           
          53745    C       555      2   0  0              0        555     ENTER PIPS                              
          53746    C       537     47   0  0              0        537     >RE ENTER OFF LINE                      
    53746>53747    80      550      2   0  0              0        550                                             ENTER SUBROUTINE
          53748    90               0   0  1              2                                                        SET MODIFICATION REGISTER AT LITERAL
          53749    C                0   0  0             48                                                        
          53750    76      100      5   0  0              0        100     >PASS 0                                 JUMP unconditional
    53743>53751    80      550      2   0  0              0        550                                             ENTER SUBROUTINE
          53752    151              0   0  0              0                                                        UNLOAD PROGRAMME
    53744>53753    80      550      2   0  0              0        550                                             ENTER SUBROUTINE
          53754    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          53755    C                0   0  0             48                                                        
          53756    76      100      5   0  0              0        100     CALL START OF GENERATOR                 JUMP unconditional
                                                                                                                   
          53800    PROCR   538       538     WRITE>A2                                                              
          53802    81      538      2   0  0              0        538                                             START OF SUBROUTINE
          53803            546     16   1  0              0        546     BEW                                     SELECT
          53804    5       8       52   1  0              0                                                        TRANSFER
          53805    43      A2       0   0  0              0                                                        OUTPUT
          53806    C       8        0   0  0              0                                                        
          53807    54      8        0   1  0             52                CLEAR                                   BULK CLEAR
          53808    82      538      2   0  0              0        538                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53900    PROCR   539       539     OPEN & CLOSE A6                                                       
          53902    81      539      2   0  0              0        539                                             START OF SUBROUTINE
          53903    40      A6       0   0  0              1                                                        OPEN FILE
          53904    41      A6       0   0  0              1                                                        CLOSE FILE
          53905    82      539      2   0  0              0        539                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54000    PROCR   540       540     PRINT SR                                                              
          54002    81      540      2   0  0              0        540                                             START OF SUBROUTINE
          54003    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          54004            546     16   1  0              0        546     BEW                                     SELECT
          54005    5       5       50   1  0              0                                                        TRANSFER
          54006            546     52   0  0              0        546     HEAD OF FORM OR TRACK 1                 SELECT
          54007    5       5        0   2  0              0                                                        TRANSFER
          54008    10               0   0  0              1                                                        SELECT LITERAL
          54009    5       546     52   0  0              0        546                                             TRANSFER
          54010            27       9   0  0              0                                                        SELECT
          54011    70      540     16   0  0              0        540     >PRINTER                                JUMP IF A == 0
          54012    55      5        0   1  0             54                                                        BULK COPY
          54013    C       10       4   1  0              0                                                        
          54014    80      552      2   0  0              0        552     O/P>A9                                  ENTER SUBROUTINE
          54015    76      540     39   0  0              0        540                                             JUMP unconditional
    54011>54016            27       8   0  0              0                PRINTER TYPE                            SELECT
  Source image: P1030328.JPG
          54017    12               0   0  0              9                                                        SUBTRACT LITERAL
          54018    70      540     35   0  0              0        540     >SPECIAL PRINTER                        JUMP IF A == 0
          54019    10               0   0  0          80000                                                        SELECT LITERAL
          54020    5       5        1   0  0              0                                                        TRANSFER
          54021    54      10       0   1  0            384                                                        BULK CLEAR
          54022    124     999     15   1  2              0                                                        modify address of next
          54023    124              0   0  2              0                                                        select literal and division
          54024    124     999     13   1  2              0                                                        modify address of next
          54025    129              0   0  1              0                                                        edit for anelex output
          54026    10               0   0  0              4                                                        SELECT LITERAL
    54038>54027    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          54028    1       999      7   0  0              0                                                        ADD
          54029    34      999     12   0  0              0                                                        SET (N) IN B
          54030    125           4096   1  1              0                                                        clear indicators
          54031    124     999      0   0  3              0                                                        modify address of next
          54032    123            160   0  2              0                                                        enter master routine
          54033    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          54034    76      540     39   0  0              0        540                                             JUMP unconditional
    54018>54035    55      5        0   1  0             54                                                        BULK COPY
          54036    C       10       0   1  0              0                                                        
          54037    10               0   0  0              9                                                        SELECT LITERAL
          54038    76      540     27   0  0              0        540                                             JUMP unconditional
    54034>                                                                                                         
    54015>54039    54      5        0   1  0             50                                                        BULK CLEAR
          54040    82      540      2   0  0              0        540                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54100    PROCR   541       541     WRITE ON A6                                                           
          54102    81      541      2   0  0              0        541                                             START OF SUBROUTINE
          54103    55      8        4   1  0             50                                                        BULK COPY
          54104    C       9        4   1  0              0                                                        
          54105            546     16   1  0              0        546     BEW                                     SELECT
          54106    5       9       52   1  0              0                                                        TRANSFER
          54107    43      A6       0   0  0              0                                                        OUTPUT
          54108    C       9        0   0  0              0                                                        
          54109    54      9        0   1  0             52                                                        BULK CLEAR
          54110    82      541      2   0  0              0        541                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54200    PROCR   542       542     READ A2                                                               
          54202    81      542      2   0  0              0        542                                             START OF SUBROUTINE
          54203    42      A2       0   0  0              0                                                        INPUT
          54204    C       8        0   0  0              0                                                        
          54205    82      542      2   0  0              0        542                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54300    PROCR   543       543     DELETE GUARD WORDS                                                    
          54302    81      543      2   0  0              0        543                                             START OF SUBROUTINE
          54303    124     999      5   0  3              0                                                        modify address of next
          54304    126             20   1  2              0                                                        set modification register
          54305    80      544      2   0  0              0        544                                             ENTER SUBROUTINE
          54306    124     999      5   0  3              0                                                        modify address of next
          54307    126             22   1  2              0                                                        set modification register
          54308    80      544      2   0  0              0        544                                             ENTER SUBROUTINE
          54309    124     999      5   0  3              0                                                        modify address of next
          54310    126             24   1  2              0                                                        set modification register
          54311    125            204   0  2              0                                                        step on and test
          54312    80      544      2   0  0              0        544                                             ENTER SUBROUTINE
          54313    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          54314    C                0   0  0              0                /////                                   
          54315    126     543      2   0  3              0        543                                             leave master routine
                                                                                                                   
          54400    PROCR   544       544     STACK TAG SR                                                          
  Source image: P1030329.JPG
          54402    81      544      2   0  0              0        544                                             START OF SUBROUTINE
          54403    123     547      2   0  3              0        547     PROG TAG                                select tag
    54406>54404    124     999      0   0  3              0                                                        modify address of next
          54405    123              0   1  2              0                                                        copy into tag
          54406    94      544      4   0  2              2        544                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          54407    82      544      2   0  0              0        544                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54500    PROCR   545       545     WRITE SEC8>A6                                                         
          54502    81      545      2   0  0              0        545                                             START OF SUBROUTINE
          54503    55      8        4   1  0             50                                                        BULK COPY
          54504    C       9        4   1  0              0                                                        
          54505            546     16   1  0              0        546     BEW                                     SELECT
          54506    5       9       52   1  0              0                                                        TRANSFER
          54507    54      8        4   1  0             50                                                        BULK CLEAR
          54508    43      A6       0   0  0              0                                                        OUTPUT
          54509    C       9        0   0  0              0                                                        
          54510    82      545      2   0  0              0        545                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54600    CONST   546       546     1                                                                     
          54602          (A)PREND;                                                                                 
          54604          CHAIN;                                                                                    
          54606          FINIS;                                                                                    
          54608          CHAPT;                                                                                    
          54610          ALLOC;                                                                                    
          54612          INDEX;                                                                                    
          54614          (A)0;                                                                                     
          54616          (D)7.0000007.;                                                                            
          54618          6£6£6£6£6£;                                                                               
          54620          (A)MADE ;                                                                                 
          54622          BY 08;                                                                                    
          54624          004 I;                                                                                    
          54626          SSUE ;                                                                                    
          54628          5  SE;                                                                                    
          54630          RIAL ;                                                                                    
          54632          40000;                                                                                    
          54634          /;                                                                                        
          54636          SPOOL;                                                                                    
          54638          08004;                                                                                    
          54640          MAKES;                                                                                    
          54642          COPY ;                                                                                    
          54644          PASS3;                                                                                    
          54646          0;                                                WL'S                                    
          54648          0;                                                WL'S                                    
          54650          0;                                                WL'S                                    
          54652          0;                                                IND                                     
          54654          (A)PT OM;                                                                                 
          54656          ITTED;                                                                                    
          54658          DISAS;                                                                                    
          54660          TROUS;                                                                                    
          54662          OTHER;                                                                                    
          54664          S    ;                                                                                    
          54666          YES;                                                                                      
          54668          NO;                                                                                       
          54670             IN;                                                                                    
          54672          TERCO;                                                                                    
          54674          DE   ;                                                                                    
          54676          ;                                                                                         
          54678          SERIA;                                                                                    
          54680          L NUM;                                                                                    
          54682          BERS ;                                                                                    
  Source image: P1030330.JPG
          54684          OF IN;                                                                                    
          54686          TERCO;                                                                                    
          54688          DE RE;                                                                                    
          54690          PORTS;                                                                                    
          54692          (D)7Ю(A)0800;                                                                             
          54694          (A)0 ISS;                                                                                 
          54696          (A)UE 8(D)7‼;                                                                             
          54698          (D)7.0000007.;                                                                            
                                                                                                                   
          54700    CONST   547       547     1    COMPILER'S CONVERT TABLES                                        
          54702          (D)1;                                                                                     
          54704          Ю;                                                                                        
          54706          64;                                                                                       
          54708          3.8;                                                                                      
          54710          2710;                                                                                     
          54712          18600;                                                                                    
          54714          £4240;                                                                                    
          54716          989680;                                                                                   
          54718          5£5.100;                                                                                  
          54720          3‼9Ю+Ю00;                                                                                 
          54722          1;                                                BIN>DEC                                 
          54724          16;                                                                                       
          54726          256;                                                                                      
          54728          4096;                                                                                     
          54730          65536;                                                                                    
          54732          1048576;                                                                                  
          54734          16777216;                                                                                 
          54736          268435456;                                                                                
          54738          4294967296;                                                                               
          54740          ££££££££££;                                                                               
          54742          1;                                                STERLING>BIN                            
          54744          +;                                                                                        
          54746          78;                                                                                       
          54748          £0;                                                                                       
          54750          960;                                                                                      
          54752          5:+0;                                                                                     
          54754          3Ю980;                                                                                    
          54756          249£00;                                                                                   
          54758          16.3600;                                                                                  
          54760          .4.1+00;                                                                                  
          54762          1;                                                BIN>STERLING                            
          54764          14;                                                                                       
          54766          1014;                                                                                     
          54768          17014;                                                                                    
          54770          273014;                                                                                   
          54772          4369014;                                                                                  
          54774          69905014;                                                                                 
          54776          1118481014;                                                                               
          54778          ££££££££££;                                                                               
          54780          ££££££££££;                                                                               
          54782          1400000;                                          20/0                                    
                                                                                                                   
          54800    PROCR   548       548     SET TAG 15                                                            
          54802    81      548      2   0  0              0        548                                             START OF SUBROUTINE
          54803    10               0   0  0          £0000                                                        SELECT LITERAL
          54804    4       548      2   0  0              0        548                                             AUGMENT
          54805    126     548      2   0  3              0        548                                             leave master routine
                                                                                                                   
          54900    TABLE   549       549     1                                                                     
          54902   525    44     0     0  2  0   2   1   1   0  0  0  0                                             
  Source image: P1030331.JPG
          54904   546    32     0     0  1  0   2   4   1   2  0  0  0     DAY                                     
          54906   546    34     0     0  2  0   1   4   0   0  0  0  0     '/'                                     
          54908   546    32     0     0  0  0   2   1   0   2  0  0  0     MONTH                                   
          54910   546    34     0     0  2  0   1   4   0   0  0  0  0     '/'                                     
          54912   546    32     0     0  0  0   2   3   0   2  0  0  0     YEAR                                    
          54914   546    36     0     0  2  0   5   0   2   0  0  0  0     'SPOOL'                                 
          54916   546    14     0     0  0  0   5   0   1   5  0  0  1     NUMBER                                  
          54918   546    38     0     0  2  0   5   0   2   0  0  0  0     '08000'                                 
          54920   546    40     0     0  2  0   5   0   1   0  0  0  0     MAKES                                   
          54922   546    44     0     0  2  0   5   0   1   0  0  0  0     PASS3                                   
          54924   546    42     0     0  2  0   5   0   1   0  0  0  0     'COPY'                                  
          54926   525    44     0     0  2  0   2   1   0   0  0  0  0                                             
          54928   546    48     0     0  0  0   5   0   1   5  0  0  0     SPOOL NUMBER                            
          54930   526    24     0     0  2  0   2   3   0   0  0  0  1                                             
          54932   556     2     0     0  0  0   3   2   0   2  0  0  0     REF----ACTIONS WITH NEG ADDRESS         
          54934   545     2     0     0  0  0   5   0   2   4  0  0  1                                             
          54936   546    46     0     0  0  0   4   1   1   3  0  0  1     PROCR                                   
          54938    24     0     0     0  0  0   5   0   4   5  0  0  0     REPORTS                                 
          54940    24     1     0     0  0  0   5   0   1   5  0  0  0     DIS ERRORS                              
          54942    24     2     0     0  0  0   5   0   1   5  0  0  0                                             
          54944    24     3     0     0  0  0   5   0   1   5  0  0  0                                             
          54946    24     4     0     0  0  0   5   0   1   5  0  0  0                                             
          54948    24     5     0     0  0  0   5   0   1   5  0  0  0                                             
          54950    24     6     0     0  0  0   5   0   1   5  0  0  0                                             
          54952    24     7     0     0  0  0   5   0   1   5  0  0  0                                             
          54954    24     8     0     0  0  0   5   0   1   5  0  0  0                                             
          54956    24     9     0     0  0  0   5   0   1   5  0  0  0                                             
          54958    24    10     0     0  0  0   5   0   1   5  0  0  0                                             
          54960    24    11     0     0  0  0   5   0   1   5  0  0  1                                             
                                                                                                                   
          55000    PROCR   550       550     CLOSE I/P FILE                                                        
          55002    81      550      2   0  0              0        550                                             START OF SUBROUTINE
          55003    41      A2       0   0  0              1                                                        CLOSE FILE
          55004    82      550      2   0  0              0        550                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55100    PROCR   551       551     CONVERT TO DEC                                                        
          55102    81      551      2   0  0              0        551                                             START OF SUBROUTINE
          55103    5       550      2   0  0              0        550                                             TRANSFER
          55104    60               0   0  0              0                                                        SET DECIMAL RADIX
          55105    124     547     22   0  2              0        547                                             select literal and division
          55106    112     550      2   0  0              0        550                                             convert
          55107    82      551      2   0  0              0        551                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55200    PROCR   552       552     O/P>A9                                                                
          55202    81      552      2   0  0              0        552                                             START OF SUBROUTINE
          55203    10               0   0  0         800000                                                        SELECT LITERAL
          55204    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          55205    125           4096   1  1              0                                                        clear indicators
          55206    1       999      7   0  0              0                D1/A9                                   ADD
          55207    124     999      0   0  3              0                                                        modify address of next
          55208    123            160   0  2              0                                                        enter master routine
          55209    82      552      2   0  0              0        552                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55300    PROCR   553       553                                                                           
          55302    81      553      2   0  0              0        553                                             START OF SUBROUTINE
          55303            546     54   1  1              0        546                                             SELECT
          55304    5       5        6   1  0              0                                                        TRANSFER
          55305            546     56   1  1              0        546                                             SELECT
          55306    5       5        8   1  0              0                                                        TRANSFER
          55307    80      540      2   0  0              0        540     PRINT                                   ENTER SUBROUTINE
  Source image: P1030332.JPG
          55308    82      553      2   0  0              0        553                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55400    PROCR   554       554     EDIT NUMBER OF REPORTS                                                
          55402    81      554      2   0  0              0        554                                             START OF SUBROUTINE
          55403    5       546     46   0  0              0        546                                             TRANSFER
          55404    52      5       12   0  0              0                                                        EDIT
          55405    C       549     36   0  0              0        549                                             
          55406    82      554      2   0  0              0        554                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55500    PROCR   555       555     PASS 6=REMAINDER OF PTS                                               
    53745>55502    80      550      2   0  0              0        550                                             ENTER SUBROUTINE
    10004>55503    80      548      2   0  0              0        548     SET TAG 15 S/R                          ENTER SUBROUTINE
          55504    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55505    C                0   0  0             10                                                        
    55512>55506    10               0   0  0              .                                                        SELECT LITERAL
          55507    124     999      5   0  3              0                                                        modify address of next
          55508    124             67   0  3              0                                                        modify address of next
          55509    123              0   1  0              0                SET TAG 15>14                           copy into tag
          55510    10               0   0  0              2                                                        SELECT LITERAL
          55511    4       999      5   0  0              0                                                        AUGMENT
          55512    94      555      6   0  1              1        555                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55513    10               0   0  0              .                                                        SELECT LITERAL
          55514    124     999      5   0  3              0                                                        modify address of next
          55515    123            106   1  0              0                126 OF SP CHAP                          copy into tag
          55516    152     100      2   0  0              0        100                                             OVERLAY
          55517    C       559      2   0  0              0        559                                             
          55518    76      559      2   0  0              0        559                                             JUMP unconditional
          55519    152     101      2   0  0              0        101     DUMMY                                   OVERLAY
          55520    C       558      2   0  0              0        558                                             
                                                                                                                   
          55600    PROCR   556       556     WRITE8>A2                                                             
          55602    81      556      2   0  0              0        556                                             START OF SUBROUTINE
          55603    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          55604    5       8       52   1  0              0                                                        TRANSFER
          55605    43      A2       0   0  0              0                                                        OUTPUT
          55606    C       8        0   0  0              0                                                        
          55607    54      8        4   1  0             50                                                        BULK CLEAR
          55608    82      556      2   0  0              0        556                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55700    PROCR   557       557                                                                           
                                                                                                                   
          55800    PROCR   558       558                                                                           
                                                                                                                   
          55900    PROCR   559       559     INITIAL ENTRY:FIND TW                                                 
    56205>                                                                                                         
    55518>55902    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          55903    125           4096   1  1              0                SET NON-INT                             clear indicators
          55904    123     559      5   0  2              0        559                                             enter master routine
          55905    123     559      5   0  2              0        559     SET KEY 14                              enter master routine
          55906    123     999      0   0  3              0                                                        select tag
          55907    101              1   1  2              0                                                        subtract literal address
          55908    71      562      6   0  0              0        562     >YES                                    JUMP IF A != 0
          55909    GO      559     51   0  0              0        559FUDGEFUDGE ASSUME T/W ON 7/2                 JUMP unconditional
          55910    76      559     16   0  0              0        559FUDGE>NO                                     JUMP unconditional
          55911    76      559     14   0  0              0        559FUDGE>YES                                    JUMP unconditional
          55912    76      559     14   0  0              0        559FUDGE>YES                                    JUMP unconditional
          55913    76      559     14   0  0              0        559FUDGE>YES                                    JUMP unconditional
    55913>                                                                                                         
    55912>                                                                                                         
    55911>55914    10               0   0  0              Ю           FUDGE                                        SELECT LITERAL
  Source image: P1030333.JPG
          55915    76      559     63   0  0              0        559FUDGE>                                       JUMP unconditional
    55910>55916    126             11   1  0              0           FUDGETEST TW ON 1/3                          test route N1
          55917    76      559     23   0  0              0        559FUDGE>NO                                     JUMP unconditional
          55918    76      559     21   0  0              0        559FUDGE>YES                                    JUMP unconditional
          55919    76      559     21   0  0              0        559FUDGE>YES                                    JUMP unconditional
          55920    76      559     21   0  0              0        559FUDGE>YES                                    JUMP unconditional
    55920>                                                                                                         
    55919>                                                                                                         
    55918>55921    10               0   0  0              ‼           FUDGE                                        SELECT LITERAL
          55922    76      559     63   0  0              0        559FUDGE>                                       JUMP unconditional
    55917>55923    126             18   1  0              0           FUDGETEST TW ON 2/2                          test route N1
          55924    GO      559     30   0  0              0        559>NO  >NO                                     JUMP unconditional
          55925    GO      559     28   0  0              0        559>YES >YES                                    JUMP unconditional
          55926    GO      559     28   0  0              0        559>YES >YES                                    JUMP unconditional
          55927    GO      559     28   0  0              0        559>YES >YES                                    JUMP unconditional
    55927>                                                                                                         
    55926>                                                                                                         
    55925>55928    10               0   0  0             12           >YES                                         SELECT LITERAL
          55929    GO      559     63   0  0              0        559>YES >YES                                    JUMP unconditional
    55924>55930    126             34   1  0              0           >YES TEST TW ON 4/2                          test route N1
          55931    76      559     37   0  0              0        559>YES >NO                                     JUMP unconditional
          55932    76      559     35   0  0              0        559>YES >YES                                    JUMP unconditional
          55933    76      559     35   0  0              0        559>YES >YES                                    JUMP unconditional
          55934    76      559     35   0  0              0        559>YES >YES                                    JUMP unconditional
    55934>                                                                                                         
    55933>                                                                                                         
    55932>55935    10               0   0  0             22           >YES                                         SELECT LITERAL
          55936    76      559     63   0  0              0        559>YES >YES                                    JUMP unconditional
    55931>55937    126             42   1  0              0           >YES TEST TW ON 5/2                          test route N1
          55938    76      559     44   0  0              0        559>YES >NO                                     JUMP unconditional
          55939    76      559     42   0  0              0        559>YES >YES                                    JUMP unconditional
          55940    76      559     42   0  0              0        559>YES >YES                                    JUMP unconditional
          55941    76      559     42   0  0              0        559>YES >YES                                    JUMP unconditional
    55941>                                                                                                         
    55940>                                                                                                         
    55939>55942    10               0   0  0             2Ю           >YES                                         SELECT LITERAL
          55943    76      559     63   0  0              0        559>YES >YES                                    JUMP unconditional
    55938>55944    126             50   1  0              0           >YES TEST TW ON 6/2                          test route N1
          55945    76      559     51   0  0              0        559>YES >NO                                     JUMP unconditional
          55946    76      559     49   0  0              0        559>YES >YES                                    JUMP unconditional
          55947    76      559     49   0  0              0        559>YES >YES                                    JUMP unconditional
          55948    76      559     49   0  0              0        559>YES >YES                                    JUMP unconditional
    55948>                                                                                                         
    55947>                                                                                                         
    55946>55949    10               0   0  0             32           >YES                                         SELECT LITERAL
          55950    76      559     63   0  0              0        559>YES >YES                                    JUMP unconditional
    55945>                                                                                                         
    55909>55951    126             58   1  0              0           >YES TEST TW ON 7/2                          test route N1
          55952    GO      562      4   0  0              0        562>NO  >NO                                     JUMP unconditional
          55953    GO      559     56   0  0              0        559                                             JUMP unconditional
          55954    GO      559     56   0  0              0        559                                             JUMP unconditional
          55955    GO      559     56   0  0              0        559                                             JUMP unconditional
    55955>                                                                                                         
    55954>                                                                                                         
    55953>55956    126             63   1  0              0                                                        test route N1
          55957    GO      559     62   0  0              0        559>YES >YES                                    JUMP unconditional
          55958    GO      562      4   0  0              0        562>NO  >NO                                     JUMP unconditional
          55959    GO      562      4   0  0              0        562>NO  >NO                                     JUMP unconditional
          55960    GO      562      4   0  0              0        562>NO  >NO                                     JUMP unconditional
          55961    GO      562      4   0  0              0        562>NO  >NO                                     JUMP unconditional
    55957>55962    10               0   0  0             3Ю           >NO                                          SELECT LITERAL
    55950>                                                                                                         
    55943>                                                                                                         
    55936>                                                                                                         
    55929>                                                                                                         
    55922>                                                                                                         
  Source image: P1030334.JPG
    55915>55963    5       559      3   0  0              0        559>NO  STORE TW ROUTE                          TRANSFER
                                                                                                                   
          56000    PROCR   560       560     INITIAL ENTRY:OVERLAY                                                 
          56002            562      3   0  0              0        562                                             SELECT
          56003    124     999      0   0  3              0                STORE START OF IPS IN SP CH             modify address of next
          56004    101     91    1030   1  2              0                                                        subtract literal address
          56005    124     999      0   0  3              0                                                        modify address of next
          56006    124              3   0  3              0                                                        modify address of next
          56007    103             22   0  0              0                                                        copy (A) to N
          56008    103     999      3   0  0              0                IN 15 BIT PARAMETER FORM                copy (A) to N
          56009    101     701      2   1  1              0        701                                             add literal address
          56010    5       559      2   0  0              0        559     FORM ENTRY LINK                         TRANSFER
          56011    124     999      3   0  1              0                                                        modify address of next
          56012    101              0   1  3              0                                                        select literal address
          56013    102     999      4   0  0              0                IN 13 BIT PARAMETER FORM                transfer (A) to N
          56014    124     999      0   0  2              0                                                        select literal and division
          56015    11               0   0  0        1600000                                                        ADD LITERAL
          56016    124     999      3   0  3              0                                                        modify address of next
          56017    128              0   0  0              0                                                        bulk copy short numeric
          56018    152     101      2   0  0              0        101                                             OVERLAY
          56019    C       564      2   0  0              0        564                                             
                                                                                                                   
          56100    PROCR   561       561     INITIAL ENTRY:ENTER IPS                                               
    56121>56102    125           4096   1  1              0                SET NON-INT                             clear indicators
          56103    123     561      4   0  2              0        561     SET KEY 14                              enter master routine
          56104    100              0   0  0              0                                                        Halt
          56105    124     999      0   0  3              0                                                        modify address of next
          56106    124              2   0  3              0                TEST MASTER STILL TYPING                modify address of next
          56107    124              6   0  3              0                                                        modify address of next
          56108    106              2   0  0              0                                                        select (N)
          56109    105     561     22   0  0              0        561                                             subtract (N) from (A)
          56110    104     559      3   0  0              0        559                                             add (N) to (A)
          56111    127     561     20   0  0              0        561     >YES                                    jump A = Z
          56112    101            248   1  3              0                                                        select literal address
          56113    118           4118   1  0              0                £8 IN B                                 shift logical
          56114    124     999      5   0  3              0                                                        modify address of next
          56115    124             32   0  3              0                                                        modify address of next
          56116    115             24   0  0              0                COLLATE OUT TAPE ROUTE                  collate and add
          56117    118           4118   1  0              0                AND SHIFT INTO B                        shift logical
          56118    106     559      3   0  0              0        559     TWRT                                    select (N)
          56119    82      559      2   0  0              0        559     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    56111>56120    125           4096   1  0              0                                                        set indicators
          56121    GO      561      2   0  0              0        561>    >                                       JUMP unconditional
          56122    126              0   1  0              0           >                                            test route N1
                                                                                                                   
          56200    PROCR   562       562     INITIAL ENTRY:TW CLOSED                                               
          56202    100           4096   0  1              0                MIDDLE OF DIV 1                         Invalid
          56203    100           8190   0  1              0                END OF DIV 1                            Invalid
    55961>                                                                                                         
    55960>                                                                                                         
    55959>                                                                                                         
    55958>                                                                                                         
    55952>56204    154     563      2   0  0              0        563                                             COMMENT IN LOG
          56205    GO      559      2   0  0              0        559>    >                                       JUMP unconditional
    55908>56206    154     563     10   0  0              0        563>                                            COMMENT IN LOG
  Source image: P1030335.JPG
          56207    151              0   0  0              0           >                                            UNLOAD PROGRAMME
                                                                                                                   
          56300    CONST   563       563     1                                                                     
          56302          (D)6£(A)TYPE;                                     TW CLOSED                               
          56304          (A)WRITE;                                                                                 
          56306          R CLO;                                                                                    
          56308          (A)SED(D)5.5.;                                                                            
          56310          (D)6£(A)DO N;                                                                             
          56312          (A)OT TI;                                                                                 
          56314          MESHA;                                                                                    
          56316          RE 09;                                                                                    
          56318          (A)000(D)5.5.;                                                                            
                                                                                                                   
          56400    CONST   564       564     0    FUTURE INSTALLATION                                              
          56402          (D);                                              TYPEWRITER                              
          56403          0;                                                CONTROL DATA                            
          56404          0;                                                MODS                                    
          56405          0;                                                STORE SIZE                              
          56406          0;                                                CLOCK                                   
          56407          0;                                                TIMER                                   
          56408          0;                                                LOCKOUT                                 
          56409          0;                                                FIRST MT ROUTE                          
          56410          0;                                                SECOND STORE SIZE                       
                                                                                                                   
          56500    CONST   565       565     0    PRESENT INSTALLATION                                             
          56502          (D);                                              TYPEWRITER                              
          56503          18;                                               CONTROL DATA                            
          56504          19;                                               MODS                                    
          56505          0;                                                STORE SIZE                              
          56506          0;                                                CLOCK                                   
          56507          0;                                                TIMER                                   
          56508          0;                                                LOCKOUT                                 
          56509          0;                                                FIRST MT ROUTE                          
          56510          0;                                                SECOND STORE SIZE                       
          56511          0;                                                TAPE START ROUTE                        
          56512          0;                                                S/F INDICATOR                           
          56513          0;                                                END INDICATOR                           
                                                                                                                   
          56600    CONST   566       566     1    SIPS:MISCELLANEA                                                 
          56602          (D);                                              BLOCK COUNTER                           
          56604          66666;                                            BIN&DEC                                 
          56606          .000;                                             DIV 0                                   
          56608          400000000;                                        2 DIV/0                                 
          56610          0;                                                LOAD CHAPT 1(MASTER)                    
          56612          2000;                                             LOAD CHAPT 2(ISU)                       
          56614          3+0000000;                                        LOAD IPS                                
                                                                                                                   
          56700    PROCR   567       567     SIPS:INSTRUCTION CONSTANTS                                            
          56702    100     91     325   0  1              0                BULK COPY                               Invalid
          56703    100            704   0  0              0                                                        Halt
          56704    100     91       5   0  1              0                BULK COPY                               Invalid
          56705    100           1024   0  0              0                                                        Halt
          56706    114     91       0   0  1              0                ASL                                     replace selected bits
          56707    102              1   0  0              0                BULK CLEAR                              transfer (A) to N
          56708    126             30   0  1              0                INTERRUPTION                            leave subroutine
                                                                                                                   
          56800    PROCR   568       568     SET KEY 15 SR                                                         
          56802    100              0   0  0              0                                                        Halt
          56803    125           4096   1  1              0                SET NON-INT                             clear indicators
          56804    124     568      6   0  2              0        568                                             select literal and division
  Source image: P1030336.JPG
          56805    102             30   0  1              0                                                        transfer (A) to N
          56806    126     568      7   0  3              0        568     SET KEY 15                              leave master routine
          56807    115     568      8   0  1              0        568                                             collate and add
          56808    125           4096   1  1              0                SET NON-INT                             clear indicators
          56809    126     568      2   0  1              0        568                                             leave subroutine
                                                                                                                   
          56900    PROCR   569       569     STEP BLOCK COUNTER SR                                                 
          56902    81      569      2   0  0              0        569                                             START OF SUBROUTINE
          56903    100     566      4   0  3              0        566                                             set radix
          56904    101              3   0  1              0                                                        prepare for digit collation
          56905    101              1   1  3              0                                                        select literal address
          56906    115     566      3   1  0              0        566                                             collate and add
          56907    100     566      5   0  3              0        566                                             set radix
          56908    114     999      3   1  0              0                                                        replace selected bits
          56909    101             15   0  1              0                                                        prepare for digit collation
          56910    106     999      2   1  0              0                                                        select (N)
          56911    114     566      2   1  0              0        566                                             replace selected bits
          56912    82      569      2   0  0              0        569                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57000    PROCR   570       570     SIPS:READ&TEST ROUTE SR                                               
          57002    100              0   0  0              0                                                        Halt
          57003    124     565     11   0  3              0        565                                             modify address of next
          57004    119              0   0  1              0                READ                                    input one block/reset timer
          57005    80      569      2   0  0              0        569     >STEP BLOCK COUNTER                     ENTER SUBROUTINE
    57009>57006    124     565     11   0  3              0        565                                             modify address of next
          57007    126              0   1  0              0                                    TEST ROUTE          test route N1
          57008    100            259   0  0              0                HALT 103            C                   Halt
          57009    124     570      6   1  0              0        570     >                   E                   unconditional jump
          57010    124     570     18   1  0              0        570     >HALT 105           D                   unconditional jump
          57011    124     570     12   1  0              0        570                         W                   unconditional jump
    57011>57012    124     565     11   0  3              0        565                         A                   modify address of next
          57013    124             64   0  3              0                                                        modify address of next
          57014    106              1   1  0              0                TEST CORRECT BLOCK                      select (N)
          57015    105     566      3   1  0              0        566                                             subtract (N) from (A)
          57016    71      570     23   0  0              0        570     >NO:HALT 10.                            JUMP IF A != 0
          57017    82      570      2   0  0              0        570                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    57010>57018    100            261   0  0              0                                                        Halt
          57019    124     565     11   0  3              0        565                                             modify address of next
          57020    119              0   1  2              0                UNLOAD MT                               unload
    57022>57021    100            261   0  0              0                                                        Halt
          57022    124     570     21   1  0              0        570                                             unconditional jump
    57016>57023    100            270   0  0              0                                                        Halt
          57024    124     565     11   0  3              0        565                                             modify address of next
          57025    119              0   1  2              0                UNLOAD MT                               unload
    57027>57026    100            270   0  0              0                                                        Halt
          57027    124     570     26   1  0              0        570                                             unconditional jump
                                                                                                                   
          57100    PROCR   571       571     SIPS:INITIAL SR                                                       
          57102    100              0   0  0              0                                                        Halt
          57103    125           8191   1  1              0                CLEAR I1-I13                            clear indicators
          57104    125            127   1  0              0                SET I1-7                                set indicators
          57105    100     566      5   0  3              0        566     BINARY                                  set radix
          57106    124     566      5   1  1              0        566     MGO                                     set modification group
          57107    126     566      6   1  1              0        566     MR1 FOR DIVO                            set modification register
          57108    106     567      8   0  0              0        567                                             select (N)
          57109    102              9   0  1              0                SET UP (9)                              transfer (A) to N
          57110    80      568      2   0  0              0        568     >SET KEY 15                             ENTER SUBROUTINE
                                                                                                                   
          57200    PROCR   572       572     SIPS=STACK TAGS SR                                                    
          57202    126     566      8   1  2              0        566     SET MR2 AT 2 DIVS/0                     set modification register
  Source image: P1030337.JPG
          57203    106     566      6   0  0              0        566                                             select (N)
          57204    107              4   0  1              0                                                        augment (N) by (A)
          57205    107              5   0  1              0                                                        augment (N) by (A)
          57206    101             14   1  3              0                STACK TAG 14 IN DIVS 0&1                select literal address
    57209>57207    123              0   1  2              0                                                        copy into tag
          57208    125              2   0  2              0                                                        step on and test
          57209    124     572      7   1  0              0        572                                             unconditional jump
          57210    125              0   1  2              0                TEST LEO 326                            interrogate indicators
          57211    102              1   0  1              0                                                        transfer (A) to N
          57212    106     567      6   1  0              0        567                                             select (N)
          57213    128     999      0   0  0              0                                                        bulk copy short numeric
          57214    106              1   0  1              0                                                        select (N)
          57215    103     565     12   0  0              0        565                                             copy (A) to N
          57216    127     572     20   0  0              0        572     >YES                                    jump A = Z
          57217    125              0   1  2              0                STACK TAG 0 IN 0&32 OF DIV 0            interrogate indicators
          57218    123              0   1  1              0                                                        copy into tag
          57219    123             32   1  1              0                                                        copy into tag
    57216>57220    101             15   1  3              0                STACK TAG 15 IN ANNEXE LIMIT WORD       select literal address
          57221    123     91    1030   1  0              0                                                        copy into tag
          57222    123            140   1  1              0                STACK TAG 15 IN 140-153 IN DIV 0        copy into tag
          57223    123            142   1  1              0                                                        copy into tag
          57224    123            144   1  1              0                                                        copy into tag
          57225    123            146   1  1              0                                                        copy into tag
          57226    123            148   1  1              0                                                        copy into tag
          57227    123            150   1  1              0                                                        copy into tag
          57228    123            152   1  1              0                                                        copy into tag
          57229    82      571      2   0  0              0        571                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57300    PROCR   573       573     SIPS:LOAD STORE SR                                                    
          57302    100     577      2   0  1              0        577                                             Invalid
    57311>57303    80      570      2   0  0              0        570     >READ & TEST ROUTE                      ENTER SUBROUTINE
          57304    106     567      4   1  0              0        567                                             select (N)
          57305    124     566      5   0  3              0        566     COPY NEXT 512                           modify address of next
          57306    124              4   0  3              0                                                        modify address of next
          57307    128              0   1  0              0                                                        bulk copy alpha to short
          57308    106            129   0  1              0                RESTORE MT CHANNEL                      select (N)
          57309    102     565     11   0  0              0        565                                             transfer (A) to N
          57310    125            512   0  2              0                TEST END                                step on and test
          57311    76      573      3   0  0              0        573     >NO                                     JUMP unconditional
          57312    82      573      2   0  0              0        573                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57400    PROCR   574       574     SIPS:ENTRY FROM PIPS                                                  
    73642>57402    126     571      2   0  0              0        571     >INITIAL SR                             enter subroutine
          57403    106            129   0  1              0                STORE MT CHANNEL                        select (N)
          57404    102     565     11   0  0              0        565                                             transfer (A) to N
          57405    106     564     10   0  0              0        564     STORE STORE SIZE                        select (N)
          57406    118           4127   0  0              0                                                        shift logical
          57407    104     564      5   0  0              0        564                                             add (N) to (A)
          57408    102            153   0  1              0                                                        transfer (A) to N
          57409    101              3   0  1              0                SET UP RT NO IN ISP                     prepare for digit collation
          57410    106     564      3   0  0              0        564                                             select (N)
          57411    114            144   0  1              0                                                        replace selected bits
          57412    114            145   0  1              0                                                        replace selected bits
          57413    101             64   1  1              0                                                        add literal address
          57414    114            143   0  1              0                                                        replace selected bits
                                                                                                                   
          57500    PROCR   575       575     SISP:PREPARE TO READ                                                  
          57502    124     565     11   0  3              0        565     SET UP BLOCK COUNTER                    modify address of next
          57503    124             64   0  3              0                                                        modify address of next
          57504    106              0   1  0              0                                                        select (N)
  Source image: P1030338.JPG
          57505    102     566      2   1  0              0        566                                             transfer (A) to N
          57506    106     567      6   0  0              0        567     SET UP ASL                              select (N)
          57507    124     565     11   0  3              0        565                                             modify address of next
          57508    102             64   0  0              0                                                        transfer (A) to N
          57509    126     566     10   1  2              0        566     SET MR2 FOR CHAPT 1                     set modification register
                                                                                                                   
          57600    PROCR   576       576     SIPS:LOAD STORE                                                       
          57602    126     570      2   0  0              0        570     >READ&TEST ROUTE                        enter subroutine
          57603    106     567      2   1  0              0        567                                             select (N)
          57604    124     566      5   0  3              0        566                                             modify address of next
          57605    128            160   1  0              0                COPY TO 160-511                         bulk copy alpha to short
          57606    125            512   0  2              0                                                        step on and test
          57607    106     567      6   0  0              0        567     RESET ASL                               select (N)
          57608    124     565     11   0  3              0        565                                             modify address of next
          57609    102             64   0  0              0                                                        transfer (A) to N
          57610    80      573      2   0  0              0        573     >LOAD STORE                             ENTER SUBROUTINE
          57611    126     566     12   1  2              0        566     SET MR2 FROM CHAPT 2                    set modification register
          57612    80      573      2   0  0              0        573     >LOAD STORE                             ENTER SUBROUTINE
          57613    126     566     14   1  2              0        566     SET MRZ FOR IPS                         set modification register
          57614    80      573      2   0  0              0        573     >LOAD STORE                             ENTER SUBROUTINE
                                                                                                                   
          57700    PROCR   577       577     SIPS-:RESTORE STORE                                                   
          57702    106     723      2   1  0              0        723     COPY INSTALLATION DETAILS TABLE         select (N)
          57703    128     565      2   0  0              0        565                                             bulk copy short numeric
          57704    106     722      2   1  0              0        722     SET ALL SWITCHES AT 0                   select (N)
          57705    128     703      2   0  0              0        703                                             bulk copy short numeric
    70129>57706    102              1   0  1              0                TEST LEO 326/360                        transfer (A) to N
          57707    106     567      6   1  0              0        567                                             select (N)
          57708    128     999      0   0  0              0                                                        bulk copy short numeric
          57709    106              1   0  1              0                                                        select (N)
          57710    103     565     12   0  0              0        565                                             copy (A) to N
          57711    70      577     16   0  0              0        577     >YES                                    JUMP IF A == 0
          57712    106     706      6   0  0              0        706     SET UP COUNTING CONSTANTS               select (N)
          57713    102     706      3   0  0              0        706                                             transfer (A) to N
          57714    106     706      8   0  0              0        706                                             select (N)
          57715    76      577     19   0  0              0        577                                             JUMP unconditional
    57711>57716    106     706      7   0  0              0        706                                             select (N)
          57717    102     706      3   0  0              0        706                                             transfer (A) to N
          57718    106     706      9   0  0              0        706                                             select (N)
    57715>57719    102     706      5   0  0              0        706                                             transfer (A) to N
                                                                                                                   
          57800    PROCR   578       578     SIPS-:SET UP TYPEWRITER ROUTE                                         
          57802    125           4095   1  2              0                TEST TW ROUTE TO BE CHANGED             interrogate indicators
          57803    101           3072   1  2              0                                                        subtract literal address
          57804    127     578     13   0  1              0        578     >NO                                     jump A != Z
    57809>57805    125           4095   1  1              0                CLEAR I1-12                             clear indicators
    57807>57806    125           4095   1  2              0                TEST TW ROUTE STACKED                   interrogate indicators
          57807    127     578      6   0  0              0        578     >NO                                     jump A = Z
          57808    125           4032   1  2              0                                                        interrogate indicators
          57809    127     578      5   0  1              0        578     >NO                                     jump A != Z
          57810    125             63   1  2              0                STORE NEW TW ROUTE                      interrogate indicators
          57811    103     564      2   0  0              0        564                                             copy (A) to N
          57812    102     565      2   0  0              0        565                                             transfer (A) to N
    57804>57813    125           4032   1  1              0                CLEAR I7-12                             clear indicators
          57814    125            127   1  0              0                SET I1-7                                set indicators
          57815    106     565      2   0  0              0        565                                             select (N)
          57816    101             46   1  2              0                SET ST1=1 FOR PT OP AS TW               subtract literal address
          57817    127     578     23   0  2              0        578     SET POS FOR G P ASS                     jump A >= Z
          57818    101             32   1  1              0                SET NEG FOR PT ASS                      add literal address
          57819    127     578     22   0  2              0        578                                             jump A >= Z
  Source image: P1030339.JPG
          57820    101              1   1  3              0                                                        select literal address
          57821    124     578     23   1  0              0        578                                             unconditional jump
    57819>57822    101             38   1  2              0                                                        subtract literal address
    57821>                                                                                                         
    57817>57823    102     703     20   0  0              0        703     OR ST1=2 FOR CP AS TW                   transfer (A) to N
          57824    106     702      2   0  0              0        702                                             select (N)
          57825    124     565      2   0  3              0        565     SET UP TW ASL                           modify address of next
          57826    102             64   0  0              0                                                        transfer (A) to N
          57827    102            154   1  1              0                CLEAR TW ANNEXE                         transfer (A) to N
          57828    106     702      5   0  0              0        702     SET UP TW ASL                           select (N)
          57829    103              1   0  1              0                RETURN LINKS                            copy (A) to N
          57830    103             17   0  1              0                                                        copy (A) to N
          57831    102             25   0  1              0                                                        transfer (A) to N
          57832    124     699      6   0  2              0        699                                             select literal and division
          57833    102             31   0  1              0                                                        transfer (A) to N
          57834    106     703     21   0  0              0        703                         SWITCH SX1          select (N)
          57835    70      579      2   0  0              0        579     >NORMAL             0                   JUMP IF A == 0
          57836    80      648      2   0  0              0        648     >UNLOAD TAPE START  1                   ENTER SUBROUTINE
          57837    76      586     26   0  0              0        586     >INITIAL ENTRY                          JUMP unconditional
                                                                                                                   
          57900    PROCR   579       579     CHECK INTERRUPTION                                                    
    57835>57902    106     703      7   0  0              0        703     TEST LOG FREE       SWITCH SL1          select (N)
          57903    70      579      5   0  0              0        579     >YES                0                   JUMP IF A == 0
    57922>57904    80      681      2   0  0              0        681     >LOG                1                   ENTER SUBROUTINE
    57903>57905    106     702     11   0  0              0        702     RETURN LINK                             select (N)
          57906    102             30   0  1              0                                                        transfer (A) to N
          57907    125           4096   1  0              0                SET INT                                 set indicators
          57908    106     703     20   0  0              0        703                         SWITCH ST1          select (N)
          57909    71      579     12   0  0              0        579                         1                   JUMP IF A != 0
          57910    106     716     20   1  0              0        716                         2                   select (N)
          57911    76      579     13   0  0              0        579                                             JUMP unconditional
    57909>57912    106     716     18   1  0              0        716                                             select (N)
    57911>57913    102            154   1  1              0                                                        transfer (A) to N
          57914    124     565      2   0  3              0        565                                             modify address of next
          57915    119              0   0  0              0                                                        output
          57916    126     566      8   1  3              0        566                                             set modification register
    57918>57917    125              1   0  3              0                                                        step on and test
          57918    76      579     17   0  0              0        579                                             JUMP unconditional
          57919    80      676      2   0  0              0        676     >REQ TW                                 ENTER SUBROUTINE
          57920    124     713     36   0  2              0        713                                             select literal and division
          57921    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
          57922    76      579      4   0  0              0        579     >                                       JUMP unconditional
          57923    80      568      2   0  0              0        568     >SET KEY I5                             ENTER SUBROUTINE
          57924    80      677      2   0  0              0        677     >REQ TW                                 ENTER SUBROUTINE
          57925    106     716     16   1  0              0        716                                             select (N)
          57926    124     718      2   0  3              0        718                                             modify address of next
          57927    102              0   1  0              0                                                        transfer (A) to N
                                                                                                                   
          58000    PROCR   580       580     CHECK CLOCK                                                           
          58002    106     565      6   0  0              0        565     TEST MC HAS CLOCK                       select (N)
          58003    70      580     14   0  0              0        580     >NO                                     JUMP IF A == 0
          58004    80      694      2   0  0              0        694     >ARRANGE TO TYPE SHORTLY                ENTER SUBROUTINE
    58008>58005    106            156   0  1              0                TEST CLOCK ON                           select (N)
          58006    71      580     12   0  0              0        580     >YES                                    JUMP IF A != 0
    58011>58007    126     695      2   0  0              0        695     >TEST TIME TO TYPE                      enter subroutine
          58008    124     580      5   1  0              0        580     >                                       unconditional jump
          58009    124     713     12   0  2              0        713                                             select literal and division
          58010    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          58011    124     580      7   1  0              0        580     >                                       unconditional jump
    58006>58012    106     724     12   1  0              0        724                                             select (N)
  Source image: P1030340.JPG
          58013    76      580     15   0  0              0        580                                             JUMP unconditional
    58003>58014    106     724     14   1  0              0        724                                             select (N)
    58013>58015    103     724      2   1  0              0        724     AMEND EDIT TIME TABLES                  copy (A) to N
          58016    102     724      8   1  0              0        724                                             transfer (A) to N
                                                                                                                   
          58100    PROCR   581       581     CHECK TIMER                                                           
          58102    106     565      7   0  0              0        565     TEST MC HAS TIMER                       select (N)
          58103    127     582      2   0  0              0        582     >NO                                     jump A = Z
          58104    126     693      2   0  0              0        693     >ARRANGE TO TYPE                        enter subroutine
    58108>58105    106            157   0  1              0                TEST TIMER ON                           select (N)
          58106    127     582      2   0  1              0        582     >YES                                    jump A != Z
    58111>58107    126     695      2   0  0              0        695     >TEST TIME TO TYPE                      enter subroutine
          58108    124     581      5   1  0              0        581     >                                       unconditional jump
          58109    124     715     20   0  2              0        715                                             select literal and division
          58110    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          58111    124     581      7   1  0              0        581     >                                       unconditional jump
                                                                                                                   
          58200    PROCR   582       582     CHECK UNASSIGNED ACTION                                               
    58106>                                                                                                         
    58103>58202    106     565     12   0  0              0        565     TEST 326                                select (N)
          58203    71      583      2   0  0              0        583     >NO                                     JUMP IF A != 0
          58204    80      693      2   0  0              0        693     >ARRANGE TO TYPE                        ENTER SUBROUTINE
          58205    124     582     13   0  2              0        582     RETURN LINK                             select literal and division
          58206    102             31   0  1              0                                                        transfer (A) to N
    58209>58207    100     566      5   0  1              0        566     TEST UA WORKING                         Invalid
    58212>58208    126     695      2   0  0              0        695     NO>TEST TIME TO TYPE                    enter subroutine
          58209    124     582      7   1  0              0        582     >                                       unconditional jump
          58210    124     715     26   0  2              0        715                                             select literal and division
          58211    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          58212    124     582      8   1  0              0        582     >                                       unconditional jump
          58213    126     568      2   0  0              0        568     >SET KEY 15                             enter subroutine
                                                                                                                   
          58300    PROCR   583       583     CHECK LOCKOUT                                                         
    58203>58302    106     565      8   0  0              0        565     TEST MC HAS LOCKOUT                     select (N)
          58303    127     584      2   0  0              0        584     >NO                                     jump A = Z
          58304    126     693      2   0  0              0        693     >ARRANGE TO TYPE                        enter subroutine
          58305    124     583     16   0  2              0        583     RETURN LINK                             select literal and division
          58306    102             31   0  1              0                                                        transfer (A) to N
          58307    102              6   1  1              0                                                        transfer (A) to N
    58312>58308    126     583      9   0  2              0        583     SET KEY 14                              enter priority control
          58309    100              0   0  0              0                                                        Halt
          58310    115     91    1031   1  3              0                TEST LOCKOUT ON                         collate and add
    58315>58311    80      695      2   0  0              0        695     NO>TEST TIME TO TYPE                    ENTER SUBROUTINE
          58312    76      583      8   0  0              0        583     >NO                                     JUMP unconditional
          58313    124     714     18   0  2              0        714                                             select literal and division
          58314    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          58315    124     583     11   1  0              0        583     >                                       unconditional jump
          58316    126     568      2   0  0              0        568     >SET KEY 15                             enter subroutine
                                                                                                                   
          58400    PROCR   584       584     CHECK OVERFLOW                                                        
    58303>58402    126     693      2   0  0              0        693     >ARRANGE TO TYPE                        enter subroutine
    58409>58403    124     584     13   0  2              0        584     RETURN LINK                             select literal and division
          58404    102             31   0  1              0                                                        transfer (A) to N
          58405    100     708      2   0  3              0        708     SET UNARY                               set radix
          58406    101              1   1  1              0                TEST OVERFLOW                           add literal address
          58407    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    58412>58408    80      695      2   0  0              0        695     >TEST TIME TO TYPE                      ENTER SUBROUTINE
          58409    76      584      3   0  0              0        584     >NO                                     JUMP unconditional
          58410    124     715      2   0  2              0        715                                             select literal and division
          58411    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
  Source image: P1030341.JPG
          58412    124     584      8   1  0              0        584     >                                       unconditional jump
          58413    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          58414    126     568      2   0  0              0        568     >SET KEY 15                             enter subroutine
          58415    124     699      6   0  2              0        699                                             select literal and division
          58416    102             31   0  1              0                                                        transfer (A) to N
                                                                                                                   
          58500    PROCR   585       585     ALARM 77 (1)                                                          
    58716>                                                                                                         
    64114>58502    125           2047   1  1              0                CLEAR I1-11                             clear indicators
          58503    125            128   1  0              0                SET I8                                  set indicators
          58504    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          58505    102            156   1  1              0                                                        transfer (A) to N
          58506    124     716     12   0  2              0        716                         *77                 select literal and division
          58507    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          58508    124     726      2   0  2              0        726                                             select literal and division
          58509    124     718      2   0  3              0        718     EDIT RESET                              modify address of next
          58510    128              4   1  2              0                                                        edit fixed field formats
                                                                                                                   
          58600    PROCR   586       586     ALARM 77 (2)                                                          
          58602    125             15   1  2              0                TEST OPTION STACKED                     interrogate indicators
          58603    127     586      5   0  1              0        586     >YES                                    jump A != Z
    58625>58604    126     681      2   0  0              0        681     >LOG                                    enter subroutine
    58603>58605    103     587      8   0  0              0        587                                             copy (A) to N
          58606    103     587     18   0  0              0        587                                             copy (A) to N
          58607    118              1   0  0              0                                                        shift logical
          58608    103     714     51   0  0              0        714     SET UP 'OPT'                            copy (A) to N
          58609    103     714     55   0  0              0        714     & 'OREJ'                                copy (A) to N
          58610    125           1919   1  2              0                                                        interrogate indicators
          58611    125           2047   1  1              0                CLEAR I1-11                             clear indicators
          58612    101              5   1  2              0                TEST OPTION IN RANGE                    subtract literal address
          58613    127     587      2   0  3              0        587     >YES                                    jump A < Z
          58614    101             11   1  2              0                                                        subtract literal address
          58615    127     586     21   0  2              0        586     >REJECT                                 jump A >= Z
          58616    101              2   1  1              0                                                        add literal address
          58617    127     587      2   0  2              0        587     >OPT14,15                               jump A >= Z
          58618    101              5   1  3              0                                                        select literal address
          58619    102     587      8   0  0              0        587                                             transfer (A) to N
          58620    124     587      2   1  0              0        587                                             unconditional jump
    58615>58621    125            128   1  0              0                SET I8                                  set indicators
          58622    126     676      2   0  0              0        676     >REQ TW                                 enter subroutine
          58623    124     714     52   0  2              0        714                         0 REJ               select literal and division
          58624    126     688      2   0  0              0        688     >                                       enter subroutine
          58625    124     586      4   1  0              0        586                                             unconditional jump
    58712>                                                                                                         
    57837>58626    101              1   1  3              0                                                        select literal address
          58627    102     703      4   0  0              0        703                                             transfer (A) to N
    58710>58628    125            127   1  0              0                                                        set indicators
          58629    76      588      2   0  0              0        588     SET UP ASL'S                            JUMP unconditional
                                                                                                                   
          58700    PROCR   587       587     ALARM 77 (3)                                                          
    58620>                                                                                                         
    58617>                                                                                                         
    58613>58702    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          58703    124     714     48   0  2              0        714                         OPT                 select literal and division
          58704    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          58705    125              0   1  2              0                                                        interrogate indicators
          58706    124     587      8   0  1              0        587                                             modify address of next
          58707    124     587      8   1  0              0        587                                             unconditional jump
    58707>58708    100              0   0  0              0                                                        Halt
          58709    76      625      2   0  0              0        625     >OP 1                                   JUMP unconditional
  Source image: P1030342.JPG
          58710    76      586     28   0  0              0        586     >OPT 2                                  JUMP unconditional
          58711    76      625      3   0  0              0        625     >OP 3                                   JUMP unconditional
          58712    76      586     26   0  0              0        586     >OPT 4                                  JUMP unconditional
          58713    106     587     18   0  0              0        587                                             select (N)
          58714    101              4   1  2              0                MACHINE NUMBER                          subtract literal address
          58715    102            180   0  1              0                                                        transfer (A) to N
          58716    76      585      2   0  0              0        585     >REOFFER OPTIONS                        JUMP unconditional
          58717    100              0   0  0              0                                                        Halt
          58718    100              0   0  0              0                                                        Halt
    58727>58719    101            492   1  3              0                                                        select literal address
          58720    107             19   0  0              0                                                        augment (N) by (A)
          58721    124              0   1  0              0                                                        unconditional jump
          58722    124     625      2   0  2              0        625     OPT 14                                  select literal and division
          58723    127     587     25   0  1              0        587     OPT 15                                  jump A != Z
          58724    124     586     28   0  2              0        586                                             select literal and division
    58723>58725    100     587     28   0  2              0        587                                             replace (B) by (N)
          58726    114     587     21   0  0              0        587     PACK IN ADDRESS                         replace selected bits
          58727    76      587     19   0  0              0        587                                             JUMP unconditional
          58728    100           8191   0  0              0                                                        Halt
                                                                                                                   
          58800    PROCR   588       588     SET UP ASLS                                                           
    58629>58802    106     565     11   0  0              0        565     SET UP MT ROUTES                        select (N)
          58803    101              1   1  1              0                                                        add literal address
          58804    103     704      5   0  0              0        704                                             copy (A) to N
          58805    101              1   1  1              0                                                        add literal address
          58806    103     704      6   0  0              0        704                                             copy (A) to N
          58807    101              1   1  1              0                                                        add literal address
          58808    102     704      7   0  0              0        704                                             transfer (A) to N
          58809    106     567      6   0  0              0        567     SET UP ASLS                             select (N)
          58810    124     704      5   0  3              0        704                                             modify address of next
          58811    103             64   0  0              0                                                        copy (A) to N
          58812    124     704      6   0  3              0        704                                             modify address of next
          58813    103             64   0  0              0                                                        copy (A) to N
          58814    124     704      7   0  3              0        704                                             modify address of next
          58815    103             64   0  0              0                                                        copy (A) to N
          58816    124     565      3   0  3              0        565                                             modify address of next
          58817    103             64   0  0              0                                                        copy (A) to N
          58818    124     565      4   0  3              0        565                                             modify address of next
          58819    102             64   0  0              0                                                        transfer (A) to N
                                                                                                                   
          58900    PROCR   589       589     CD:DETERMINE TYPE                                                     
          58902    106     565      3   0  0              0        565     SET UP CD RT                            select (N)
          58903    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          58904    102     91       0   1  0              0                                                        transfer (A) to N
    58922>58905    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          58906    125              0   1  0              0                IDB                                     set indicators
          58907    126     651      2   0  0              0        651     >READ CD                                enter subroutine
          58908    106     703     21   0  0              0        703                         SWITCH SX1          select (N)
          58909    71      589     13   0  0              0        589     >>>>>>              1                   JUMP IF A != 0
          58910    106     91       0   1  0              0                TEST %%%%%                              select (N)
          58911    105     716     36   1  0              0        716                                             subtract (N) from (A)
          58912    127     593      2   0  0              0        593     >YES                                    jump A = Z
    58909>58913    106     91       0   1  0              0                TEST >>>>>                              select (N)
          58914    105     716     14   1  0              0        716                                             subtract (N) from (A)
          58915    127     590      2   0  0              0        590     >YES                                    jump A = Z
          58916    80      642      2   0  0              0        642     >REMOVE NES&BES                         ENTER SUBROUTINE
          58917    106     91       0   1  0              0                                                        select (N)
          58918    102     714     42   1  0              0        714                                             transfer (A) to N
          58919    124     714     42   0  2              0        714                         NOT CD              select literal and division
    59207>58920    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
    59113>                                                                                                         
    59304>                                                                                                         
    59329>                                                                                                         
  Source image: P1030343.JPG
    65106>58921    80      650      2   0  0              0        650     >SET ROUTE TO MANUAL                    ENTER SUBROUTINE
          58922    76      589      5   0  0              0        589     >                                       JUMP unconditional
                                                                                                                   
          59000    PROCR   590       590     CD:CHANGE INSTALLATION DETAILS(1)                                     
    58915>59002    102     703     21   0  0              0        703     SET SX1 AT 0                            transfer (A) to N
          59003    106     722      4   1  0              0        722     CLEAR                                   select (N)
          59004    128     710      2   0  0              0        710                                             bulk copy short numeric
          59005    124     725      2   0  2              0        725     UNPACK                                  select literal and division
          59006    128     91       0   0  3              0                                                        unpack variable field data
          59007    126     705      2   1  2              0        705     SET MR2 AT 3/0                          set modification register
          59008    125              0   1  2              0                                                        interrogate indicators
    59016>59009    100     709      2   0  2              0        709                                             replace (B) by (N)
          59010    115     710      2   0  2              0        710     TEST RT IN BINARY                       collate and add
          59011    127     592      2   0  1              0        592     >NO:REJECT                              jump A != Z
          59012    124     711     16   0  2              0        711                                             select literal and division
          59013    112     710      2   0  2              0        710     CONVERT RT OCT>BIN                      convert
          59014    102     564      2   0  2              0        564                                             transfer (A) to N
          59015    125              1   0  2              0                STEP MR2                                step on and test
          59016    124     590      9   1  0              0        590                                             unconditional jump
          59017    106     710      5   0  0              0        710     TEST NO OF DIVS REASONABLE              select (N)
          59018    127     592      2   0  0              0        592     >NO                                     jump A = Z
          59019    101              9   1  2              0                                                        subtract literal address
          59020    127     592      2   0  2              0        592     >NO                                     jump A >= Z
          59021    106     710     10   0  0              0        710     TEST SECOND STORE                       select (N)
          59022    70      590     28   0  0              0        590     >NO                                     JUMP IF A == 0
          59023    101              5   1  2              0                TEST NO OF DIVS REASONABLE              subtract literal address
          59024    72      592      2   0  0              0        592     >NO                                     JUMP IF A >= 0
          59025    106     710      5   0  0              0        710                                             select (N)
          59026    101              5   1  2              0                                                        subtract literal address
          59027    72      592      2   0  0              0        592     >NO                                     JUMP IF A >= 0
    59022>59028    106     710      5   0  0              0        710     CONVERT NO OF DIVS                      select (N)
          59029    118              3   0  0              0                                                        shift logical
          59030    118              1   0  3              0                                                        shift binary
          59031    102     564      5   0  0              0        564                                             transfer (A) to N
          59032    106     710     10   0  0              0        710     CONVERT NO OF 2ND STORE DIVS            select (N)
          59033    118              3   0  0              0                                                        shift logical
          59034    118              1   0  3              0                                                        shift binary
          59035    102     564     10   0  0              0        564                                             transfer (A) to N
                                                                                                                   
          59100    PROCR   591       591     CD:CHANGE INSTALLATION DETAILS(2)                                     
          59102    126     705      4   1  2              0        705     SET MR2 AT 4/0                          set modification register
    59108>59103    106     710      6   0  2              0        710     STORE THE REST                          select (N)
          59104    127     591      6   0  0              0        591                                             jump A = Z
          59105    101              1   1  3              0                                                        select literal address
    59104>59106    102     564      6   0  2              0        564                                             transfer (A) to N
          59107    125              1   0  2              0                                                        step on and test
          59108    124     591      3   1  0              0        591                                             unconditional jump
          59109    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          59110    124     728      2   0  2              0        728                         >>>>>               select literal and division
          59111    124     718      2   0  3              0        718                                             modify address of next
          59112    128              2   1  2              0                                                        edit fixed field formats
          59113    124     589     21   1  0              0        589     >                                       unconditional jump
                                                                                                                   
          59200    PROCR   592       592     CD:REJ                                                                
    59027>                                                                                                         
    59024>                                                                                                         
    59020>                                                                                                         
    59018>                                                                                                         
  Source image: P1030344.JPG
    59011>59202    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          59203    106     709      6   0  2              0        709     SET UP T C M OR S                       select (N)
          59204    102     713      8   0  0              0        713                                             transfer (A) to N
          59205    124     713      6   0  2              0        713                         CD REJ              select literal and division
          59206    103     703     21   0  0              0        703     SET SX1 AT 1                            copy (A) to N
          59207    76      589     20   0  0              0        589     >                                       JUMP unconditional
                                                                                                                   
          59300    PROCR   593       593     CD:FIRST TWO BLOCKS                                                   
    58912>59302    106     91       3   1  0              0                >TEST DATE REASONABLE                   select (N)
          59303    126     689      2   0  0              0        689     >NO                                     enter subroutine
          59304    124     589     21   1  0              0        589     >READ CD                                unconditional jump
          59305    126     651      2   0  0              0        651                                             enter subroutine
          59306    106     91       4   1  0              0                                                        select (N)
          59307    118           4120   0  0              0                                                        shift logical
          59308    101            126   1  2              0                                                        subtract literal address
          59309    71      593     11   0  0              0        593                                             JUMP IF A != 0
          59310    102     91       4   1  0              0                                                        transfer (A) to N
    59309>59311    106     91       1   1  0              0                TEST CORR PROGM                         select (N)
          59312    70      593     23   0  0              0        593     >NO                                     JUMP IF A == 0
          59313    105     704      2   0  0              0        704                                             subtract (N) from (A)
          59314    71      593     21   0  0              0        593     >NO                                     JUMP IF A != 0
          59315    106     91       3   1  0              0                TESTS CORR SERIAL                       select (N)
          59316    105     704      3   0  0              0        704                                             subtract (N) from (A)
          59317    71      593     21   0  0              0        593     >NO                                     JUMP IF A != 0
          59318    106     91       5   1  0              0                TEST CORR INTERIM                       select (N)
          59319    105     704      4   0  0              0        704                                             subtract (N) from (A)
          59320    127     594      2   0  0              0        594     >YES                                    jump A = Z
    59317>                                                                                                         
    59314>59321    106     91       5   1  0              0                TEST ZERO INTERIM                       select (N)
          59322    70      593     30   0  0              0        593     >YES                                    JUMP IF A == 0
    59312>59323    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          59324    124     715     10   0  2              0        715                         PROG REJ            select literal and division
          59325    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
          59326    124     726     10   0  2              0        726                                             select literal and division
          59327    124     718      2   0  3              0        718                                             modify address of next
          59328    128              6   1  2              0                EDIT REST                               edit fixed field formats
          59329    76      589     21   0  0              0        589     >                                       JUMP unconditional
    59322>59330    101              1   1  3              0                                                        select literal address
          59331    102     703      6   0  0              0        703     SET S11 AT 1                            transfer (A) to N
          59332    106     723      6   1  0              0        723                                             select (N)
          59333    128     704      2   1  0              0        704                                             bulk copy alpha to short
                                                                                                                   
          59400    PROCR   594       594     CD:THIRD BLOCK                                                        
    59320>59402    126     651      2   0  0              0        651     >READ CD                                enter subroutine
          59403    106     723      4   1  0              0        723                                             select (N)
          59404    128     703     13   1  0              0        703     SET SM1 AT 0 OR 1                       bulk copy alpha to short
          59405    126     705      6   1  2              0        705     SET MR2 AT 5/0                          set modification register
    59410>59406    106     703     13   0  2              0        703                                             select (N)
          59407    105     709      3   0  0              0        709                                             subtract (N) from (A)
          59408    70      594     12   0  0              0        594     >                                       JUMP IF A == 0
          59409    125              1   0  2              0                                                        step on and test
          59410    76      594      6   0  0              0        594     >                                       JUMP unconditional
          59411    76      595      2   0  0              0        595                                             JUMP unconditional
    59414>                                                                                                         
    59408>59412    103     703     13   0  2              0        703                                             copy (A) to N
          59413    125              1   0  2              0                                                        step on and test
          59414    76      594     12   0  0              0        594     >                                       JUMP unconditional
                                                                                                                   
          59500    PROCR   595       595     CD:LAST TWO BLOCKS                                                    
  Source image: P1030345.JPG
    59411>59502    80      651      2   0  0              0        651     >READ CD                                ENTER SUBROUTINE
          59503    106     91       0   1  0              0                TEST'TOTAL'                             select (N)
          59504    105     716     38   1  0              0        716                                             subtract (N) from (A)
          59505    127     595     10   0  0              0        595     >YES                                    jump A = Z
          59506    106     91       1   1  0              0                                                        select (N)
          59507    102     703      2   0  0              0        703     SET SC1 & SC2                           transfer (A) to N
          59508    106     91       3   1  0              0                                                        select (N)
          59509    124     595     15   1  0              0        595     >                                       unconditional jump
    59505>59510    101              1   1  3              0                                                        select literal address
          59511    102     703      5   0  0              0        703     SET SC4 AT 1                            transfer (A) to N
          59512    106     91       3   1  0              0                                                        select (N)
          59513    102     703      2   0  0              0        703     SET SC1 & SC2                           transfer (A) to N
          59514    106     91       5   1  0              0                                                        select (N)
    59509>59515    103     703      3   0  0              0        703                                             copy (A) to N
          59516    105     709      3   0  0              0        709                                             subtract (N) from (A)
          59517    127     595     19   0  1              0        595     REMOVE BLOCK END                        jump A != Z
          59518    102     703      3   0  0              0        703                                             transfer (A) to N
    59517>59519    106     703      2   0  0              0        703                                             select (N)
          59520    105     709      3   0  0              0        709                                             subtract (N) from (A)
          59521    71      595     23   0  0              0        595                                             JUMP IF A != 0
          59522    102     703      2   1  0              0        703                                             transfer (A) to N
    59521>59523    80      651      2   0  0              0        651     >READ CD                                ENTER SUBROUTINE
          59524    106     716     23   0  0              0        716                                             select (N)
          59525    102     91       3   0  0              0                                                        transfer (A) to N
          59526    124     725      6   0  2              0        725     SET END INDICATOR                       select literal and division
          59527    128     91       0   0  3              0                                                        unpack variable field data
          59528    80      650      2   0  0              0        650     >SET ROUTE TO MANUAL                    ENTER SUBROUTINE
          59529    106     703      4   1  0              0        703                         SWITCHES SC3 & SC4  select (N)
          59530    127     596      2   0  1              0        596     >DONT UNLOAD        1                   jump A != Z
          59531    126     648      2   0  0              0        648     >UNLOAD TAPE START  0                   enter subroutine
                                                                                                                   
          59600    PROCR   596       596     IC: OPEN FILE                                                         
    59530>59602    106     703      6   0  0              0        703                         SWITCH SI1          select (N)
          59603    127     605      2   0  0              0        605     >DONT UNLOAD IC     0                   jump A = Z
          59604    106     704      5   0  0              0        704     SET UP RT NO        1                   select (N)
          59605    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          59606    106            175   0  1              0                STORE 5 FIGURE DATE                     select (N)
          59607    102     710     15   0  0              0        710                                             transfer (A) to N
    59626>59608    126     652      2   0  0              0        652     >OPEN FILE                              enter subroutine
          59609    106     91       7   1  0              0                SPOOL NO                                select (N)
          59610    102     91    1003   0  0              0                                                        transfer (A) to N
          59611    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          59612    106     91      15   1  0              0                                                        select (N)
          59613    103     710      3   0  0              0        710                                             copy (A) to N
          59614    118           4126   0  0              0                                                        shift logical
          59615    101            128   1  2              0                                                        subtract literal address
          59616    127     596     21   0  1              0        596     >NO                                     jump A != Z
          59617    106     91       6   1  0              0                                                        select (N)
          59618    118           4126   0  0              0                                                        shift logical
          59619    101             81   1  2              0                                                        subtract literal address
          59620    70      596     27   0  0              0        596     >YES                                    JUMP IF A == 0
    59616>59621    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          59622    124     729      2   0  2              0        729                         HDG                 select literal and division
          59623    124     718      2   0  3              0        718                                             modify address of next
          59624    128              2   1  2              0                EDIT COMMENT                            edit fixed field formats
    59714>59625    126     649      2   0  0              0        649     >UNLOAD                                 enter subroutine
          59626    124     596      8   1  0              0        596     >                                       unconditional jump
    59620>59627    80      673      2   0  0              0        673     >LIPHIP                                 ENTER SUBROUTINE
                                                                                                                   
          59700    PROCR   597       597     IC:SEARCH INDEX                                                       
  Source image: P1030346.JPG
    59705>59702    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          59703    106     91       6   1  0              0                                                        select (N)
          59704    105     716     40   1  0              0        716                                             subtract (N) from (A)
          59705    127     597      2   0  1              0        597     >NO                                     jump A != Z
    59725>59706    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          59707    126     705     10   1  2              0        705     SET MR2 AT 48/0                         set modification register
    59724>59708    106     91       5   1  2              0                TEST                                    select (N)
          59709    105     708      2   0  0              0        708                                             subtract (N) from (A)
          59710    127     597     15   0  1              0        597     >NO                                     jump A != Z
    65609>59711    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          59712    124     715     14   0  2              0        715                         TAPE REJ            select literal and division
          59713    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          59714    124     596     25   1  0              0        596     >                                       unconditional jump
    59710>59715    106     91       5   1  2              0                TEST REQPROGM                           select (N)
          59716    105     704      2   0  0              0        704                                             subtract (N) from (A)
          59717    127     597     23   0  1              0        597     >NO                                     jump A != Z
          59718    106     91       7   1  2              0                TEST REQ SERIAL                         select (N)
          59719    105     704      3   0  0              0        704                                             subtract (N) from (A)
          59720    127     597     23   0  1              0        597     >NO                                     jump A != Z
          59721    106     91       9   1  2              0                TEST PASS 3                             select (N)
          59722    127     598      2   0  1              0        598     >YES                                    jump A != Z
    59720>                                                                                                         
    59717>59723    125              8   0  2              0                STEP MR2                                step on and test
          59724    124     597      8   1  0              0        597     >                                       unconditional jump
          59725    124     597      6   1  0              0        597     >END OF BLOCK                           unconditional jump
                                                                                                                   
          59800    PROCR   598       598                                                                           
    59812>                                                                                                         
    59722>59802    126     655      2   0  0              0        655     >READ MT                                enter subroutine
    59817>59803    106     91       5   1  0              0                TEST SENT 5 OR 55                       select (N)
          59804    105     708      2   0  0              0        708                                             subtract (N) from (A)
          59805    127     598     10   0  1              0        598     >NO                                     jump A != Z
          59806    101              1   0  1              0                                                        prepare for digit collation
          59807    115     91       6   0  0              0                                                        collate and add
          59808    101              5   1  2              0                                                        subtract literal address
          59809    127     598     18   0  0              0        598     >YES                                    jump A = Z
    59805>59810    106     91      10   1  0              0                TEST'PASSI'                             select (N)
          59811    105     716     42   1  0              0        716                                             subtract (N) from (A)
          59812    71      598      2   0  0              0        598     >NO                                     JUMP IF A != 0
    59820>                                                                                                         
    59823>59813    80      653      2   0  0              0        653     >RUNONSTEPON                            ENTER SUBROUTINE
          59814    80      654      2   0  0              0        654     >READ MT                                ENTER SUBROUTINE
          59815    106     91       1   1  0              0                SET UP BLOCK NO                         select (N)
          59816    102     566      2   0  0              0        566                                             transfer (A) to N
          59817    76      598      3   0  0              0        598     >                                       JUMP unconditional
    59809>59818    106     91       9   1  0              0                TEST REQ PROGM                          select (N)
          59819    105     704      2   0  0              0        704                                             subtract (N) from (A)
          59820    127     598     13   0  1              0        598     >NO                                     jump A != Z
          59821    106     91      11   1  0              0                TEST REQ SERIAL                         select (N)
          59822    105     704      3   0  0              0        704                                             subtract (N) from (A)
          59823    127     598     13   0  1              0        598     >NO                                     jump A != Z
                                                                                                                   
          59900    PROCR   599       599     IC:LOCATE CHAPTER DETAILS BLOCK                                       
    59908>                                                                                                         
    59911>59902    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          59903    106     91      42   1  0              0                TEST'ALLOC'BLOCK                        select (N)
          59904    105     716     44   1  0              0        716                                             subtract (N) from (A)
          59905    127     600      2   0  0              0        600     >YES                                    jump A = Z
          59906    106     91       5   1  0              0                TEST YE OLDE FASHIONED SENTINEL S1XE    select (N)
          59907    105     708      2   0  0              0        708                                             subtract (N) from (A)
  Source image: P1030347.JPG
          59908    127     599      2   0  1              0        599     >NAY                                    jump A != Z
          59909    106     91       7   1  0              0                                                        select (N)
          59910    101              6   1  2              0                                                        subtract literal address
          59911    127     599      2   0  0              0        599     >NAY                                    jump A = Z
          59912    126     655      2   0  0              0        655     >READ MT                                enter subroutine
                                                                                                                   
          60000    PROCR   600       600     IC:STORE CHAPTER DETAILS                                              
    59905>60002    126     705      4   1  2              0        705     SET MR2 AT 4/0                          set modification register
          60003    106     736     52   0  0              0        736                                             select (N)
          60004    102     712      5   0  0              0        712                                             transfer (A) to N
          60005    102     712      6   0  0              0        712                                             transfer (A) to N
          60006    106     91      25   1  0              0                SET UP CHAP 1 SIZE                      select (N)
          60007    104     712      3   0  0              0        712                                             add (N) to (A)
          60008    102     712      8   0  0              0        712                                             transfer (A) to N
          60009    100     709     16   0  2              0        709                                             replace (B) by (N)
          60010    115     712      8   0  0              0        712                                             collate and add
          60011    101            512   1  1              0                                                        add literal address
          60012    102     566     11   0  0              0        566                                             transfer (A) to N
          60013    106     712      8   0  0              0        712     TEST CHAPT 1 IN DIV 1                   select (N)
          60014    105     736     52   0  0              0        736                                             subtract (N) from (A)
          60015    73      601      2   0  0              0        601     >NO                                     JUMP IF A < 0
          60016    107     712      5   0  0              0        712     ADJUST PARAMETERS                       augment (N) by (A)
          60017    102     712      6   0  0              0        712                                             transfer (A) to N
          60018    106     566     12   0  0              0        566                                             select (N)
          60019    102     566     11   0  0              0        566                                             transfer (A) to N
                                                                                                                   
          60100    PROCR   601       601     IC:LOCATE CHAPTER START                                               
    60105>                                                                                                         
    60108>                                                                                                         
    60413>                                                                                                         
    60015>60102    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          60103    106     91       7   1  0              0                TEST'CHAPT'BLOCK                        select (N)
          60104    101              7   1  2              0                                                        subtract literal address
          60105    127     601      2   0  1              0        601     >NO                                     jump A != Z
          60106    106     91      12   1  0              0                                                        select (N)
          60107    105     716     46   1  0              0        716                                             subtract (N) from (A)
          60108    127     601      2   0  1              0        601     >NO                                     jump A != Z
                                                                                                                   
          60200    PROCR   602       602     IC: STACK INSTRUCTIONS(1)                                             
          60202    106     712      3   0  2              0        712     SET UP CHAPTER START                    select (N)
          60203    102     712      8   0  0              0        712                                             transfer (A) to N
    60411>60204    126     705     10   1  3              0        705     SET MR3 AT 48/0                         set modification register
          60205    126     655      2   0  0              0        655     >READ MT                                enter subroutine
    60410>60206    106     712      8   0  0              0        712                                             select (N)
          60207    101            160   1  2              0                TEST ADDRESS LESS THAN 160              subtract literal address
          60208    127     604      2   0  3              0        604     >YES                                    jump A < Z
          60209    106     565     11   0  0              0        565     TEST                                    select (N)
          60210    101            128   1  2              0                CHANNEL 16?                             subtract literal address
          60211    127     602     17   0  3              0        602     >NO                                     jump A < Z
          60212    106     712      8   0  0              0        712                                             select (N)
          60213    101            192   1  2              0                ASL'S?                                  subtract literal address
          60214    127     602     17   0  3              0        602     >NO                                     jump A < Z
          60215    101              4   1  2              0                                                        subtract literal address
          60216    127     604      2   0  3              0        604     >YES                                    jump A < Z
    60214>                                                                                                         
    60211>60217    106     91       5   1  3              0                                                        select (N)
          60218    105     709      4   0  0              0        709     TEST END OF CHAPTER                     subtract (N) from (A)
          60219    127     604     12   0  0              0        604     >YES                                    jump A = Z
          60220    104     709      5   0  0              0        709     TEST MINUS ZERO                         add (N) to (A)
          60221    127     603      2   0  1              0        603     >NO                                     jump A != Z
  Source image: P1030348.JPG
          60222    106     723      8   1  0              0        723     STACK MINUS ZERO                        select (N)
          60223    124     712      8   0  3              0        712                                             modify address of next
          60224    128              0   1  0              0                                                        bulk copy alpha to short
          60225    124     604      2   1  0              0        604     >                                       unconditional jump
                                                                                                                   
          60300    PROCR   603       603     IC: STACK INSTRUCTIONS (2)                                            
    60221>60302    101              1   0  1              0                STORE Q1 OF PARAMETER                   prepare for digit collation
          60303    125              0   1  2              0                                                        interrogate indicators
          60304    115     91       4   1  3              0                                                        collate and add
          60305    102     91       4   1  3              0                                                        transfer (A) to N
          60306    106     91       7   1  3              0                TEST INSTRUCTION NEGATIVE               select (N)
          60307    127     603     13   0  3              0        603     >YES                                    jump A < Z
          60308    124     566      5   0  3              0        566     ADD PARAMETER                           modify address of next
          60309    124              6   0  1              0                                                        modify address of next
          60310    124     91       4   0  1              0                                                        modify address of next
          60311    104     712      2   0  0              0        712                                             add (N) to (A)
          60312    124     603     17   1  0              0        603     >                                       unconditional jump
    60307>60313    124     566      5   0  3              0        566     SUBTRACT PARAMETER                      modify address of next
          60314    124              6   0  1              0                                                        modify address of next
          60315    124     91       4   0  1              0                                                        modify address of next
          60316    105     712      2   0  0              0        712                                             subtract (N) from (A)
    60312>60317    124     712      8   0  3              0        712                                             modify address of next
          60318    102              0   0  0              0                STACK INSTRUCTION                       transfer (A) to N
                                                                                                                   
          60400    PROCR   604       604     IC: STACK INSTRUCTIONS (3)                                            
    60225>                                                                                                         
    60216>                                                                                                         
    60208>60402    123              1   0  0              0                STEP ADDRESS                            step on and test
          60403    100     712      8   0  0              0        712     TEST MASTER TOO LARGE                   Halt
          60404    76      604      9   0  0              0        604     >NO                                     JUMP unconditional
          60405    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          60406    124     714     26   0  2              0        714                         MTL                 select literal and division
          60407    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
          60408    76      699      6   0  0              0        699     >ABANDON                                JUMP unconditional
    60404>60409    125              4   0  3              0                TEST END OF BLOCK(STEP MR3)             step on and test
          60410    124     602      6   1  0              0        602     >NO                                     unconditional jump
          60411    124     602      4   1  0              0        602     >YES                                    unconditional jump
    60219>60412    125              2   0  2              0                TEST ALL CHAPTERS LOADED(STEP MR2)      step on and test
          60413    124     601      2   1  0              0        601     >NO                                     unconditional jump
          60414    126     649      2   0  0              0        649     >UNLOAD                                 enter subroutine
          60415    106     710     15   0  0              0        710     RESTORE 5 FIGURE DATE                   select (N)
          60416    102            175   0  1              0                                                        transfer (A) to N
          60417    100     709     16   0  2              0        709     SET UP CHAPT 2 SIZE                     replace (B) by (N)
          60418    115     712      8   0  0              0        712                                             collate and add
          60419    101            512   1  1              0                                                        add literal address
          60420    102     566     13   0  0              0        566                                             transfer (A) to N
                                                                                                                   
          60500    PROCR   605       605     COPY: OPEN FILE                                                       
    59603>60502    124     730     16   0  2              0        730     STORE TAPE NOS FOR COMMENT              select literal and division
          60503    128     710     16   1  2              0        710                                             edit fixed field formats
          60504    106     703      2   0  0              0        703                         SWITCH SC1          select (N)
          60505    127     606      2   0  0              0        606     >DON'T COPY         0                   jump A = Z
          60506    106     704      6   0  0              0        704     SET UP RT NO        1                   select (N)
    62123>60507    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          60508    102     703      6   0  0              0        703     SET SI1 AT 0                            transfer (A) to N
    60548>60509    126     652      2   0  0              0        652     >OPEN FILE                              enter subroutine
    60534>                                                                                                         
    60537>                                                                                                         
    60540>60510    106     91       7   1  0              0                                                        select (N)
          60511    70      605     41   0  0              0        605     >REJECT ZERO SPOOL                      JUMP IF A == 0
  Source image: P1030349.JPG
          60512    103     566      7   0  0              0        566                                             copy (A) to N
          60513    105     703      2   0  0              0        703     TEST SPECIFIED TAPE                     subtract (N) from (A)
          60514    70      605     51   0  0              0        605     >YES                                    JUMP IF A == 0
          60515    106     91       7   1  0              0                                                        select (N)
          60516    105     703      3   0  0              0        703                                             subtract (N) from (A)
          60517    70      605     49   0  0              0        605     >YES                                    JUMP IF A == 0
          60518    106     703      2   0  0              0        703                                             select (N)
          60519    104     709     18   0  0              0        709                                             add (N) to (A)
          60520    127     605     24   0  1              0        605                                             jump A != Z
          60521    106     91       7   1  0              0                                                        select (N)
          60522    102     703      2   0  0              0        703                                             transfer (A) to N
          60523    76      605     29   0  0              0        605                                             JUMP unconditional
    60520>60524    106     703      3   0  0              0        703                                             select (N)
          60525    104     709     18   0  0              0        709                                             add (N) to (A)
          60526    127     605     41   0  1              0        605                                             jump A != Z
          60527    106     91       7   1  0              0                                                        select (N)
          60528    102     703      3   0  0              0        703                                             transfer (A) to N
    60523>60529    106     710     17   1  0              0        710                                             select (N)
          60530    105     709     18   0  0              0        709                                             subtract (N) from (A)
          60531    127     605     35   0  1              0        605                                             jump A != Z
          60532    106     91       6   1  0              0                                                        select (N)
          60533    102     710     16   1  0              0        710                                             transfer (A) to N
          60534    76      605     10   0  0              0        605                                             JUMP unconditional
    60531>60535    106     710     19   1  0              0        710                                             select (N)
          60536    105     709     18   0  0              0        709                                             subtract (N) from (A)
          60537    127     605     10   0  1              0        605                                             jump A != Z
          60538    106     91       6   1  0              0                                                        select (N)
          60539    102     710     18   1  0              0        710                                             transfer (A) to N
          60540    76      605     10   0  0              0        605                                             JUMP unconditional
    60526>                                                                                                         
    60511>60541    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          60542    124     715     32   0  2              0        715                         WRONG TAPE          select literal and division
          60543    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          60544    124     730      2   0  2              0        730                                             select literal and division
          60545    124     718      2   0  3              0        718                                             modify address of next
          60546    128              6   1  2              0                EDIT REST                               edit fixed field formats
          60547    126     649      2   0  0              0        649     >UNLOAD                                 enter subroutine
          60548    124     605      9   1  0              0        605                                             unconditional jump
    60517>60549    106     703      2   0  0              0        703                                             select (N)
          60550    102     703      3   0  0              0        703                                             transfer (A) to N
    60514>60551    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          60552    155              0   0  0              0                                                        SELECT PROGRAM SERIAL TO A
          60553    102     91    1000   1  0              0                                                        transfer (A) to N
          60554    124     733      2   0  2              0        733                         LOP                 select literal and division
          60555    124     718      2   0  3              0        718                                             modify address of next
          60556    128              2   1  2              0                EDIT COMMENT                            edit fixed field formats
          60557    80      700      2   0  0              0        700     >COUNT 500MS                            ENTER SUBROUTINE
          60558    124     707      2   0  3              0        707                                             modify address of next
          60559    119              0   1  1              0                REWIND                                  rewind
                                                                                                                   
          60600    PROCR   606       606     MODS: READ&UNPACK                                                     
    60505>60602    106     703     13   0  0              0        703                         SWITCH SM1          select (N)
          60603    127     619      2   0  0              0        619     >DON'T MOD          0                   jump A = Z
          60604    106     565      4   0  0              0        565     SET UP RTE          1                   select (N)
          60605    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          60606    101              1   1  3              0                                                        select literal address
          60607    60               0   0  0              0                                                        SET DECIMAL RADIX
          60608    107     704      4   0  0              0        704     AUGMENT INTERIM                         augment (N) by (A)
          60609    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          60610    126     705      6   1  2              0        705     SET MR2 AT 5/0                          set modification register
    60814>                                                                                                         
    61021>                                                                                                         
  Source image: P1030350.JPG
    61812>60611    125              0   1  2              0                                                        interrogate indicators
          60612    102     703     18   0  0              0        703     SET SM2 AT 0                            transfer (A) to N
          60613    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          60614    125              0   1  0              0                IDS                                     set indicators
    61011>                                                                                                         
    61121>                                                                                                         
    61218>60615    124     707      2   0  3              0        707                                             modify address of next
          60616    119              0   0  1              0                READ                                    input one block/reset timer
          60617    106     722      4   1  0              0        722                                             select (N)
          60618    128     710      2   0  0              0        710                                             bulk copy short numeric
          60619    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          60620    124     610     20   1  0              0        610     >DB                                     unconditional jump
          60621    124     725      4   0  2              0        725                                             select literal and division
          60622    128     91       0   0  3              0                UNPACK                                  unpack variable field data
          60623    106     710      8   1  0              0        710     TEST BLOCK TOO BIG                      select (N)
          60624    100     710     10   1  2              0        710                                             replace (B) by (N)
          60625    127     609      2   1  0              0        609     >NO                                     jump AB = Z
          60626    101             18   1  3              0                YES: MOD REJ G                          select literal address
                                                                                                                   
          60700    PROCR   607       607     MODS: REJECTION THEREOF(1)                                            
    60913>                                                                                                         
    61005>                                                                                                         
    61105>                                                                                                         
    61123>                                                                                                         
    61205>                                                                                                         
    61212>                                                                                                         
    61314>                                                                                                         
    61407>                                                                                                         
    61413>                                                                                                         
    61509>                                                                                                         
    61518>                                                                                                         
    61606>                                                                                                         
    61805>60702    102     714     36   0  0              0        714                                             transfer (A) to N
          60703    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          60704    124     714     34   0  2              0        714                         MOD REJ             select literal and division
          60705    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          60706    126     705      8   1  3              0        705     SET MR3 AT 8/0                          set modification register
    60719>60707    101           1792   0  1              0                                                        prepare for digit collation
    60717>60708    115     91       0   1  3              0                                                        collate and add
          60709    115     716      2   1  0              0        716     TEST FOR BE                             collate and add
          60710    127     608      4   0  0              0        608     >YES                                    jump A = Z
          60711    115     716      6   1  0              0        716     TEST FOR NE                             collate and add
          60712    127     607     15   0  1              0        607     >NO                                     jump A != Z
          60713    106     716      8   1  0              0        716     REPLACE BY/                             select (N)
          60714    114     91       0   1  3              0                                                        replace selected bits
    60712>60715    125              0   1  2              0                TEST END OF WORD                        interrogate indicators
          60716    118           4126   1  0              0                                                        shift logical
          60717    127     607      8   1  1              0        607     >NO                                     jump AB != Z
          60718    125              2   0  3              0                TEST END OF BLOCK                       step on and test
          60719    124     607      7   1  0              0        607     >NO                                     unconditional jump
                                                                                                                   
          60800    PROCR   608       608     MODS: REJECTION THEREOF(2)                                            
          60802    125           4098   0  3              0                                                        step on and test
          60803    124     608      6   1  0              0        608     >                                       unconditional jump
    60710>60804    106     716     10   1  0              0        716     REPLACE BY ?                            select (N)
          60805    114     91       0   1  3              0                                                        replace selected bits
    60803>60806    106     713     10   1  0              0        713     SET UP LES                              select (N)
          60807    102     91       2   1  3              0                                                        transfer (A) to N
  Source image: P1030351.JPG
          60808    106     723     30   1  0              0        723     COPY MOD                                select (N)
          60809    124     718      2   0  3              0        718                                             modify address of next
          60810    128              8   1  1              0                                                        bulk copy long numeric
          60811    80      650      2   0  0              0        650     >SET ROUTE TO MANUAL                    ENTER SUBROUTINE
          60812    106     703     18   0  0              0        703                         SWITCH SM2          select (N)
          60813    73      699      6   0  0              0        699     >ABANDON            2,3                 JUMP IF A < 0
          60814    76      606     11   0  0              0        606     >                   0,1                 JUMP unconditional
                                                                                                                   
          60900    PROCR   609       609     MODS: DETERMINE DIRECTIVE                                             
    60625>60902    106     710      7   0  0              0        710                                             select (N)
          60903    127     612      2   0  0              0        612     >0                                      jump A = Z
          60904    101            152   1  1              0                                                        add literal address
          60905    127     618      2   0  0              0        618     >-98                                    jump A = Z
          60906    101            304   1  2              0                                                        subtract literal address
          60907    127     611      2   0  0              0        611     >98                                     jump A = Z
          60908    101              1   1  2              0                                                        subtract literal address
          60909    127     611      2   0  0              0        611     >99                                     jump A = Z
          60910    101            136   1  1              0                                                        add literal address
          60911    127     610      2   0  0              0        610     >11                                     jump A = Z
          60912    101           5149   1  3              0                                                        select literal address
          60913    124     607      2   1  0              0        607     >MOD REJ D?                             unconditional jump
                                                                                                                   
          61000    PROCR   610       610     MODS: 11 DIRECTIVE                                                    
    60911>61002    106     703     18   0  0              0        703                         SWITCH SM2          select (N)
          61003    127     610      6   0  0              0        610     >                   0                   jump A = Z
          61004    101            257   1  3              0                                    1,2,3               select literal address
          61005    124     607      2   1  0              0        607     >MOD REJ 11                             unconditional jump
    61003>61006    106     710      6   0  0              0        710                                             select (N)
          61007    105     703     13   0  2              0        703     TEST SPECIFIED MOD ID                   subtract (N) from (A)
          61008    127     610     12   0  1              0        610     >NO: WRONG                              jump A != Z
          61009    101              1   1  3              0                                                        select literal address
          61010    102     703     18   0  0              0        703     SET SM2 AT 1                            transfer (A) to N
          61011    124     606     15   1  0              0        606     >NEXT BLOCK                             unconditional jump
    61008>61012    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          61013    124     715     36   0  2              0        715                         WRONG MODS          select literal and division
          61014    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          61015    106     703     13   0  2              0        703                                             select (N)
          61016    102     710      7   0  0              0        710                                             transfer (A) to N
          61017    124     731      2   0  2              0        731                                             select literal and division
          61018    124     718      2   0  3              0        718                                             modify address of next
          61019    128              6   1  2              0                EDIT REST                               edit fixed field formats
    60620>61020    80      650      2   0  0              0        650     >SET ROUTE TO MANUAL                    ENTER SUBROUTINE
          61021    76      606     11   0  0              0        606     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          61100    PROCR   611       611     MODS: 98&99 DIRECTIVES                                                
    60909>                                                                                                         
    60907>61102    106     703     18   0  0              0        703                         SWITCH SM2          select (N)
          61103    127     611      6   0  1              0        611     >                   1,2,3               jump A != Z
          61104    101           5136   1  3              0                                    0                   select literal address
          61105    124     607      2   1  0              0        607     >MOD REJ D-                             unconditional jump
    61103>61106    106     710      6   0  0              0        710     TEST ADDRESS NEGATIVE                   select (N)
          61107    127     611     22   0  3              0        611     >YES: MOD REJ AD                        jump A < Z
          61108    100     566      4   0  3              0        566                                             set radix
          61109    105     710      6   0  0              0        710     TEST ADDRESS IN DECIMAL                 subtract (N) from (A)
          61110    100     566      5   0  3              0        566                                             set radix
          61111    127     611     22   0  1              0        611     >NO: MOD REJ AD                         jump A != Z
          61112    124     711      2   0  2              0        711     CONVERT ADDRESS TO BINARY               select literal and division
          61113    112     710      6   0  0              0        710                                             convert
          61114    103     708      5   0  0              0        708                                             copy (A) to N
          61115    103     708      7   0  0              0        708                                             copy (A) to N
  Source image: P1030352.JPG
          61116    105     566      9   0  0              0        566     TEST ADDRESS IN RANGE                   subtract (N) from (A)
          61117    72      611     22   0  0              0        611     >NO:MOD REJ AD                          JUMP IF A >= 0
          61118    106     710      7   0  0              0        710                                             select (N)
          61119    101            154   1  2              0                                                        subtract literal address
          61120    102     703     18   0  0              0        703     SET SM2 AT 2 OR 3                       transfer (A) to N
          61121    76      606     15   0  0              0        606     >                                       JUMP unconditional
    61117>                                                                                                         
    61111>                                                                                                         
    61107>61122    101           4372   1  3              0                                                        select literal address
          61123    124     607      2   1  0              0        607     >NO: MOD REJ AD                         unconditional jump
                                                                                                                   
          61200    PROCR   612       612     MODS: CONSTANT                                                        
    60903>61202    106     703     18   0  0              0        703                         SWITCH SM2          select (N)
          61203    127     612      6   0  3              0        612                                             jump A < Z
          61204    101             48   1  3              0                                                        select literal address
          61205    124     607      2   1  0              0        607     >MOD REJ 0          0,1                 unconditional jump
    61203>61206    101              1   1  1              0                                                        add literal address
          61207    127     613      2   0  1              0        613     >                   2                   jump A != Z
          61208    106     710      2   1  0              0        710     TEST IF CODED       3                   select (N)
          61209    100     710      4   1  2              0        710     AS CONSTANT                             replace (B) by (N)
          61210    127     612     13   0  0              0        612     >YES                                    jump A = Z
          61211    101             19   1  3              0                                                        select literal address
          61212    124     607      2   1  0              0        607     >NO: MOD REJ C                          unconditional jump
    61210>61213    106     723     10   1  0              0        723                                             select (N)
          61214    124     708      7   0  3              0        708     STACK CONSTANT                          modify address of next
          61215    128              0   0  0              0                                                        bulk copy short numeric
    61710>                                                                                                         
    61718>61216    123              1   0  0              0                STEP ADDRESS                            step on and test
          61217    100     708      7   0  0              0        708                                             Halt
          61218    124     606     15   1  0              0        606     >NEXT BLOCK                             unconditional jump
                                                                                                                   
          61300    PROCR   613       613     MODS: INSTRUCTION(1)                                                  
    61207>61302    106     710      2   0  0              0        710     TEST ACTION NEGATIVE                    select (N)
          61303    127     613     13   0  3              0        613     >YES: MOD REJ A                         jump A < Z
          61304    100     566      4   0  3              0        566                                             set radix
          61305    105     710      2   0  0              0        710     TEST ACTION IN DECIMAL                  subtract (N) from (A)
          61306    100     566      5   0  3              0        566                                             set radix
          61307    127     613     13   0  1              0        613     >NO MOD REJ A                           jump A != Z
          61308    124     711      2   0  2              0        711     CONVERT ACTION TO BINARY                select literal and division
          61309    112     710      2   0  0              0        710                                             convert
          61310    103     710      2   0  0              0        710                                             copy (A) to N
          61311    101             32   1  2              0                TEST ACTION IN RANGE                    subtract literal address
          61312    127     614      2   0  3              0        614     >YES                                    jump A < Z
    61307>                                                                                                         
    61303>61313    101             17   1  3              0                                                        select literal address
          61314    124     607      2   1  0              0        607     >NO MOD REJ A                           unconditional jump
                                                                                                                   
          61400    PROCR   614       614     MODS: INSTRUCTION(2)                                                  
    61312>61402    106     710      3   0  0              0        710     TEST DISCRIMINANT IN RANGE              select (N)
          61403    127     614      8   0  0              0        614     >YES                                    jump A = Z
          61404    101              1   1  2              0                                                        subtract literal address
          61405    127     614      8   0  0              0        614     >YES                                    jump A = Z
          61406    101             20   1  3              0                                                        select literal address
          61407    124     607      2   1  0              0        607     >NO: MOD REJ D                          unconditional jump
    61405>                                                                                                         
    61403>61408    106     710      4   0  0              0        710     TEST MIDIFIER IN RANGE                  select (N)
          61409    127     614     12   0  3              0        614     >NO MOD REJ M                           jump A < Z
          61410    101              4   1  2              0                                                        subtract literal address
          61411    127     615      2   0  3              0        615     >YES                                    jump A < Z
    61409>61412    101             36   1  3              0                                                        select literal address
  Source image: P1030511.JPG
          61413    124     607      2   1  0              0        607     >NO: MOD REJ M                          unconditional jump
                                                                                                                   
          61500    PROCR   615       615     MODS: INSTRUCTION(3)                                                  
    61411>61502    106     710      6   0  0              0        710     TEST ITEM NEGATIVE                      select (N)
          61503    127     615      8   0  3              0        615     >YES: MOD REJ I                         jump A < Z
          61504    60               0   0  0              0                                                        SET DECIMAL RADIX
          61505    105     710      6   0  0              0        710     TEST ADDRESS IN DECIMAL                 subtract (N) from (A)
          61506    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          61507    127     615     10   0  0              0        615     >YES                                    jump A = Z
    61503>61508    101             25   1  3              0                                                        select literal address
          61509    124     607      2   1  0              0        607     >NO: MOD REG I.                         unconditional jump
    61507>61510    124     711      2   0  2              0        711     CONVERT TO BINARY                       select literal and division
          61511    112     710      6   0  0              0        710                                             convert
          61512    102     710      6   0  0              0        710                                             transfer (A) to N
          61513    106     710      5   0  0              0        710     TEST REFERENCE ZERO                     select (N)
          61514    127     616      2   0  0              0        616     >YES                                    jump A = Z
          61515    101              1   1  2              0                TEST REFERENCE ONE                      subtract literal address
          61516    127     615     19   0  0              0        615     >YES                                    jump A = Z
          61517    101             41   1  3              0                                                        select literal address
          61518    124     607      2   1  0              0        607     >NO: MOD REG R                          unconditional jump
    61516>61519    106     708      5   0  0              0        708     AUGMENT ITEM                            select (N)
          61520    107     710      6   0  0              0        710                                             augment (N) by (A)
                                                                                                                   
          61600    PROCR   616       616     MODS: INSTRUCTION(4)                                                  
    61514>61602    106     710      6   0  0              0        710     TEST ITEM IN RANGE                      select (N)
          61603    105     566      9   0  0              0        566                                             subtract (N) from (A)
          61604    127     616      7   0  3              0        616     >YES                                    jump A < Z
          61605    101           6441   1  3              0                                                        select literal address
          61606    124     607      2   1  0              0        607     >NO:REJ IR                              unconditional jump
    61604>61607    106     710      6   0  0              0        710     TEST ITEM IN DIV 1                      select (N)
          61608    105     736     52   0  0              0        736                                             subtract (N) from (A)
          61609    127     616     11   0  3              0        616     >NO                                     jump A < Z
          61610    102     710      6   0  0              0        710                                             transfer (A) to N
    61609>61611    106     710      2   0  0              0        710     FORM INSTRUCTION                        select (N)
          61612    118              1   0  3              0                                                        shift binary
          61613    104     710      3   0  0              0        710                                             add (N) to (A)
          61614    118              2   0  3              0                                                        shift binary
          61615    104     710      4   0  0              0        710                                             add (N) to (A)
          61616    118              1   0  3              0                                                        shift binary
          61617    118              3   0  0              0                                                        shift logical
          61618    104     710      6   0  0              0        710                                             add (N) to (A)
          61619    102     710     14   0  0              0        710                                             transfer (A) to N
                                                                                                                   
          61700    PROCR   617       617     MODS: INSTRUCTION(5)                                                  
          61702    106     710      2   0  0              0        710                                             select (N)
          61703    101             16   1  2              0                TEST MINUS ZERO                         subtract literal address
          61704    127     617     11   0  1              0        617     >NO                                     jump A != Z
          61705    106     710     14   0  0              0        710                                             select (N)
          61706    127     617     12   0  1              0        617     >NO                                     jump A != Z
          61707    106     723      8   1  0              0        723     STACK MINUS ZERO                        select (N)
          61708    124     708      7   0  3              0        708                                             modify address of next
          61709    128              0   1  0              0                                                        bulk copy alpha to short
          61710    76      612     16   0  0              0        612     >NEXT BLOCK                             JUMP unconditional
    61704>61711    73      617     15   0  0              0        617     >POSITIVE INSTRUCTION                   JUMP IF A < 0
    61706>61712    125              0   1  2              0                                                        interrogate indicators
          61713    105     710     14   0  0              0        710     NEGATE INSTRUCTION                      subtract (N) from (A)
          61714    102     710     14   0  0              0        710                                             transfer (A) to N
    61711>61715    106     710     14   0  0              0        710     STACK INSTRUCTION                       select (N)
          61716    124     708      7   0  3              0        708                                             modify address of next
          61717    102              0   0  0              0                                                        transfer (A) to N
  Source image: P1030512.JPG
          61718    124     612     16   1  0              0        612     >NEXT BLOCK                             unconditional jump
                                                                                                                   
          61800    PROCR   618       618     MODS: -98 DIRECTIVE                                                   
    60905>61802    106     703     18   0  0              0        703                         SWITCH SM2          select (N)
          61803    127     618      6   0  1              0        618                         1,2,3               jump A != Z
          61804    101           4112   1  3              0                                    0                   select literal address
          61805    124     607      2   1  0              0        607     >MOD REJ--                              unconditional jump
    61803>61806    125              0   1  2              0                                                        interrogate indicators
          61807    102     703     18   0  0              0        703     SET SM2 AT 0                            transfer (A) to N
          61808    80      650      2   0  0              0        650     >SET ROUTE TO MANUAL                    ENTER SUBROUTINE
          61809    106     703     14   0  2              0        703     TEST ALL MOD SETS READ                  select (N)
          61810    127     618     13   0  0              0        618     >YES                                    jump A = Z
          61811    125              1   0  2              0                                                        step on and test
          61812    124     606     11   1  0              0        606     >NO                                     unconditional jump
    61810>61813    126     675      2   0  0              0        675     >REQ TW                                 enter subroutine
          61814    124     714     40   0  2              0        714                         MODS                select literal and division
          61815    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          61816    124     731     12   0  2              0        731                                             select literal and division
          61817    124     718      2   0  3              0        718                                             modify address of next
          61818    128              4   1  2              0                EDIT REST                               edit fixed field formats
          61819    102     703     13   0  0              0        703     SET SM1 AT 0                            transfer (A) to N
          61820    126     705     14   1  2              0        705                                             set modification register
    61828>61821    124     718      2   0  3              0        718     MINIMISE                                modify address of next
          61822    106              0   1  2              0                LENGTH OF                               select (N)
          61823    71      619      2   0  0              0        619     COMMENT                                 JUMP IF A != 0
          61824    106     715      8   1  0              0        715                                             select (N)
          61825    124     718      2   0  3              0        718                                             modify address of next
          61826    102              0   1  2              0                                                        transfer (A) to N
          61827    125           4098   0  2              0                                                        step on and test
          61828    76      618     21   0  0              0        618                                             JUMP unconditional
                                                                                                                   
          61900    PROCR   619       619     COPY: PIPS                                                            
    61823>                                                                                                         
    60603>61902    106     703      2   0  0              0        703                         SWITCH SC1          select (N)
          61903    70      621     15   0  0              0        621     >DON'T COPY         0                   JUMP IF A == 0
          61904    106     704      6   0  0              0        704     SET UP RT NO        1                   select (N)
          61905    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          61906    126     705      2   1  3              0        705     SET MR3 AT 3/0                          set modification register
    66024>61907    106     722      8   1  0              0        722     CLEAR ANNEXE                            select (N)
          61908    128     91       0   0  0              0                                                        bulk copy short numeric
          61909    106     564      9   0  0              0        564     SET UP MT CH                            select (N)
          61910    70      619     12   0  0              0        619                                             JUMP IF A == 0
          61911    101            128   1  3              0                                                        select literal address
    61910>61912    102     739      5   1  0              0        739                                             transfer (A) to N
          61913    106     723     14   1  0              0        723     COPY PIPS & ISP                         select (N)
          61914    128     91       0   1  1              0                                                        bulk copy long numeric
          61915    106     723     16   1  0              0        723                                             select (N)
          61916    128     91      17   0  1              0                                                        bulk copy short numeric
          61917    106     723     18   1  0              0        723                                             select (N)
          61918    128     91      35   0  1              0                                                        bulk copy short numeric
          61919    106     723     20   1  0              0        723                                             select (N)
          61920    128     91     283   0  1              0                                                        bulk copy short numeric
          61921    106     723     22   1  0              0        723                                             select (N)
          61922    128     91     256   1  1              0                                                        bulk copy long numeric
          61923    106     723     24   1  0              0        723                                             select (N)
          61924    128     91     321   0  1              0                                                        bulk copy short numeric
          61925    106     716     22   1  0              0        716     BE WD                                   select (N)
          61926    103     91    1028   1  0              0                                                        copy (A) to N
          61927    103     91     420   1  0              0                                                        copy (A) to N
          61928    102     91     336   1  0              0                                                        transfer (A) to N
  Source image: P1030513.JPG
          61929    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          61930    125              0   1  0              0                IDB                                     set indicators
          61931    126     659      2   0  0              0        659     >WRITE                                  enter subroutine
          61932    126     659      2   0  0              0        659     >WRITE                                  enter subroutine
                                                                                                                   
          62000    PROCR   620       620     COPY: SIPS                                                            
          62002    106     716     28   1  0              0        716                                             select (N)
          62003    102     566      2   1  0              0        566                                             transfer (A) to N
          62004    124     999      0   0  2              0                COPY SIPS TO ANNEXE                     select literal and division
          62005    104     723     26   1  0              0        723                                             add (N) to (A)
          62006    128     91       5   0  1              0                                                        bulk copy short numeric
          62007    106     737      2   1  0              0        737     BLOCK NO                                select (N)
          62008    103     566      2   1  0              0        566                                             copy (A) to N
          62009    102     91       0   1  0              0                                                        transfer (A) to N
          62010    102     91       2   1  0              0                                                        transfer (A) to N
          62011    126     566     10   1  2              0        566     SET MR2 FOR CHAPT 1                     set modification register
          62012    80      658      2   0  0              0        658     >DUMP STORE                             ENTER SUBROUTINE
          62013    126     566     12   1  2              0        566     SET MR2 FOR CHAPT 2                     set modification register
          62014    80      658      2   0  0              0        658     >DUMP STORE                             ENTER SUBROUTINE
          62015    126     566     14   1  2              0        566     SET MR2 FOR IPS                         set modification register
          62016    80      658      2   0  0              0        658     >DUMP STORE                             ENTER SUBROUTINE
          62017    80      659      2   0  0              0        659     >WRITE                                  ENTER SUBROUTINE
                                                                                                                   
          62100    PROCR   621       621     COPY: SENTINELS                                                       
          62102    125              0   1  2              0                                                        interrogate indicators
          62103    126     663      2   0  0              0        663     >OPEN OUTPUT FILE                       enter subroutine
          62104    106     703      5   0  0              0        703                         SWITCH SC4          select (N)
          62105    71      622      2   0  0              0        622     >WHOLE TAPE         1                   JUMP IF A != 0
          62106    80      667      2   0  0              0        667     >CLOSE OUTPUT FILE  0                   ENTER SUBROUTINE
    66016>62107    106     703      3   0  0              0        703                         SWITCH SC2          select (N)
          62108    127     621     18   0  1              0        621     >ANOTHER TAPE       1                   jump A != Z
    62416>                                                                                                         
    62418>62109    126     675      2   0  0              0        675     >REQ TW             0                   enter subroutine
          62110    124     715     18   0  2              0        715                         TAPES               select literal and division
          62111    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          62112    124     730      6   0  2              0        730                                             select literal and division
          62113    124     718      2   0  3              0        718                                             modify address of next
          62114    128              4   1  2              0                EDIT REST                               edit fixed field formats
    61903>62115    106     565     13   0  0              0        565     TEST MASTER TO BE ENTERED               select (N)
          62116    70      626      2   0  0              0        626     >YES                                    JUMP IF A == 0
          62117    76      641      2   0  0              0        641     >NO                                     JUMP unconditional
    62410>                                                                                                         
    62108>62118    106     703      3   0  0              0        703                                             select (N)
          62119    102     703      2   0  0              0        703                                             transfer (A) to N
          62120    102     703      3   0  0              0        703     SET SC2 AT 0                            transfer (A) to N
          62121    106     704      7   0  0              0        704     SET UP RT NO                            select (N)
          62122    103     704      6   0  0              0        704                                             copy (A) to N
          62123    124     605      7   1  0              0        605     >NEXT TAPE                              unconditional jump
                                                                                                                   
          62200    PROCR   622       622     COPY:TOTAL TAPE(0)                                                    
    62105>62202    106     565     11   0  0              0        565     SET UP RT NO                            select (N)
          62203    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          62204    80      652      2   0  0              0        652     >OPEN IP FILE                           ENTER SUBROUTINE
          62205    106     91       7   1  0              0                SPOOL                                   select (N)
          62206    102     91    1003   0  0              0                                                        transfer (A) to N
          62207    80      655      2   0  0              0        655     >READ MT                                ENTER SUBROUTINE
          62208    106     91      15   1  0              0                PROGM                                   select (N)
          62209    102     710      3   0  0              0        710                                             transfer (A) to N
          62210    80      673      2   0  0              0        673     >LIPHIP                                 ENTER SUBROUTINE
          62211    106     704      6   0  0              0        704     SET UP RT NO                            select (N)
  Source image: P1030514.JPG
          62212    103     703     18   0  0              0        703     SET SM2' AT 1                           copy (A) to N
          62213    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          62214    126     661      2   0  0              0        661     >WRITE MT                               enter subroutine
          62215    106     566      7   0  0              0        566     SPOOL                                   select (N)
          62216    102     91    1003   0  0              0                                                        transfer (A) to N
          62217    106     91      17   1  0              0                AUGMENT ASL                             select (N)
          62218    124     707      2   0  3              0        707                                             modify address of next
          62219    107             64   0  0              0                TEST HIGH                               augment (N) by (A)
          62220    71      622     23   0  0              0        622     >YES                                    JUMP IF A != 0
          62221    106     716     52   1  0              0        716                         LOP                 select (N)
          62222    76      622     24   0  0              0        622                                             JUMP unconditional
    62220>62223    106     716     54   1  0              0        716                         HOP                 select (N)
    62222>62224    80      674      2   0  0              0        674     >HIPHOPLIPLOP                           ENTER SUBROUTINE
                                                                                                                   
          62300    PROCR   623       623     COPY: TOTAL TAPE(1)                                                   
    62309>62302    106     565     11   0  0              0        565     SET UP RT NO                            select (N)
          62303    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          62304    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          62305    106     704      6   0  0              0        704     SET UP RT NO                            select (N)
          62306    80      643      2   0  0              0        643                                             ENTER SUBROUTINE
          62307    126     661      2   0  0              0        661     >WRITE MT                               enter subroutine
          62308    106     703      6   0  0              0        703                         SWITCH SI1          select (N)
          62309    70      623      2   0  0              0        623     >MORE               0                   JUMP IF A == 0
          62310    126     669      2   0  0              0        669     >WRITE END BLOCK    1                   enter subroutine
                                                                                                                   
          62400    PROCR   624       624     COPY: TOTAL TAPE(2)                                                   
    66017>62402    106     703      3   0  0              0        703                         SWITCH SC2          select (N)
          62403    127     624     11   0  0              0        624     >                   0                   jump A = Z
          62404    126     700      2   0  0              0        700     >COUNT 500MS        1                   enter subroutine
          62405    124     565     11   0  3              0        565                                             modify address of next
          62406    119              0   1  1              0                REWIND IP                               rewind
          62407    106     567      6   0  0              0        567                                             select (N)
          62408    124     565     11   0  3              0        565     RESTORE ASL                             modify address of next
          62409    102             64   0  0              0                                                        transfer (A) to N
          62410    124     621     18   1  0              0        621     >                                       unconditional jump
    62403>62411    106     703      4   0  0              0        703                         SWITCH SC3          select (N)
          62412    127     624     17   0  0              0        624     >                   0                   jump A = Z
          62413    126     700      2   0  0              0        700     >COUNT 500MS        1                   enter subroutine
          62414    124     565     11   0  3              0        565                                             modify address of next
          62415    119              0   1  1              0                REWIND IP                               rewind
          62416    76      621      9   0  0              0        621     >                                       JUMP unconditional
    62412>62417    80      648      2   0  0              0        648     >UNLOAD IP                              ENTER SUBROUTINE
          62418    76      621      9   0  0              0        621     >                                       JUMP unconditional
                                                                                                                   
          62500    PROCR   625       625     DATE FROM INDICATORS                                                  
    58709>62502    126     648      2   0  0              0        648     >UNLOAD TAPE START                      enter subroutine
    58711>62503    106     702     10   0  0              0        702                                             select (N)
          62504    103     702      9   0  0              0        702                                             copy (A) to N
          62505    103     702      8   0  0              0        702                                             copy (A) to N
          62506    102     702      7   0  0              0        702                                             transfer (A) to N
    62519>62507    80      694      2   0  0              0        694     >ARRANGE TO TYPE SHORTLY                ENTER SUBROUTINE
    62511>                                                                                                         
    62514>62508    125           2047   1  2              0                TEST DATE STACCKED                      interrogate indicators
          62509    71      625     15   0  0              0        625     >YES                                    JUMP IF A != 0
          62510    80      695      2   0  0              0        695     >TEST TIME TO TYPE                      ENTER SUBROUTINE
          62511    76      625      8   0  0              0        625     >NO                                     JUMP unconditional
          62512    124     713     18   0  2              0        713                         DATE PLEASE         select literal and division
          62513    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
          62514    76      625      8   0  0              0        625     >                                       JUMP unconditional
    62509>62515    118              2   0  0              0                                                        shift logical
  Source image: P1030515.JPG
          62516    104     708      4   0  0              0        708                                             add (N) to (A)
          62517    125           2047   1  1              0                CLEAR I1-11                             clear indicators
          62518    80      689      2   0  0              0        689     >TEST DATE REASONABLE                   ENTER SUBROUTINE
          62519    76      625      7   0  0              0        625     >NO                                     JUMP unconditional
          62520    125            127   1  0              0                SET I1-7                                set indicators
                                                                                                                   
          62600    PROCR   626       626     ISU:COMMENT                                                           
    62116>62602    106     722     16   1  0              0        722     COPY ALLOCATOR                          select (N)
          62603    104            164   0  1              0                PARAMETER TABLE                         add (N) to (A)
          62604    128     91       2   0  0              0                TO ANNEXE                               bulk copy short numeric
          62605    101             16   0  1              0                                                        prepare for digit collation
          62606    115     704      3   0  0              0        704                                             collate and add
          62607    118           4125   0  0              0                                                        shift logical
          62608    71      626     10   0  0              0        626                                             JUMP IF A != 0
          62609    101            768   1  3              0                                                        select literal address
    62608>62610    118              1   0  0              0                                                        shift logical
          62611    102     714      4   0  0              0        714                                             transfer (A) to N
          62612    106     714      2   1  0              0        714                         ISSUE X MASTER      select (N)
          62613    124     91      20   0  3              0                                                        modify address of next
          62614    102           8190   1  1              0                                                        transfer (A) to N
          62615    124     714      4   0  2              0        714                                             select literal and division
          62616    104     722     18   1  0              0        722     (16)                                    add (N) to (A)
          62617    124     91      20   0  3              0                                                        modify address of next
          62618    128              0   1  1              0                COPY COMMENT                            bulk copy long numeric
          62619    124     726     24   0  2              0        726                                             select literal and division
          62620    124     91      20   0  3              0                                                        modify address of next
          62621    128             14   1  2              0                EDIT REST                               edit fixed field formats
                                                                                                                   
          62700    PROCR   627       627     ISU:PREPARE REST OF STORE                                             
          62702    106     565      5   0  0              0        565                                             select (N)
          62703    105     736     52   0  0              0        736                                             subtract (N) from (A)
          62704    102     705     13   0  0              0        705                                             transfer (A) to N
          62705    124     627     10   0  2              0        627                                             select literal and division
          62706    76      680     18   0  0              0        680     >LOG                                    JUMP unconditional
          62707    126     705     12   1  2              0        705                                             set modification register
          62708    124     639      2   0  2              0        639                                             select literal and division
          62709    102             31   0  1              0                                                        transfer (A) to N
          62710    101             14   1  3              0                STACK TAG 14                            select literal address
    62713>62711    123              0   1  2              0                IN DIV 1 COMPT 8190                     copy into tag
          62712    125              2   0  2              0                ONWARDS                                 step on and test
          62713    76      627     11   0  0              0        627                                             JUMP unconditional
          62714    106     565     10   0  0              0        565     SECOND STORE REQUIRED                   select (N)
          62715    70      627     20   0  0              0        627     >NO                                     JUMP IF A == 0
          62716    106     91      33   0  0              0                IS IT IN MASTER                         select (N)
          62717    71      627     20   0  0              0        627     >YES                                    JUMP IF A != 0
          62718    102     565     10   0  0              0        565                                             transfer (A) to N
          62719    124     639     14   1  0              0        639     >WRONG STORE COMMENT                    unconditional jump
    63913>                                                                                                         
    62717>                                                                                                         
    62715>62720    124     699      6   0  2              0        699                                             select literal and division
          62721    102             31   0  1              0                                                        transfer (A) to N
          62722    124     627     27   0  2              0        627                                             select literal and division
          62723    76      680     18   0  0              0        680     >LOG                                    JUMP unconditional
          62724    126     705     12   1  2              0        705                                             set modification register
          62725    125              0   1  2              0                CLEAR DIV 1 COMPT 8190                  interrogate indicators
    62728>62726    102              0   1  2              0                ONWARDS                                 transfer (A) to N
          62727    125              2   0  2              0                                                        step on and test
          62728    76      627     26   0  0              0        627                                             JUMP unconditional
                                                                                                                   
          62800    PROCR   628       628     ISU:PREPARE SECOND STORE                                              
  Source image: P1030516.JPG
          62802    106     565     10   0  0              0        565     TEST SEC0ND STORE                       select (N)
          62803    70      629      2   0  0              0        629     >NO                                     JUMP IF A == 0
          62804    104     705     18   0  0              0        705                                             add (N) to (A)
          62805    102     705     19   0  0              0        705                                             transfer (A) to N
          62806    126     705     18   1  2              0        705                                             set modification register
          62807    124     639     14   0  2              0        639                                             select literal and division
          62808    102             31   0  1              0                                                        transfer (A) to N
          62809    101             14   1  3              0                                                        select literal address
    62812>62810    123              0   1  2              0                STACK TAG 14                            copy into tag
          62811    125              2   0  2              0                IN SECOND STORE                         step on and test
          62812    76      628     10   0  0              0        628                                             JUMP unconditional
          62813    124     699      6   0  2              0        699                                             select literal and division
          62814    102             31   0  1              0                                                        transfer (A) to N
          62815    126     705     18   1  2              0        705                                             set modification register
          62816    125              0   1  2              0                                                        interrogate indicators
    62819>62817    102              0   1  2              0                CLEAR SECOND STORE                      transfer (A) to N
          62818    125              2   0  2              0                                                        step on and test
          62819    76      628     17   0  0              0        628                                             JUMP unconditional
                                                                                                                   
          62900    PROCR   629       629     ISU:SET UP FLOATING POINT                                             
    62803>62902    124     629      7   0  2              0        629                                             select literal and division
          62903    76      680     18   0  0              0        680     >LOG                                    JUMP unconditional
          62904    106     722      4   1  0              0        722                                             select (N)
          62905    124     566      5   0  3              0        566                                             modify address of next
          62906    128            128   0  0              0                                                        bulk copy short numeric
          62907    106     716     25   0  0              0        716                                             select (N)
          62908    102            135   0  1              0                                                        transfer (A) to N
          62909    106     709     15   0  0              0        709                                             select (N)
          62910    102            137   0  1              0                                                        transfer (A) to N
          62911    106     565     12   0  0              0        565     TEST 326                                select (N)
          62912    71      630      2   0  0              0        630     >NO                                     JUMP IF A != 0
          62913    106     716     26   1  0              0        716                                             select (N)
          62914    102            134   1  1              0                                                        transfer (A) to N
                                                                                                                   
          63000    PROCR   630       630     ISU:CHANNEL 0-7 ASLS                                                  
    62912>63002    106     722     14   1  0              0        722                                             select (N)
          63003    104            162   0  1              0                COPY ASLS FROM CH 0-7                   add (N) to (A)
          63004    124     566      5   0  3              0        566                                             modify address of next
          63005    128             64   0  0              0                                                        bulk copy short numeric
          63006    106     702      2   0  0              0        702     RESET TW ASL                            select (N)
          63007    124     565      2   0  3              0        565                                             modify address of next
          63008    102             64   0  0              0                                                        transfer (A) to N
                                                                                                                   
          63100    PROCR   631       631     ISU:CHANNEL 16&17 ASLS                                                
          63102    106     565     11   0  0              0        565                                             select (N)
          63103    101            128   1  2              0                TEST FAST CHANNEL                       subtract literal address
          63104    72      631      7   0  0              0        631     >YES                                    JUMP IF A >= 0
          63105    125              0   1  2              0                                                        interrogate indicators
          63106    76      631     12   0  0              0        631     >NO                                     JUMP unconditional
    63104>63107    106     722     12   1  0              0        722                                             select (N)
          63108    104            162   0  1              0                COPY ASLS FOR CH 16-17                  add (N) to (A)
          63109    124     566      5   0  3              0        566                                             modify address of next
          63110    128            192   0  0              0                                                        bulk copy short numeric
          63111    101             64   1  2              0                                                        subtract literal address
    63106>63112    102     91      34   0  0              0                APT:FAST CHS                            transfer (A) to N
          63113    106     709     19   0  0              0        709                         SWITCH SX1          select (N)
          63114    71      632      2   0  0              0        632                         1                   JUMP IF A != 0
          63115    106     565      6   0  0              0        565     STORE CLOCK IND     0                   select (N)
          63116    102     91      27   0  0              0                IN APT                                  transfer (A) to N
                                                                                                                   
  Source image: P1030517.JPG
          63200    PROCR   632       632     ISU:PRINTER DETAILS                                                   
    63114>63202    101              0   1  3              0                                                        select literal address
          63203    102              4   1  1              0                CLEAR MR2                               transfer (A) to N
          63204    101              1   0  1              0                                                        prepare for digit collation
    63213>63205    124     566      5   0  3              0        566                                             modify address of next
          63206    115             64   0  2              0                                                        collate and add
          63207    101              4   1  2              0                TEST ROUTE TYPE 4                       subtract literal address
          63208    70      632     14   0  0              0        632     >YES                                    JUMP IF A == 0
          63209    101              5   1  2              0                TEST ROUTE TYPE 9                       subtract literal address
          63210    70      632     14   0  0              0        632     >YES                                    JUMP IF A == 0
          63211    125              1   0  2              0                STEP MR2                                step on and test
          63212    125              0   1  2              0                                                        interrogate indicators
          63213    76      632      5   0  0              0        632     >                                       JUMP unconditional
    63210>                                                                                                         
    63208>63214    124     566      5   0  3              0        566                                             modify address of next
          63215    115             64   0  2              0                                                        collate and add
          63216    118              4   0  0              0                                                        shift logical
          63217    104              4   0  1              0                                                        add (N) to (A)
          63218    101             19   0  1              0                                                        prepare for digit collation
          63219    114            153   0  1              0                SET UP PR RT&TYPE IN(153)               replace selected bits
                                                                                                                   
          63300    PROCR   633       633     ISU:ALLOCATION CHANNEL                                                
          63302    106     565     11   0  0              0        565                                             select (N)
          63303    102     91      26   0  0              0                APT:ALLOC CHAPT                         transfer (A) to N
          63304    101            255   1  3              0                SET PTS/STORE DUMP ASL AT'££'           select literal address
          63305    124     565     11   0  3              0        565                                             modify address of next
          63306    102             71   0  0              0                                                        transfer (A) to N
                                                                                                                   
          63400    PROCR   634       634     ISU:CD RTS                                                            
          63402    100     709     17   0  2              0        709                                             replace (B) by (N)
          63403    115     565      3   0  0              0        565                                             collate and add
          63404    103     710     13   0  0              0        710                                             copy (A) to N
          63405    103            188   0  1              0                8*CH                                    copy (A) to N
          63406    101              4   1  1              0                                                        add literal address
          63407    102            189   0  1              0                (8*CH)+4                                transfer (A) to N
          63408    106     565      3   0  0              0        565     STORE MIN CD RT                         select (N)
          63409    102            186   0  1              0                                                        transfer (A) to N
          63410    101              1   0  1              0                                                        prepare for digit collation
          63411    124     710     13   0  3              0        710                                             modify address of next
          63412    115             70   0  0              0                                                        collate and add
          63413    101              6   1  2              0                                                        subtract literal address
          63414    70      634     17   0  0              0        634                                             JUMP IF A == 0
          63415    101              3   1  3              0                                                        select literal address
          63416    76      634     18   0  0              0        634                                             JUMP unconditional
    63414>63417    101              6   1  3              0                                                        select literal address
    63416>63418    104     710     13   0  0              0        710                                             add (N) to (A)
          63419    102            187   0  1              0                MAX RT                                  transfer (A) to N
                                                                                                                   
          63500    PROCR   635       635     ISU: STORE                                                            
          63502    106     91      32   0  0              0                                                        select (N)
          63503    103              6   0  1              0                FORM FIRST                              copy (A) to N
          63504    101             20   1  1              0                STORE TABLE                             add literal address
          63505    80      640      2   0  0              0        640     >                                       ENTER SUBROUTINE
          63506    106     565     10   0  0              0        565     TEST SECOND STORE                       select (N)
          63507    71      636      2   0  0              0        636     >YES                                    JUMP IF A != 0
          63508    102     91      33   0  0              0                APT:SECOND STORE                        transfer (A) to N
          63509    76      637      2   0  0              0        637     >NO                                     JUMP unconditional
                                                                                                                   
          63600    PROCR   636       636     ISU:SECOND STORE                                                      
    63507>63602    124     91      33   0  3              0                                                        modify address of next
  Source image: P1030518.JPG
          63603    106              0   0  0              0                                                        select (N)
          63604    104     565     10   0  0              0        565                                             add (N) to (A)
          63605    102     565      5   0  0              0        565                                             transfer (A) to N
          63606    106     91      33   0  0              0                                                        select (N)
          63607    103              6   0  1              0                FORM SECOND                             copy (A) to N
          63608    101             12   1  1              0                STORE TABLE                             add literal address
          63609    80      640      2   0  0              0        640     >                                       ENTER SUBROUTINE
                                                                                                                   
          63700    PROCR   637       637     ISU:FINISH TYPING                                                     
    63509>63702    124     91       2   0  2              0                COPY ALLOCATOR                          select literal and division
          63703    104     722     16   1  0              0        722     PARAMETER TABLE                         add (N) to (A)
          63704    124     91       5   0  3              0                BACK TO WHERE                           modify address of next
          63705    128              0   0  0              0                IT BELONGS                              bulk copy short numeric
          63706    101              1   1  3              0                SET SL4=1                               select literal address
          63707    102     703     12   0  0              0        703                                             transfer (A) to N
          63708    80      680      2   0  0              0        680     >LOG                                    ENTER SUBROUTINE
                                                                                                                   
          63800    PROCR   638       638     ISU:ENTER MASTER                                                      
    68109>63802    106            160   0  1              0                                                        select (N)
          63803    102     639      2   0  0              0        639                                             transfer (A) to N
          63804    102              0   0  1              0                                                        transfer (A) to N
          63805    102            160   0  1              0                                                        transfer (A) to N
          63806    102            162   0  1              0                                                        transfer (A) to N
          63807    102            164   0  1              0                CLEAR WLS                               transfer (A) to N
          63808    106     722      6   1  0              0        722                                             select (N)
          63809    124     999      0   0  3              0                                                        modify address of next
          63810    128              4   0  0              0                CLEAR 4-63                              bulk copy short numeric
          63811    106     702      4   0  0              0        702     SET UP(9)                               select (N)
          63812    102              9   0  1              0                                                        transfer (A) to N
          63813    106     704      3   0  0              0        704     STORE MASTER                            select (N)
          63814    102            181   0  1              0                SERIAL NUMBER                           transfer (A) to N
          63815    106     704      4   0  0              0        704     AND                                     select (N)
          63816    102            182   0  1              0                MOD NUMBER                              transfer (A) to N
          63817    106     565      2   0  0              0        565                                             select (N)
          63818    103            190   0  1              0                TW RT                                   copy (A) to N
          63819    125           4095   1  2              0                                                        interrogate indicators
          63820    101            127   1  2              0                                                        subtract literal address
          63821    125           4095   1  1              0                CLEAR I1-11                             clear indicators
                                                                                                                   
          63900    PROCR   639       639     ISU: ADJUST STORE SIZE                                                
          63902    80      568      2   0  0              0        568     >SET KEY 14                             ENTER SUBROUTINE
          63903    101              8   0  1              0                                                        prepare for digit collation
          63904    106              4   0  1              0                                                        select (N)
          63905    114     705     13   0  0              0        705                                             replace selected bits
          63906    104     736     52   0  0              0        736                                             add (N) to (A)
          63907    114            153   0  1              0                                                        replace selected bits
          63908    114     565      5   0  0              0        565                                             replace selected bits
    63917>63909    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          63910    124     715     40   0  2              0        715                         WRONG STORE         select literal and division
          63911    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
          63912    102     565     10   0  0              0        565                                             transfer (A) to N
          63913    76      627     20   0  0              0        627                                             JUMP unconditional
    62719>63914    80      568      2   0  0              0        568     >SET KEY 15                             ENTER SUBROUTINE
          63915    101              4   0  1              0                CANCEL SECOND STORE                     prepare for digit collation
          63916    114            153   0  1              0                                                        replace selected bits
          63917    76      639      9   0  0              0        639                                             JUMP unconditional
                                                                                                                   
          64000    PROCR   640       640     ISU:FORM STORE TABLE SR                                               
          64002    81      640      2   0  0              0        640                                             START OF SUBROUTINE
          64003    102              7   0  1              0                                                        transfer (A) to N
  Source image: P1030519.JPG
    64009>64004    124     999      0   0  3              0                                                        modify address of next
          64005    106              0   0  3              0                                                        select (N)
          64006    105     565      5   0  0              0        565                                             subtract (N) from (A)
          64007    70      640     11   0  0              0        640                                             JUMP IF A == 0
          64008    125              2   0  3              0                                                        step on and test
          64009    76      640      4   0  0              0        640                                             JUMP unconditional
          64010    76      640     16   0  0              0        640                                             JUMP unconditional
    64007>64011    106     708      2   1  0              0        708                                             select (N)
    64015>64012    124     999      0   0  3              0                                                        modify address of next
          64013    103              0   1  3              0                                                        copy (A) to N
          64014    125              2   0  3              0                                                        step on and test
          64015    76      640     12   0  0              0        640                                             JUMP unconditional
    64010>64016    82      640      2   0  0              0        640                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          64100    PROCR   641       641     DON'T ENTER MASTER                                                    
    62117>64102    80      675      2   0  0              0        675     >REG TW                                 ENTER SUBROUTINE
          64103    124     726     24   0  2              0        726                         END                 select literal and division
          64104    124     718      2   0  3              0        718                                             modify address of next
          64105    128              4   1  2              0                                                        edit fixed field formats
          64106    106     716     56   1  0              0        716                                             select (N)
          64107    124     718      2   0  3              0        718                                             modify address of next
          64108    102              2   1  0              0                                                        transfer (A) to N
          64109    125              0   1  2              0                CLEAR SOME SWITCHES                     interrogate indicators
          64110    102     703      4   1  0              0        703                                             transfer (A) to N
          64111    102     703      6   0  0              0        703                                             transfer (A) to N
          64112    102     703     18   0  0              0        703                                             transfer (A) to N
          64113    102     703     21   0  0              0        703                                             transfer (A) to N
          64114    76      585      2   0  0              0        585     >ALARM 77                               JUMP unconditional
                                                                                                                   
          64200    PROCR   642       642     REMOVE NES&BES SR                                                     
          64202    81      642      2   0  0              0        642                                             START OF SUBROUTINE
          64203    125              0   1  2              0                                                        interrogate indicators
          64204    101           1792   0  1              0                                                        prepare for digit collation
    64216>64205    115     91       0   1  0              0                                                        collate and add
          64206    115     716      2   1  0              0        716     TST FOR BE                              collate and add
          64207    71      642     10   0  0              0        642     >NO                                     JUMP IF A != 0
          64208    106     716     10   1  0              0        716     REPLACE BABY?                           select (N)
          64209    76      642     13   0  0              0        642                                             JUMP unconditional
    64207>64210    115     716      6   1  0              0        716     TEST FOR NE                             collate and add
          64211    71      642     14   0  0              0        642     >NO                                     JUMP IF A != 0
          64212    106     716      8   1  0              0        716     REPLACE BY,                             select (N)
    64209>64213    114     91       0   1  0              0                                                        replace selected bits
    64211>64214    125              0   1  2              0                TEST END OF WORD                        interrogate indicators
          64215    118           4126   1  0              0                                                        shift logical
          64216    75      642      5   0  0              0        642     >NO                                     JUMP IF AB != 0
          64217    80      675      2   0  0              0        675     >REG TW                                 ENTER SUBROUTINE
          64218    82      642      2   0  0              0        642                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          64300    PROCR   643       643     CONVER ROUTE NO BIN>OCT SR                                            
          64302    100              0   0  0              0                                                        Halt
          64303    103     707      2   0  0              0        707     STORE RT NO                             copy (A) to N
          64304    118           4127   1  0              0                                                        shift logical
          64305    118              1   1  3              0                                                        shift binary
          64306    118              1   0  3              0                                                        shift binary
          64307    118              3   1  3              0                                                        shift binary
          64308    103     707      3   0  0              0        707                                             copy (A) to N
          64309    101            256   1  2              0                HIGH DENSITY?                           subtract literal address
          64310    127     643     13   0  3              0        643     >NO                                     jump A < Z
          64311    101            352   1  1              0                                                        add literal address
          64312    102     707      3   0  0              0        707                                             transfer (A) to N
  Source image: P1030520.JPG
    64310>64313    126     643      2   0  1              0        643                                             leave subroutine
                                                                                                                   
          64400    PROCR   644       644     TEST ROUTE SR                                                         
          64402    100              0   0  0              0                                                        Halt
          64403    106     707      2   0  0              0        707                                             select (N)
          64404    101              3   0  1              0                                                        prepare for digit collation
          64405    114     644      7   0  0              0        644                                             replace selected bits
          64406    126     693      2   0  0              0        693     >ARRANGE TO TYPE                        enter subroutine
    64503>64407    126              0   1  0              0                                    TEST ROUTE          test route N1
          64408    124     645      2   1  0              0        645     >                   C                   unconditional jump
    64507>64409    126     681      2   0  0              0        681     >LOG                E                   enter subroutine
          64410    124     646      2   1  0              0        646     >                   D                   unconditional jump
          64411    124     647      2   1  0              0        647     >                   W                   unconditional jump
    64706>64412    124     644      2   0  3              0        644                         A                   modify address of next
          64413    124              1   1  0              0                >                                       unconditional jump
                                                                                                                   
          64500    PROCR   645       645     ROUTE CLOSED                                                          
    64408>64502    126     695      2   0  0              0        695     >TEST TIME TO TYPE                      enter subroutine
          64503    124     644      7   1  0              0        644     >NO                                     unconditional jump
          64504    124     727      2   0  2              0        727                         RC                  select literal and division
          64505    124     718      2   0  3              0        718                                             modify address of next
          64506    128              2   1  2              0                                                        edit fixed field formats
          64507    124     644      9   1  0              0        644     >                                       unconditional jump
                                                                                                                   
          64600    PROCR   646       646     DOUBTFUL BLOCK                                                        
    64410>64602    106     91       0   1  0              0                TEST PURE FBMW                          select (N)
          64603    104     716      4   1  0              0        716                                             add (N) to (A)
          64604    70      646      9   0  0              0        646     >YES                                    JUMP IF A == 0
          64605    80      642      2   0  0              0        642     >REMOVE NES&BES                         ENTER SUBROUTINE
          64606    124     727      8   0  2              0        727                         DB                  select literal and division
          64607    124     718      2   0  3              0        718                                             modify address of next
          64608    128              2   1  2              0                                                        edit fixed field formats
    64604>64609    126     644      2   0  1              0        644     >                                       leave subroutine
                                                                                                                   
          64700    PROCR   647       647     WARNING OF END                                                        
    64411>64702    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          64703    124     727     18   0  2              0        727                         WE                  select literal and division
          64704    124     718      2   0  3              0        718                                             modify address of next
          64705    128              2   1  2              0                                                        edit fixed field formats
          64706    124     644     12   1  0              0        644     >                                       unconditional jump
                                                                                                                   
          64800    PROCR   648       648     UNLOAD TAPE START TAPE SR                                             
          64802    100              0   0  0              0                                                        Halt
    64806>64803    124     565     11   0  3              0        565     TEST ROUTE                              modify address of next
          64804    126              0   1  0              0                                                        test route N1
          64805    124     648     12   1  0              0        648     C >DON'T UNLOAD                         unconditional jump
          64806    124     648      3   1  0              0        648     E                                       unconditional jump
          64807    124     648      9   1  0              0        648     D                                       unconditional jump
          64808    124     648      9   1  0              0        648     W                                       unconditional jump
    64808>                                                                                                         
    64807>64809    126     700      2   0  0              0        700     A COUNT 500 MS                          enter subroutine
          64810    124     565     11   0  3              0        565     UNLOAD                                  modify address of next
          64811    119              0   1  2              0                                                        unload
    64805>64812    126     648      2   0  1              0        648                                             leave subroutine
                                                                                                                   
          64900    PROCR   649       649     UNLOAD SR                                                             
          64902    100              0   0  0              0                                                        Halt
          64903    126     700      2   0  0              0        700     >COUNT 500 MS                           enter subroutine
          64904    124     707      2   0  3              0        707                                             modify address of next
          64905    119              0   1  2              0                UNLOAD                                  unload
  Source image: P1030521.JPG
          64906    126     649      2   0  1              0        649                                             leave subroutine
                                                                                                                   
          65000    PROCR   650       650     SET ROUTE TO MANUAL SR                                                
          65002    81      650      2   0  0              0        650                                             START OF SUBROUTINE
          65003    124     707      2   0  3              0        707                                             modify address of next
          65004    119              0   1  3              0                SET ROUTE TO MANUAL                     step on/set manual
          65005    82      650      2   0  0              0        650                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          65100    PROCR   651       651     READ CD SR                                                            
          65102    100              0   0  0              0                                                        Halt
          65103    124     565      3   0  3              0        565                                             modify address of next
          65104    119              0   0  1              0                READ                                    input one block/reset timer
          65105    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          65106    124     589     21   1  0              0        589     >DB                                     unconditional jump
          65107    126     651      2   0  1              0        651                                             leave subroutine
                                                                                                                   
          65200    PROCR   652       652     OPEN FILE SR                                                          
          65202    100              0   0  0              0                                                        Halt
          65203    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          65204    125              0   1  0              0                IDB                                     set indicators
          65205    126     653      2   0  0              0        653     >RUNONSTEPON                            enter subroutine
          65206    101              5   1  3              0                                                        select literal address
          65207    102     566      2   0  0              0        566     SET BLOCK COUNTER=5                     transfer (A) to N
          65208    126     655      2   0  0              0        655     >READ MT                                enter subroutine
          65209    126     652      2   0  1              0        652                                             leave subroutine
                                                                                                                   
          65300    PROCR   653       653     RUNONSTEPON SR                                                        
          65302    100              0   0  0              0                                                        Halt
          65303    124     707      2   0  3              0        707                                             modify address of next
          65304    119              0   0  3              0                RUN ON                                  run forward
          65305    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          65306    125              0   1  0              0                IDB                                     set indicators
          65307    126     672      2   0  0              0        672     >STEP ON                                enter subroutine
          65308    126     653      2   0  1              0        653                                             leave subroutine
                                                                                                                   
          65400    PROCR   654       654     READ MT SANS AF SR                                                    
          65402    81      654      2   0  0              0        654                                             START OF SUBROUTINE
          65403    125              0   1  2              0                                                        interrogate indicators
          65404    102     706     10   0  0              0        706     SET MR AT 10/0                          transfer (A) to N
    65412>                                                                                                         
    65632>65405    124     707      2   0  3              0        707                                             modify address of next
          65406    119              0   0  1              0                READ                                    input one block/reset timer
          65407    80      644      2   0  0              0        644     >TEST ROUTE                             ENTER SUBROUTINE
          65408    76      654     11   0  0              0        654     >D/B                                    JUMP unconditional
          65409    124     566      5   1  1              0        566     MG0                                     set modification group
          65410    82      654      2   0  0              0        654     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    65408>65411    80      657      2   0  0              0        657     >TEST FOR FBM                           ENTER SUBROUTINE
          65412    76      654      5   0  0              0        654     >YES                                    JUMP unconditional
          65413    123              1   0  0              0                                                        step on and test
          65414    100     706     10   0  0              0        706                                             Halt
          65415    76      656     31   0  0              0        656     >                                       JUMP unconditional
          65416    76      699      6   0  0              0        699     >ABANDON                                JUMP unconditional
                                                                                                                   
          65500    PROCR   655       655     READ MT AVEC AF SR                                                    
          65502    81      655      2   0  0              0        655                                             START OF SUBROUTINE
          65503    125              0   1  2              0                                                        interrogate indicators
          65504    102     703     19   0  0              0        703     SET SR1 AT 0                            transfer (A) to N
          65505    102     706     12   0  0              0        706     SET MR AT 100/0                         transfer (A) to N
          65506    60               0   0  0              0                                                        SET DECIMAL RADIX
          65507    101              1   1  3              0                STEP BLOCK COUNTER                      select literal address
  Source image: P1030522.JPG
          65508    107     566      2   0  0              0        566                                             augment (N) by (A)
          65509    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    65520>                                                                                                         
    65603>                                                                                                         
    65624>65510    80      654      2   0  0              0        654     >READ                                   ENTER SUBROUTINE
          65511    60               0   0  0              0                DECIMAL                                 SET DECIMAL RADIX
          65512    106     91       1   1  0              0                TEST CORRECT BLOCK                      select (N)
    65612>65513    105     566      2   0  0              0        566                                             subtract (N) from (A)
          65514    62               0   0  0              0                BINARY                                  SET EXCESS CONSTANTS
          65515    71      655     17   0  0              0        655     >NO                                     JUMP IF A != 0
          65516    82      655      2   0  0              0        655     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    65515>65517    60               0   0  0              0                DECIMAL                                 SET DECIMAL RADIX
          65518    101              1   1  1              0                                    TEST REWRITTEN BLOCKadd literal address
          65519    62               0   0  0              0                BINARY                                  SET EXCESS CONSTANTS
          65520    70      655     10   0  0              0        655                                             JUMP IF A == 0
                                                                                                                   
          65600    PROCR   656       656     READ MT SR(AF)                                                        
          65602    126     657      2   0  0              0        657     >TEST FOR FBW                           enter subroutine
          65603    124     655     10   1  0              0        655     >YES                                    unconditional jump
          65604    106     91       1   1  0              0                                                        select (N)
          65605    105     717     13   1  0              0        717     TEST SENTINEL 2 OR 3                    subtract (N) from (A)
          65606    118           4126   0  0              0                                                        shift logical
          65607    71      656     13   0  0              0        656     >NO                                     JUMP IF A != 0
          65608    106     703      6   0  0              0        703                         SWITCH SI1          select (N)
          65609    71      597     11   0  0              0        597     >TAPE REJ           1                   JUMP IF A != 0
          65610    106     91       5   1  0              0                                                        select (N)
          65611    103     703      6   0  0              0        703     SET SI1 AT 1                            copy (A) to N
          65612    76      655     13   0  0              0        655     >                                       JUMP unconditional
    65607>65613    80      699      2   0  0              0        699                                             ENTER SUBROUTINE
          65614    106     703     19   0  0              0        703                         SWITCH SRI          select (N)
          65615    127     656     22   0  1              0        656                         1                   jump A != Z
          65616    101              1   1  3              0                                    0                   select literal address
          65617    102     703     19   0  0              0        703     SET SRI AT 1                            transfer (A) to N
          65618    80      642      2   0  0              0        642     >REMOVE NES & BES                       ENTER SUBROUTINE
          65619    124     729     10   0  2              0        729                         SER                 select literal and division
          65620    124     718      2   0  3              0        718                                             modify address of next
          65621    128              2   1  2              0                                                        edit fixed field formats
    65615>65622    106     91       1   1  0              0                TEST EXP>ACT                            select (N)
          65623    105     566      2   0  0              0        566                                             subtract (N) from (A)
          65624    73      655     10   0  0              0        655     >YES                                    JUMP IF A < 0
          65625    80      700      2   0  0              0        700     >COUNT SOOMS                            ENTER SUBROUTINE
          65626    80      671      2   0  0              0        671     >STEP BACK                              ENTER SUBROUTINE
          65627    80      699      2   0  0              0        699                                             ENTER SUBROUTINE
          65628    80      671      2   0  0              0        671     >STEP BACK                              ENTER SUBROUTINE
          65629    80      699      2   0  0              0        699                                             ENTER SUBROUTINE
          65630    80      671      2   0  0              0        671     >STEP BACK                              ENTER SUBROUTINE
    65415>65631    80      670      2   0  0              0        670     >STEP BACK 3 ON 2                       ENTER SUBROUTINE
          65632    76      654      5   0  0              0        654     >                                       JUMP unconditional
                                                                                                                   
          65700    PROCR   657       657     TEST FOR FBM SR                                                       
          65702    100              0   0  0              0                                                        Halt
          65703    101           1792   0  1              0                                                        prepare for digit collation
    65710>65704    125              0   1  2              0                                                        interrogate indicators
          65705    115     91       0   1  0              0                TEST SQUARE                             collate and add
          65706    115     716      4   1  0              0        716                                             collate and add
          65707    127     657     13   0  0              0        657     >YES                                    jump A = Z
          65708    125              0   1  2              0                                                        interrogate indicators
          65709    118           4126   1  0              0                                                        shift logical
          65710    75      657      4   0  0              0        657     >NEXT CHA                               JUMP IF AB != 0
          65711    124     657      2   0  3              0        657                                             modify address of next
  Source image: P1030523.JPG
          65712    124              1   1  0              0                >NO                                     unconditional jump
    65707>65713    126     657      2   0  1              0        657     >YES                                    leave subroutine
                                                                                                                   
          65800    PROCR   658       658     DUMP STORE SR                                                         
          65802    81      658      2   0  0              0        658                                             START OF SUBROUTINE
    65810>65803    80      659      2   0  0              0        659     >WRITE                                  ENTER SUBROUTINE
          65804    106     566      2   1  0              0        566     BLOCK NO                                select (N)
          65805    102     91       0   1  0              0                                                        transfer (A) to N
          65806    106              4   0  1              0                COPY STORE TO ANNEXE                    select (N)
          65807    104     723     26   1  0              0        723                                             add (N) to (A)
          65808    128     91       5   0  1              0                                                        bulk copy short numeric
          65809    125            512   0  2              0                TEST END                                step on and test
          65810    76      658      3   0  0              0        658     >NO                                     JUMP unconditional
          65811    82      658      2   0  0              0        658     >YES                                    END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          65900    PROCR   659       659     WRITE STORE DUMP SR                                                   
          65902    100              0   0  0              0                                                        Halt
          65903    124     707      2   0  3              0        707     WRITE                                   modify address of next
          65904    119              0   0  0              0                                                        output
          65905    80      569      2   0  0              0        569     >STEP BLOCK COUNTER                     ENTER SUBROUTINE
          65906    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          65907    124     660      2   1  0              0        660     >DB                                     unconditional jump
          65908    126     659      2   0  1              0        659                                             leave subroutine
                                                                                                                   
          66000    PROCR   660       660     WRITE STORE DUMP SR(DB)                                               
    65907>66002    125              1   0  3              0                TEST THIRD ATTEMPT                      step on and test
          66003    124     660     18   1  0              0        660     >NO                                     unconditional jump
          66004    106     710     17   1  0              0        710                                             select (N)
          66005    105     566      7   0  0              0        566     REPLACE SPOOL NO                        subtract (N) from (A)
          66006    127     660     10   0  1              0        660     BY ?????                                jump A != Z
          66007    106     716     10   1  0              0        716                                             select (N)
          66008    102     710     16   1  0              0        710                                             transfer (A) to N
          66009    124     660     12   1  0              0        660                                             unconditional jump
    66006>66010    106     716     10   1  0              0        716                                             select (N)
          66011    102     710     18   1  0              0        710                                             transfer (A) to N
    66009>66012    101              2   1  3              0                                                        select literal address
          66013    80      663      2   0  0              0        663     >OPEN FILE                              ENTER SUBROUTINE
          66014    80      667      2   0  0              0        667     >CLOSE OP FILE                          ENTER SUBROUTINE
          66015    106     703      5   0  0              0        703                         SWITCH SC4          select (N)
          66016    127     621      7   0  0              0        621     >                   0                   jump A = Z
          66017    124     624      2   1  0              0        624     >                   1                   unconditional jump
    66003>66018    126     700      2   0  0              0        700     >COUNT 500MS                            enter subroutine
          66019    124     707      2   0  3              0        707                                             modify address of next
          66020    119              0   1  1              0                REWIND                                  rewind
          66021    80      644      2   0  0              0        644     >TEST ROUTE                             ENTER SUBROUTINE
          66022    125              0   1  0              0                IDB                                     set indicators
          66023    80      700      2   0  0              0        700     >COUNT 500MS                            ENTER SUBROUTINE
          66024    76      619      7   0  0              0        619     >                                       JUMP unconditional
                                                                                                                   
          66100    PROCR   661       661     WRITE MT SR                                                           
          66102    100              0   0  0              0                                                        Halt
          66103    125              0   1  2              0                                                        interrogate indicators
          66104    102     706     10   0  0              0        706     SET MR AT 10/0                          transfer (A) to N
          66105    102     706     12   0  0              0        706     SET MR AT 100/0                         transfer (A) to N
    66219>66106    124     707      2   0  3              0        707                                             modify address of next
          66107    119              0   0  0              0                WRITE                                   output
          66108    106     91       1   1  0              0                STORE BLOCK NO                          select (N)
          66109    102     566      3   0  0              0        566                                             transfer (A) to N
          66110    80      644      2   0  0              0        644     >TEST ROUTE                             ENTER SUBROUTINE
          66111    76      662      2   0  0              0        662     >DB                                     JUMP unconditional
  Source image: P1030524.JPG
          66112    82      661      2   0  0              0        661     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          66200    PROCR   662       662     WRITE MT SR(DB)                                                       
    66111>66202    123              1   0  0              0                                                        step on and test
          66203    100     706     10   0  0              0        706                                             Halt
          66204    76      662      6   0  0              0        662     >                                       JUMP unconditional
          66205    76      699      6   0  0              0        699     >ABANDON                                JUMP unconditional
    66228>                                                                                                         
    66204>66206    126     670      2   0  0              0        670     >STEP BACK 3 ON 2                       enter subroutine
    66230>66207    106     566      3   0  0              0        566                                             select (N)
          66208    105     91       1   1  0              0                TEST PREVIOUS BLOCK                     subtract (N) from (A)
          66209    101              1   1  2              0                                                        subtract literal address
          66210    127     662     20   0  1              0        662     >NO                                     jump A != Z
          66211    106     716      4   1  0              0        716     SET UP FBM                              select (N)
          66212    102     91       0   1  0              0                                                        transfer (A) to N
          66213    124     707      2   0  3              0        707                                             modify address of next
          66214    119              0   0  0              0                WRITE                                   output
          66215    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          66216    125              0   1  0              0                IDB                                     set indicators
          66217    106     566      3   0  0              0        566     RESTORE BLOCK NO                        select (N)
          66218    102     91       1   1  0              0                                                        transfer (A) to N
          66219    76      661      6   0  0              0        661     >                                       JUMP unconditional
    66210>66220    80      699      2   0  0              0        699                                             ENTER SUBROUTINE
          66221    72      662     29   0  0              0        662     >EXP>ACT                                JUMP IF A >= 0
          66222    80      700      2   0  0              0        700     >COUNT 500MS                            ENTER SUBROUTINE
          66223    80      671      2   0  0              0        671     >STEP BACK                              ENTER SUBROUTINE
          66224    80      699      2   0  0              0        699                                             ENTER SUBROUTINE
          66225    80      671      2   0  0              0        671     >STEP BACK                              ENTER SUBROUTINE
          66226    80      699      2   0  0              0        699                                             ENTER SUBROUTINE
          66227    80      671      2   0  0              0        671     >STEP BACK                              ENTER SUBROUTINE
          66228    76      662      6   0  0              0        662     >                                       JUMP unconditional
    66221>66229    80      672      2   0  0              0        672     >STEP ON                                ENTER SUBROUTINE
          66230    76      662      7   0  0              0        662     >                                       JUMP unconditional
                                                                                                                   
          66300    PROCR   663       663     OPEN OUTPUT FILE SR(1)                                                
          66302    100              0   0  0              0                                                        Halt
          66303    102     703     21   0  0              0        703     SET SX1 AT 0 OR 1                       transfer (A) to N
          66304    101              1   1  3              0                BLOCK NO                                select literal address
          66305    102     91       1   1  0              0                                                        transfer (A) to N
          66306    102     91       2   1  0              0                                                        transfer (A) to N
          66307    106     717      2   1  0              0        717     50001                                   select (N)
          66308    102     91       4   1  0              0                                                        transfer (A) to N
          66309    106     566      7   0  0              0        566     SPOOL NO                                select (N)
          66310    102     91       7   1  0              0                                                        transfer (A) to N
          66311    106     716     22   1  0              0        716     BE WD                                   select (N)
          66312    102     91       8   1  0              0                                                        transfer (A) to N
          66313    80      661      2   0  0              0        661     >WRITE (BLOCK 1)                        ENTER SUBROUTINE
          66314    106     703     21   0  0              0        703                         SWITCH SX1          select (N)
          66315    71      665      2   0  0              0        665                         1                   JUMP IF A != 0
                                                                                                                   
          66400    PROCR   664       664     WRITE SPECIAL BLOCK                                                   
          66402    106     716      4   1  0              0        716     FBM                 O                   select (N)
          66403    102     91    1000   1  0              0                                                        transfer (A) to N
          66404    102     91    1002   1  0              0                                                        transfer (A) to N
          66405    106     723     32   1  0              0        723                                             select (N)
          66406    128     91    1004   1  1              0                                                        bulk copy long numeric
          66407    124     726     18   0  2              0        726                                             select literal and division
          66408    128     91    1014   1  2              0                                                        edit fixed field formats
          66409    106     717      4   1  0              0        717                                             select (N)
          66410    102     91    1022   1  0              0                                                        transfer (A) to N
  Source image: P1030525.JPG
          66411    155              0   0  0              0                                                        SELECT PROGRAM SERIAL TO A
          66412    102     91    1024   1  0              0                                                        transfer (A) to N
          66413    106            175   0  1              0                                                        select (N)
          66414    102     91    1027   1  0              0                                                        transfer (A) to N
          66415    106     702      6   0  0              0        702                                             select (N)
          66416    124     707      2   0  3              0        707     SPECIAL ASL                             modify address of next
          66417    102             64   0  0              0                                                        transfer (A) to N
          66418    126     661      2   0  0              0        661     >WRITE                                  enter subroutine
          66419    106     567      6   0  0              0        567                                             select (N)
          66420    124     707      2   0  3              0        707     RESTORE ASL                             modify address of next
          66421    102             64   0  0              0                                                        transfer (A) to N
                                                                                                                   
          66500    PROCR   665       665     OPEN OUITPUT FIEL (SR(2)                                              
    66315>66502    80      666      2   0  0              0        666     >AUGMENT BLOCK NOS                      ENTER SUBROUTINE
          66503    80      661      2   0  0              0        661     >WRITE(BLOCK 2)                         ENTER SUBROUTINE
          66504    80      666      2   0  0              0        666     >AUGMENT BLOCK NOS                      ENTER SUBROUTINE
          66505    80      661      2   0  0              0        661     >WRITE(BLOCK 3)                         ENTER SUBROUTINE
          66506    80      666      2   0  0              0        666     >AUGMENT BLOCK NOS                      ENTER SUBROUTINE
          66507    106     717      8   1  0              0        717     AM WD                                   select (N)
          66508    102     91       6   1  0              0                                                        transfer (A) to N
          66509    80      661      2   0  0              0        661     >WRITE(BLOCK 4)                         ENTER SUBROUTINE
          66510    80      666      2   0  0              0        666     >AUGMENT BLOCK NOS                      ENTER SUBROUTINE
          66511    80      661      2   0  0              0        661     >WRITE(BLOCK 5)                         ENTER SUBROUTINE
          66512    80      666      2   0  0              0        666     >AUGMENT BLOCK NOS                      ENTER SUBROUTINE
          66513    106     566      7   0  0              0        566     SPOOL NO                                select (N)
          66514    102     91       7   1  0              0                                                        transfer (A) to N
          66515    126     661      2   0  0              0        661     >WRITE (BLOCK 6)                        enter subroutine
          66516    126     663      2   0  1              0        663                                             leave subroutine
                                                                                                                   
          66600    PROCR   666       666     AUGMENT BLOCK NOS SR                                                  
          66602    81      666      2   0  0              0        666                                             START OF SUBROUTINE
          66603    101              1   1  3              0                                                        select literal address
          66604    107     91       0   0  0              0                                                        augment (N) by (A)
          66605    107     91       4   0  0              0                                                        augment (N) by (A)
          66606    82      666      2   0  0              0        666     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          66700    PROCR   667       667     CLOSE OUTPUT FILE SR (1)                                              
          66702    100              0   0  0              0                                                        Halt
          66703    101              1   1  3              0                AUGMENT BLOCK NO                        select literal address
          66704    107     91       0   0  0              0                                                        augment (N) by (A)
          66705    106     717     10   1  0              0        717                                             select (N)
          66706    102     91       4   1  0              0                                                        transfer (A) to N
          66707    101           7453   1  3              0                FILE                                    select literal address
          66708    102     91       6   1  0              0                                                        transfer (A) to N
          66709    155              0   0  0              0                SERIAL                                  SELECT PROGRAM SERIAL TO A
          66710    102     91       8   1  0              0                                                        transfer (A) to N
          66711    101              1   1  3              0                REEL                                    select literal address
          66712    102     91      10   1  0              0                                                        transfer (A) to N
          66713    106            175   0  1              0                DATE                                    select (N)
          66714    102     91      13   1  0              0                                                        transfer (A) to N
          66715    106     717      4   1  0              0        717     PROGM                                   select (N)
          66716    102     91      14   1  0              0                                                        transfer (A) to N
          66717    102     91      16   1  0              0                                                        transfer (A) to N
          66718    106     716     22   1  0              0        716     BE WD                                   select (N)
          66719    102     91      18   1  0              0                                                        transfer (A) to N
          66720    126     661      2   0  0              0        661     >WRITE (BLOCK 7)                        enter subroutine
                                                                                                                   
          66800    PROCR   668       668     CLOSE OUTPUT FILE SR (2)                                              
          66802    101              1   1  3              0                AUGMENT BLOCK NO                        select literal address
          66803    107     91       0   0  0              0                                                        augment (N) by (A)
  Source image: P1030526.JPG
          66804    106     717      8   1  0              0        717     AM WD                                   select (N)
          66805    102     91       2   1  0              0                                                        transfer (A) to N
          66806    106     717      6   1  0              0        717     FINIS                                   select (N)
          66807    102     91       4   1  0              0                                                        transfer (A) to N
          66808    106     716     22   1  0              0        716     BE WD                                   select (N)
          66809    102     91       6   1  0              0                                                        transfer (A) to N
          66810    126     661      2   0  0              0        661     >WRITE(BLOCK 8)                         enter subroutine
          66811    106     717     12   1  0              0        717     SENT 3                                  select (N)
          66812    102     91       0   1  0              0                                                        transfer (A) to N
          66813    101              9   1  3              0                BLOCK NO                                select literal address
          66814    102     91       4   1  0              0                                                        transfer (A) to N
          66815    126     661      2   0  0              0        661     >WRITE (BLOCK 9)                        enter subroutine
          66816    126     669      2   0  0              0        669     >WRITE END BLOCK                        enter subroutine
          66817    126     667      2   0  1              0        667     >                                       leave subroutine
                                                                                                                   
          66900    PROCR   669       669     WRITE END BLOCK SR                                                    
          66902    100              0   0  0              0                                                        Halt
          66903    106     717     14   1  0              0        717     (END)                                   select (N)
          66904    103     91       0   1  0              0                                                        copy (A) to N
          66905    102     91       2   1  0              0                                                        transfer (A) to N
    66909>66906    124     707      2   0  3              0        707                                             modify address of next
          66907    119              0   0  0              0                WRITE                                   output
          66908    80      644      2   0  0              0        644     >TEST ROUTE                             ENTER SUBROUTINE
          66909    76      669      6   0  0              0        669     >DB                                     JUMP unconditional
          66910    80      649      2   0  0              0        649     >UNLOAD                                 ENTER SUBROUTINE
          66911    82      669      2   0  0              0        669     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          67000    PROCR   670       670     STEP BACK 3 ON 2 SR                                                   
          67002    100              0   0  0              0                                                        Halt
          67003    126     700      2   0  0              0        700     >COUNT 500 MS                           enter subroutine
          67004    126     671      2   0  0              0        671     >STEP BACK                              enter subroutine
          67005    126     671      2   0  0              0        671     >STEP BACK                              enter subroutine
          67006    126     671      2   0  0              0        671     >STEP BACK                              enter subroutine
          67007    126     700      2   0  0              0        700     >COUNT 500 MS                           enter subroutine
          67008    126     672      2   0  0              0        672     >STEP ON                                enter subroutine
          67009    126     672      2   0  0              0        672     >STEP ON                                enter subroutine
          67010    126     670      2   0  1              0        670                                             leave subroutine
                                                                                                                   
          67100    PROCR   671       671     STEP BACK SR                                                          
          67102    100              0   0  0              0                                                        Halt
          67103    124     707      2   0  3              0        707                                             modify address of next
          67104    119              0   1  0              0                STEP BACK                               step back
          67105    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          67106    125              0   1  0              0                IDB                                     set indicators
          67107    126     671      2   0  1              0        671                                             leave subroutine
                                                                                                                   
          67200    PROCR   672       672     STEP ON SR                                                            
          67202    100              0   0  0              0                                                        Halt
          67203    124     707      2   0  3              0        707                                             modify address of next
          67204    119              0   1  3              0                STEP ON                                 step on/set manual
          67205    126     644      2   0  0              0        644     >TEST ROUTE                             enter subroutine
          67206    125              0   1  0              0                IDB                                     set indicators
          67207    126     672      2   0  1              0        672                                             leave subroutine
                                                                                                                   
          67300    PROCR   673       673     HIPLIP SR                                                             
          67302    81      673      2   0  0              0        673                                             START OF SUBROUTINE
          67303    106     91      17   1  0              0                AUGMENT ASL                             select (N)
          67304    124     707      2   0  3              0        707                                             modify address of next
          67305    107             64   0  0              0                                                        augment (N) by (A)
          67306    106     703     18   0  0              0        703                         SWITCH SM2'         select (N)
  Source image: P1030527.JPG
          67307    71      673     16   0  0              0        673     >NO COMMENT         1                   JUMP IF A != 0
          67308    106     91       9   1  0              0                RUN                                     select (N)
          67309    102     91    1002   0  0              0                                                        transfer (A) to N
          67310    106     91      17   1  0              0                TEST HIGH                               select (N)
          67311    71      673     14   0  0              0        673     >YES                                    JUMP IF A != 0
          67312    106     716     48   1  0              0        716                         LIP                 select (N)
          67313    76      673     15   0  0              0        673                                             JUMP unconditional
    67311>67314    106     716     50   1  0              0        716                         HIP                 select (N)
    67313>67315    80      674      2   0  0              0        674     >HIPHOPLIPLOP       0                   ENTER SUBROUTINE
    67307>67316    82      673      2   0  0              0        673     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          67400    PROCR   674       674     HIPHOPLIPLOP SR                                                       
          67402    81      674      2   0  0              0        674                                             START OF SUBROUTINE
          67403    102     91    1000   1  0              0                                                        transfer (A) to N
          67404    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          67405    124     732      2   0  2              0        732                                             select literal and division
          67406    124     718      2   0  3              0        718                                             modify address of next
          67407    128              2   1  2              0                EDIT COMMENT                            edit fixed field formats
          67408    82      674      2   0  0              0        674     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          67500    PROCR   675       675     BLACK COMMENT SR                                                      
          67502    100              0   0  0              0                                                        Halt
          67503    126     677      2   0  0              0        677     >REQ TW                                 enter subroutine
          67504    124     724      2   0  2              0        724     EDIT TIME                               select literal and division
          67505    124     718      2   0  3              0        718                                             modify address of next
          67506    128              0   1  2              0                                                        edit fixed field formats
          67507    126     675      2   0  1              0        675                                             leave subroutine
                                                                                                                   
          67600    PROCR   676       676     RED COMMENT SR                                                        
          67602    100              0   0  0              0                                                        Halt
          67603    126     677      2   0  0              0        677     >REQ TW                                 enter subroutine
          67604    124     724      6   0  2              0        724     EDIT TIME                               select literal and division
          67605    124     718      2   0  3              0        718                                             modify address of next
          67606    128              0   1  2              0                                                        edit fixed field formats
          67607    126     676      2   0  1              0        676                                             leave subroutine
                                                                                                                   
          67700    PROCR   677       677     REQUEST TW SR(1)                                                      
          67702    100              0   0  0              0                                                        Halt
          67703    106     703     11   0  0              0        703                         SWITCH SL3          select (N)
          67704    70      677      6   0  0              0        677     >UNSATURATED        0                   JUMP IF A == 0
          67705    80      680      2   0  0              0        680     >LOG                1                   ENTER SUBROUTINE
    67704>67706    106     703      7   0  0              0        703     TEST ANY REQS SET   SWITCH SL1          select (N)
          67707    127     678      2   0  1              0        678     >YES                1                   jump A != Z
          67708    124     719      4   0  2              0        719                         0                   select literal and division
          67709    103     703      7   0  0              0        703     SET REQ(SL1=1)                          copy (A) to N
          67710    103     718      2   0  0              0        718                                             copy (A) to N
          67711    102     718      3   0  0              0        718                                             transfer (A) to N
          67712    102     718      4   0  0              0        718     SET IND MR AT 10/0                      transfer (A) to N
    67809>                                                                                                         
    67907>67713    126     677      2   0  1              0        677     >                                       leave subroutine
                                                                                                                   
          67800    PROCR   678       678     REQUEST TW SR(2)                                                      
    67707>67802    106     703      8   0  0              0        703     TEST TWO REQS SET                       select (N)
          67803    127     679      2   0  1              0        679     >YES                                    jump A != Z
          67804    106     703      7   0  0              0        703                                             select (N)
          67805    101             20   1  1              0                SET REQ 1                               add literal address
    67811>67806    103     703      8   0  0              0        703                                             copy (A) to N
          67807    103     718      2   0  0              0        718                                             copy (A) to N
          67808    105     702      3   0  0              0        702                                             subtract (N) from (A)
          67809    127     677     13   0  1              0        677     >                                       jump A != Z
  Source image: P1030528.JPG
          67810    124     719      4   0  2              0        719                                             select literal and division
          67811    124     678      6   1  0              0        678     >                                       unconditional jump
                                                                                                                   
          67900    PROCR   679       679     REQUEST TW SR(3)                                                      
    67803>67902    101             20   1  1              0                SET REQ 2                               add literal address
    67909>67903    103     703      9   0  0              0        703                                             copy (A) to N
          67904    103     718      2   0  0              0        718                                             copy (A) to N
          67905    103     703     11   0  0              0        703     SET SL3=1                               copy (A) to N
          67906    105     702      3   0  0              0        702                                             subtract (N) from (A)
          67907    127     677     13   0  1              0        677     >                                       jump A != Z
          67908    124     719      4   0  2              0        719                                             select literal and division
          67909    124     679      3   1  0              0        679     >                                       unconditional jump
                                                                                                                   
          68000    PROCR   680       680     LOG:SPECIAL ENTRY                                                     
          68002    81      680      2   0  0              0        680                                             START OF SUBROUTINE
          68003    124     680      8   0  2              0        680                                             select literal and division
          68004    76      680     18   0  0              0        680     >LOG                                    JUMP unconditional
          68005    124     680     16   0  2              0        680                                             select literal and division
          68006    102             30   0  1              0                                                        transfer (A) to N
          68007    125           4096   1  0              0                                                        set indicators
    68014>68008    101           4000   1  3              0                                                        select literal address
    68011>68009    100     723     11   0  2              0        723                                             replace (B) by (N)
          68010    111     723     11   0  0              0        723                                             multiply and subtract
          68011    71      680      9   0  0              0        680                                             JUMP IF A != 0
          68012    101           8191   1  2              0                                                        subtract literal address
    68015>68013    104     723     11   0  0              0        723                                             add (N) to (A)
          68014    70      680      8   0  0              0        680                                             JUMP IF A == 0
          68015    76      680     13   0  0              0        680                                             JUMP unconditional
          68016    80      568      2   0  0              0        568     >SET KEY 15                             ENTER SUBROUTINE
          68017    106     680      2   0  0              0        680                                             select (N)
    69618>                                                                                                         
    68004>                                                                                                         
    62903>                                                                                                         
    62723>                                                                                                         
    62706>68018    102     681      2   0  0              0        681                                             transfer (A) to N
          68019    76      681      3   0  0              0        681     >                                       JUMP unconditional
                                                                                                                   
          68100    PROCR   681       681     LOG:SEARCH QUEUE                                                      
          68102    100              0   0  0              0                                                        Halt
    68019>68103    106     703      7   0  0              0        703                         SWITCH SL1          select (N)
          68104    127     683      2   0  1              0        683     >TYPING             1                   jump A != Z
    68314>68105    106     703      8   0  0              0        703     TEST REQ SET        0                   select (N)
          68106    127     682      2   0  1              0        682     >YES                                    jump A != Z
          68107    106     703     12   0  0              0        703                         SWITCH SL4          select (N)
          68108    73      696      2   0  0              0        696     >ABANDON            2                   JUMP IF A < 0
          68109    71      638      2   0  0              0        638     >ENTER MASTER       1                   JUMP IF A != 0
    68115>                                                                                                         
    68306>68110    125              0   1  2              0                                    0                   interrogate indicators
          68111    101              3   1  2              0                STEP LINK BY-3                          subtract literal address
          68112    107     681      2   0  0              0        681                                             augment (N) by (A)
          68113    126     681      2   0  1              0        681     >                                       leave subroutine
    68305>68114    125           2048   1  0              0                SET I12                                 set indicators
          68115    124     681     10   1  0              0        681     >                                       unconditional jump
                                                                                                                   
          68200    PROCR   682       682     LOG:RESET REQUESTS                                                    
    68106>68202    106     703      8   0  0              0        703     SET SL1=1                               select (N)
          68203    103     703      7   0  0              0        703     RESET REQUESTS                          copy (A) to N
          68204    102     718      3   0  0              0        718                                             transfer (A) to N
          68205    106     703      9   0  0              0        703                                             select (N)
          68206    102     703      8   0  0              0        703                                             transfer (A) to N
  Source image: P1030529.JPG
          68207    102     703      9   0  0              0        703                                             transfer (A) to N
          68208    102     718      4   0  0              0        718     SET IND MR AT 10/0                      transfer (A) to N
                                                                                                                   
          68300    PROCR   683       683     LOG:TEST ROUTE                                                        
    68104>68302    125           2048   1  1              0                CLEAR I12                               clear indicators
    68512>                                                                                                         
    68611>                                                                                                         
    68708>68303    124     565      2   0  3              0        565                                             modify address of next
          68304    126              0   1  0              0                                    TEST ROUTE          test route N1
          68305    124     681     14   1  0              0        681     >                   C                   unconditional jump
          68306    124     681     10   1  0              0        681     >                   E                   unconditional jump
          68307    124     687      2   1  0              0        687     >                   D                   unconditional jump
          68308    124     683      9   1  0              0        683                         W                   unconditional jump
    68308>68309    106     703     10   0  0              0        703                         A SWITCH SL2        select (N)
          68310    127     684      2   0  0              0        684     >NORMAL               0                 jump A = Z
          68311    125              0   1  2              0                END OF COMMENT        1                 interrogate indicators
          68312    103     703      7   0  0              0        703     SET SL1=0                               copy (A) to N
          68313    102     703     10   1  0              0        703     SET SL2=SL3=0                           transfer (A) to N
          68314    124     681      5   1  0              0        681     >                                       unconditional jump
                                                                                                                   
          68400    PROCR   684       684     LOG:OUTPUT(PT OP AS)                                                  
    68310>68402    106     703     20   0  0              0        703                         SWITCH ST1          select (N)
          68403    127     685      2   0  3              0        685     >GP                 2                   jump A < Z
          68404    124     718      3   0  3              0        718     PT OP               1                   modify address of next
          68405    106              0   1  0              0                                                        select (N)
          68406    102            154   1  1              0                NEXT WORD IN 154'                       transfer (A) to N
          68407    124     565      2   0  3              0        565                                             modify address of next
          68408    119              0   0  0              0                TYPE                                    output
          68409    124     686      2   1  0              0        686     >                                       unconditional jump
                                                                                                                   
          68500    PROCR   685       685     LOG:OUTPUT(GP OP AS)                                                  
    68403>68502    100     718      6   1  2              0        718     SET B33-38 OF B                         replace (B) by (N)
          68503    124     718      3   0  3              0        718                                             modify address of next
          68504    106              0   1  0              0                                                        select (N)
          68505    124     718      4   0  3              0        718                                             modify address of next
          68506    118              0   0  0              0                                                        shift logical
          68507    114            154   1  1              0                NEXT CHA IN 154':B33-38                 replace selected bits
          68508    124     565      2   0  3              0        565                                             modify address of next
          68509    119              0   0  0              0                TYPE                                    output
          68510    123              2   0  0              0                                                        step on and test
          68511    100     718      4   0  0              0        718     TEST END OF WORD                        Halt
          68512    124     683      3   1  0              0        683     >NO                                     unconditional jump
          68513    125              0   1  2              0                RESET IND MR                            interrogate indicators
          68514    102     718      4   0  0              0        718                                             transfer (A) to N
                                                                                                                   
          68600    PROCR   686       686     LOG:END                                                               
    68409>68602    101             15   0  1              0                TEST END OF COMMENT                     prepare for digit collation
          68603    124     718      3   0  3              0        718                                             modify address of next
          68604    115              0   0  0              0                                                        collate and add
          68605    105     713     10   0  0              0        713                                             subtract (N) from (A)
          68606    127     686      9   0  1              0        686     >NO                                     jump A != Z
          68607    101              1   1  3              0                                                        select literal address
          68608    102     703     10   0  0              0        703     SET SL2 AT 1                            transfer (A) to N
    68606>68609    101              2   1  3              0                                                        select literal address
          68610    107     718      3   0  0              0        718     STEP WORD COUNTER                       augment (N) by (A)
          68611    124     683      3   1  0              0        683     >                                       unconditional jump
                                                                                                                   
          68700    PROCR   687       687     LOG: DOUBTFUL BLOCK                                                   
    68307>68702    106     703      7   0  0              0        703     ARRANGE TO RE-TYPE                      select (N)
          68703    101              2   1  2              0                PRECEDED BY 'LDB'                       subtract literal address
  Source image: P1030530.JPG
          68704    102     718      3   0  0              0        718                                             transfer (A) to N
          68705    102            154   1  1              0                TYPE NOTHING                            transfer (A) to N
          68706    124     565      2   0  3              0        565                                             modify address of next
          68707    119              0   0  0              0                                                        output
          68708    124     683      3   1  0              0        683     >                                       unconditional jump
                                                                                                                   
          68800    PROCR   688       688     COPY FIXED COMMENT                                                    
          68802    100              0   0  0              0                                                        Halt
          68803    104     722     10   1  0              0        722                                             add (N) to (A)
          68804    124     718      2   0  3              0        718                                             modify address of next
          68805    128              2   1  1              0                                                        bulk copy long numeric
          68806    126     688      2   0  1              0        688                                             leave subroutine
                                                                                                                   
          68900    PROCR   689       689     DATE SR(1)                                                            
          68902    100              0   0  0              0                                                        Halt
          68903    103            138   0  1              0                                                        copy (A) to N
          68904    102            175   0  1              0                STORE DATE                              transfer (A) to N
          68905    100     566      4   0  3              0        566                                             set radix
          68906    101              3   0  1              0                                                        prepare for digit collation
          68907    115            175   0  1              0                                                        collate and add
          68908    105     708      4   0  0              0        708     TEST THIS YEAR                          subtract (N) from (A)
          68909    127     690      2   0  0              0        690     >YES                                    jump A = Z
          68910    101              1   1  2              0                TEST NEXT YEAR                          subtract literal address
          68911    70      689     14   0  0              0        689     >YES                                    JUMP IF A == 0
          68912    101            256   1  1              0                                                        add literal address
          68913    71      692      2   0  0              0        692     >NO:REJECT                              JUMP IF A != 0
    68911>68914    106            175   0  1              0                                                        select (N)
          68915    114     708      4   0  0              0        708                                             replace selected bits
          68916    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          68917    124     713     28   0  2              0        713                         HNY                 select literal and division
          68918    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
                                                                                                                   
          69000    PROCR   690       690     DATE SR(2)                                                            
    68909>69002    101              4   0  1              0                CONVERT MONTH                           prepare for digit collation
          69003    125              0   1  2              0                                                        interrogate indicators
          69004    115            175   0  1              0                                                        collate and add
          69005    101             12   0  1              0                                                        prepare for digit collation
          69006    114            138   0  1              0                                                        replace selected bits
          69007    100     566      5   0  3              0        566                                             set radix
          69008    101              4   0  1              0                                                        prepare for digit collation
          69009    125              0   1  2              0                                                        interrogate indicators
          69010    115            175   0  1              0                                                        collate and add
          69011    118           4126   0  0              0                                                        shift logical
          69012    103     708      5   0  0              0        708     STORE MONTH & TEST IN RANGE             copy (A) to N
          69013    127     692      2   0  0              0        692     >NO:REJECT                              jump A = Z
          69014    101             13   1  2              0                                                        subtract literal address
          69015    127     692      2   0  2              0        692                                             jump A >= Z
                                                                                                                   
          69100    PROCR   691       691     DATE SR(3)                                                            
          69102    100     705      3   0  2              0        705     TEST LEAP YEAR                          replace (B) by (N)
          69103    125              0   1  2              0                                                        interrogate indicators
          69104    115            175   0  1              0                                                        collate and add
          69105    127     691      8   0  0              0        691     >YES                                    jump A = Z
          69106    101             41   1  3              0                29                                      select literal address
          69107    124     691      9   1  0              0        691     >NO                                     unconditional jump
    69105>69108    101             48   1  3              0                30                                      select literal address
    69107>69109    102     708      7   0  0              0        708     ADJUST FEBRUARY                         transfer (A) to N
          69110    101             24   0  1              0                                                        prepare for digit collation
          69111    115            175   0  1              0                TEST DAY IN RANGE                       collate and add
          69112    70      692      2   0  0              0        692     >NO:REJECT                              JUMP IF A == 0
  Source image: P1030531.JPG
          69113    118              1   1  0              0                                                        shift logical
          69114    114            138   1  1              0                                                        replace selected bits
          69115    118           4124   0  0              0                                                        shift logical
          69116    100     566      4   0  3              0        566                                             set radix
          69117    124     708      5   0  1              0        708                                             modify address of next
          69118    105     708      5   0  0              0        708                                             subtract (N) from (A)
          69119    127     692      2   0  2              0        692     >NO:REJECT                              jump A >= Z
          69120    100     566      5   0  3              0        566                                             set radix
          69121    101              8   0  1              0                                                        prepare for digit collation
          69122    125              0   1  2              0                                                        interrogate indicators
          69123    115            175   0  1              0                                                        collate and add
          69124    118           4125   0  0              0                                                        shift logical
          69125    101             10   1  2              0                                                        subtract literal address
          69126    72      692      2   0  0              0        692     >NO:REJECT                              JUMP IF A >= 0
          69127    124     689      2   0  3              0        689                                             modify address of next
          69128    124              1   1  0              0                >                                       unconditional jump
                                                                                                                   
          69200    PROCR   692       692     REJECT ABSURD DATE                                                    
    69126>                                                                                                         
    69119>                                                                                                         
    69112>                                                                                                         
    69015>                                                                                                         
    69013>                                                                                                         
    68913>69202    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          69203    80      675      2   0  0              0        675     >REQ TW                                 ENTER SUBROUTINE
          69204    124     713     24   0  2              0        713                         DATE REJ            select literal and division
          69205    126     688      2   0  0              0        688     >COPY COMMENT                           enter subroutine
          69206    126     689      2   0  1              0        689     >                                       leave subroutine
                                                                                                                   
          69300    PROCR   693       693     ARRANGE TO TYPE FIRST TIME SR                                         
          69302    100              0   0  0              0                                                        Halt
          69303    106     706      3   0  0              0        706                                             select (N)
          69304    101              1   1  2              0                                                        subtract literal address
          69305    102     706      2   0  0              0        706                                             transfer (A) to N
          69306    126     693      2   0  1              0        693                                             leave subroutine
                                                                                                                   
          69400    PROCR   694       694     ARRANGE TO TYPE SHORTLY SR                                            
          69402    81      694      2   0  0              0        694                                             START OF SUBROUTINE
          69403    106     706      3   0  0              0        706                                             select (N)
          69404    118           4127   0  0              0                                                        shift logical
          69405    102     706      2   0  0              0        706                                             transfer (A) to N
          69406    106     706      3   0  0              0        706                                             select (N)
          69407    105     706      2   0  0              0        706                                             subtract (N) from (A)
          69408    102     706      2   0  0              0        706                                             transfer (A) to N
          69409    82      694      2   0  0              0        694                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          69500    PROCR   695       695     TEST TIME TO TYPE SR(1)                                               
          69502    100              0   0  0              0                                                        Halt
          69503    123              1   0  0              0                                                        step on and test
          69504    100     706      2   0  0              0        706                                             Halt
          69505    76      696      2   0  0              0        696     >NO                                     JUMP unconditional
          69506    125              0   1  2              0                                                        interrogate indicators
          69507    102     706      2   0  0              0        706                                             transfer (A) to N
          69508    126     676      2   0  0              0        676     >REQ TW                                 enter subroutine
          69509    124     695      2   0  3              0        695                                             modify address of next
          69510    124              1   1  0              0                >YES                                    unconditional jump
                                                                                                                   
          69600    PROCR   696       696     TEST TIME TO TYPE SR(2)                                               
    69505>                                                                                                         
    68108>69602    124     696      8   0  2              0        696                                             select literal and division
  Source image: P1030532.JPG
          69603    102             30   0  1              0                                                        transfer (A) to N
          69604    124     696      4   1  1              0        696                                             set modification group
          69605    100     709     10   1  1              0        709                                             replace registers
          69606    126     696      7   0  3              0        696                                             leave master routine
          69607    115     698      2   0  1              0        698                                             collate and add
          69608    100     709     10   1  0              0        709                                             copy registers
          69609    124     566      5   1  1              0        566                                             set modification group
          69610    125              0   1  2              0                                                        interrogate indicators
          69611    101              1   1  2              0                                                        subtract literal address
          69612    107     706      2   0  0              0        706                                             augment (N) by (A)
          69613    106              8   0  1              0                                                        select (N)
    69810>69614    102     696      7   0  0              0        696                                             transfer (A) to N
          69615    80      568      2   0  0              0        568     >SET KEY 15                             ENTER SUBROUTINE
          69616    106     695      2   0  0              0        695                                             select (N)
          69617    101              3   1  1              0                                                        add literal address
          69618    76      680     18   0  0              0        680     >LOG                                    JUMP unconditional
                                                                                                                   
          69700    CONST   697       697     0                                                                     
                                                                                                                   
          69800    PROCR   698       698     TEST TIME TO TYPE SR(3)                                               
    69819>                                                                                                         
    69831>69802    125              0   1  2              0                                                        interrogate indicators
    69815>                                                                                                         
    69824>69803    100     705      3   0  2              0        705                                             replace (B) by (N)
          69804    115     696      7   0  0              0        696                                             collate and add
          69805    102     698     20   0  0              0        698                                             transfer (A) to N
          69806    125           4096   1  1              0                                                        clear indicators
          69807    124     566      5   1  1              0        566                                             set modification group
          69808    124     698     20   0  1              0        698                                             modify address of next
          69809    106     702      7   0  0              0        702                                             select (N)
          69810    76      696     14   0  0              0        696                                             JUMP unconditional
          69811    101           2000   1  3              0                                                        select literal address
    69814>69812    100     723     11   0  2              0        723                                             replace (B) by (N)
          69813    111     723     11   0  0              0        723                                             multiply and subtract
          69814    71      698     12   0  0              0        698                                             JUMP IF A != 0
          69815    76      698      3   0  0              0        698                                             JUMP unconditional
          69816    126     705     16   1  1              0        705                                             set modification register
    69818>69817    125              1   0  1              0                                                        step on and test
          69818    76      698     17   0  0              0        698                                             JUMP unconditional
          69819    76      698      2   0  0              0        698                                             JUMP unconditional
          69820    100              0   0  0              0                                                        Halt
          69821    125              0   1  2              0                                                        interrogate indicators
          69822    101           4096   1  2              0                                                        subtract literal address
    69825>69823    104     723     11   0  0              0        723                                             add (N) to (A)
          69824    70      698      3   0  0              0        698                                             JUMP IF A == 0
          69825    76      698     23   0  0              0        698                                             JUMP unconditional
          69826    101            500   1  3              0                                                        select literal address
    69830>69827    118           4119   1  0              0                                                        shift logical
          69828    113     711      2   0  0              0        711                                             divide uniform radix
          69829    101              1   1  2              0                                                        subtract literal address
          69830    72      698     27   0  0              0        698                                             JUMP IF A >= 0
          69831    76      698      2   0  0              0        698                                             JUMP unconditional
                                                                                                                   
          69900    PROCR   699       699     ABANDON                                                               
          69902    81      699      2   0  0              0        699                                             START OF SUBROUTINE
          69903    123              1   0  0              0                                                        step on and test
          69904    100     706     12   0  0              0        706                                             Halt
          69905    82      699      2   0  0              0        699                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    66205>                                                                                                         
    65416>                                                                                                         
    60813>                                                                                                         
  Source image: P1030533.JPG
    60408>69906    80      676      2   0  0              0        676     >REQ TW                                 ENTER SUBROUTINE
          69907    124     713      2   0  2              0        713                         ABANDON             select literal and division
          69908    80      688      2   0  0              0        688     >COPY COMMENT                           ENTER SUBROUTINE
          69909    106     567      8   0  0              0        567                                             select (N)
          69910    102     703     12   0  0              0        703     SET SL4 AT 2                            transfer (A) to N
          69911    80      681      2   0  0              0        681     >LOG                                    ENTER SUBROUTINE
                                                                                                                   
          70000    PROCR   700       700     COUNT 500MS SR                                                        
          70002    100              0   0  0              0                                                        Halt
          70003    125              0   1  2              0                                                        interrogate indicators
          70004    102     706      4   0  0              0        706                                             transfer (A) to N
          70005    123              1   0  0              0                                                        step on and test
          70006    100     706      4   0  0              0        706                                             Halt
          70007    126     681      2   0  0              0        681     >LOG                                    enter subroutine
          70008    126     700      2   0  1              0        700                                             leave subroutine
                                                                                                                   
          70100    PROCR   701       701     INITIAL ENTRY                                                         
          70102    102     565      2   0  0              0        565     STORE TW RT                             transfer (A) to N
          70103    32               0   0  0             10                STORE TAPE ROUTE                        SHIFT (AB) BY QUARTETS
          70104    5       565     11   0  0              0        565                                             TRANSFER
          70105    80      571      2   0  0              0        571     >INITIAL SR                             ENTER SUBROUTINE
          70106    125              0   1  2              0                                                        interrogate indicators
          70107    101              4   0  1              0                                                        prepare for digit collation
          70108    115            153   0  1              0                                                        collate and add
          70109    118              1   1  0              0                                                        shift logical
          70110    102     565     10   0  0              0        565     SECOND STORE SIZE                       transfer (A) to N
          70111    115            153   0  1              0                                                        collate and add
          70112    102     565      5   0  0              0        565     FIRST STORE SIZE                        transfer (A) to N
          70113    106            186   0  1              0                                                        select (N)
          70114    101             28   1  2              0                TEST P/T                                subtract literal address
          70115    127     701     20   0  3              0        701     >YES                                    jump A < Z
          70116    106            186   0  1              0                CARDS                                   select (N)
          70117    103     565      3   0  0              0        565     STORE CD ROUTE                          copy (A) to N
          70118    101              2   1  1              0                                                        add literal address
          70119    102     565      4   0  0              0        565     STORE MODS ROUTE                        transfer (A) to N
    70115>70120    125              0   1  2              0                                                        interrogate indicators
          70121    101              3   0  1              0                                                        prepare for digit collation
          70122    115            175   0  1              0                                                        collate and add
          70123    102     708      4   0  0              0        708     STORE YEAR                              transfer (A) to N
          70124    124     999      0   0  2              0                STORE ISP START                         select literal and division
          70125    100     709     16   0  2              0        709                                             replace (B) by (N)
          70126    114     566     14   0  0              0        566                                             replace selected bits
          70127    103     709     19   0  0              0        709     STORE SX1                               copy (A) to N
          70128    102     703     21   0  0              0        703     SET SX1 AT 1                            transfer (A) to N
          70129    76      577      6   0  0              0        577     >                                       JUMP unconditional
                                                                                                                   
          70200    PROCR   702       702     INSTRUCTION CONSTANTS                                                 
          70202    114            154   0  0              0                TW ASL                                  replace selected bits
          70203    100     722      4   0  1              0        722     LAST TW REQ                             Invalid
          70204    126              2   0  1              0                FOR(9)                                  leave subroutine
          70205    126             31   0  1              0                CHECK HARDWARE                          leave subroutine
          70206    114     91    1000   0  1              0                SPECIAL ASL                             replace selected bits
          70207    115     698     11   0  1              0        698                                             collate and add
          70208    115     698     16   0  1              0        698                                             collate and add
          70209    115     698     21   0  1              0        698                                             collate and add
          70210    115     698     26   0  1              0        698                                             collate and add
          70211    115     579     23   0  1              0        579     INTERRUPTION                            collate and add
                                                                                                                   
          70300    CONST   703       703     0    SWITCH SETTINGS                                                  
  Source image: P1030534.JPG
          70302          (D);                                              SC1: WRITE NEW COPY                     
          70303          0;                                                SC2: WRITE NEW COPIES                   
          70304          0;                                                SC3: UNLOAD RT 0                        
          70305          0;                                                COPY WHOLE TAPE                         
          70306          0;                                                SI1: LOAD INTERCODE                     
          70307          0;                                                SL1: LOG REQ 1                          
          70308          0;                                                     LOG REQ 2                          
          70309          0;                                                     LOG REQ 3                          
          70310          0;                                                SL2: END OF COMMENT                     
          70311          0;                                                SL3: LOG SATURATION                     
          70312          0;                                                SL4: END & ABANDON                      
          70313          0;                                                SM1: MOD 1                              
          70314          0;                                                     MOD 2                              
          70315          0;                                                     MOD 3                              
          70316          0;                                                     MOD 4                              
          70317          0;                                                     MOD 5                              
          70318          0;                                                SM2: LAST DIRECTIVE                     
          70319          0;                                                SR1:'SER'COMMENT                        
          70320          0;                                                ST1:TYPEWRITER TYPE                     
          70321          0;                                                SX1: INITIAL ENTRY                      
                                                                                                                   
          70400    CONST   704       704     0    MASTER IDENTITY & MT ROUTES                                      
          70402          (D);                                              PROGRAMME                               
          70403          0;                                                SERIAL                                  
          70404          0;                                                INTERIM                                 
          70405          0;                                                INTERCODE ROUTE                         
          70406          0;                                                FIRST COPY ROUTE                        
          70407          0;                                                SECOND COPY ROUTE                       
                                                                                                                   
          70500    CONST   705       705     1    MOD REGS                                                         
          70502          (D)300000;                                        3/0                                     
          70504          400000;                                           4/0                                     
          70506          500000;                                           5/0                                     
          70508          800000;                                           8/0                                     
          70510          3000000;                                          48/0                                    
          70512          1££.;                                                                                     
          70514          40000.;                                           4/14                                    
          70516          100000000;                                        4096/0                                  
          70518          6000;                                                                                     
                                                                                                                   
          70600    CONST   706       706     0    COUNTING                                                         
          70602          (D)0;                                             3 MIN                                   
          70603          0;                                                3 MIN                                   
          70604          0;                                                ½ SEC                                   
          70605          0;                                                ½ SEC                                   
          70606          100;                                              3 MIN III                               
          70607          400;                                              3 MIN 326                               
          70608          400;                                              ½SEC III                                
          70609          1000;                                             ½ SEC 326                               
          70610          0;                                                                                        
          70611          Ю;                                                10/0                                    
          70612          0;                                                                                        
          70613          64;                                               100/0                                   
                                                                                                                   
          70700    CONST   707       707     0    TEST ROUTE                                                       
          70702          (D)0;                                             ROUTE IN BINARY                         
          70703          0;                                                ROUTE IN OCTARY                         
          70704          0;                                                FIRST WORD                              
          70705          0;                                                OF BLOCK                                
                                                                                                                   
  Source image: P1030535.JPG
          70800    CONST   708       708     0    BRIC-A-BRAC                                                      
          70802          (D)£££££;                                                                                 
          70803          £££££;                                                                                    
          70804          (D)68;                                            YEAR                                    
          70805          0;                                                MONTH                                   
          70806          32;                                               J                                       
          70807          0;                                                F                                       
          70808          32;                                               M                                       
          70809          31;                                               A                                       
          70810          32;                                               M                                       
          70811          31;                                               J                                       
          70812          32;                                               J                                       
          70813          32;                                               A                                       
          70814          31;                                               S                                       
          70815          32;                                               O                                       
          70816          31;                                               N                                       
          70817          32;                                               D                                       
                                                                                                                   
          70900    CONST   709       709     0    MORE THEREOF                                                     
          70902          (D)£££88;                                         OCT COL CONST                           
          70903          .0000;                                            BE                                      
          70904          £0000;                                            CHAPTER END SIGN                        
          70905          .1000;                                            MINUS ZERO                              
          70906          73;                                               CD REJ T                                
          70907          53;                                               CD REJ C                                
          70908          64;                                               CD REJ M                                
          70909          72;                                               CD REJ S                                
          70910          0;                                                A                                       
          70911          0;                                                                                        
          70912          0;                                                B                                       
          70913          0;                                                                                        
          70914          0;                                                C                                       
          70915          8000;                                             FL PT                                   
          70916          £.00;                                             COL CONST                               
          70917          38;                                               COL CONST                               
          70918          3.1.4;                                                                                    
          70919          0;                                                STORE FOR SX1                           
                                                                                                                   
          71000    CONST   710       710     1    WLS                                                              
          71002          (D);                                              CD(OCT)/TW(OCT)                         
          71004          0;                                                DIV/MODS(OCT)                           
          71006          0;                                                TIMER/CLOCK                             
          71008          0;                                                MT CH/LOUT                              
          71010          0;                                                   /2ND STORE                           
          71012          0;                                                CD(BIN)/TW(BIN)                         
          71014          0;                                                   /MODS(BIN)                           
          71016          0;                                                COPY TAPE 1                             
          71018          0;                                                COPY TAPE 2                             
                                                                                                                   
          71100    CONST   711       711     1    MISCELLANY                                                       
          71102          (D)1;                                             DEC>BIN                                 
          71104          Ю;                                                CONVERSION TABLE                        
          71106          64;                                                                                       
          71108          3.8;                                                                                      
          71110          2710;                                                                                     
          71112          1;                                                BIN>OCT                                 
          71114          20;                                               CONVERSION TABLE                        
          71116          1;                                                OCT>BIN                                 
          71118          8;                                                CONVERSION TABLE                        
                                                                                                                   
  Source image: P1030536.JPG
          71200    PROCR   712       712     INTERCODE PARAMETERS                                                  
          71202    100              0   0  0              0                                                        Halt
          71203    100            142   0  0              0                1 1                                     Halt
          71204    100            142   0  0              0                2 1                                     Halt
          71205    100              0   0  1              0                3 2                                     Invalid
          71206    100              0   0  0              0                4 2                                     Halt
          71207    100              0   0  0              0                                                        Halt
          71208    100              0   0  0              0                MR                                      Halt
          71209    100     999      0   0  1              0                MR                                      Invalid
                                                                                                                   
          71300    CONST   713       713     1    COMMENTS (1)                                                     
          71302          (A)ABAND;                                                                                 
          71304          (A)ON (D)5.5.;                                                                            
          71306          (A)CD  R;                                                                                 
          71308          EJ   ;                                                                                    
          71310          (D)5.5.;                                                                                  
          71312          (A)CLOCK;                                                                                 
          71314          PLEA;                                                                                     
          71316          (A)SE (D)5.5.;                                                                            
          71318          (A)DATE ;                                                                                 
          71320          PLEAS;                                                                                    
          71322          (A)E  (D)5.5.;                                                                            
          71324          (A)DATE ;                                                                                 
          71326          (A)REJ(D)5.5.;                                                                            
          71328          (A)HAPPY;                                                                                 
          71330          NEW;                                                                                      
          71332          YEA;                                                                                      
          71334          (A)R  (D)5.5.;                                                                            
          71336          (A)INTER;                                                                                 
          71338          RUPT ;                                                                                    
          71340          PLEAS;                                                                                    
          71342          (A)E  (D)5.5.;                                                                            
                                                                                                                   
          71400    CONST   714       714     1    COMMENTS(2)                                                      
          71402          (D)005.(A)ISS;                                                                            
          71404          (A)UE   ;                                                                                 
          71406          (A) GO E;                                                                                 
          71408          VEN F;                                                                                    
          71410          ASTER;                                                                                    
          71412          MAST;                                                                                     
          71414          ER RO;                                                                                    
          71416          UTINE;                                                                                    
          71418          LOCKO;                                                                                    
          71420          UT PL;                                                                                    
          71422          EASE ;                                                                                    
          71424          (D)5.5.;                                                                                  
          71426          (A)MASTE;                                                                                 
          71428          R TOO;                                                                                    
          71430           LARG;                                                                                    
          71432          (A)E  (D)5.5.;                                                                            
          71434          (A)MOD R;                                                                                 
          71436          EJ   ;                                                                                    
          71438           ;                                                                                        
          71440          MODS ;                                                                                    
          71442          ;                                                                                         
          71444          NOT ;                                                                                     
          71446          (A)CD (D)5.5.;                                                                            
          71448          (A)OPT  ;                                                                                 
          71450          (D)5.5.;                                                                                  
          71452          (A)O REJ;                                                                                 
  Source image: P1030537.JPG
          71454          (D)5.5.;                                                                                  
                                                                                                                   
          71500    CONST   715       715     1    COMMENTS (3)                                                     
          71502          (A)OVERF;                                                                                 
          71504          LOW P;                                                                                    
          71506          LEASE;                                                                                    
          71508          (D)5.5.;                                                                                  
          71510          (A)PROG ;                                                                                 
          71512          REJ  ;                                                                                    
          71514          (A)TAPE ;                                                                                 
          71516          (A)REJ(D)5.5.;                                                                            
          71518          (A)TAPES;                                                                                 
          71520          TIMER;                                                                                    
          71522          PLEA;                                                                                     
          71524          (A)SE (D)5.5.;                                                                            
          71526          (A)U A P;                                                                                 
          71528          LEASE;                                                                                    
          71530          (D)5.5.;                                                                                  
          71532          (A)WRONG;                                                                                 
          71534          TAPE;                                                                                     
          71536          WRONG;                                                                                    
          71538          MODS;                                                                                     
          71540          WRONG;                                                                                    
          71542           STOR;                                                                                    
          71544          E SIZ;                                                                                    
          71546          (A)E  (D)5.5.;                                                                            
                                                                                                                   
          71600    CONST   716       716     1    ODDMENTS                                                         
          71602          (D)7.7.7.7.7.-;                                                                           
          71604          5£5£5£5£5£-;                                                                              
          71606          0101010101;                                                                               
          71608          7+7+7+7+7+;                                                                               
          71610          (A)?????;                                                                                 
          71612          *  77;                                                                                    
          71614          >>>>>;                                                                                    
          71616          (D)5.5.5.5.5.;                                                                            
          71618          000000001.;                                                                               
          71620          1.00000000;                                                                               
          71622          7.0000007.;                                                                               
          71624          1000000000;                                                                               
          71626          +0+0+0+0+0;                                                                               
          71628          5£5£5£0041;                                       ,                                       
          71630          (A)DBHDG;                                                                                 
          71632          (A)SERC(D)7:;                                                                             
          71634          (A)WE  /;                                                                                 
          71636          %%%%%;                                                                                    
          71638          TOTAL;                                                                                    
          71640          INDEX;                                                                                    
          71642          PASSI;                                                                                    
          71644          ALLOC;                                                                                    
          71646          CHAPT;                                                                                    
          71648          LIP;                                                                                      
          71650          HIP;                                                                                      
          71652          LOP;                                                                                      
          71654          HOP;                                                                                      
          71656          END  ;                                                                                    
                                                                                                                   
          71700    CONST   717       717     1    SENTINELS                                                        
          71702          (A)5   1;                                                                                 
          71704          09000;                                                                                    
  Source image: P1030538.JPG
          71706          FINIS;                                                                                    
          71708          (D)6£6£6£6£6£;                                                                            
          71710          5.00000047;                                                                               
          71712          4£4£4£4£43;                                                                               
          71714          7Ю5565547‼;                                                                               
          71716          (A)TAPE ;                                                                                 
          71718          START;                                                                                    
          71720          MAST;                                                                                     
          71722          ER RO;                                                                                    
          71724          UTINE;                                                                                    
                                                                                                                   
          71800    CONST   718       718     0    LOG WLS                                                          
          71802          (D)0;                                             ANNEXE TO EDIT TO                       
          71803          0;                                                WORD TO TYPE FROM                       
          71804          0;                                                IND MR                                  
          71805          Ю;                                                IND MR                                  
          71806          0;                                                COL                                     
          71807          3£000;                                            CONST                                   
                                                                                                                   
          71900    CONST   719       719     1    TW TA 1                                                          
          71902          (D)5.(A)LDB(D)5.;                                                                         
          71904          0;                                                                                        
          71906          0;                                                                                        
          71908          0;                                                                                        
          71910          0;                                                                                        
          71912          0;                                                                                        
          71914          0;                                                                                        
          71916          0;                                                                                        
          71918          0;                                                                                        
          71920          0;                                                                                        
                                                                                                                   
          72000    CONST   720       720     1    TW TA 2                                                          
          72002          (D)5.(A)LDB(D)5.;                                                                         
          72004          0;                                                                                        
          72006          0;                                                                                        
          72008          0;                                                                                        
          72010          0;                                                                                        
          72012          0;                                                                                        
          72014          0;                                                                                        
          72016          0;                                                                                        
          72018          0;                                                                                        
          72020          0;                                                                                        
                                                                                                                   
          72100    CONST   721       721     1    TW TA 3                                                          
          72102          (D)5.(A)LDB(D)5.;                                                                         
          72104          0;                                                                                        
          72106          0;                                                                                        
          72108          0;                                                                                        
          72110          0;                                                                                        
          72112          0;                                                                                        
          72114          0;                                                                                        
          72116          0;                                                                                        
          72118          0;                                                                                        
          72120          0;                                                                                        
                                                                                                                   
          72200    CONST   722       722     1    BULK CLEARS                                                      
          72202          (D)2001400000;                                    20                                      
          72204          2000Ю00000;                                       10                                      
          72206          2003+00000;                                       60                                      
          72208          2040400000;                                       1028                                    
  Source image: P1030539.JPG
          72210          Ю00000;                                                                                   
          72212          3000040;                                                                                  
          72214          4000000;                                                                                  
          72216          2200000;                                                                                  
          72218          (D)1000000;                                                                               
                                                                                                                   
          72300    TABLE   723       723     1    BULK COPIES                                                      
          72302   564     2     0     0  0  0   9   0   0   0  0  0  0     ///// INSTALLATION DETAILS              
          72304    91     1     0     0  0  0  10   0   0   0  0  0  0     /////MOD IDS                            
          72306    91     1     0     0  0  0   6   0   0   0  0  0  0     /////MASTER IDS                         
          72308   716    25     0     0  0  0   2   0   0   0  0  0  0     ///// MINUS ZERO                        
          72310   710     6     0     0  0  0   1   0   0   0  0  0  0     ///// CONSTANT                          
          72312    91     0     0     0  0  0   8   0   0   0  0  0  0     /////MOD BLOCK                          
          72314   734     2     0     0  0  0   0   0   1   0  0  0  0     ///// PIPS(1)                           
          72316   735     2     0     0  0  0   7   0   0   0  0  0  0     ///// PIPS(2)                           
          72318   736     2     0     0  0  0   7   0   3   0  0  0  0     ///// PIPS(3)&(4)                       
          72320   738     2     0     0  0  0  13   0   0   0  0  0  0     ///// SP                                
          72322   739     2     0     0  0  0   8   0   0   0  0  0  0     ///// PIPS(5)                           
          72324   740     2     0     0  0  0   5   0   0   0  0  0  0     ///// PIPS(6)                           
          72326     0     0     0     0  0  0   0   2   0   0  0  0  0     ///// STORE DUMP                        
          72328   704     2     0     0  0  0   3   0   0   0  0  0  0     ///// SOURCE BLOCK                      
          72330    91     0     0     0  0  0  10   0   0   0  0  0  0     /////MOD REJ                            
          72332   717    16     0     0  0  0  10   0   0   0  0  0  0     ///// SPECIAL BLOCK                     
                                                                                                                   
          72400    TABLE   724       724     1    EDIT TIME                                                        
          72402   566     5     0     0  0  0   3   0   0   3  0  0  0                                             
          72404   716    32     0     0  2  0   1   4   1   0  0  0  1     /////TAB                                
          72406   717     8     0     0  2  0   1   0   0   0  0  0  0     RED                                     
          72408   566     5     0     0  0  0   3   0   0   3  0  0  0                                             
          72410   716    32     0     0  2  0   1   4   0   0  0  0  0     /////TAB                                
          72412     0   156     0     0  0  0   2   2   1   0  0  0  0     ///// WITH CLOCK                        
          72414   566     5     0     0  0  0   3   0   0   3  0  0  0     ///// WITHOUT CLOCK                     
                                                                                                                   
          72500    TABLE   725       725     4    UNPACK CD                                                        
          72502   710     2     0     0  2  0   0   0   0   0  0  0  0     >>>>                                    
          72504   710     2     0     0  0  1   0   0   0   0  0  0  1     MODS                                    
          72506   565    13     0     0  0  0   0   0   0   0  0  0  1     CD BLOCK FIVE                           
                                                                                                                   
          72600    TABLE   726       726     1    *77/PROG REJ                                                     
          72602   704     2     0     0  0  0   5   0   3   0  0  0  0     PROGRAMME                               
          72604   704     3     0     0  0  0   5   0   1   0  0  0  0     SERIAL                                  
          72606   704     4     0     0  0  0   2   3   1   2  0  0  0     INTERIM                                 
          72608   713    10     0     0  2  0   2   3   1   0  0  0  1     ///// LELE                              
          72610    91     0     0     0  2  0   5   0   0   0  0  0  0     PROGRAM                                 
          72612    91     2     0     0  2  0   5   0   1   0  0  0  0     SERIAL                                  
          72614    91     4     0     0  2  0   5   0   1   0  0  0  0     INTERIM                                 
          72616   713    10     0     0  2  0   2   3   1   0  0  0  1     LELE                                    
          72618   704     2     0     0  0  0   5   0   5   0  0  0  0     PROGRAMME                               
          72620   704     3     0     0  0  0   5   0   0   0  0  0  0     SERIAL                                  
          72622   704     4     0     0  0  0   5   0   0   4  0  0  1     INTERIM                                 
          72624   704     2     0     0  0  0   5   0   3   0  0  0  0     PROGRAMME                               
          72626   704     3     0     0  0  0   5   0   1   0  0  0  0     SERIAL                                  
          72628   704     4     0     0  0  0   2   3   1   2  0  0  0     INTERIM                                 
          72630   713    10     0     0  2  0   1   3   0   0  0  0  0     LE                                      
          72632   713    10     0     0  2  0   2   3   0   0  0  0  1     LELE                                    
                                                                                                                   
          72700    TABLE   727       727     1    RC/DB/WE                                                         
          72702   716    32     0     0  2  0   2   2   0   0  0  0  0     RC                                      
          72704   707     3     0     0  0  0   3   2   1   1  0  0  0     RT                                      
          72706   713    10     0     0  2  0   2   3   2   0  0  0  1     LELE                                    
  Source image: P1030540.JPG
          72708   716    30     0     0  2  0   2   0   0   0  0  0  0     DB                                      
          72710   707     3     0     0  0  0   3   2   1   1  0  0  0     RT                                      
          72712   716    32     0     0  2  0   1   4   1   0  0  0  0     TAB                                     
          72714    91     0     0     0  2  0   5   0   0   0  0  0  0     BLOCK                                   
          72716   713    10     0     0  2  0   2   3   0   0  0  0  1     LELE                                    
          72718   716    34     0     0  2  0   2   0   0   0  0  0  0     WE                                      
          72720   707     3     0     0  0  0   3   2   1   1  0  0  0     RT                                      
          72722   713    10     0     0  2  0   2   3   2   0  0  0  1     LELE                                    
                                                                                                                   
          72800    TABLE   728       728     1    >>>>>                                                            
          72802   716    14     0     0  2  0   5   0   0   0  0  0  0     >>>>>                                   
          72804   710     2     0     0  0  0   2   3   1   0  0  0  0     TW                                      
          72806   710     3     0     0  0  0   2   3   1   0  0  0  0     CD                                      
          72808   710     4     0     0  0  0   2   3   1   0  0  0  0     MODS                                    
          72810   710     5     0     0  0  0   1   4   1   0  0  0  0     DIVS                                    
          72812   564     6     0     0  0  0   1   4   1   0  0  0  0     CLOCK                                   
          72814   564     7     0     0  0  0   1   4   1   0  0  0  0     TIMER                                   
          72816   564     8     0     0  0  0   1   4   1   0  0  0  0     LOUT                                    
          72818   564     9     0     0  0  0   1   4   1   0  0  0  0     MT                                      
          72820   710    10     0     0  0  0   1   4   1   0  0  0  0     2ND STORE                               
          72822   713    10     0     0  2  0   2   3   2   0  0  0  1     LELE                                    
                                                                                                                   
          72900    TABLE   729       729     1    HDG/SER                                                          
          72902   716    30     0     0  2  0   3   2   0   0  0  0  0     HDG                                     
          72904   710     3     0     0  0  0   5   0   2   0  0  0  0     PROGM                                   
          72906    91     6     0     0  2  0   2   3   1   0  0  0  0     FILE                                    
          72908   713    10     0     0  2  0   2   3   0   0  0  0  1     LELE                                    
          72910   716    32     0     0  2  0   3   0   0   0  0  0  0     SER                                     
          72912   707     3     0     0  0  0   3   2   0   1  0  0  0     RT                                      
          72914   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          72916   566     2     0     0  0  0   5   0   0   4  0  0  0     EXP BLOCK                               
          72918   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          72920    91     0     0     0  2  0   5   0   0   0  0  0  0     ACT BLOCK                               
          72922   713    10     0     0  2  0   2   3   0   0  0  0  1     LE LE                                   
                                                                                                                   
          73000    TABLE   730       730     1    WRONG TAPE/TAPES                                                 
          73002   566     7     0     0  0  0   5   0   3   4  0  0  0     TAPE NO                                 
          73004   713    10     0     0  2  0   2   3   0   0  0  0  1     LELE                                    
          73006   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73008   710    16     0     0  2  0   5   0   0   0  0  0  0     TAPE NO                                 
          73010   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73012   710    18     0     0  2  0   5   0   0   0  0  0  0     TAPE NO                                 
          73014   713    10     0     0  2  0   2   3   1   0  0  0  1     LELE                                    
          73016   703     2     0     0  0  0   5   0   0   5  0  0  0     TAPE NO                                 
          73018   703     3     0     0  0  0   5   0   0   5  0  0  1     TAPE NO                                 
                                                                                                                   
          73100    TABLE   731       731     1    WRONG MODS/MODS                                                  
          73102   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73104   710     7     0     0  0  0   5   0   0   4  0  0  0     MOD EXPECTED                            
          73106   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73108   710     6     0     0  0  0   5   0   0   4  0  0  0     MOD FOUNT                               
          73110   713    10     0     0  2  0   2   3   1   0  0  0  1     LELE                                    
          73112   703    13     0     0  0  0   5   0   1   5  0  0  0     MOD 1                                   
          73114   703    14     0     0  0  0   5   0   1   5  0  0  0     MOD 2                                   
          73116   703    15     0     0  0  0   5   0   1   5  0  0  0     MOD 3                                   
          73118   703    16     0     0  0  0   5   0   1   5  0  0  0     MOD 4                                   
          73120   703    17     0     0  0  0   5   0   1   5  0  0  0     MOD 5                                   
          73122   713    10     0     0  2  0   2   3   3   0  0  0  1     LELE                                    
                                                                                                                   
          73200    TABLE   732       732     1    HIPHOPLIPLOP                                                     
  Source image: P1030541.JPG
          73202    91  1000     0     0  2  0   3   2   0   0  0  0  0                                             
          73204   707     3     0     0  0  0   3   2   0   1  0  0  0     RT                                      
          73206   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73208   710     3     0     0  0  0   5   0   0   0  0  0  0     PTOGM                                   
          73210   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73212    91  1002     0     0  0  0   5   0   0   0  0  0  0     RUN                                     
          73214   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73216    91  1003     0     0  0  0   5   0   0   4  0  0  0     SPOOL                                   
          73218   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73220    91     6     0     0  2  0   2   3   0   0  0  0  0     FILE                                    
          73222   716    34     0     0  2  0   1   4   0   0  0  0  0     /                                       
          73224    91    10     0     0  2  0   2   3   0   0  0  0  0     REEL                                    
          73226   713    10     0     0  2  0   2   3   3   0  0  0  1     LELE                                    
                                                                                                                   
          73300    TABLE   733       733     1    LOP                                                              
          73302   716    52     0     0  2  0   3   2   0   0  0  0  0     LOP                                     
          73304   707     3     0     0  0  0   3   2   0   1  0  0  0     RT                                      
          73306   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73308   717     4     0     0  2  0   5   0   0   0  0  0  0     9000                                    
          73310   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73312    91  1000     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          73314   716    32     0     0  2  0   1   4   0   0  0  0  0     TAB                                     
          73316   566     7     0     0  0  0   5   0   0   4  0  0  0     SPOOOL                                  
          73318   713    10     0     0  2  0   2   3   4   0  0  0  1     LELE                                    
                                                                                                                   
          73400    PROCR   734       734     PRIMARY INPUT SEQUENCES(1)                                            
          73402    100            256   0  2              0                (½8 1 )             OR 24/1/0>16        replace (B) by (N)
          73403    105           1152   1  0              0                                                        subtract (N) from (A)
          73404    100            256   0  2              0                (& 1 )                                  replace (B) by (N)
          73405    102              0   0  0              0                                                        transfer (A) to N
          73406    100            256   0  2              0                (& 1 )                                  replace (B) by (N)
          73407    102              0   0  0              0                                                        transfer (A) to N
          73408    100            256   0  2              0                (& 1 )                                  replace (B) by (N)
          73409    102              0   0  0              0                                                        transfer (A) to N
          73410    100            256   0  2              0                (& 1 )                                  replace (B) by (N)
          73411    102              0   0  0              0                                                        transfer (A) to N
          73412    100            256   0  2              0                (Q--1 )                                 replace (B) by (N)
          73413    106            257   1  0              0                                    28/1/0>16           select (N)
          73414    102             16   0  0              0                (Q-2 -)                                 transfer (A) to N
          73415    106            260   1  0              0                                    ( &  &)             select (N)
          73416    103              0   0  0              0                (8-T  )                                 copy (A) to N
          73417    104            263   1  0              0                                    1                   add (N) to (A)
                                                                                                                   
          73500    PROCR   735       735     PRIMARY INPUT SEQUENCES (2)                                           
          73502    106             28   0  0              0                (16)                CONVERT             select (N)
          73503    102            327   0  0              0                (18)                FROM                transfer (A) to N
          73504    102              2   1  0              0                (20)                LOAD                transfer (A) to N
          73505    102              4   0  0              0                (22)                STORE               transfer (A) to N
          73506    101            141   1  3              0                (24)                (1)                 select literal address
          73507    102              5   0  0              0                (26)                                    transfer (A) to N
          73508    124            320   1  0              0                (28)                                    unconditional jump
                                                                                                                   
          73600    PROCR   736       736     PRIMARY INPUT SEQUENCES(3)                                            
          73602    106             65   0  0              0                (17)                SET UP ASLS FOR     select (N)
          73603    103             64   0  0              0                 (18)               0/0                 copy (A) to N
          73604    103             72   0  0              0                (19)                1/0                 copy (A) to N
          73605    103            192   0  0              0                (20)                16/0                copy (A) to N
          73606    103            200   0  0              0                (21)                 17/0               copy (A) to N
          73607    124            129   0  1              0                (22)                                    modify address of next
          73608    126              0   1  0              0                (23)                TEST ROUTE          test route N1
  Source image: P1030542.JPG
          73609    124             34   1  0              0                (24)>CLOSED                             unconditional jump
          73610    124             28   1  0              0                (24)>OPEN                               unconditional jump
          73611    124             28   1  0              0                (26)>OPEN                               unconditional jump
          73612    124             28   1  0              0                (27)>OPEN                               unconditional jump
          73613    106             66   0  0              0                (28)                TEST FIRST ROUTE    select (N)
          73614    127             42   0  2              0                (29)>YES            TESTED OPEN         jump A >= Z
          73615    101              8   1  3              0                (30)AUGMENT ROUTE                       select literal address
          73616    124             41   1  0              0                (31)BY 8                                unconditional jump
          73617    100              0   0  0              0                (32)                                    Halt
          73618    100              0   0  0              0                (33)                                    Halt
          73619    101              0   1  3              0                (34)ARRANGE TO TEST                     select literal address
          73620    105             66   0  0              0                (35)NEXT CHANNEL                        subtract (N) from (A)
          73621    103             66   0  0              0                (36)                                    copy (A) to N
          73622    107             23   0  0              0                (37)                                    augment (N) by (A)
          73623    127             22   0  3              0                (38)                TEST BOTH CHANNELS  jump A < Z
          73624    100            259   0  0              0                (39)YES, HALT 1/0/3 CLOSED              Halt
          73625    124             22   1  0              0                (40)>RETEST                             unconditional jump
          73626    107            129   0  0              0                (41)                                    augment (N) by (A)
          73627    124            129   0  1              0                (42)READ                                modify address of next
          73628    119              0   0  1              0                (43)                                    input one block/reset timer
          73629    124            129   0  1              0                (44)                TEST ROUTE          modify address of next
          73630    126              0   1  0              0                (45)                                    test route N1
          73631    100            259   0  0              0                (46)HALT 103        C                   Halt
          73632    124             44   1  0              0                (47)>               E                   unconditional jump
          73633    100            261   0  0              0                (48)HALT 105        D                   Halt
          73634    125              0   1  0              0                (49)                W                   set indicators
          73635    106            256   1  0              0                (50)                TEST NEXT BLOCK     select (N)
          73636    105             68   1  0              0                (51)                CORRECT             subtract (N) from (A)
          73637    127             58   0  1              0                (52)>NO                                 jump A != Z
          73638    106             62   1  0              0                (53)UNPACK BLOCK                        select (N)
          73639    124             67   0  1              0                (54)                                    modify address of next
          73640    128     999      0   1  0              0                (55)                                    bulk copy alpha to short
          73641    124             67   0  1              0                (56)                                    modify address of next
          73642    124     574      2   1  0              0        574     (57)>SIPS                               unconditional jump
          73643    106            256   1  0              0                (58)                TEST NEXT BLOCK     select (N)
          73644    105             70   1  0              0                (59)                SAME AS THIS ONE    subtract (N) from (A)
          73645    127             42   0  0              0                (60)>YES                                jump A = Z
          73646    100            270   0  0              0                (61)NO HALT 1/0/.                       Halt
          73647    100            261   0  0              0                (62)BULK COPY                           Halt
          73648    100           1024   0  0              0                (63)TABLE                               Halt
          73649    100              0   0  0              0                (64)                                    Halt
          73650    115            256   0  0              0                (65)ASL                                 collate and add
          73651    100              8   0  0              0                (66)TEST ROUTE COUNTER                  Halt
          73652    100              0   0  1              0                (67)DIV ONE                             Invalid
                                                                                                                   
          73700    CONST   737       737     1    PRIMARY INPUT SEQUENCES(4)                                       
          73702          (D)5£5£5£0042;                                    (68)SECOND BLOCK                        
          73704          (A)H8 1 ;                                         (70)FIRST BLOCK                         
                                                                                                                   
          73800    PROCR   738       738     INDEPENDENT STORE PRINT                                               
          73802    125           4096   1  1              0                (141)SET NON-INT                        clear indicators
          73803    101           8158   1  3              0                (142)SET UP ASL                         select literal address
          73804    102             64   0  0              0                (143)                                   transfer (A) to N
          73805    119              0   0  1              0                (144)READ                               input one block/reset timer
          73806    126              0   1  0              0                (145)TEST ROUTE                         test route N1
          73807    100            769   0  0              0                (146)RC HALT 3/0/1                      Halt
          73808    124            145   1  0              0                (147)EN                                 unconditional jump
          73809    100           8159   0  0              0                (148)DB HALT 1/£/:/                     Halt
          73810    100             32   0  0              0                (149)                                   Halt
          73811    106            148   1  0              0                (150)UNPACK FIRST BLOCK                 select (N)
  Source image: P1030543.JPG
          73812    128           8191   1  0              0                (151)                                   bulk copy alpha to short
          73813    124           8191   1  0              0                (152)>FIRST INSTRUCTION                 unconditional jump
          73814    100              0   0  0              0                (153)PR RT TYPE/STORE SIZE/PR RT        Halt
                                                                                                                   
          73900    CONST   739       739     1    PRIMARY INPUT SEQUENCES(5)                                       
          73902          (A)'8 1 ;                                         (256)28/1/0>16                          
          73904           ;                                                (258)>(129)FIRST MT ROUTE               
          73906           8  &;                                            (260)BULK COPY TABLE                    
          73908          1;                                                (262)                     ''            
                                                                                                                   
          74000    PROCR   740       740     PRIMARY INPUT SEQUENCES(6)                                            
          74002    106             34   0  1              0                (320)               CONVERT             select (N)
          74003    102             17   0  2              0                (322)               FROM                transfer (A) to N
          74004    125              2   0  1              0                (324)               LOAD                step on and test
          74005    125              1   0  2              0                (326)               STORE)              step on and test
          74006    124             17   1  0              0                (328)>              (2)                 unconditional jump
                                                                                                                   
          74007     END                                          A                                       ?????
 
 
 
 
 
 
 
 
 
 
 PROGRAMME   08004   SERIAL       0               CHAPS  3   FILES  5      TRAN.  AREAS  5     PTS INCLUDED
 
    F.PT.   NO       MOD.  GP.  YES       PRIORITY  3       ENTRY= CH2/1878
 
    SIZE  OF  CHAPS   3286    8104     512       0       0       0       0
 
 FILE  ID.      RTE.  TYPE      START  LOCN.      ALT.ROUTES    BLOCK  SIZE          CHAPT
         D1              14             7356            NO             394               2
         B1              15             7750            NO             154               2
         A1               7             7904            NO             154               2
         A2               8              204            NO             154               3
         A6               7              358            NO             154               3
 TRAN.  AREAS  START  LOCN.       CHAPT       SIZE
        10           6796             2        394
         5           2824             1        154
         7           7190             2        154
         8           2978             1        154
         9           3132             1        154
  SECTION.START
    1=2918    2=  74    3=2978    4=3026    5=2824    6=3126    7=7190    8=2978    9=3132   10=6796   11=3192   12=3308
   13=3212   14=2896   15=3284   16=3244   17=4026   18=  84   19=4576   20=2596   21=5236   22=4126   23=6728   24=7344
   25=2584   26=3384   27=6776   28=2964   29=3010   40=5628   41=5680   42=5576   44=6680   52=4538   53=3054   54=3098
   55=3258   61=2476   66=2448   67=2472   70=3098   72=3160   77=3054   91=2934   92=6690   93=3428   94=5476   97=3878
 
SWITCHES
  106= CH2/8058  107= CH2/8059  122= CH2/8060  127= CH2/8061  133= CH2/8062  140= CH2/8063  118= CH2/8064  184= CH2/8065
  222= CH2/8066  173= CH2/8067  240= CH2/8068  254= CH2/8069  263= CH2/8070  267= CH2/8071  278= CH2/8072  345= CH2/8073
  361= CH2/8074  374= CH2/8075  100= CH2/8076  495= CH2/8077  403= CH2/8078  407= CH2/8079  212= CH2/8080  645= CH2/8081
  411= CH2/8082
ITEM+ CTRS
    5= CH2/8083   42= CH2/8084   41= CH2/8085
MR'S 4-20
   11= CH2/8086   12= CH2/8088    6= CH2/8090    5= CH2/8092   13= CH2/8094    4= CH2/8096    7= CH2/8098   15= CH2/8100
    8= CH2/8102
CHAPT       1
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    2      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    2
 PROCEDURE  100
   33                                0  1  0    54    2       0  0  3     0    2       1  1  3     5    0
   36       0  0  2    70    2      25  1  1  4096    0      24  0  3     0    2      23  0  2     0 1024
   40       0  1  1    54    2      24  0  3     3    2      24  1  0  2996    0       0  1  0    54    2
   44       0  0  3     0    2       1  1  3     2    0       0  0  2    70    2      25  1  1  4096    0
   48      24  0  3     0    2      23  0  2     0 1024       0  1  1    54    2      24  0  3     3    2
   52      24  1  0  1878    0       0  0  0     0    0
  SECTION  1011
   54                                                             0       0                0       0
   56           0       0                0       0                0       0                0       0
   60           0       0                0       0                0       0                0       0
   64           0       0                0       0                0       0                0       0
   68           0       0                0       0
  SECTION  1012
   70                                                             2       0                0       0
   72           0       0                0       0
  SECTION  1013
 PROCEDURE 1002
CHAPT       2
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  101
   33                                0  1  0  2862    4       0  0  3     0    4       1  1  3     3    0
   36       0  0  2  2958    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  2862    4
 PROCEDURE  102
   41                                1  1  3     1    0       2  1  0  1472    4       6  0  0  6785    4
   44      27  0  1   222    4       6  0  0  6784    4       2  0  0  1461    4       0  0  3     0    4
   48       1  1  3    19    0      26  0  0   987    4       0  1  0  2862    4       0  0  3     0    4
   52       0  1  2  2876    4       6  1  0  2878    4       4  0  0     9    4      25  1  1  4096    0
   56      24  0  3     0    4      23  0  2     0  256       0  0  3  2866    4       1  1  3     1    0
   60       2  0  0  8062    4       0  0  3  2959    4       6  1  0  2880    4      28  0  0  5680    4
   64      26  0  0  2562    4       6  1  0  5635    4       2  1  0  1584    4       6  1  0  5633    4
   68       2  1  0  1582    4
 PROCEDURE  103
   69                                0  0  3  2960    4       1  1  3     1    0       2  0  0  8063    4
   72       2  1  0  1430    4       6  1  0  2882    4      28  0  0  1478    4       0  0  3  2960    4
   76       1  1  3    15    0       4  0  0  1464    4      18  0  1     5    0       4  0  0     8    4
   80       0  1  2  1466    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
   84      26  0  0   962    4       6  0  0  1476    4       1  1  2    15    0      27  0  1    91    4
   88       6  0  0  1477    4       2  0  0  1468    4      26  0  0   962    4       6  0  0  1476    4
   92       1  1  2     1    0      27  0  1  2061    4       1  0  1    12    0      15  0  0  1584    4
   96      27  0  0    99    4       5  0  0  2961    4      27  0  1  2618    4       6  0  0  1584    4
  100       0  0  3  2959    4       1  1  1     1    0       2  0  0  1470    4       0  0  3  2960    4
  104       6  0  0  1477    4      18  0  1     2    0      14  0  0  1470    4      26  0  0   962    4
 PROCEDURE  104
  108       6  0  0  1476    4       1  1  2     2    0      27  0  1   152    4       6  1  0  2884    4
  112      28  0  0  5680    4       6  0  0  1464    4      27  0  1   148    4      24  0  2  1670    4
  116      24  1  2    15    4      28  0  3     0    0       0  1  0  2862    4       0  0  3     0    4
  120       1  1  1     2    0       0  0  3  2866    4       3  0  0  8083    4       6  1  0  1534    4
  124       2  1  0  8086    4       6  1  0  1534    4       2  1  0  8088    4       1  0  1     3    0
  128      25  1  2     0    0      24  0  1  8086    4      15  0  0  5681    4      27  0  0   146    4
  132       1  1  2     1    0      18  1  0  4127    0       2  0  0  8088    4      18  1  0     1    0
  136       2  0  0  1445    4       0  0  2  1446    4       6  0  0  1446    4      24  0  1  1445    4
  140      18  1  3     0    0      24  0  1  8088    4      14  0  0  1478    4      23  0  0     1    0
  144       0  0  0  8086    3      24  1  0   125    4      26  0  0   962    4      24  1  0   108    4
  148      24  0  2  1680    4      24  1  2    15    4      28  0  2     0    0      24  1  0   123    4
  152       1  1  3     1    0       2  0  0  8064    4
 PROCEDURE  105
  154                                                        24  0  2  1610    4      28  1  2  5578    4
  156      26  0  0   994    4      26  0  0  1170    4      24  0  2  1632    4      28  1  2  5578    4
  160      26  0  0   994    4       0  0  3  2960    4       6  1  0  2886    4       2  1  0  8086    4
  164       6  1  0  2888    4       2  1  0  8088    4      24  0  1  8086    4       6  0  0  1478    4
  168      18  0  3     3    0      18  1  0  4127    0       2  0  0  1445    4      18  1  3     1    0
  172      27  0  0   175    4       6  0  0  2962    4      24  1  0   191    4       6  0  0  2963    4
  176      24  1  0   191    4       6  0  0  1445    4      18  1  1  4126    0      18  1  3     3    0
  180       2  0  0  1445    4      18  1  1     1    0      18  1  3     1    0       2  0  0  1576    4
  184       1  1  3   238    0       2  0  0  1444    4      24  0  1  1576    4       1  0  1     0    0
  188       6  0  0  2964    4      14  0  0  1444    4       6  0  0  1444    4      24  0  1  8088    4
  192       2  1  0  5577    4      23  0  0  4098    0       0  0  0  8088    3      24  1  0   177    4
  196       6  1  0  1530    4       2  1  0  5586    4      26  0  0   994    4      23  0  0     1    0
  200       0  0  0  8086    3      24  1  0   164    4       0  0  3  2959    4      26  0  0  1170    4
  204      24  0  2  1642    4      28  1  2  5578    4      26  0  0   994    4      24  1  2    15    4
  208      24  0  2     0    0      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0
  212      28  1  1  6680    4      24  0  2  5578    4      18  1  1  4123    0       1  1  3    46    0
  216      18  1  1     5    0      24  1  2    15    4      28  1  1     0    0      24  0  2   244    4
  220       2  0  0  1049    4      24  1  0  2056    4       6  1  0  2890    4       0  1  2  2808    4
  224       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
  228       6  0  0  2965    4      24  1  2    13    4       2  1  0     5    0       6  0  0  2966    4
  232      24  1  2    13    4       2  1  0     6    0       6  0  0  2967    4      24  1  2    13    4
  236       2  1  0     9    0       6  1  0  1530    4      24  1  2    13    4       2  1  0    10    0
  240       1  1  3     8    0       0  0  2    12    4      26  0  0   987    4      24  1  0    50    4
 PROCEDURE  106
  244      26  0  0   945    4       6  1  0  5680    4       5  1  0  1572    4      27  0  1   244    4
  248       2  0  0  1460    4      26  0  0   945    4      26  0  0   945    4       6  1  0  5680    4
  252       5  1  0  1554    4      27  0  1   250    4       1  1  3    20    0       2  0  0  8058    4
  256      24  1  0   258    4
 PROCEDURE  107
  257                               26  0  0   945    4       6  1  0  5680    4       5  1  0  1554    4
  260      27  0  0   279    4       6  0  0  1468    4      27  0  0   266    4       5  1  0  5681    4
  264      27  0  1   266    4      23  0  3     0    0       6  1  0  5684    4       5  1  0  1556    4
  268      27  0  0   283    4       6  1  0  5684    4       5  1  0  1558    4      27  0  0   282    4
  272       6  1  0  5684    4       5  1  0  1560    4      27  0  0   281    4       6  1  0  5684    4
  276       5  1  0  1570    4      27  0  0   790    4      24  1  0   311    4       2  0  0  8086    4
  280       1  1  3     1    0       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0
  284       2  0  0  8059    4       6  0  0  1449    4      27  0  0   299    4       1  1  3     0    0
  288       2  0  0  1449    4      24  0  1  8058    4      26  0  1   290    4       0  0  0   299    3
  292       0  0  0   293    3       6  1  0  1520    4       2  1  0  5578    4       6  1  0  1530    4
  296       2  1  0  5580    4       2  1  0  1430    4      26  0  0  1049    4      26  0  0   945    4
  300       6  1  0  5638    4       5  1  0  1562    4      27  0  1   304    4      26  0  0   945    4
  304       1  1  3     0    0       2  0  0  1450    4       1  1  3     2    0       2  0  0  8058    4
  308       1  1  3     1    0       2  0  0  8064    4      24  1  0   258    4
 PROCEDURE  108
  311                                                                                  6  1  0  5680    4
  312       2  1  0  1520    4       6  0  0  1450    4      27  0  0   327    4      24  0  2  5680    4
  316      18  1  1  4123    0       1  1  3    42    0      18  1  1     5    0      24  0  1  8090    4
  320      28  1  1  6052    4      23  0  0    42    0       0  0  0  8090    3      24  1  0   327    4
  324       1  1  3     0    0       2  0  0  1450    4       2  0  0  8090    4
 PROCEDURE  109
  327                                                                                  6  1  0  5706    4
  328      18  1  1  4120    0       0  0  3  2960    4       1  1  2    91    0       0  0  3  2959    4
  332      27  0  1   355    4      24  0  2  5706    4      18  1  1  4123    0       1  1  3    16    0
  336      18  1  1     5    0      28  1  1  5724    4      26  0  0  1179    4       6  0  0  1449    4
  340      27  0  1   344    4      26  0  0   358    4      27  0  0   355    4      24  1  0   454    4
  344      26  0  0  1230    4      24  1  0   257    4
 PROCEDURE  110
  346                                                         1  1  3     0    0       2  0  0  1449    4
  348      24  0  1  8058    4      26  0  1   349    4       0  0  0   257    3       0  0  0   352    3
  352       6  1  0  5680    4       2  1  0  1430    4      24  1  0   257    4
 PROCEDURE  111
  355                                                                                  1  1  3     1    0
  356       2  0  0  8064    4      24  1  0   257    4
 PROCEDURE  112
  358                                                         0  0  0     0    0       1  1  3     2    0
  360       3  0  0  1451    4       3  0  0  1452    4       6  1  0  1534    4       2  1  0  8092    4
  364       6  1  0  2892    4       2  1  0  8094    4       6  1  0  1534    4       2  1  0  8096    4
  368       2  1  0  1512    4       6  1  0  2894    4       2  1  0  8088    4      24  0  1  8092    4
  372       6  1  0  6002    4      24  0  1  8096    4       3  1  0  5986    4      27  0  0   405    4
  376       6  1  0  1512    4      24  0  1  8092    4       0  1  2  6002    4      18  1  1     2    0
  380      27  0  0   394    4      23  0  0     1    0       0  0  0  8094    3      24  1  0   385    4
  384      24  1  0   406    4      23  0  0     2    0       0  0  0  8088    3      24  1  0   379    4
  388      23  0  0     2    0       0  0  0  8096    3      24  1  0   391    4      23  0  0     2    0
  392       0  0  0  8092    3      24  1  0   368    4       1  1  3     0    0      24  0  1  8096    4
  396       2  1  0  5988    4       6  0  0  1452    4      27  0  1   405    4       1  1  3     2    0
  400       7  0  0  1451    4       2  0  0  1452    4      23  0  0     2    0       0  0  0  8092    3
  404      24  1  0   364    4      26  0  1   358    4
 PROCEDURE  113
  406                                                         0  1  0  1512    4       1  1  3     0    0
  408      24  0  1  8096    4       2  1  0  5988    4       6  1  0  2892    4       2  1  0  8094    4
  412       6  0  0  1452    4      27  0  0   450    4       6  1  0  1513    4       1  1  2  4079    0
  416      27  0  0   418    4      27  0  2   617    4       6  1  0  1513    4      18  1  1  4127    0
  420      27  0  0   795    4       2  0  0  1512    4      18  1  1     1    0      27  0  0   795    4
  424       2  0  0  1455    4       6  0  0  1512    4       1  1  2     1    0      18  1  0  4127    0
  428       2  0  0  1453    4      18  1  0     1    0       2  0  0  1454    4       0  0  2  1446    4
  432      24  0  1  1454    4      18  1  3     0    0      24  0  1  1453    4      15  0  0  1478    4
  436       0  0  3  2959    4      27  0  1   444    4       6  0  0  1455    4       1  1  2     8    0
  440      27  0  0   795    4      27  0  3   448    4       3  0  0  1455    4      24  1  0   450    4
  444       6  0  0  1455    4       1  1  2     8    0      27  0  0   795    4      27  0  3   450    4
  448       1  1  3     0    0       2  0  0  1452    4       1  1  3     0    0       2  1  0  1512    4
  452       0  1  1  1512    4      24  1  0   385    4
 PROCEDURE  114
  454                                                        24  0  1  1455    4      24  1  0   455    4
  456      24  1  0   464    4      24  1  0   462    4      24  1  0   480    4      24  1  0   550    4
  460      24  1  0   795    4      24  1  0   480    4
 PROCEDURE  115
  462                                                         1  1  3     1    0       3  0  0  1449    4
  464       1  1  1     1    0       2  0  0  1455    4       1  1  3     1    0       2  0  0  8064    4
  468      24  0  1  8058    4      26  0  1   469    4       0  0  0   257    3       0  0  0   472    3
  472       6  1  0  5680    4       2  1  0  5578    4       6  1  0  1568    4       2  1  0  5580    4
  476       6  1  0  1530    4       2  1  0  5582    4      26  0  0  1058    4      24  1  0   257    4
 PROCEDURE  116
  480       6  0  0  1450    4      27  0  0   493    4       6  0  0  1449    4      27  0  1   257    4
  484       6  1  0  6003    4      18  0  1  4126    0       1  1  2  4080    0      27  0  3   493    4
  488      27  0  1   257    4       6  1  0  6005    4      18  0  1  4126    0       1  1  2  4080    0
  492      27  0  2   257    4      24  0  1  8059    4      26  0  1   494    4       0  0  0   500    3
  496       0  0  0   500    3       0  0  0   500    3       0  0  0   795    3       0  0  0   795    3
  500       6  1  0  2896    4       2  1  0  8086    4       1  1  3     1    0       2  0  0  1465    4
  504      24  0  1  8086    4      24  0  2  6006    4      18  1  1  4123    0       1  1  3    26    0
  508      18  1  1     5    0      28  1  1  5724    4      26  0  0  1179    4      26  0  0  1230    4
  512      24  1  0   514    4      24  1  0   518    4      23  0  0    42    0       0  0  0  8086    3
  516      24  1  0   504    4      24  1  0   807    4       1  1  3     0    0       2  0  0  1465    4
  520       6  0  0  1455    4       1  1  2     6    0      27  0  1   539    4      24  0  1  8059    4
  524      26  0  1   524    4       0  0  0   528    3       0  0  0   539    3       0  0  0   532    3
  528      24  0  1  8086    4       6  1  0  5984    4       2  1  0  5684    4      24  1  0   545    4
  532      24  0  1  8086    4       6  1  0  5982    4       2  1  0  5682    4      24  0  1  8086    4
  536       6  1  0  5986    4       2  1  0  5686    4      24  1  0   545    4      24  0  1  8086    4
  540      24  0  2  5982    4      18  1  1  4123    0       1  1  3    40    0      18  1  1     5    0
  544      28  1  1  5682    4      24  0  1  8059    4      26  0  1   546    4       0  0  0   581    3
  548       0  0  0   608    3       0  0  0   610    3
 PROCEDURE  117
  550                                                        24  0  1  1451    4       6  1  0  5712    4
  552      24  0  1  8059    4      26  0  1   553    4       0  0  0   559    3       0  0  0   561    3
  556       0  0  0   567    3       0  0  0   569    3       0  0  0   355    3       2  1  0  5686    4
  560      24  1  0   581    4       2  1  0  5686    4       6  1  0  1518    4       2  1  0  5688    4
  564       6  1  0  2898    4      28  1  1  5690    4      24  1  0   608    4       2  1  0  5686    4
  568      24  1  0   610    4
 PROCEDURE  118
  569                               26  0  0  1175    4      24  0  2  1720    4      28  1  3  5582    4
  572       3  0  0  8084    4      24  0  2  5706    4      18  1  1  4123    0       1  1  3    16    0
  576      18  1  1     5    0      28  1  1  5604    4      26  0  0  1141    4      26  0  0  1041    4
  580      24  1  0   257    4
 PROCEDURE  119
  581                               26  0  0  1175    4       6  1  0  5688    4      18  1  1  4122    0
  584       2  1  0  5688    4      18  1  1     6    0       2  1  0  5694    4      24  0  2  1722    4
  588      28  1  3  5582    4       3  0  0  8084    4       6  1  0  5690    4       2  1  0  5594    4
  592       6  1  0  5692    4       2  1  0  5596    4       6  1  0  1518    4       3  1  0  5598    4
  596       2  1  0  5608    4      24  0  2  5706    4      18  1  1  4123    0       1  1  3     8    0
  600      18  1  1     5    0      28  1  1  5600    4      24  0  2  5714    4      18  1  1  4123    0
  604       1  1  3     8    0      18  1  1     5    0      28  1  1  5610    4      24  1  0   578    4
 PROCEDURE  120
  608      26  0  0  1155    4      24  1  0   257    4
 PROCEDURE  121
  610                                                        26  0  0  1175    4      24  0  2  1720    4
  612      28  1  3  5582    4       3  0  0  8084    4      24  0  2  1726    4      28  1  2  5592    4
  616      24  1  0   573    4
 PROCEDURE  122
  617                                2  0  0  8060    4      24  0  1  8060    4      26  0  1   619    4
  620       0  0  0   630    3       0  0  0   464    3       0  0  0   462    3       0  0  0   642    3
  624       0  0  0   550    3       0  0  0   795    3       0  0  0   659    3       0  0  0   795    3
  628       0  0  0   679    3       0  0  0   790    3
 PROCEDURE  123
  630                                                        24  0  2  5680    4      18  1  1  4123    0
  632       1  1  3    42    0      18  1  1     5    0      28  1  1  6052    4       6  1  0  2900    4
  636      28  0  0  6094    4       6  1  0  2902    4       2  1  0  8090    4       1  1  3     1    0
  640       2  0  0  1450    4      24  1  0   449    4
 PROCEDURE  124
  642                                                        24  0  1  8059    4      26  0  1   643    4
  644       0  0  0   649    3       0  0  0   654    3       0  0  0   656    3       0  0  0   795    3
  648       0  0  0   795    3       6  1  0  2904    4       2  1  0  5682    4       6  1  0  2906    4
  652      28  1  1  5684    4      24  1  0   581    4       1  1  3     0    0      24  1  0   561    4
  656       6  1  0  2898    4      28  1  1  5682    4      24  1  0   610    4
 PROCEDURE  125
  659                                                                                 24  0  1  8059    4
  660      26  0  1   660    4       0  0  0   666    3       0  0  0   795    3       0  0  0   795    3
  664       0  0  0   795    3       0  0  0   795    3       1  1  3   292    0       2  1  0  5683    4
  668       1  1  3  4096    0       2  1  0  5689    4       6  1  0  5681    4       1  1  1     1    0
  672      18  1  1  4126    0       2  1  0  5685    4      18  1  1     2    0       2  1  0  5687    4
  676       2  1  0  5690    4       2  1  0  5692    4      24  1  0   581    4
 PROCEDURE  126
  679                                                                                  1  1  3     2    0
  680       2  0  0  8063    4       6  0  0  1476    4       1  1  2     3    0      27  0  1   790    4
  684      24  0  2  6680    4      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0
  688      24  1  2    15    4      28  1  1     0    0       6  1  0  2908    4      28  1  1  5780    4
  692       6  1  0  1534    4       2  1  0  8086    4       6  1  0  2910    4      28  1  1  5730    4
  696       6  0  0  1464    4      27  0  0   702    4      24  0  2  1702    4      24  1  2    15    4
  700      28  0  2     0    0      24  1  0   710    4      24  0  2  1674    4      24  1  2    15    4
  704      28  0  3     0    0       0  1  0  2862    4       0  0  3     0    4       1  1  1     2    0
  708       0  0  3  2866    4       3  0  0  8083    4      24  0  2  5731    4      18  1  1  4123    0
  712       1  1  3     8    0      18  1  1     5    0      24  0  1  8086    4      28  0  0  5780    4
  716      23  0  0     8    0       0  0  0  8086    3      24  1  0   719    4      26  0  0   962    4
  720       6  0  0  1476    4       1  1  2     3    0      27  0  0   694    4
 PROCEDURE  127
  723                                                                                  6  1  0  1534    4
  724       2  1  0  8086    4       0  0  3  2960    4       6  1  0  5684    4       5  1  0  1558    4
  728      27  0  0   732    4       1  1  3     2    0       2  0  0  8061    4      24  1  0   735    4
  732      26  0  0   945    4       1  1  3     1    0       2  0  0  8064    4       6  1  0  5684    4
  736       5  1  0  1570    4      27  0  0   790    4      24  0  1  8086    4       6  0  0  5780    4
  740      27  0  0   747    4       1  1  2    16    0      27  0  0   748    4      27  0  3   745    4
  744       1  1  1  4064    0       1  1  1    16    0      24  1  0   749    4       6  0  0  2968    4
  748       1  1  1   255    0       2  0  0  1514    4       6  1  0  5686    4      18  0  1  4124    0
  752       5  1  0  1522    4      27  0  1   757    4       6  1  0  1522    4       2  1  0  5686    4
  756      24  1  0   773    4       6  1  0  5687    4      18  0  1     5    0       4  1  0  5689    4
  760       1  0  1     0    0       2  1  0  1512    4      27  1  1   766    4       6  1  0  1512    4
  764      18  1  1  4127    0      24  1  0   761    4       2  1  0  5686    4       6  1  0  1512    4
  768       5  1  0  1514    4      27  0  1   773    4       1  1  3     1    0       2  0  0  8064    4
  772      24  1  0   786    4       6  1  0  1514    4       2  1  0  5689    4       6  1  0  1518    4
  776       2  1  0  5690    4      24  0  1  8061    4      26  0  1   778    4       0  0  0   781    3
  780       0  0  0   782    3       6  1  0  1522    4       2  1  0  5684    4      26  0  0  1155    4
  784       1  1  3     2    0       2  0  0  8064    4      26  0  0   945    4      23  0  0     1    0
  788       0  0  0  8086    3      24  1  0   725    4
 PROCEDURE  128
  790                                                         6  1  0  2774    4       2  1  0  5578    4
  792       6  1  0  1530    4       2  1  0  5580    4      26  0  0  1049    4
 PROCEDURE  129
  795                                                                                  1  1  3     1    0
  796       2  0  0  8064    4       6  1  0  5680    4       2  1  0  1596    4       0  1  0  2862    4
  800       0  0  3     0    4      24  0  2  1586    4      25  1  1  4096    0      24  0  3     0    4
  804      23  0  2     0 1280       0  1  1  2862    4      24  1  0   817    4
 PROCEDURE  130
  807                                                                                  6  1  0  5680    4
  808       2  1  0  1606    4       2  0  0  1465    4       0  1  0  2862    4       0  0  3     0    4
  812      24  0  2  1600    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1280
  816       0  1  1  2862    4
 PROCEDURE  131
  817                                1  1  3    19    0       0  0  2  2969    4      25  1  1  4096    0
  820      24  0  3     0    4      26  0  2     0  512       0  0  0  2639    3       0  0  0  2068    3
  824       0  0  0   826    3       0  0  0   257    3       6  0  0   609    4       3  0  0   807    4
  828       2  0  0   797    4      24  1  0   257    4
 PROCEDURE  132
  830                                                         0  0  0     0    0       0  1  0  2862    4
  832       0  0  3     0    4       0  0  2    16    4       6  1  0  2912    4       4  0  0     9    4
  836      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2862    4
  840      26  0  1   830    4
 PROCEDURE  133
  841                                0  0  0     0    0      24  0  1  8062    4      26  0  1   843    4
  844       0  0  0   856    3       0  0  0   846    3       6  1  0  1432    4      27  0  1   867    4
  848      26  0  0   830    4      24  1  2    17    4      24  0  2     0    0      18  1  1  4123    0
  852       1  1  3    52    0      18  1  1     5    0      28  1  1  5628    4      26  0  1   841    4
  856      26  0  0   830    4      24  1  2    17    4       6  1  0    12    0       5  1  0  1556    4
  860      27  0  1   849    4       1  1  3     2    0       2  0  0  8062    4      24  1  2    17    4
  864       6  1  0     5    0      18  0  1     5    0       2  1  0  8098    4       6  1  0  2914    4
  868      28  0  0  5680    4       6  1  0  2916    4      28  0  0  5628    4       0  1  0  2862    4
  872       0  0  3     0    4      24  1  2    17    4      24  0  2     0    0       4  0  0  8098    4
  876       2  0  0  2868    4       0  1  1  2862    4      24  0  3  2868    4      24  0  2     6    0
  880      18  1  1  4123    0       0  1  0  2862    4       0  0  3     0    4      24  1  2    17    4
  884      24  0  2     0    0       4  0  0  8098    4       2  0  0  2868    4       0  1  1  2862    4
  888      24  0  3  2868    4       6  1  0     7    0      18  1  1     5    0      28  1  1  5680    4
  892       0  1  0  2862    4       0  0  3     0    4      24  1  2    17    4      24  0  2     0    0
  896       4  0  0  8098    4       2  0  0  2868    4       0  1  1  2862    4      24  0  3  2868    4
  900       6  1  0    12    0       5  1  0  1558    4      27  0  3   912    4       6  1  0  5684    4
  904       2  1  0  5634    4       6  1  0  5686    4       2  1  0  5638    4       6  1  0  5688    4
  908       2  1  0  5644    4       6  1  0  5695    4       2  0  0  1440    4      24  1  0   925    4
  912      24  0  1  8059    4      26  0  1   913    4       0  0  0   917    3       0  0  0   920    3
  916       0  0  0   923    3      24  0  2  1766    4      28  0  2  5684    4      24  1  0   925    4
  920      24  0  2  1838    4      28  0  2  5684    4      24  1  0   925    4      24  0  2  1802    4
  924      28  0  2  5684    4       0  1  0  2862    4       0  0  3     0    4      24  1  2    17    4
  928      24  0  2     0    0       4  0  0  8098    4       2  0  0  2868    4       0  1  1  2862    4
  932      24  0  3  2868    4       6  1  0     7    0       2  0  0  1434    4      24  0  1  1434    4
  936      23  0  0     0    0       0  0  0  8098    3      24  1  0   944    4      26  0  0   830    4
  940      24  1  2    17    4       6  1  0     5    0      18  0  1     5    0       2  1  0  8098    4
  944      26  0  1   841    4
 PROCEDURE  134
  945                                0  0  0     0    0      26  0  0   841    4      24  0  2  5634    4
  948      18  1  1  4123    0       1  1  3    42    0      18  1  1     5    0      28  1  1  5680    4
  952       6  1  0  5632    4      18  0  1  4120    0       1  1  2    91    0      27  0  1   961    4
  956      24  0  2  5632    4      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0
  960      28  1  1  5680    4      26  0  1   945    4
 PROCEDURE  135
  962                                                         0  0  0     0    0       0  0  3  2960    4
  964       0  0  2    14    4       1  1  3     5    0       4  0  0  1464    4      18  0  1     5    0
  968       4  0  0     8    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
  972       6  0  0  1464    4      27  0  1   983    4      24  0  2  1666    4      24  1  2    15    4
  976      28  0  3     0    0       0  1  0  2862    4       0  0  3     0    4       1  1  1     2    0
  980       0  0  3  2866    4       3  0  0  8083    4      26  0  1   962    4      24  0  2  1676    4
  984      24  1  2    15    4      28  0  2     0    0      26  0  1   962    4
 PROCEDURE  136
  987                                                                                  0  0  0     0    0
  988      18  0  1     5    0       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4
  992      23  0  2   160    0      26  0  1   987    4
 PROCEDURE  137
  994                                                         0  0  0     0    0       0  1  0  1524    4
  996       0  0  3  1534    4       6  0  0  6785    4      27  0  0  1007    4      24  0  2  5576    4
 1000      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0      24  1  2    13    4
 1004      28  1  1     4    0       1  1  3     8    0      24  1  0  1019    4       1  1  3     0    0
 1008       2  1  0  5576    4       6  0  0  6784    4       1  1  2     9    0      27  0  1  1025    4
 1012      24  0  2  5576    4      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0
 1016      24  1  2    13    4      28  1  1     0    0       1  1  3     9    0       0  0  2    12    4
 1020      26  0  0   987    4       0  1  1  1524    4       6  1  0  2918    4      28  1  1  5628    4
 1024      26  0  1   994    4       6  0  0  2970    4       2  0  0  5577    4      24  0  2  5576    4
 1028      24  1  2    13    4      29  0  1     0    0       1  1  3     4    0      24  1  0  1019    4
 1032       0  1  0  2862    4       0  0  3     0    4       0  0  2    12    4       6  1  0  2912    4
 1036       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1040       0  1  1  2862    4
 PROCEDURE  138
 1041                                0  0  0     0    0       6  0  0  1352    4       2  0  0  1331    4
 1044       6  1  0  1504    4       2  1  0  5622    4      26  0  0  1259    4      26  0  0  1058    4
 1048      26  0  1  1041    4
 PROCEDURE  139
 1049                                0  0  0     0    0      24  0  2  5578    4      18  1  1  4123    0
 1052       1  1  3    46    0      18  1  1     5    0      24  1  2    15    4      28  1  1     0    0
 1056      26  0  0   994    4      24  1  0  2684    4
 PROCEDURE  140
 1058                                                         0  0  0     0    0      24  0  1  8063    4
 1060      26  0  1  1060    4       0  0  0  1063    3       0  0  0  1087    3       6  1  0  5580    4
 1064      18  0  1  4120    0       1  1  2    84    0      27  0  0  1094    4       1  1  2    42    0
 1068      27  0  0  1090    4       6  1  0  1431    4      27  0  0  1085    4       6  1  0  5578    4
 1072       2  1  0  1436    4       6  1  0  5580    4       2  1  0  1438    4       6  1  0  1430    4
 1076       2  1  0  5578    4       6  1  0  1530    4       2  1  0  5580    4      26  0  0  1049    4
 1080       6  1  0  1436    4       2  1  0  5578    4       6  1  0  1438    4       2  1  0  5580    4
 1084       2  1  0  1430    4      26  0  0  1049    4      26  0  1  1058    4       6  1  0  1430    4
 1088      27  0  1  1071    4      24  1  0  1085    4       6  1  0  5578    4       2  1  0  1430    4
 1092       0  0  3  2960    4      26  0  1  1058    4       6  1  0  1431    4       0  0  3  2959    4
 1096      27  0  1  1111    4       6  1  0  1443    4       5  1  0  5579    4       1  1  1     1    0
 1100      27  0  0  1090    4       1  1  1     1    0      27  0  1  1132    4      24  0  1  8059    4
 1104      26  0  1  1104    4       0  0  0  1132    3       0  0  0  1108    3       0  0  0  1090    3
 1108       6  0  0  1440    4      27  0  0  1132    4      24  1  0  1090    4       5  1  0  5579    4
 1112       1  1  1     1    0      27  0  0  1123    4       1  1  1     1    0      27  0  1  1137    4
 1116      24  0  1  8059    4      26  0  1  1117    4       0  0  0  1137    3       0  0  0  1121    3
 1120       0  0  0  1123    3       6  0  0  1440    4      27  0  0  1137    4       6  0  0  1455    4
 1124       1  1  2     2    0      27  0  1  1090    4       2  1  0  1430    4       0  0  3  2960    4
 1128      26  0  1  1058    4       6  1  0  5578    4       2  1  0  1430    4      26  0  1  1058    4
 1132       6  1  0  5578    4       2  1  0  1442    4       0  0  3  2960    4      26  0  0  1049    4
 1136      26  0  1  1058    4       6  1  0  5578    4       2  1  0  1442    4       0  0  3  2960    4
 1140      24  1  0  1071    4
 PROCEDURE  141
 1141                                0  0  0     0    0      24  0  1  8064    4      26  0  1  1143    4
 1144       0  0  0  1146    3       0  0  0  1153    3       6  1  0  5680    4       2  1  0  5578    4
 1148       1  1  3     2    0       2  0  0  8064    4       6  1  0  1566    4       2  1  0  5580    4
 1152      26  0  1  1141    4       6  1  0  1518    4      24  1  0  1151    4
 PROCEDURE  142
 1155                                                                                  0  0  0     0    0
 1156      24  0  2  5684    4      18  1  1  4123    0       1  1  3    38    0      18  1  1     5    0
 1160      28  1  1  5582    4       2  1  0  5578    4      26  0  0  1141    4       6  1  0  1504    4
 1164       2  1  0  5622    4       6  0  0  1350    4       2  0  0  1331    4      26  0  0  1259    4
 1168      26  0  0  1058    4      26  0  1  1155    4
 PROCEDURE  143
 1170                                                         0  0  0     0    0       6  1  0  1530    4
 1172       2  1  0  5578    4      26  0  0   994    4      26  0  1  1170    4
 PROCEDURE  144
 1175                                                                                  0  0  0     0    0
 1176       6  1  0  2918    4      28  1  1  5576    4      26  0  1  1175    4
 PROCEDURE  145
 1179                                                                                  0  0  0     0    0
 1180       0  0  3  2960    4       6  1  0  2886    4       2  1  0  8094    4       1  0  1   768    0
 1184      24  0  1  8094    4      15  1  0  5724    4      27  0  0  1212    4       2  1  0  1508    4
 1188      15  1  0  1564    4       5  1  0  1508    4      27  0  1  1195    4       6  1  0  1510    4
 1192      24  0  1  8094    4      14  1  0  5724    4      24  1  0  1202    4       1  1  3     0    0
 1196      15  1  0  1574    4       5  1  0  1508    4      27  0  2  1202    4       6  0  0  1465    4
 1200      27  0  0   355    4      24  1  0   514    4       1  1  3     0    0      18  1  1  4126    0
 1204      27  1  1  1184    4      23  0  0     2    0       0  0  0  8094    3      24  1  0  1183    4
 1208       6  1  0  1504    4      24  0  1  8094    4       2  1  0  5724    4      24  1  0  1222    4
 1212       6  1  0  1510    4      24  0  1  8094    4      14  1  0  5724    4       1  1  3     0    0
 1216      18  1  1  4126    0       6  1  0  1504    4      24  0  1  8094    4      14  1  0  5724    4
 1220      24  0  1  8094    4       2  1  0  5726    4      24  0  2  1672    4      28  0  3  5724    4
 1224       0  1  0  2862    4       0  0  3     0    4       1  1  1     2    0       0  0  3  2866    4
 1228       3  0  0  8085    4      26  0  1  1179    4
 PROCEDURE  146
 1230                                                         0  0  0     0    0       6  1  0  1534    4
 1232       2  1  0  8088    4       1  1  3     0    0       2  0  0  1458    4      24  0  1  8088    4
 1236       6  1  0  6002    4      27  0  0  1243    4       5  1  0  5986    4      27  0  0  1244    4
 1240      23  0  0     2    0       0  0  0  8088    3      24  1  0  1233    4      26  0  1  1230    4
 1244       6  0  0  8088    4       4  0  0  1458    4       2  0  0  8100    4      24  0  1  1458    4
 1248       6  1  0  5986    4      27  0  0  1257    4      24  0  1  8100    4       5  1  0  6002    4
 1252      27  0  1  1240    4       0  0  3  2960    4       1  1  3     2    0       7  0  0  1458    4
 1256      24  1  0  1244    4      24  0  3  1230    4      24  1  0     1    0
 PROCEDURE  147
 1259                                                                                  0  0  0     0    0
 1260       0  0  3  2960    4       6  1  0  1426    4       3  1  0  1414    4       3  1  0  1416    4
 1264       2  1  0  1418    4      24  0  2  5578    4       3  1  0  1420    4       3  1  0  1422    4
 1268       2  1  0  1424    4       6  0  0  1378    4       2  0  0  1291    4       0  1  2  1414    4
 1272      24  0  3  1420    4      15  1  0     0    0      27  0  0  1308    4       2  1  0  1428    4
 1276      24  0  3  1420    4      14  1  0     0    0       6  1  0  1429    4      27  0  0  1308    4
 1280       6  1  0  1428    4      18  1  1  4126    0      27  0  1  1281    4      18  1  1     2    0
 1284       3  1  0  1428    4       1  1  2    61    0      27  0  0  1355    4       1  1  2    64    0
 1288      27  0  0  1355    4       1  1  2     1    0      27  0  0  1381    4       6  1  0  1418    4
 1292       2  1  0  1416    4       6  1  0  1424    4       2  1  0  1422    4       6  0  0  1375    4
 1296       2  0  0  1291    4       6  0  0  1380    4       2  0  0  1279    4      26  0  0  1395    4
 1300       6  1  0  1418    4      18  1  1  4126    0       3  1  0  1418    4      27  0  1  1308    4
 1304       6  1  0  1426    4       2  1  0  1418    4      23  0  0     2    0       0  0  0  1424    3
 1308       6  1  0  1416    4      18  1  1  4126    0       3  1  0  1416    4      27  0  1  1316    4
 1312       6  1  0  1426    4       2  1  0  1416    4      23  0  0     2    0       0  0  0  1422    3
 1316       6  1  0  1414    4      18  1  1  4126    0       3  1  0  1414    4      27  0  1  1324    4
 1320       6  1  0  1426    4       2  1  0  1414    4      23  0  0     2    0       0  0  0  1420    3
 1324       1  1  3     0    0      24  1  0  1271    4       6  1  0  1416    4       2  1  0  1418    4
 1328       6  1  0  1422    4       2  1  0  1424    4      24  1  0  1299    4       6  1  0  1418    4
 1332       2  1  0  1416    4       6  1  0  1424    4       2  1  0  1422    4       6  0  0  1352    4
 1336       2  0  0  1291    4      24  1  0  1299    4       6  0  0  1351    4       2  0  0  1331    4
 1340       6  1  0  1418    4      24  1  0  1332    4       6  0  0  1352    4       2  0  0  1331    4
 1344       6  1  0  1416    4       2  1  0  1418    4       6  1  0  1422    4       2  1  0  1424    4
 1348      24  1  0  1335    4      24  1  0  1326    4      24  1  0  1338    4      24  1  0  1342    4
 1352       6  1  0  1418    4      24  1  0  1407    4      24  1  0  1386    4
 PROCEDURE  148
 1355                                                                                  6  1  0  1418    4
 1356       2  1  0  1416    4       6  0  0  1379    4       2  0  0  1279    4       6  1  0  1424    4
 1360       2  1  0  1422    4       6  0  0  1378    4       2  0  0  1291    4      24  1  0  1299    4
 1364       6  0  0  1377    4       2  0  0  1355    4       6  1  0  1418    4      24  1  0  1356    4
 1368       6  0  0  1378    4       2  0  0  1355    4       6  1  0  1416    4       2  1  0  1418    4
 1372       6  1  0  1422    4       2  1  0  1424    4      24  1  0  1361    4      24  1  0  1326    4
 1376      24  1  0  1404    4      24  1  0  1408    4       6  1  0  1418    4      27  0  0  1308    4
 1380      24  1  0  1280    4       6  1  0  1418    4       2  1  0  1416    4       6  1  0  1424    4
 1384       2  1  0  1422    4      26  0  0  1395    4      18  1  1  4118    0      24  0  3  1422    4
 1388      14  1  0     0    0      18  1  1  4126    0      27  1  1  1387    4       6  1  0  1530    4
 1392      24  0  3  1422    4       2  1  0     2    0      26  0  1  1259    4
 PROCEDURE  149
 1395                                                                                  0  0  0     0    0
 1396       0  1  2  1428    4       1  1  3   255    0       5  1  0  1416    4      27  0  0  1403    4
 1400       4  1  0  1416    4      18  1  1     2    0      24  1  0  1398    4       6  1  0  1416    4
 1404      24  0  3  1422    4      14  1  0     0    0      26  0  1  1395    4       6  1  0  1418    4
 1408       2  1  0  1416    4       6  1  0  1424    4       2  1  0  1422    4      26  0  0  1395    4
 1412      24  1  0  1354    4       0  0  0     0    0
  SECTION   150
 1414                                                             0       0                0       0
 1416           0       0                0       0                0       0                0       0
 1420           0       0                0       0                0       0                0       0
 1424           0       0                0       0                0       0            ££000       0
 1428           0       0                0       0                0       0                0       0
 1432           0       0                0       0                0       0                0       0
 1436           0       0                0       0                0       0                0       0
 1440           0       0                0       0                0       0                0       0
  SECTION   151
  SECTION   152
 1444           0       0                0       0                1       0            10000       0
 1448           1       0                0       0                0       0                1       0
 1452           1       0                0       0                0       0                1       0
 1456       £££££       0               1£       0                0       0                2       0
 1460           0       0                0       0                0       0                0       0
 1464           0       0                0       0             8004       0             5241       0
 1468           0       0                0       0
  SECTION   153
 1470                                                             0       0                0       0
 1472           0       0                0       0                0       0                0       0
 1476           0       0                0       0                0       0                0       0
 1480           0       0                0       0                0       0                0       0
 1484           0       0                0       0                0       0                0       0
 1488           0       0                0       0                0       0                0       0
 1492           0       0                0       0                0       0                0       0
 1496           0       0                0       0                0       0                0       0
 1500           0       0                0       0                0       0                0       0
 1504       .7.7.       0            7.7.7       0                1       0                0       0
 1508           0       0                0       0            :7:7:       0            7:7:7       0
 1512           0       0                0       0                0       0                0       0
 1516           0       0                0       0                0       0            7:000       0
 1520           0       0                0       0            Ю547‼       0                7       0
 1524           0       0                0       0                0       0                0       0
 1528           0       0                0       0               7.       0            7.000       0
  SECTION   154
 1532       27259       0            67517       0                0       0                0       0
 1536       56554       0            51645       0            57372       0            64556       0
 1540       60067       0              736       0            47453       0            69665       0
 1544        6954       0            55000       0            66400       0            56696       0
 1548       57369       0            53666       0             7666       0            66630       0
 1552        3030       0            30303       0            16772       0            53585       0
 1556       65369       0            67696       0            57273       0            53666       0
 1560       26355       0            73515       0            35572       0            65667       0
 1564       ‼5‼5‼       0            5‼5‼5       0                0       0            697:0       0
 1568           0       0            54000       0            40000       0            55655       0
 1572       65764       0            67696       0            £4£4£       0            4£4£4       0
 1576          30       0                0       0               30       0                0       0
 1580        3030       0            30493       0
  SECTION   155
 1582                                                             0       0                0       0
 1584           0       0                0       0             3044       0            30483       0
 1588       55459       0              596       0            36669       0            53517       0
 1592       96665       0              766       0                0       0            57000       0
 1596           0       0                0       0             5.5.       0                0       0
 1600        3044       0            30483       0            60054       0              656       0
 1604       47800       0            74646       0                0       0                0       0
 1608        5.5.       0                0       0
  SECTION   156
 1610                                                      0   1536   3        5   3  0  0  0  5   0
 1612    0   1538   3        5   3  0  0  0  5   0         0   1540   3        5   3  0  0  0  5   0
 1616    0   1542   3        5   3  0  0  0  5   0         0   1544   3        2   3  0  0  0  2   0
 1620    0   1582   3       21   0  0  0  1  5   0         0   1470   3    16405   0  4  0  1  5   0
 1624    0   1546   3       21   3  0  0  1  5   0         0   1582   3       21   0  0  0  1  5   0
 1628    0   1584   3    16405   0  4  0  1  5   0         0   1530   3       53   3  0  0  3  5   1
 1632    0   1548   3        5   3  0  0  0  5   0         0   1550   3        5   3  0  0  0  5   0
 1636    0   1544   3      770   3  0  3  0  2   0         0   1530   3       53   3  0  0  3  5   1
  SECTION   157
 1640    0   1534   3        5   3  0  0  0  5   0         0   1536   3        5   3  0  0  0  5   0
 1644    0   1510   3      257   3  0  1  0  1   0         0   1582   3        3   0  0  0  0  3   0
 1648    0   1510   3      257   3  0  1  0  1   0         0   1582   3      770   0  0  3  0  2   0
 1652    0   1510   3      257   3  0  1  0  1   0         0   1582   3        5   0  0  0  0  5   0
 1656    0   1510   3      258   3  0  1  0  2   0         0   1459   3     1025   0  0  4  0  1   0
 1660    0   1510   3      257   3  0  1  0  1   0         0   1470   3        3   0  0  0  0  3   0
 1664    0   1530   3        5   3  0  0  0  5   1
  SECTION   158
 1666                                                      0   1476   3     1476   0  0  5 12  4   0
 1668    0   1477   3     1477   0  0  5 12  5   1         0   5680   3     5680   8  1  6  3  0   1
 1672    0   6000   3     6000  11  1  7  7  0   1         0   5730   3     5730   8  1  6  6  2   1
  SECTION   159
 1676    0   1476   3        5   0  0  0  0  5   0         0   1477   3        5   0  0  0  0  5   1
 1680    0   5680   3        5   0  0  0  0  5   0         0   5681   3        5   0  0  0  0  5   0
 1684    0   5682   3        5   0  0  0  0  5   0         0   5683   3        5   0  0  0  0  5   0
 1688    0   5684   3        5   0  0  0  0  5   0         0   5685   3        5   0  0  0  0  5   0
 1692    0   5686   3        5   0  0  0  0  5   0         0   5687   3        5   0  0  0  0  5   0
 1696    0   5688   3        5   0  0  0  0  5   0         0   5689   3        5   0  0  0  0  5   0
 1700    0   5690   3        5   0  0  0  0  5   1         0   5730   3        5   0  0  0  0  5   0
 1704    0   5731   3        5   0  0  0  0  5   0         0   5732   3        5   0  0  0  0  5   0
 1708    0   5733   3        5   0  0  0  0  5   0         0   5734   3        5   0  0  0  0  5   0
 1712    0   5735   3        5   0  0  0  0  5   0         0   5736   3        5   0  0  0  0  5   0
 1716    0   5737   3        5   0  0  0  0  5   0         0   5738   3        5   0  0  0  0  5   1
  SECTION   160
 1720    0   5682   3     5688   3  1  6  3  8   1         0   5682   3     5688   3  1  6  3  8   0
 1724    0   5694   3     5694   3  1  6  3 14   1
  SECTION   161
 1726                                                      0   5690   3        2   3  0  0  0  2   0
 1728    0   1510   3        1   3  0  0  0  1   0         0   5690   3      515   3  0  2  0  3   0
 1732    0   1510   3        1   3  0  0  0  1   0         0   5692   3        2   3  0  0  0  2   0
 1736    0   1510   3        1   3  0  0  0  1   0         0   5692   3      515   3  0  2  0  3   0
 1740    0   1510   3        1   3  0  0  0  1   0         0   5694   3        2   3  0  0  0  2   0
 1744    0   1510   3        1   3  0  0  0  1   0         0   5694   3      515   3  0  2  0  3   0
 1748    0   1510   3        1   3  0  0  0  1   0         0   5696   3        1   3  0  0  0  1   0
 1752    0   1510   3        1   3  0  0  0  1   0         0   5696   3      258   3  0  1  0  2   0
 1756    0   1510   3        1   3  0  0  0  1   0         0   5696   3      770   3  0  3  0  2   0
 1760    0   1510   3       17   3  0  0  1  1   1
  SECTION   162
 1762                                                      0   1512   3    20485   0  5  0  0  5   0
 1764    0   1518   3        5   0  0  0  0  5   1
  SECTION   163
 1766                                                      0   5634   3        5   3  0  0  0  5   0
 1768    0   5636   3        5   3  0  0  0  5   0         0   5638   3        5   3  0  0  0  5   0
 1772    0   5640   3        5   3  0  0  0  5   0         0   5642   3        5   3  0  0  0  5   0
 1776    0   5644   3        5   3  0  0  0  5   0         0   5646   3        5   3  0  0  0  5   0
 1780    0   5648   3        5   3  0  0  0  5   0         0   5650   3        5   3  0  0  0  5   0
 1784    0   5676   3        5   3  0  0  0  5   0         0   5660   3        5   3  0  0  0  5   0
 1788    0   5662   3        5   3  0  0  0  5   0         0   5664   3        5   3  0  0  0  5   0
 1792    0   5666   3        5   3  0  0  0  5   0         0   5668   3        5   3  0  0  0  5   0
 1796    0   5670   3        5   3  0  0  0  5   0         0   5672   3        5   3  0  0  0  5   0
 1800    0   5674   3        5   3  0  0  0  5   1
  SECTION   164
 1802                                                      0   5634   3        5   3  0  0  0  5   0
 1804    0   5636   3        5   3  0  0  0  5   0         0   5638   3        5   3  0  0  0  5   0
 1808    0   5640   3        5   3  0  0  0  5   0         0   5642   3        5   3  0  0  0  5   0
 1812    0   5644   3        5   3  0  0  0  5   0         0   5646   3        5   3  0  0  0  5   0
 1816    0   5648   3        5   3  0  0  0  5   0         0   5650   3        5   3  0  0  0  5   0
 1820    0   5676   3        5   3  0  0  0  5   0         0   5660   3        5   3  0  0  0  5   0
 1824    0   5662   3        5   3  0  0  0  5   0         0   5664   3        5   3  0  0  0  5   0
 1828    0   5666   3        5   3  0  0  0  5   0         0   5668   3        5   3  0  0  0  5   0
 1832    0   5670   3        5   3  0  0  0  5   0         0   5672   3        5   3  0  0  0  5   0
 1836    0   5674   3        5   3  0  0  0  5   1
  SECTION   165
 1838                                                      0   5634   3        5   3  0  0  0  5   0
 1840    0   5636   3        5   3  0  0  0  5   0         0   5640   3        5   3  0  0  0  5   0
 1844    0   5642   3        5   3  0  0  0  5   0         0   5644   3        5   3  0  0  0  5   0
 1848    0   5646   3        5   3  0  0  0  5   0         0   5648   3        5   3  0  0  0  5   0
 1852    0   5650   3        5   3  0  0  0  5   0         0   5652   3        5   3  0  0  0  5   0
 1856    0   5654   3        5   3  0  0  0  5   0         0   5656   3        5   3  0  0  0  5   0
 1860    0   5676   3        5   3  0  0  0  5   0         0   5660   3        5   3  0  0  0  5   0
 1864    0   5662   3        5   3  0  0  0  5   0         0   5664   3        5   3  0  0  0  5   0
 1868    0   5666   3        5   3  0  0  0  5   0         0   5668   3        5   3  0  0  0  5   0
 1872    0   5670   3        5   3  0  0  0  5   0         0   5672   3        5   3  0  0  0  5   0
 1876    0   5674   3        5   3  0  0  0  5   1
 PROCEDURE  166
 1878                                                         0  0  3  2960    4      25  1  1  4096    0
 1880      23  0  2  1881    4       0  0  0     0    0       2  1  0  2760    4       2  1  0  6776    4
 1884       2  1  0  6778    4       2  1  0  6780    4       2  1  0  6782    4       2  0  0  6787    4
 1888       2  0  0  6789    4      18  1  0    10    0       5  1  0  1580    4      24  0  3     1    4
 1892      27  0  0    33    0       6  1  0  2920    4      28  0  0  7344    4       6  1  0  2922    4
 1896      28  0  0  6690    4      23  0  3  1894    4      18  0  1     4    0       1  0  1    16    0
 1900      14  0  0  2358    4      14  0  0  2359    4      14  0  0  2360    4      25  0  1     0    0
 1904      24  1  0  1953    4      24  0  3     5    4       6  0  0    34    0      18  0  1  4124    0
 1908       2  1  0  6784    4      24  0  3     5    4       6  0  0    36    0      18  0  1  4124    0
 1912       1  1  2     5    0       2  0  0  1464    4       1  1  3     1    0       2  0  0  6786    4
 1916       6  1  0  2761    4      27  0  0  1965    4       1  1  3     7    0      26  0  0  1966    4
 1920      27  0  0  1927    4       1  1  3     8    0      26  0  0  1966    4      27  0  0  1927    4
 1924       1  1  3    11    0      26  0  0  1966    4      27  0  1  1986    4       1  1  3     1    0
 1928       2  0  0  6785    4      24  0  3     0    4       6  0  0     4   22       1  1  2    64    0
 1932       3  0  0     7    4      18  0  3     1    0      18  1  1  4127    0       2  0  0  2452    4
 1936      18  1  3     3    0       2  0  0  2429    4       6  0  0  2452    4      26  0  0  2697    4
 1940       2  0  0  2760    4       0  0  3  2960    4       6  0  0  6785    4      27  0  0  1997    4
 1944      24  0  3     5    4      24  0  3    32    0      24  0  3    16    0       1  1  3     0    0
 1948       4  0  0     7    4       2  0  0  2691    4      24  0  3  2691    4       2  0  0     0    0
 1952      24  1  0  1997    4      24  0  3     0    4       6  0  0     2   22      27  0  0  1959    4
 1956       6  0  0  6785    4      27  0  1  1965    4      24  1  0  1918    4       6  0  0  6785    4
 1960      27  0  0  1965    4       6  0  0  6784    4      26  0  0  1966    4      27  0  1  1986    4
 1964      24  1  0  1928    4      26  0  3  2358    4
 PROCEDURE  167
 1966                                                         0  0  0     0    0       2  0  0  2653    4
 1968      26  1  2  2924    4       6  0  0  2653    4      24  0  3     0    4       5  0  2     0    0
 1972      27  0  0  1985    4      25  0  2     1    0      24  1  0  1969    4       6  0  0     9    4
 1976       1  1  2    24    0      27  0  3  1985    4      26  1  2  2926    4      24  0  3     0    4
 1980       6  0  2     0    0       5  0  0  2653    4      27  0  0  1985    4      25  0  2     1    0
 1984      24  1  0  1979    4      26  0  1  1966    4
 PROCEDURE  168
 1986                                                        26  0  3  2359    4       1  1  3    16    0
 1988       0  0  2  2971    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512
 1992       0  0  0  2639    3       0  0  0  1995    3       0  0  0  2043    3       6  1  0  2760    4
 1996      24  1  0  1878    4      24  0  3     5    4       6  0  0    34    0      18  1  1  4124    0
 2000       2  0  0  2691    4      18  1  1     2    0       1  1  3     0    0      18  1  1     2    0
 2004       2  0  0  2697    4      24  0  3     5    4      24  0  3    32    0      24  0  3    12    0
 2008       1  1  3     0    0       0  0  2  2697    4      15  0  0  2806    4       2  0  0  1966    4
 PROCEDURE  169
 2012      24  0  3     5    4      24  0  3    32    0       6  0  0    32    0       7  0  0  2032    4
 2016       7  0  0  2039    4      24  0  3  1966    4       6  0  0     0    0       5  0  0  2697    4
 2020      27  0  1  2023    4      24  0  3  1966    4       2  1  0     0    0      24  0  3  2697    4
 2024       6  0  0    64    0      24  0  3     7    4       2  0  0    64    0       6  0  0  2691    4
 2028      24  0  3  2697    4       2  0  0    64    0       6  0  0  2653    4      18  0  1     2    0
 2032       1  1  1   128    0      18  0  1     2    0       4  0  0     7    4      24  0  3     5    4
 2036       2  0  0    34    0       6  0  0     7    4      18  0  1     2    0       1  1  1   128    0
 2040      24  0  3     5    4       2  0  0    35    0      26  0  3  2360    4      24  0  2  2820    4
 2044      28  1  2  2978    4       0  1  0  2862    4       0  0  3     0    4      24  0  2  2978    4
 2048      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1280       0  1  1  2862    4
 2052       0  0  3  2960    4       6  1  0  2928    4      28  1  1  2978    4      24  1  0    41    4
 PROCEDURE  170
 2056      24  1  2    15    4       6  1  0     0    0       3  1  0  2762    4       5  1  0  2770    4
 2060      27  0  0  2074    4       1  1  3     3    0       0  0  2  2958    4      25  1  1  4096    0
 2064      24  0  3     0    4      26  0  2     0  512       0  0  0  2639    3       0  0  0  2068    3
 2068       6  0  0  6785    4       4  1  0  2930    4       3  1  0  2862    4      26  1  1  2862    4
 2072      24  0  3     1    4      24  1  0    43    0      26  0  0  2703    4       0  1  0  2862    4
 2076       0  0  3     0    4       0  1  2  2932    4       6  1  0  2890    4       4  0  0    11    4
 2080      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  2866    4
 2084       6  1  0  2918    4      24  1  2    21    4      28  1  1     4    0       3  1  0  2862    4
 2088      26  1  3  2862    4      26  0  0  2472    4      24  1  2    17    4       6  1  0    14    0
 2092       5  1  0  1530    4      27  0  1  2100    4      24  1  2    17    4       2  1  0    12    0
 2096      24  1  2    17    4       2  1  0    14    0      24  1  2    17    4       2  1  0    16    0
 2100      24  1  2    17    4       6  1  0    17    0       3  0  0  6777    4       3  1  0  1432    4
 2104      27  0  1  2107    4       1  1  3     2    0       2  0  0  8062    4      24  1  2    17    4
 2108       6  1  0    15    0       2  0  0  6778    4      24  1  2    17    4       6  1  0    13    0
 2112       3  0  0  6776    4      27  0  0  2061    4
 PROCEDURE  171
 2114                                                        26  1  1  2934    4      26  0  0   830    4
 2116      24  1  2    17    4      24  0  2     5    0      18  1  1  4123    0       1  1  3    46    0
 2120      18  1  1     5    0      24  0  0    23    4      28  1  0  2978    4      25  0  1    23    0
 2124      24  1  0  2115    4       6  0  0  3023    4      26  0  0  2697    4      18  0  1     2    0
 2128       2  0  0  4047    4       0  0  3  2960    4       6  0  0  3023    4      18  0  1     5    0
 2132       1  1  1   100    0       3  1  0  2862    4      26  1  1  2862    4       1  1  3   100    0
 2136       3  0  1  3026    4       1  1  1     1    0      25  0  1     1    0      24  1  0  2136    4
 2140       6  0  0  3023    4       2  0  0  5521    4      24  0  2  2810    4      24  0  3     1    4
 2144      28  1  2    84    0       0  1  0  2862    4       0  0  3     0    4      24  0  3     1    4
 2148      24  0  2    84    0      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1280
 2152       0  1  1  2862    4
 PROCEDURE  172
 2153                               26  0  0  2423    4      27  0  0  2157    4      26  0  0  2472    4
 2156      24  1  0  2153    4       6  0  0  2972    4       3  0  0  4036    4       2  0  0  4040    4
 2160      24  1  0  2166    4
 PROCEDURE  173
 2161                               26  0  0  2680    4      27  0  0  2342    4      26  0  0  2494    4
 2164      26  0  0  2429    4      27  0  1  2310    4       0  0  3  2959    4       6  0  0  4036    4
 2168       5  1  0  3029    4      27  0  3  2174    4      27  0  1  2338    4       6  0  0  4038    4
 2172       1  1  2     3    0      27  0  1  2338    4       6  0  0  4047    4       5  1  0  3029    4
 2176      27  0  2  2181    4       1  1  3     1    0       2  1  0  4042    4      26  0  0  2507    4
 2180      24  1  0  2177    4      27  0  0  2177    4       6  1  0  3029    4      18  0  1  4126    0
 2184      26  0  0  2691    4       2  0  0  2697    4      24  0  1  2697    4       6  0  0  3026    4
 2188      27  0  0  2338    4      24  0  1  8065    4      26  0  1  2190    4       0  0  0  2288    3
 2192       0  0  0  2195    3       0  0  0  2338    3       0  0  0  2338    3
 PROCEDURE  174
 2195                                                                                 26  0  0  2452    4
 2196       2  0  0  4026    4       1  0  1     3    0      15  1  0  3029    4       1  1  2     1    0
 2200      27  0  0  2205    4       1  1  3     0    0       0  0  2  4026    4      15  1  0  3029    4
 2204      27  0  1  2338    4       6  1  0  3029    4       3  0  0  4040    4      18  0  1     8    0
 2208      27  0  0  2212    4       6  0  0  4029    4       1  1  2   900    0      27  0  0  2338    4
 2212      26  0  0  2472    4      26  0  0  2680    4      27  0  0  2218    4      26  0  0  2494    4
 2216      26  0  0  2429    4      27  0  1  2249    4
 PROCEDURE  175
 2218                                                         6  0  0  4040    4       3  0  0  4036    4
 2220      18  0  1     8    0      27  0  1  2224    4       6  0  0  4040    4      24  1  0  2259    4
 2224      18  0  1  4120    0       1  1  2     1    0      27  0  0  2242    4       1  1  3     0    0
 2228       5  0  0  4026    4       1  1  2     1    0       2  0  0  4041    4       6  0  0  4040    4
 2232      18  1  1  4126    0       2  0  0  4045    4       6  0  0  4040    4       5  0  0  4041    4
 2236       2  0  0  4040    4       6  0  0  4040    4      18  1  1  4126    0       5  0  0  4045    4
 2240      27  0  1  2242    4      26  0  0  2653    4      24  1  2    15    4       6  1  0     0    0
 2244      18  0  1  4124    0      18  0  1     4    0       5  1  0  2774    4      27  0  0  2342    4
 2248      24  1  0  2166    4
 PROCEDURE  176
 2249                               26  0  0  2452    4       2  0  0  4026    4       0  0  2  4026    4
 2252      15  1  0  3029    4      27  0  1  2338    4       6  0  0  4040    4       5  1  0  3029    4
 2256      27  0  2  2338    4       6  1  0  3029    4       3  0  0  4036    4      18  1  1  4126    0
 2260       2  0  0  4041    4       6  0  0  4040    4      18  1  1  4126    0       3  0  0  4045    4
 2264       5  0  0  4041    4      27  0  1  2338    4      18  1  1     2    0      27  0  0  2338    4
 2268       6  0  0  4040    4      18  0  1     8    0      18  0  1  4120    0       1  1  2     1    0
 2272      27  0  0  2338    4       6  0  0  4040    4       5  1  0  3029    4       5  0  0  4026    4
 2276       1  1  2     1    0       2  0  0  4041    4       6  0  0  4040    4       5  0  0  4041    4
 2280       2  0  0  4040    4       6  0  0  4040    4      18  0  1  4126    0       5  0  0  4045    4
 2284      27  0  1  2286    4      26  0  0  2653    4      26  0  0  2472    4      24  1  0  2161    4
 PROCEDURE  177
 PROCEDURE  178
 2288       1  0  1     3    0       1  1  3     0    0      15  1  0  3029    4      27  0  0  2338    4
 2292      26  0  0  2452    4       2  0  0  4026    4       1  0  1     3    0      15  1  0  3029    4
 2296       1  1  2     1    0      27  0  0  2338    4       1  1  3     0    0       0  0  2  4026    4
 2300      15  1  0  3029    4      27  0  1  2338    4       6  1  0  3029    4       3  0  0  4040    4
 2304       3  0  0  4036    4      18  1  1  4126    0       2  0  0  4045    4      26  0  0  2472    4
 2308      26  0  0  2423    4      27  0  0  2166    4
 PROCEDURE  179
 2310                                                        24  0  1  8065    4      26  0  1  2311    4
 2312       0  0  0  2316    3       0  0  0  2338    3       0  0  0  2338    3       0  0  0  2338    3
 2316       0  0  3  2959    4       6  0  0  4026    4       1  1  1     1    0       7  0  0  4036    4
 2320       6  0  0  4036    4      18  1  1  4126    0       5  0  0  4045    4      27  0  1  2334    4
 2324       6  1  0  3032    4       5  1  0  2764    4      27  0  0  2338    4       6  1  0  3032    4
 2328       5  1  0  2766    4      27  0  0  2338    4       6  1  0  3032    4       5  1  0  2768    4
 2332      27  0  0  2338    4      24  1  0  2286    4       6  0  0  2973    4       5  0  0  4026    4
 2336       7  0  0  4036    4      24  1  0  2338    4
 PROCEDURE  180
 2338                                                         1  1  3     1    0       2  1  0  4042    4
 2340      26  0  0  2507    4      24  1  0  2166    4
 PROCEDURE  181
 2342                                                         0  0  3  2960    4       1  1  3    25    0
 2344       4  0  0  1464    4      18  0  1     5    0       4  0  0     8    4      25  1  1  4096    0
 2348      24  0  3     0    4      23  0  2   160    0      24  0  2  2978    4      18  1  1  4123    0
 2352       1  1  3    45    0      18  1  1     5    0      28  0  0  5476    4      24  1  0  2361    4
 PROCEDURE  182
 2356      24  0  1  8065    4      26  0  1  2357    4       0  0  0  2052    3       0  0  0  1987    3
 2360       0  0  0  2043    3      26  1  1  2936    4      26  1  2  2938    4       1  1  3     0    0
 2364       1  0  1    15    0      15  0  2  3127    4      18  0  3    10    0      15  0  2  3126    4
 2368       2  0  1  4126    4      25  0  1     1    0      24  1  0  2371    4      25  0  2     2    0
 2372      24  1  0  2365    4      24  1  0  2377    4       0  0  3  2960    4       1  1  3     1    0
 2376       7  0  0  5521    4      26  0  0  2472    4       0  0  3  2960    4       0  1  0  2862    4
 2380       0  0  3     0    4       6  1  0  2940    4       4  0  0    11    4      25  1  1  4096    0
 2384      24  0  3     0    4      23  0  2     0  256       0  1  1  2862    4      24  0  2  4126    4
 2388      18  1  1  4123    0       1  1  3  1110    0      18  1  1     5    0      24  0  3     1    4
 2392      28  0  0    84    0      24  0  2  5236    4      18  1  1  4123    0       1  1  3   240    0
 2396      18  1  1     5    0      24  0  3     1    4      28  0  0  2584    0      24  0  2  5476    4
 2400      18  1  1  4123    0       1  1  3    46    0      18  1  1     5    0      24  0  3     1    4
 2404      28  0  0  1194    0      26  1  1  2942    4      26  0  0  1170    4      25  0  1     1    0
 2408      24  1  0  2406    4       3  1  0  2862    4      26  1  1  2862    4       0  1  0  2862    4
 2412       0  0  3     0    4       6  0  0  1469    4       4  1  0  2894    4      18  1  1  4118    0
 2416       6  1  0  2944    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 2420      23  0  2     0  256       0  1  1  2862    4      24  1  0    33    4
 PROCEDURE  183
 2423                                                                                  0  0  0     0    0
 2424      26  0  0  2680    4      27  0  0  2342    4      26  0  0  2494    4      26  0  0  2429    4
 2428      26  0  1  2423    4
 PROCEDURE  184
 2429                                0  0  0     0    0       0  0  3  2959    4       0  1  2  3030    4
 2432       1  1  3     0    0      18  1  1     2    0       1  1  2   105    0      27  0  0  2445    4
 2436       1  1  1    21    0      27  0  0  2444    4       1  1  2    25    0      27  0  0  2443    4
 2440       1  1  1    34    0      27  0  1  2451    4       1  1  3     1    0       1  1  1     1    0
 2444       1  1  1     1    0       1  1  1     1    0       2  0  0  2452    4       6  0  0  8065    4
 2448       2  0  0  4038    4       6  0  0  2452    4       2  0  0  8065    4      26  0  1  2429    4
 PROCEDURE  185
 2452       0  0  0     0    0       6  1  0  3029    4      18  0  1  4126    0      26  0  0  2691    4
 2456       1  1  2   100    0       1  0  1     0    0      18  1  1  4119    0      13  0  0  2974    4
 2460       2  0  0  2760    4      18  1  1     9    0       2  0  0  2761    4       0  0  2  2720    4
 2464      24  0  1  2761    4      18  1  3     0    0      24  0  1  2760    4      15  0  0  2978    4
 2468      27  0  0  2470    4       1  1  3     1    0       0  0  3  2959    4      26  0  1  2452    4
 PROCEDURE  186
 2472       0  0  0     0    0      26  0  0  2512    4       6  1  0  1530    4      24  1  2    21    4
 2476       2  1  0    52    0       6  1  0  4042    4      24  1  2    21    4       2  1  0    50    0
 2480       0  1  0  2862    4       0  0  3     0    4       0  0  2    20    4       6  1  0  2946    4
 2484       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 2488       0  1  1  2862    4       6  1  0  2918    4      24  1  2    21    4      28  1  1     4    0
 2492       2  1  0  4042    4      26  0  1  2472    4
 PROCEDURE  187
 2494                                                         0  0  0     0    0       1  1  3     0    0
 2496       2  1  0  3030    4       2  1  0  3042    4      24  0  2  2836    4      24  1  2    15    4
 2500      28  0  3     0    0       0  1  0  2862    4       0  0  3     0    4       1  1  1     2    0
 2504       0  0  3  2866    4       3  0  0  8083    4      26  0  1  2494    4
 PROCEDURE  188
 2507                                                                                  0  0  0     0    0
 2508      26  0  0  2472    4      26  0  0  2423    4      27  0  1  2508    4      26  0  1  2507    4
 PROCEDURE  189
 2512       0  0  0     0    0      26  1  1  2948    4      26  1  2  2950    4       0  1  0  2862    4
 2516       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0      24  0  3     0    4
 2520       4  0  0     2   22       2  0  0  2868    4       0  1  1  2862    4      24  0  3  2868    4
 2524       0  1  2     0    0       1  1  3     0    0      18  1  1     2    0       1  1  2   126    0
 2528      27  0  0  2537    4      25  0  2  4098    0      24  1  0  2525    4      24  1  2    15    4
 2532       6  1  1     0    0      24  1  2    21    4       2  1  1     4    0      25  0  1     2    0
 2536      24  1  0  2514    4      24  0  3     0    4       6  0  0     4   22       2  0  0  2562    4
 2540       1  0  1     3    0       1  1  3    94    0      24  0  1  2562    4      18  1  1     0    0
 2544      24  1  2    15    4       3  1  1     0    0      24  1  2    21    4       2  1  1     4    0
 2548       0  1  0  4048    4       0  0  3  2960    4      24  0  3     0    4       6  0  0     2   22
 2552       1  1  1     4    0      18  0  1     3    0      24  1  2    21    4       2  1  0    49    0
 2556       1  0  1     3    0      15  0  0  2562    4      24  1  2    21    4      14  1  0    49    0
 2560       0  0  3  4052    4      26  0  1  2512    4
 PROCEDURE  190
 2562                                                         0  0  0     0    0      26  0  0   830    4
 2564       0  0  3  2960    4      24  1  2    17    4       6  1  0     4    0       5  1  0  2778    4
 2568      27  0  0  2618    4      24  1  2    17    4       6  1  0     9    0       5  0  0  2975    4
 2572      27  0  1  2563    4      24  1  2    17    4       6  1  0    10    0       5  1  0  2772    4
 2576      27  0  0  2607    4      24  1  2    17    4       6  1  0     6    0       5  1  0  2776    4
 2580      27  0  1  2563    4      26  0  0   830    4      26  1  1  2952    4      24  1  2    17    4
 2584       6  1  1     5    0       5  0  0  2738    4      27  0  1  2590    4       6  0  0  2802    4
 2588      27  0  0  2563    4      24  1  0  2618    4       4  0  0  2738    4       5  0  0  2967    4
 2592      27  0  1  2604    4      24  1  2    17    4       6  1  1     9    0      27  0  0  2600    4
 2596      24  1  2    17    4       6  1  1    11    0       2  0  0  8081    4      24  1  0  2604    4
 2600       2  0  0  2802    4      24  1  2    17    4       6  1  1    11    0       2  0  0  1469    4
 2604      25  0  1     8    0      24  1  0  2583    4      24  1  0  2581    4       0  0  3  2959    4
 2608      24  1  2    17    4       6  1  0     5    0       5  0  0  2967    4      27  0  1  2563    4
 2612       6  0  0  2967    4       2  1  0  5633    4      24  1  2    17    4       6  1  0     7    0
 2616       2  1  0  5635    4      26  0  1  2562    4       0  1  0  2862    4       0  0  3     0    4
 2620       6  1  0  2954    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 2624      23  0  2     0  256       0  1  1  2862    4       1  1  3     1    0       2  0  0  2802    4
 2628       2  0  0  8081    4       1  1  3     2    0       0  0  2  2971    4      25  1  1  4096    0
 2632      24  0  3     0    4      26  0  2     0  512       0  0  0  2639    3       0  0  0  2637    3
 2636       0  0  0  2068    3      26  0  0  2642    4      24  1  0  2563    4      25  1  1  4096    0
 2640      24  0  3     0    4      26  0  2     0  768
 PROCEDURE  191
 2642                                                         0  0  0     0    0       0  1  0  2862    4
 2644       0  0  3     0    4       0  1  2  2876    4       6  1  0  2878    4       4  0  0     9    4
 2648      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  2866    4
 2652      26  0  1  2642    4
 PROCEDURE  192
 2653                                0  0  0     0    0       6  0  0  4029    4       1  1  2   900    0
 2656      27  0  2  2679    4       1  1  3     0    0       1  0  1     3    0      15  0  0  4040    4
 2660       2  0  0  2562    4       6  0  0  4040    4      18  0  1  4126    0      26  0  0  2691    4
 2664       2  0  0  2680    4      24  0  1  2680    4       6  0  0  3026    4      26  0  0  2697    4
 2668      18  0  1     2    0       4  0  0  2562    4      24  0  1  4029    4       2  0  0  4576    4
 2672       6  0  0  4041    4      24  0  1  4029    4       2  0  0  4577    4       0  0  3  2960    4
 2676       1  1  3     2    0       7  0  0  4029    4       0  0  3  2959    4      26  0  1  2653    4
 PROCEDURE  193
 2680       0  0  0     0    0       0  1  0  4048    4       0  0  3  2960    4      26  0  1  1049    4
 2684       0  1  1  4048    4      24  1  2    15    4       6  1  0     0    0      18  0  1  4124    0
 2688      18  0  1     4    0       5  1  0  2774    4      26  0  1  2680    4
 PROCEDURE  194
 2691                                                                                  0  0  0     0    0
 2692       2  1  0  2760    4       0  0  3  2960    4      24  0  2  2740    4      12  1  0  2760    4
 2696      26  0  1  2691    4
 PROCEDURE  195
 2697                                0  0  0     0    0       2  1  0  2760    4       0  0  3  2959    4
 2700      24  0  2  2720    4      12  1  0  2760    4      26  0  1  2697    4
 PROCEDURE  196
 2703                                                                                  0  0  0     0    0
 2704      24  0  2  2844    4      24  1  2    15    4      28  0  3     0    0       0  1  0  2862    4
 2708       0  0  3     0    4       1  1  1     2    0       0  0  3  2866    4       3  0  0  8083    4
 2712       6  0  0  3028    4      18  0  1     2    0       4  0  0  3029    4       3  0  0  3028    4
 2716       2  0  0  4054    4       6  0  0  3030    4       2  0  0  4055    4      26  0  1  2703    4
  SECTION   197
 2720           1       0                0       0               16       0                0       0
 2724         256       0                0       0             4096       0                0       0
 2728       65536       0                0       0            48576       0               10       0
 2732       77216       0              167       0            35456       0             2684       0
 2736       67296       0            42949       0            £££££       0            £££££       0
 2740           1       0                0       0                Ю       0                0       0
 2744          64       0                0       0              3.8       0                0       0
 2748        2710       0                0       0            186Ю0       0                0       0
 2752       £4240       0                0       0            89680       0                9       0
 2756       5.100       0               5£       0            Ю+Ю00       0              3‼9       0
 2760           0       0                0       0            65764       0            67696       0
 2764       65369       0            67696       0            26355       0            73515       0
 2768       57273       0            53666       0            56554       0            51645       0
 2772       27259       0            67517       0            40000       0            55655       0
 2776       45577       0            59655       0            55972       0            56596       0
 2780        5.5.       0                0       0              3££       0                0       0
 2784       £6£6£       0            6£6£6       0            45577       0            59655       0
 2788       £4£4£       0            4£4£4       0               42       0                0       0
 2792       15965       0            53585       0            56554       0            56595       0
 2796        3044       0            30483       0            36653       0            51636       0
 2800       55400       0            51735       0            36951       0            55777       0
 2804       47355       0            69667       0               £8       0                0       0
 2808        8000       0             5149       0
  SECTION   198
 2810                                                      0   2796   3        5   3  0  0  0  5   0
 2812    0   2770   3       37   3  0  0  2  5   0         0   3028   3       37   0  0  0  2  5   0
 2816    0   3030   3    16405   0  4  0  1  5   0         0   2780   3      818   3  0  3  3  2   1
 2820    0   2796   3        5   3  0  0  0  5   0         0   2798   3       21   3  0  0  1  5   0
 2824    0   2800   3        5   3  0  0  0  5   0         0   2802   3        5   3  0  0  0  5   0
 2828    0   2804   3       21   3  0  0  1  5   0         0   2760   3     4898   0  1  3  2  2   0
 2832    0   2429   3     1025   0  0  4  0  1   0         0   2780   3      786   3  0  3  1  2   1
  SECTION   199
 2836    0   3028   3        5   3  0  0  0  5   0         0   3032   3        5   3  0  0  0  5   0
 2840    0   3034   3        3   2  0  0  0  3   0         0   3042   3        1   0  0  0  0  1   1
 2844    0   3032   3        5   3  0  0  0  5   0         0   3028   3        3   0  0  0  0  3   0
 2848    0   3029   3        2   0  0  0  0  2   0         0   3030   3        5   0  0  0  0  5   1
 2852    0   3028   3        5   3  0  0  0  5   0         0   3030   3        5   3  0  0  0  5   0
 2856    0   3032   3        5   3  0  0  0  5   0         0   3034   3        3   2  0  0  0  3   0
 2860    0   3042   3        1   0  0  0  0  1   1
  SECTION  1014
 2862                                                             0       0                0       0
 2864           0       0                0       0                0       0                0       0
 2868           0       0                0       0                0       0                0       0
 2872           0       0                0       0                0       0                0       0
 2876        8004       0             5141       0                0       0               11       0
 2880           0       0            203.8       0                0       0            20006       0
 2884           0       0            20023       0                0       0               10       0
 2888           8       0                0       0                0       0               12       0
 2892           0       0                3       0                0       0                Ю       0
 2896          48       0              1+2       0                0       0            20010       0
 2900           0       0            20150       0               2Ю       0              17Ю       0
 2904       13030       0                4       0                0       0            2000Ю       0
 2908           0       0            20096       0                0       0            20016       0
 2912           0       0                7       0                0       0            20034       0
 2916           0       0            20036       0                0       0            20032       0
 2920           0       0            2000+       0                0       0            20026       0
 2924          40       0               80       0               +0       0               £0       0
 2928           0       0            20936       0                0       0                9       0
 2932        8004       0             5146       0                0       0               2.       0
 2936           0       0              1+2       0                0       0              384       0
 2940           0       0               21       0                0       0               14       0
 2944           0       0               24       0                0       0                8       0
 2948           0       0               38       0            10008       0             £££.       0
 2952           0       0               30       0                0       0               1‼       0
 2956           0       0                0       0
  SECTION  1015
 2958                                                             2       0            66666       0
 2960           0       0             9900       0            10000       0            .0000       0
 2964       11111       0             8000       0               30       0             9001       0
 2968        ££00       0                4       0            80000       0                3       0
 2972        9999       0                1-      0               14       0            £££££       0
 2976           0       0                0       0
  SECTION  1016
 PROCEDURE 1003
CHAPT       3       EXTRA CHAPTER
  202                                                             0       0                0       0
CHAPT       4
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  200
   33                                0  1  0  2806    4       0  0  3     0    4       1  1  3     4    0
   36       0  0  2  2902    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  2806    4       0  0  3  2903    4       1  0  1   512    0      18  1  3     3    0
   44       1  1  3     0    0      14  1  0  2452    4      14  1  0  2458    4       6  0  0  2803    4
   48       3  0  0  6774    4       2  0  0  2800    4       6  1  0  2820    4      28  1  1  2918    4
   52       6  1  0  2822    4      28  1  1  3160    4       1  1  3     1    0       2  0  0  8076    4
   56       2  0  0  6782    4       2  0  0  8078    4       2  0  0  8079    4       2  0  0  6780    4
   60       1  1  3     5    0       2  0  0  8069    4
 PROCEDURE  201
   62                                                         0  1  0  2806    4       0  0  3     0    4
   64       0  1  2  2824    4       6  1  0  2826    4       4  0  0    11    4      25  1  1  4096    0
   68      24  0  3     0    4      23  0  2     0  256       0  0  3  2810    4       6  1  0  2828    4
   72      28  1  1  3308    4       6  0  0  2904    4       2  0  0  3311    4      26  0  0  2087    4
   76      24  0  2   382    4      26  0  0  2799    4       0  0  3  2905    4       1  1  3     0    0
   80       2  1  0  2934    4       2  1  0  2936    4      24  0  2   392    4      26  0  0  2799    4
   84       1  1  3     0    0       0  0  2  2934    4      15  0  0  2512    4       2  0  0  6774    4
   88       6  1  0  2938    4       5  1  0  2830    4      27  0  1    93    4       1  1  3     2    0
   92      24  1  0    94    4       1  1  3     0    0       2  0  0  6788    4       6  0  0  2906    4
   96      15  0  0  2574    4       2  0  0  8076    4       6  0  0  2935    4       2  0  0   627    4
  100       6  0  0  2922    4      18  0  1     2    0       4  0  0  2924    4       2  0  0  3308    4
  104       0  1  2  2926    4      26  0  0  2622    4       6  1  0  3397    4       2  0  0  3309    4
  108       1  1  3     1    0       3  0  0  6720    4       2  0  0  3316    4
 PROCEDURE  202
  111                                                                                 26  0  0  2087    4
  112       6  1  0  2820    4      28  0  0  2918    4      26  0  0  2076    4      24  1  2    17    4
  116       6  1  0     6    0       5  1  0   450    4      27  0  1   114    4      24  0  2   338    4
  120      24  1  2    17    4      28  0  2     4    0      24  1  2    17    4      24  0  2    20    0
  124      18  1  1  4123    0       1  1  3    30    0      18  1  1     5    0      28  1  1  2934    4
  128       0  0  3  2905    4       1  1  3     1    0       1  0  1     3    0      15  1  0  2927    4
  132      14  1  0  2927    4
 PROCEDURE  203
  133                                6  1  0  2820    4      24  1  2    19    4      28  0  0     4    0
  136       0  1  0  2806    4       0  0  3     0    4       0  1  2  2832    4       6  1  0  2834    4
  140       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  144       0  0  3  2810    4      18  1  1    10    0       2  0  0  8080    4      26  0  0  2056    4
  148      26  0  0  2056    4      24  0  2  2552    4      18  1  1  4123    0       1  1  3    10    0
  152      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0      26  0  0  2056    4
  156       6  0  0  2922    4      18  0  1     2    0       4  0  0  2924    4       3  0  0  3340    4
  160      24  1  2    19    4       3  1  0     5    0      24  1  2    19    4       3  1  0    13    0
  164       6  1  0  2927    4       2  0  0  3309    4       6  0  0   627    4      27  0  0   171    4
  168      18  0  1     2    0       1  0  1    28    0      14  0  0  3309    4      24  0  2   336    4
  172      28  1  2  2926    4       6  1  0  2926    4      24  1  2    19    4       3  1  0     6    0
  176      24  1  2    19    4       2  1  0    14    0       1  1  3     2    0      24  1  2    19    4
  180       2  1  0    11    0       1  1  3     3    0      24  1  2    19    4       3  1  0    19    0
  184       1  1  3     2    0       4  0  0  6788    4      24  1  2    19    4       2  1  0    17    0
  188       6  1  0  2553    4      24  1  2    19    4       2  1  0    21    0      26  0  0  2056    4
  192       6  0  0  3340    4      24  1  2    19    4       2  1  0     5    0       6  1  0  2926    4
  196      24  1  2    19    4       2  1  0     6    0       6  0  0  2907    4      24  1  2    19    4
  200       2  1  0     9    0       6  1  0   458    4      24  1  2    19    4       2  1  0    10    0
  204       6  0  0  2908    4      24  1  2    19    4       3  1  0    12    0      24  1  2    19    4
  208       2  1  0    17    0      26  0  0  2056    4      24  0  3     1    4       6  0  0  1239    0
  212       2  0  0  2545    4      24  0  3     1    4      24  0  2  1194    0      18  1  1  4123    0
  216       1  1  3    23    0      18  1  1     5    0      24  1  2    19    4      28  0  1     5    0
  220      26  0  0  2056    4      24  0  3     1    4      24  0  2  1217    0      18  1  1  4123    0
  224       1  1  3    23    0      18  1  1     5    0      24  1  2    19    4      28  0  1     5    0
  228      26  0  0  2056    4      24  0  2   338    4      24  1  2    19    4      28  1  2     4    0
  232      24  0  2  2934    4      18  1  1  4123    0       1  1  3    30    0      18  1  1     5    0
  236      24  1  2    19    4      28  1  1    20    0      26  0  0  2056    4       6  0  0  2507    4
  240       2  0  0  6699    4       0  0  3  2905    4
 PROCEDURE  204
  242                                                        26  0  0  2076    4       1  1  3     0    0
  244      24  1  2    17    4       2  1  0    46    0      24  1  2    17    4       2  1  0    48    0
  248       2  0  0  3341    4      26  0  0   303    4      26  0  0  2076    4      24  1  2    17    4
  252      24  0  2     9    0      18  1  1  4123    0       1  1  3    30    0      18  1  1     5    0
  256      28  1  0  3321    4       2  0  0  3341    4       6  0  0  3321    4      26  0  0   944    4
  260       2  0  0  3321    4      24  0  2  3322    4      18  1  1  4123    0       1  1  3    14    0
  264      18  1  1     5    0      24  1  2    17    4      28  0  1    11    0      24  1  2    17    4
  268      24  0  2     4    0      18  1  1  4123    0       1  1  3    34    0      18  1  1     5    0
  272      24  1  2    19    4      28  1  1     4    0      26  0  0  2076    4
 PROCEDURE  205
  275                                                                                  6  1  0  2836    4
  276      24  0  3     1    4       2  1  0  2582    0      24  0  3     1    4       2  1  0  2580    0
  280       1  1  3     1    0       2  0  0  8071    4       6  0  0  3321    4      26  0  0   938    4
  284       2  0  0   446    4       6  0  0  2909    4       2  0  0  3311    4       1  1  3   153    0
  288       2  0  0  6693    4       6  1  0  2838    4       2  1  0  8096    4       0  0  3  2903    4
  292      26  1  3  3320    4       1  1  1     1    0       3  0  3  6700    4      25  0  3     1    0
  296      24  1  0   293    4       0  0  3  2905    4       1  1  3  4097    0       2  0  0  3317    4
 PROCEDURE  206
  300      26  0  0   314    4      26  0  0   321    4      24  1  0   472    4
 PROCEDURE  207
  303                                                                                  0  0  0     0    0
  304       0  1  0  2806    4       0  0  3     0    4       0  0  2    16    4       6  1  0  2840    4
  308       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  312       0  1  1  2806    4      26  0  1   303    4
 PROCEDURE  208
  314                                                         0  0  0     0    0      26  0  0  2116    4
  316      27  0  0   320    4       1  1  3     1    0       2  0  0  3353    4       1  1  3     1    0
  320      26  0  1   314    4
 PROCEDURE  209
  321                                0  0  0     0    0       6  0  0  6777    4      27  0  0   328    4
  324      24  1  2    17    4       6  1  0    12    0      26  0  0  1965    4      26  0  1   321    4
  328      24  1  2    17    4       6  1  0    10    0      24  1  0   326    4       0  0  0     0    0
  SECTION   210
  332    0   2918   3    20485   0  5  0  0  5   0         0   2920   3        5   3  0  0  0  5   1
  336    0   3309   3    16389   0  4  0  0  5   1         0   2918   3    20485   0  5  0  0  5   0
  340    0   2920   3        5   3  0  0  0  5   0         0   2922   3    20485   0  5  0  0  5   0
  344    0   2924   3    16389   0  4  0  0  5   0         0   2926   3        5   3  0  0  0  5   0
  348    0   2928   3    40970   2 10  0  0 10   0         0   2928   3    20485   0  5  0  0  5   1
 PROCEDURE  211
  352       0  0  0     0    0       2  0  0  3312    4      26  1  3  3310    4       6  1  0  2530    4
  356       4  0  0  3312    4       4  0  0  3311    4       2  1  3  2956    4       1  1  2     2    0
  360       7  0  0  3310    4       1  1  3     0    0      26  0  1   352    4
 PROCEDURE  212
  363                                                                                  0  0  0     0    0
  364       6  0  0  3427    4      26  0  0   944    4      18  1  3     3    0      18  1  1  4127    0
  368       2  1  0  2614    4      26  1  1  2614    4      27  1  0   376    4      24  0  3     1    4
  372       6  0  1    34    0      18  0  3     2    0      18  0  1  4125    0      24  1  0   379    4
  376       0  0  2  2542    4      24  0  3     1    4      15  0  1    34    0      26  0  0   938    4
  380      26  0  1   363    4       0  0  0     0    0
  SECTION   213
  382                                                      0   2920   3        5   3  0  0  0  5   0
  384    0   2922   3        3   2  0  0  0  3   0         0   2924   3        2   2  0  0  0  2   0
  388    0   2926   3        5   3  0  0  0  5   0         0   2934   3        5  11  0  0  0  5   1
  392    0   2920   3        5   3  0  0  0  5   0         0   2922   3        3   2  0  0  0  3   0
  396    0   2924   3        2   2  0  0  0  2   0         0   2926   3        2   3  0  0  0  2   0
  400    0   2938   3        3   3  0  0  0  3   0         0   2934   3        1   0  0  0  0  1   0
  404    0   2935   3        3   0  0  0  0  3   0         0   2936   3        1   3  0  0  0  1   1
  SECTION   214
  408    0   2920   3        5   3  0  0  0  5   0         0   2922   3        2   0  0  0  0  2   0
  412    0   2923   3        3   0  0  0  0  3   0         0   2924   3        3   0  0  0  0  3   0
  416    0   2925   3        3   0  0  0  0  3   0         0   2926   3        3   0  0  0  0  3   0
  420    0   2927   3        3   0  0  0  0  3   0         0   2928   3        3   0  0  0  0  3   0
  424    0   2929   3        3   0  0  0  0  3   0         0   2930   3        3   0  0  0  0  3   0
  428    0   2931   3        3   0  0  0  0  3   0         0   2932   3        3   0  0  0  0  3   0
  432    0   2933   3        3   0  0  0  0  3   0         0   2934   3        3   0  0  0  0  3   0
  436    0   2935   3        3   0  0  0  0  3   0         0   2936   3        3   0  0  0  0  3   1
  SECTION   215
  440          99       0                1       0             4096       0                0       0
  444           1       0                0       0                0       0                0       0
  448       £1£1£       0            1£1£1       0            65764       0            67696       0
  452       36978       0            55657       0            56554       0            51645       0
  456       16772       0            53585       0            27259       0            67517       0
  460       66955       0            72736       0
  SECTION   216
  462                                                             0       0                0       0
  464           0       0                0       0                0       0                0       0
  468           0       0                0       0                0       0                0       0
 PROCEDURE  217
  472      24  0  3     1    4      24  0  2    84    0      18  1  1  4123    0       1  1  3  1110    0
  476      18  1  1     5    0      28  0  0  3428    4      24  0  3     1    4      24  0  2  2584    0
  480      18  1  1  4123    0       1  1  3   240    0      18  1  1     5    0      28  0  0  4538    4
  484       1  1  3     2    0       2  0  0  8066    4       1  1  3     1    0       2  0  0  6781    4
  488       6  0  0  6720    4       3  1  0  3316    4      27  0  0   490    4       0  1  0  2806    4
  492       0  0  3     0    4      24  1  2    17    4      24  0  2     6    0       3  0  0  8102    4
  496      24  1  2    17    4       4  1  0     5    0       2  0  0  8103    4       0  1  1  2806    4
  500      24  1  0  1077    4
 PROCEDURE  218
  501                                0  0  0     0    0       6  0  0  3346    4      27  0  0   591    4
  504      27  0  2   591    4       6  0  0  3369    4      27  0  0   508    4      26  0  0  2158    4
  508       6  0  0  3362    4       1  1  2    85    0      27  0  0   513    4       1  1  3     0    0
  512       2  1  0  3368    4       2  0  0  3317    4       2  0  0  3351    4       6  0  0  6781    4
  516       1  1  2     4    0      27  0  0   559    4       6  0  0  6693    4       1  1  1     1    0
  520       3  0  0  6693    4       3  0  0  3308    4       2  0  0  3312    4
 PROCEDURE  219
  523                                                                                  6  1  0  2927    4
  524      18  0  1  4126    0       3  0  0  2932    4       5  0  0  6693    4      27  0  0   530    4
  528       6  1  0  2562    4       2  1  0  2962    4      24  0  2  2324    4      28  1  2  2926    4
  532       6  0  0  2932    4       5  0  0  3312    4      27  0  0   536    4      26  0  0   562    4
  536       6  0  0  6693    4       1  1  2   256    0      27  0  1   542    4       6  0  0  3308    4
  540       2  0  0  3322    4      24  1  0   552    4      24  0  1  8096    4       6  0  0  3322    4
  544       5  0  0  3308    4      27  0  1   559    4       6  0  0  6693    4       1  1  2     1    0
  548      26  0  0   944    4      18  0  1     2    0      24  0  1  8096    4       7  0  0  6699    4
  552       0  0  3  2903    4       1  1  3     1    0       7  0  0  6690    4       0  0  3  2905    4
  556      23  0  0     1    0       0  0  0  8096    3      24  1  0   559    4       1  1  3     1    0
  560       2  0  0  8066    4      24  1  0   591    4
 PROCEDURE  220
  562                                                         0  0  0     0    0       6  0  0  6693    4
  564      26  0  0   944    4       1  0  1     0    0      18  1  1  4119    0      13  0  0  2910    4
  568       2  0  0  2614    4      18  1  1     9    0       2  0  0  2615    4       0  0  2  2594    4
  572      24  0  1  2615    4      18  1  3     0    0       6  0  0  2592    4      24  0  1  2614    4
  576      14  0  0  6723    4       0  0  3  2905    4      26  0  1   562    4
 PROCEDURE  221
  579                                                                                  0  0  0     0    0
  580       6  1  0  2960    4       5  1  0  2548    4      27  0  0   589    4       6  1  0  2960    4
  584       5  1  0  2842    4      27  0  0   589    4       6  1  0  2960    4       5  1  0  2546    4
  588      27  0  1   590    4       2  1  0  2960    4      26  0  1   579    4
 PROCEDURE  222
  591                                                                                 26  0  0   579    4
  592       6  0  0  3341    4      27  0  0   598    4       6  0  0  6720    4      27  0  0   598    4
  596      26  0  0   562    4       1  1  3     0    0      24  0  1  8066    4      26  0  1   599    4
  600       0  0  0   686    3       0  0  0   781    3       0  0  0  1653    3       0  0  0  1254    3
  604      24  0  1  8067    4      26  0  1   605    4       0  0  0   950    3       0  0  0   608    3
  608      26  0  0   619    4      26  0  0  2154    4      24  1  0   950    4
 PROCEDURE  223
  611                                                                                  0  0  0     0    0
  612       1  1  3    84    0      26  0  0   635    4      26  0  1   611    4
 PROCEDURE  224
  615                                                                                  0  0  0     0    0
  616       1  1  3   100    0      26  0  0   635    4      26  0  1   615    4
 PROCEDURE  225
  619                                                                                  0  0  0     0    0
  620       1  1  3   105    0      26  0  0   635    4      26  0  1   619    4
 PROCEDURE  226
  623                                                                                  0  0  0     0    0
  624       1  1  3    89    0      26  0  0   635    4      26  0  1   623    4
 PROCEDURE  227
  627                                                                                  0  0  0     0    0
  628       1  1  3    99    0      26  0  0   635    4      26  0  1   627    4
 PROCEDURE  228
  631                                                                                  0  0  0     0    0
  632       1  1  3   115    0      26  0  0   635    4      26  0  1   631    4
 PROCEDURE  229
  635                                                                                  0  0  0     0    0
  636      18  1  1  4118    0       6  1  0  2962    4      18  0  1  4126    0       5  1  0  2844    4
  640      27  0  0   649    4       1  1  3     0    0      18  1  1    10    0      24  1  2  3423    4
  644      18  0  1     0    0       7  1  0  2962    4       1  1  3     2    0       4  0  0  3423    4
  648       2  0  0  3423    4      26  0  1   635    4
 PROCEDURE  230
  650                                                         0  0  0     0    0      26  1  1  2846    4
  652       1  1  3     0    0       2  0  0  3354    4       1  0  1    28    0      15  0  0  3366    4
  656       2  0  0  3338    4      15  0  1  3878    4      27  0  0   671    4       5  0  0  3338    4
  660      27  0  3   668    4      27  0  1   671    4       6  0  1  3878    4       5  0  0  3366    4
  664      27  0  0   666    4      27  0  2   680    4       6  0  1  3879    4       7  0  0  3354    4
  668       1  1  3     0    0      25  0  1     2    0      24  1  0   657    4       1  0  1     3    0
  672       6  0  0  3354    4      15  0  0  3366    4       3  0  0  3366    4       1  1  2   256    0
  676      27  0  3   679    4       6  1  0  2564    4       2  1  0  2962    4      26  0  1   650    4
  680       4  0  1  3879    4      27  0  0   683    4      27  0  2   671    4       6  1  0  2566    4
  684       2  1  0  2962    4      24  1  0   671    4
 PROCEDURE  231
  686                                                         6  1  0  2924    4       5  1  0  2528    4
  688      27  0  1   691    4       2  1  0  3398    4      24  1  0   950    4       6  1  0  2924    4
  692       5  1  0  2524    4      27  0  1   710    4       6  1  0  2848    4       2  1  0  3398    4
  696       0  1  2  2934    4      26  0  0  2622    4       6  1  0  3397    4      27  0  3   704    4
  700       3  0  0  3367    4      27  0  0   704    4       1  1  2     5    0      27  0  3   707    4
  704       1  1  3     5    0       2  0  0  8072    4      24  1  0  1813    4
 PROCEDURE  232
  707                                                                                  6  0  0  3367    4
  708       2  0  0  8072    4      24  1  0   950    4       6  1  0  2924    4       5  1  0  2526    4
  712      27  0  1   732    4       6  1  0  2850    4      28  0  0  5536    4       0  0  2  2513    4
  716      15  1  0  2935    4      18  0  1  4124    0       3  0  0  3398    4      27  0  1   721    4
  720       1  1  3    48    0      18  0  1     3    0       1  0  1    24    0      14  0  0  2935    4
  724      24  1  0   727    4       1  1  3     1    0       3  0  0  3398    4       1  1  3     1    0
  728       2  0  0  8070    4       1  1  3     4    0       2  0  0  8066    4      24  1  0   950    4
  732      24  1  0   733    4
 PROCEDURE  233
  733                                6  0  0  3399    4      27  0  1   737    4       1  1  3     2    0
  736      24  1  0   738    4       1  1  3     3    0       2  0  0  8066    4       5  0  0  3346    4
  740      27  0  3   950    4       1  1  3     2    0       2  0  0  3317    4      24  1  0   592    4
 PROCEDURE  234
  744       0  0  0     0    0       0  1  2  2926    4      26  0  0  2622    4       6  1  0  3397    4
  748       3  0  0  3312    4       1  1  2   256    0      27  0  3   767    4       1  1  2  2201    0
  752      27  0  2   767    4       6  1  0  2928    4       2  0  0  2116    4      26  0  0   768    4
  756       6  1  0  3397    4       5  0  0  3312    4      27  0  1   762    4       6  1  0  2928    4
  760       5  0  0  2116    4      27  0  0   763    4      26  0  0   562    4       6  1  0  3397    4
  764       2  0  0  3312    4      24  0  2  2324    4      28  1  2  2926    4      26  0  1   744    4
 PROCEDURE  235
  768       0  0  0     0    0       6  1  0  3397    4       3  0  0  3426    4       3  0  0  3427    4
  772      18  0  1     2    0       4  0  0  2928    4       2  0  0  3366    4       6  1  0  2928    4
  776      27  0  3   780    4      26  0  0   650    4       6  0  0  3366    4       2  0  0  2928    4
  780      26  0  1   768    4
 PROCEDURE  236
  781                               26  0  0   744    4       6  0  0  3312    4       1  1  2   256    0
  784      27  0  3   789    4       1  1  2  2201    0      27  0  2   789    4       6  0  0  3426    4
  788       2  0  0  2940    4       6  0  0  3369    4      27  0  0   792    4      26  0  0  2158    4
  792       0  1  2  2924    4      26  0  0  2622    4       6  1  0  3397    4      27  0  3   812    4
  796       1  1  2   256    0      27  0  3   812    4       1  1  2    48    0      27  0  2   812    4
  800       6  1  0  3397    4      26  0  0   944    4       3  0  0  3362    4      18  0  1     3    0
  804       1  0  0  2504    4      18  1  1    10    0       3  0  0  3363    4      24  1  2  3363    4
  808       0  0  2     0    0       1  1  3     0    0      15  0  0  2514    4      27  0  1   816    4
 PROCEDURE  237
  812       6  1  0  2852    4       2  1  0  2962    4      26  0  0  2154    4      24  1  0   950    4
  816      18  0  1  4126    0       1  1  3     0    0      15  0  0  2515    4      18  0  1  4127    0
  820       2  0  0  8068    4      15  0  0  2517    4       2  0  0  3369    4      15  0  0  2518    4
  824       2  0  0  3368    4       2  0  0  3367    4
 PROCEDURE  238
  826                                                         0  0  3  2905    4       6  0  0  2928    4
  828       5  0  0  2911    4      27  0  2   832    4       6  0  0  2929    4      27  0  0   833    4
  832      26  0  0   623    4       6  1  0  2930    4      27  0  0   838    4       1  1  2     1    0
  836      27  0  0   838    4      26  0  0   611    4       6  1  0  2932    4      27  0  0   849    4
  840       1  1  2     4    0      27  0  3   849    4      26  0  0   615    4      24  1  0   849    4
 PROCEDURE  239
  844       0  0  0     0    0       6  1  0  2930    4      27  0  0   848    4      26  0  0   611    4
  848      26  0  1   844    4
 PROCEDURE  240
  849                               24  0  1  8068    4      26  0  1   850    4       0  0  0   852    3
 PROCEDURE  241
  852       6  0  0  3312    4      27  0  3   868    4      27  0  1   863    4       6  0  0  2932    4
  856      27  0  1   870    4       6  1  0  2928    4      27  0  3   868    4      27  0  1   870    4
  860       6  0  0  3362    4      27  0  0   868    4      24  1  0   870    4      27  0  0   872    4
  864       1  1  2   256    0      27  0  3   868    4       1  1  2  2304    0      27  0  3   870    4
  868      26  0  0  2154    4      26  0  0   619    4      24  1  0   872    4      26  0  0  1674    4
 PROCEDURE  242
  872       6  1  0  2936    4      27  0  0   876    4
 PROCEDURE  243
  874                                                        26  0  0  2154    4      26  0  0   627    4
 PROCEDURE  244
  876       0  0  3  2903    4
 PROCEDURE  245
  877                                6  0  0  3362    4       1  1  2   127    0      27  0  0   898    4
  880       1  1  1     3    0      27  0  1   950    4       6  0  0  2930    4       1  1  2     1    0
  884      27  0  1   950    4       6  0  0  2932    4      27  0  1   950    4      24  1  0   898    4
  888       0  0  3  2905    4       6  1  0  2934    4      27  0  1   892    4      26  0  0   627    4
  892       6  1  0  2926    4      27  0  1   898    4       6  0  0  2928    4      27  0  0   950    4
  896      26  0  0   623    4      24  1  0   950    4
 PROCEDURE  246
  898                                                         6  0  0  3312    4       1  1  2  2457    0
  900      27  0  2   950    4       6  0  0  6693    4      18  0  1     2    0       4  0  0  3317    4
  904       3  0  0  3426    4       5  1  0  2927    4       5  0  0  2928    4      27  0  3   950    4
  908       6  1  0  2927    4      27  0  0   950    4       4  0  0  2928    4      27  0  3   950    4
  912       2  0  0  3427    4       6  1  0  3426    4       0  0  3  2903    4      24  1  2  6699    4
  916       1  1  0     0    0      18  1  1    10    0       3  1  0  2806    4      26  1  1  2806    4
  920       5  0  0  6699    4      18  0  1     5    0       4  0  0  6699    4       2  1  0  3396    4
  924       6  0  0  6699    4       5  0  0  2508    4      27  0  0   950    4       6  0  0  2906    4
  928       7  0  0  6699    4       6  1  0  3396    4      24  1  2  6699    4      28  1  1     0    0
  932      25  0  1  4098    0      24  1  0   934    4       6  1  0  3426    4      24  0  3     0    4
  936       2  1  1     0    0      24  1  0   950    4
 PROCEDURE  247
  938                                                         0  0  0     0    0       2  1  0  2614    4
  940       0  0  3  2905    4      24  0  2  2574    4      12  1  0  2614    4      26  0  1   938    4
 PROCEDURE  248
  944       0  0  0     0    0       2  1  0  2614    4       0  0  3  2903    4      24  0  2  2594    4
  948      12  1  0  2614    4      26  0  1   944    4
 PROCEDURE  249
  950                                                         6  0  0  3393    4      27  0  0   953    4
  952      26  0  0  2154    4       0  0  3  2905    4       6  0  0  6693    4      18  0  1     2    0
  956       2  0  0  3396    4       6  0  0  8066    4       6  0  0  3317    4       1  1  2   256    0
  960      27  0  3   972    4       6  0  0  8066    4       1  1  2     2    0      27  0  0   968    4
  964       1  0  1    63    0       6  1  0  2854    4      14  1  0  2962    4      24  1  0   969    4
  968      26  0  0  2154    4       1  1  3   153    0       5  0  0  3398    4      24  1  0   973    4
  972       6  0  0  3317    4       7  0  0  3396    4      24  0  2  2328    4      28  1  2  2920    4
 PROCEDURE  250
  976       1  1  3     0    0      24  0  1  8066    4      26  0  1   978    4       0  0  0   984    3
  980       0  0  0  1004    3       0  0  0   993    3       0  0  0   998    3       0  0  0   984    3
  984       6  0  0  3317    4      27  0  1   991    4       6  0  0  2544    4       1  1  2     3    0
  988      27  0  1   991    4       1  1  3     1    0       2  1  0  3016    4       1  1  3     0    0
  992      24  1  0  1004    4
 PROCEDURE  251
  993                                6  0  0  3317    4       1  1  2     1    0      27  0  0  1004    4
  996       1  1  3     2    0      24  1  0  1005    4       6  0  0  3317    4      27  0  1  1003    4
 1000       1  1  3     1    0       7  0  0  3317    4      24  1  0   986    4       6  0  0  3398    4
 1004       1  1  1     1    0       7  0  0  3317    4       6  0  0  3341    4      27  0  0  1011    4
 1008       6  0  0  3309    4      18  0  1     2    0       2  1  0  2918    4       2  1  0  6724    4
 PROCEDURE  252
 1012       0  0  3  2903    4       6  0  0  2521    4      27  0  0  1017    4      26  0  0  2001    4
 1016      24  1  0  1018    4      26  0  0  2056    4       6  0  0  3346    4      27  0  1  1043    4
 1020       6  0  0  6781    4       1  1  2     4    0      27  0  0  1035    4      24  0  1  6781    4
 1024       6  0  0  2314    4      28  1  2  3012    4       6  1  0  2570    4      24  0  1  6781    4
 1028      24  0  1  2310    4      28  1  1  3010    4       6  1  0  2962    4      24  0  1  6781    4
 1032      24  0  1  2310    4       2  1  0  3008    4      24  1  0  1064    4      24  0  2  2929    4
 1036      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      28  0  1  3021    4
 1040      24  0  2  2500    4      28  1  2  3016    4      24  1  0  1064    4      24  0  2  2348    4
 1044      28  1  2  3012    4       1  1  3     0    0       2  0  0  2544    4       6  0  0  6781    4
 1048       1  1  2     1    0      27  0  1  1056    4       6  0  0  3346    4      27  0  3  1056    4
 1052       6  1  0  2926    4       2  1  0  3022    4       2  1  0  3018    4      24  1  0  1058    4
 1056       6  1  0  2962    4       2  1  0  3022    4      24  0  2  2934    4      18  1  1  4123    0
 1060       1  1  3    28    0      18  1  1     5    0      28  1  1  3024    4      24  1  0  1066    4
 1064       6  0  0  6781    4       2  0  0  2544    4       1  1  3     1    0       2  0  0  2521    4
 1068       0  0  3  2905    4       1  1  3     0    0       2  0  0  3423    4       6  0  0  6775    4
 1072       1  0  1    15    0      14  1  0  3012    4       1  1  3     0    0       2  0  0  6775    4
 1076      26  0  1   501    4
 PROCEDURE  253
 1077                               26  0  0  2116    4      27  0  0  1100    4       6  0  0  3353    4
 1080      27  0  1  1092    4       6  0  0  6777    4      27  0  0  1086    4      24  0  3  8102    4
 1084       6  1  0     5    0      24  1  0  1088    4      24  1  2    17    4       6  1  0     7    0
 1088      24  1  2    21    4       5  1  0     5    0      27  0  0  1100    4      27  0  2  1106    4
 1092      26  0  0  2175    4       1  1  3     0    0       2  0  0  3341    4      26  0  0  2227    4
 1096      26  0  0  1873    4      26  0  0   501    4      26  0  0  2204    4      24  1  0  1079    4
 PROCEDURE  254
 1100      24  0  1  8069    4      26  0  1  1101    4       0  0  0  1122    3       0  0  0  1159    3
 1104       0  0  0  1106    3       0  0  0  1106    3
 PROCEDURE  255
 1106                                                         6  1  0  2922    4      24  0  1  2544    4
 1108      24  0  1  2318    4       2  1  0  3010    4       0  1  2  2920    4      26  0  0  1237    4
 1112       1  1  3  7517    0       3  0  0  6782    4       1  0  1    15    0      24  0  1  2544    4
 1116      24  0  1  2318    4      14  1  0  3010    4      26  0  0  2087    4      26  0  0  2116    4
 1120      27  0  0  1118    4      24  1  0  1079    4
 PROCEDURE  256
 1122                                                        24  1  2    21    4       6  1  0    51    0
 1124      27  0  1  1157    4       6  0  0  6781    4       2  0  0  2158    4      26  0  0  2227    4
 1128       6  0  0  3346    4       2  0  0   627    4      26  0  0  2108    4       6  0  0  3346    4
 1132       5  0  0   627    4      27  0  1  1152    4       1  1  3     1    0       2  0  0  3341    4
 1136      26  0  0  1816    4      26  0  0  2175    4       6  0  0  3346    4      27  0  2  1148    4
 1140       6  0  0  6777    4      27  0  0  1145    4      24  0  3  8102    4       6  1  0    14    0
 1144      24  1  0  1147    4      24  1  2    17    4       6  1  0    16    0       2  1  0  2926    4
 1148      26  0  0  2204    4      26  0  0   501    4      26  0  0  2087    4      24  1  0  1077    4
 1152       6  0  0  3346    4       4  0  0   627    4      27  0  2  1134    4       6  0  0  2158    4
 1156       2  0  0  6781    4       1  1  3   105    0      24  1  0  1200    4
 PROCEDURE  257
 1159                                                                                 26  0  0  2175    4
 1160      24  1  2    21    4       6  1  0     4    0       2  1  0  2918    4      24  1  2    21    4
 1164       6  1  0    51    0      27  0  1  1199    4      26  0  0  2087    4      26  0  0  2116    4
 1168      27  0  1  1212    4      24  1  2    21    4       6  1  0    51    0      27  0  1  1199    4
 1172       6  0  0  6777    4      27  0  0  1177    4      24  0  3  8102    4       6  1  0     5    0
 1176      24  1  0  1179    4      24  1  2    17    4       6  1  0     7    0      18  0  1     8    0
 1180      27  0  0  1182    4      26  0  0   562    4      26  0  0  2204    4      26  0  0  2175    4
 1184       6  0  0  6777    4      27  0  0  1189    4      24  0  3  8102    4       6  1  0     5    0
 1188      24  1  0  1191    4      24  1  2    17    4       6  1  0     7    0       5  1  0  2921    4
 1192      27  0  1  1198    4      26  0  0  2204    4      26  0  0  2087    4      26  0  0  2116    4
 1196      27  0  1  1079    4      24  1  0  1199    4      27  0  3  1182    4       1  1  3    84    0
 1200      18  0  1     8    0      24  0  1  2544    4      24  0  1  2318    4       2  1  0  3010    4
 1204       6  0  0  6777    4      27  0  0  1209    4      24  0  3  8102    4       0  1  2     4    0
 1208      24  1  0  1111    4      24  1  2    17    4       0  1  2     6    0      24  1  0  1111    4
 1212       6  0  0  6777    4      27  0  0  1217    4      24  0  3  8102    4       6  1  0     5    0
 1216      24  1  0  1219    4      24  1  2    17    4       6  1  0     7    0      18  0  1     8    0
 1220      27  0  0  1222    4      26  0  0   562    4      26  0  0  2204    4       6  0  0  6777    4
 1224      27  0  0  1228    4      24  0  3  8102    4       6  1  0     5    0      24  1  0  1230    4
 1228      24  1  2    17    4       6  1  0     7    0       5  1  0  2919    4      27  0  0  1222    4
 1232      24  1  0  1077    4
 PROCEDURE  258
 1233                                0  0  0     0    0       6  0  0  1233    4       2  0  0  1873    4
 1236      24  1  0  1876    4
 PROCEDURE  259
 1237                                0  0  0     0    0      24  0  1  2544    4      24  0  1  2310    4
 1240       6  0  0  3025    4       5  0  0  2549    4      27  0  0  1249    4       1  1  3     0    0
 1244      18  1  1    10    0      24  0  1  2544    4      24  0  1  2310    4       2  1  0  3024    4
 1248      26  0  1  1237    4      18  1  1    10    0      24  0  1  2544    4      24  0  1  2310    4
 1252       2  1  0  3022    4      26  0  1  1237    4
 PROCEDURE  260
 1254                                                         2  0  0  3377    4       2  1  0  3374    4
 1256       2  0  0  3378    4       2  0  0  8077    4      26  1  2  3374    4      26  1  3  2856    4
 1260      26  1  1  2834    4       6  1  0  2858    4      28  0  0  5476    4       0  0  3  2903    4
 1264       0  1  2  2924    4       6  0  0  3341    4       2  0  0  3378    4      24  1  0  1270    4
 1268      26  0  0  2154    4
 PROCEDURE  261
 1269                               26  0  0  1633    4      18  1  1     2    0       3  1  0  3396    4
 1272       1  1  2   125    0      27  0  0  1279    4       1  1  2     1    0      27  0  0  1436    4
 1276       6  0  0  3378    4      27  0  1  1269    4      24  1  0  1284    4       6  0  0  3378    4
 1280      27  0  0  1436    4       2  0  0  3378    4       2  0  0  3378    4      24  1  0  1269    4
 1284       6  0  0  3396    4       2  0  2  5476    4
 PROCEDURE  262
 1286                                                        24  0  3     0    4       6  0  0     4   22
 1288      25  0  2     1    0      24  1  0  1290    4      27  0  1  1310    4       6  0  0  3396    4
 1292       1  1  2   122    0      27  0  0  1312    4       1  1  3     5    0       2  0  0  8070    4
 1296       2  0  0  5536    4       6  0  0  5537    4      27  0  0  1307    4       6  0  0  5538    4
 1300       2  0  0  8071    4       6  0  0  5538    4       1  1  2     5    0      27  0  1  1310    4
 1304       1  1  3     1    0       2  0  0  8077    4      24  1  0  1310    4       1  1  3     1    0
 1308       2  0  0  8070    4      26  0  0  1314    4       6  0  0  3396    4      24  1  0  1322    4
 1312      26  0  0  1314    4      24  1  0  1333    4
 PROCEDURE  263
 1314                                                         0  0  0     0    0       2  1  0  5536    4
 1316       2  1  0  5538    4       2  1  0  5540    4       2  1  0  5542    4       2  1  0  5544    4
 1320       2  1  0  5546    4      26  0  1  1314    4      24  0  1  8070    4      26  0  1  1323    4
 1324       0  0  0  1268    3       0  0  0  1355    3       0  0  0  1419    3       0  0  0  1329    3
 1328       0  0  0  1336    3       1  1  2   124    0      27  0  0  1307    4       1  1  1     2    0
 1332      27  0  1  1380    4       1  1  3     2    0       2  0  0  8070    4      24  1  0  1269    4
 1336       1  1  2   124    0      27  0  1  1352    4       1  1  3     2    0       7  0  0  5536    4
 1340      24  0  0  5536    4       6  0  0  5538    4      27  0  0  1307    4       2  0  0  8071    4
 1344       6  0  0  8071    4       1  1  2     5    0      27  0  1  1269    4      24  0  3     0    4
 1348       6  0  0     4   22       1  1  1     1    0       2  0  0  8077    4      24  1  0  1269    4
 1352       1  1  1     2    0      27  0  1  1380    4      24  1  0  1268    4       1  1  2    81    0
 1356      27  0  0  1375    4       1  1  2     1    0      27  0  0  1373    4       1  1  2     1    0
 1360      27  0  0  1367    4       1  1  2     1    0      27  0  0  1374    4       1  1  2    19    0
 1364      27  0  0  1372    4       1  1  2     2    0      27  0  1  1307    4      24  0  3     0    4
 1368       6  0  0     4   22       1  1  1     2    0       2  0  0  8077    4       1  1  3     1    0
 1372       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0
 1376       2  0  0  8071    4       1  1  3     3    0       2  0  0  8070    4      24  1  0  1269    4
 PROCEDURE  264
 1380      24  0  1  8071    4      26  0  1  1381    4       0  0  0  1269    3       0  0  0  1387    3
 1384       0  0  0  1396    3       0  0  0  1400    3       0  0  0  1405    3       6  0  0  3396    4
 1388      18  0  1  4127    0       1  1  2     2    0      27  0  0  1393    4       1  1  2     3    0
 1392      27  0  3  1269    4       1  1  3    91    0       2  1  0  2962    4      24  1  0  1269    4
 1396       6  1  0  3397    4       1  1  2    10    0      27  0  2  1393    4      24  1  0  1387    4
 1400       6  1  0  3397    4      27  0  0  1387    4       1  1  2     1    0      27  0  0  1387    4
 1404      24  1  0  1393    4       6  0  0  3396    4       1  1  2    77    0      27  0  1  1412    4
 1408       6  0  0  3374    4       2  0  0  3375    4       2  0  0  3374    4      24  1  0  1387    4
 1412       6  0  0  3374    4      18  0  1     1    0       4  1  0  3397    4       2  0  0  3374    4
 1416       1  1  3     5    0       2  0  0  8070    4      24  1  0  1396    4       1  1  2   123    0
 1420      27  0  0  1428    4       6  0  2  5474    4       1  1  2    82    0      27  0  0  1396    4
 1424       6  0  2  5473    4       1  1  2    82    0      27  0  0  1396    4      24  1  0  1307    4
 1428       6  0  0  8071    4      24  0  0  5537    4       2  0  0  5538    4       1  1  3     2    0
 1432       7  0  0  5537    4       1  1  3     4    0       2  0  0  8070    4      24  1  0  1269    4
 PROCEDURE  265
 1436       1  1  3   125    0       2  0  2  5476    4       6  0  0  8070    4       1  1  2     4    0
 1440      27  0  2  1442    4      26  0  0  2154    4       6  0  0  5536    4      27  0  0  1448    4
 1444       1  1  1     2    0       5  0  0  5537    4      27  0  0  1448    4      26  0  0  2154    4
 1448       6  0  0  5537    4       1  1  2    12    0      27  0  3  1452    4      26  0  0  2154    4
 1452      24  0  3     0    4       6  0  0     4   22       2  0  0  3378    4       3  1  0  2806    4
 1456      26  1  2  2806    4       3  1  0  2806    4      26  1  3  2806    4       6  0  0  8077    4
 1460      27  0  0  1483    4       3  1  0  2806    4      26  1  1  2806    4       6  0  0  3375    4
 1464       1  1  2   256    0      27  0  3  1483    4       1  1  2  2201    0      27  0  2  1483    4
 1468       6  0  0  3375    4       0  0  3  2903    4      18  1  1  4126    0       2  0  1  5475    4
 1472      18  1  1     1    0      27  0  1  1475    4       1  1  3    48    0       2  0  1  5476    4
 1476      18  1  1     1    0      27  0  1  1479    4       1  1  3    48    0       2  0  1  5477    4
 1480       6  1  0  2860    4      28  0  0  2924    4      24  1  0  1525    4       6  0  0  3341    4
 1484      27  0  0  1542    4       6  1  0  2860    4      28  0  0  2924    4      24  0  1  6786    4
 1488      26  0  1  1488    4       0  0  0  1525    3       0  0  0  1491    3       6  0  0  5537    4
 1492       1  1  2     4    0      27  0  2  1513    4       6  0  0  8071    4       1  1  2     1    0
 1496      27  0  1  1513    4       6  0  0  5476    4       1  1  2   122    0      27  0  0  1501    4
 1500       6  0  0  2912    4       1  1  1     3    0       0  0  2  2913    4      10  0  0  3398    4
 1504       4  1  0  2862    4       3  0  0  3378    4       3  1  0  2806    4      26  1  1  2806    4
 1508       1  1  3   125    0       2  0  1  5476    4      25  0  1     1    0      24  1  0  1509    4
 1512      24  1  0  1525    4      26  1  1  2864    4       6  0  1  5476    4      27  0  1  1518    4
 1516      25  0  1  4097    0      24  1  0  1514    4       1  1  3   125    0       2  0  1  5477    4
 1520       2  0  0  5505    4      24  0  3     0    4       6  0  0     2   22       1  1  1     1    0
 1524       2  0  0  3378    4       6  0  2  5476    4
 PROCEDURE  266
 1526                                                        18  0  1     2    0       4  0  2  5477    4
 1528      18  0  1     2    0       4  0  2  5478    4      18  0  1     2    0       4  0  2  5479    4
 1532      18  0  1     2    0       4  0  2  5480    4       2  1  3  2924    4      25  0  3     2    0
 1536      25  0  2     5    0      24  0  3     0    4       6  0  0     4   22       1  1  2     1    0
 1540       5  0  0  3378    4      27  0  3  1525    4       6  1  0  2960    4       5  1  0  2548    4
 1544      27  0  1  1547    4      26  0  0  1314    4      24  1  0   950    4       6  0  0  5537    4
 1548       1  1  2     4    0      27  0  2   950    4      26  1  1  2866    4       6  0  1  5476    4
 1552       1  1  2   122    0      27  0  1  1561    4       6  0  1  5477    4      25  0  1     1    0
 1556      24  1  0  1557    4       1  1  2   123    0      27  0  1  1554    4      25  0  1     1    0
 1560      24  1  0  1561    4
 PROCEDURE  267
 1561                               24  0  1  8071    4      26  0  1  1562    4       0  0  0  1579    3
 1564       0  0  0  1588    3       0  0  0  1602    3       0  0  0  1625    3       0  0  0  1568    3
 1568       6  0  0  3375    4       1  1  2  4096    0      27  0  2  1573    4       1  1  1  3943    0
 1572      27  0  2  1575    4      26  0  0   619    4      24  1  0   950    4       6  0  0  3374    4
 1576       1  1  2   153    0      27  0  2   896    4      24  1  0   950    4
 PROCEDURE  268
 1579                                                                                  6  0  0  3398    4
 1580      27  0  0  1582    4       1  1  3     3    0       1  1  1     2    0      24  0  3     0    4
 1584       4  0  0     2   22       5  0  0  3378    4      27  0  2   950    4      24  1  0  1630    4
 PROCEDURE  269
 1588       6  0  0  3398    4      27  0  0  1591    4       1  1  3     5    0       1  1  1     5    0
 1592       2  0  0  3375    4      24  0  0  3378    4       6  0  0  5475    4       1  1  2    16    0
 1596      27  0  0  1599    4       6  0  0  3375    4      24  1  0  1583    4       6  0  0  3375    4
 1600       1  1  1     1    0      24  1  0  1583    4
 PROCEDURE  270
 1602                                                        26  1  2  2868    4       6  0  1  5476    4
 1604       1  1  2   125    0      27  0  0  1619    4       1  1  1   109    0      27  0  0  1619    4
 1608       1  1  1    16    0       2  1  0  3318    4       6  1  0  3374    4      18  0  1     1    0
 1612       4  1  0  3319    4       2  1  0  3374    4      25  0  1     1    0      24  1  0  1616    4
 1616      25  0  2     1    0      24  1  0  1603    4      24  1  0  1630    4
 PROCEDURE  271
 1619                                                                                  6  0  0  3398    4
 1620      27  0  1   950    4       6  1  0  3374    4       5  1  0  2870    4      27  0  2  1630    4
 1624      24  1  0   950    4
 PROCEDURE  272
 1625                                6  0  0  3398    4      27  0  0  1628    4       1  1  3    20    0
 1628       1  1  1    20    0      24  1  0  1592    4
 PROCEDURE  273
 1630                                                         1  1  3    91    0       2  1  0  2962    4
 1632      24  1  0   950    4
 PROCEDURE  274
 1633                                0  0  0     0    0       1  1  3     0    0      25  0  3     1    0
 1636      24  1  0  1646    4      25  0  1     2    0      24  1  0  1643    4      26  0  0  2154    4
 1640       1  1  3   125    0      18  1  1  4126    0      26  0  1  1633    4      26  1  3  2856    4
 1644      24  0  0    23    4       0  1  2  2924    4      26  0  1  1633    4
 PROCEDURE  275
 1647                                                                                  0  0  0     0    0
 1648       2  1  0  3397    4       6  0  0  1647    4       3  0  0  1633    4       2  0  0   744    4
 1652      24  1  0   747    4
 PROCEDURE  276
 1653                                2  0  0  3311    4      26  1  2  2840    4       6  0  2  2940    4
 1656       2  0  0  2928    4       6  1  2  2938    4      26  0  0  1647    4       6  0  0  2928    4
 1660       2  0  2  2940    4       6  0  0  3312    4       2  0  2  2938    4      26  0  0  1674    4
 1664       6  0  0  2937    4      27  0  0  1671    4       1  1  3     1    0      18  1  1  4118    0
 1668      15  0  0  2928    4      27  0  0  1671    4      26  0  0   623    4      25  0  2     4    0
 1672      24  1  0  1655    4      24  1  0  1689    4
 PROCEDURE  277
 1674                                                         0  0  0     0    0       1  1  3     1    0
 1676       2  0  0  8067    4       6  0  0  3312    4      27  0  0  1688    4       1  1  2   256    0
 1680      27  0  2  1686    4      26  0  0   619    4      26  0  0  2154    4       1  1  3     2    0
 1684       2  0  0  8067    4      24  1  0  1688    4       1  1  2  2304    0      27  0  2  1681    4
 1688      26  0  1  1674    4
 PROCEDURE  278
 1689                                6  0  0  2937    4      27  0  3  1802    4       1  1  2     3    0
 1692      27  0  2  1802    4       6  0  0  2938    4      27  0  0  1808    4      24  0  1  8072    4
 1696      26  0  1  1696    4       0  0  0  1702    3       0  0  0  1765    3       0  0  0  1710    3
 1700       0  0  0  1765    3       0  0  0   950    3
 PROCEDURE  279
 1702                                                         6  0  0  2930    4       4  0  0  2932    4
 1704       7  0  0  3313    4       6  0  0  2934    4       1  1  2     2    0      27  0  1  1710    4
 1708       1  1  3     1    0       7  0  0  3313    4       6  0  0  2942    4       0  0  2  2944    4
 1712      27  1  1  1806    4       6  0  0  2929    4      27  0  1  1800    4       6  0  0  2937    4
 1716       1  1  2     1    0      27  0  0  1719    4       6  0  0  2914    4       1  1  1    16    0
 1720       5  0  0  2930    4       5  0  0  2931    4      27  0  3  1798    4       4  0  0  2930    4
 1724       4  0  0  2931    4       5  0  0  2933    4      27  0  3  1792    4
 PROCEDURE  280
 1727                                                                                  6  0  0  2932    4
 1728       1  1  2    22    0      27  0  2  1794    4       6  0  0  2930    4      27  0  0  1798    4
 1732       6  0  0  2937    4       1  1  2     2    0      27  0  1  1737    4       6  0  0  2933    4
 1736      27  0  1  1792    4       6  0  0  2935    4      27  0  1  1742    4       5  0  0  3371    4
 1740      27  0  0  1749    4      24  1  0  1763    4       1  1  2     1    0      27  0  1  1788    4
 1744       6  0  0  3371    4       1  1  2     2    0      27  0  0  1748    4       1  1  1     3    0
 1748       2  0  0  3371    4       6  0  0  2936    4       3  0  0  3314    4      27  0  0   950    4
 1752       1  1  2     1    0      27  0  1  1786    4       6  0  0  3313    4       4  0  0  3313    4
 1756      18  0  1     9    0      27  0  0  1760    4       6  1  0  2872    4       2  1  0  2962    4
 1760       2  0  0  3313    4       5  0  0  3371    4      27  0  0   950    4       7  0  0  3371    4
 1764      24  1  0  1788    4
 PROCEDURE  281
 1765                                6  0  0  2929    4      27  0  0  1771    4       1  1  2     1    0
 1768      27  0  1  1800    4       6  0  0  2936    4      27  0  0  1786    4       6  0  0  2930    4
 1772      27  0  1  1798    4       6  0  0  2931    4      27  0  1  1796    4       6  0  0  2932    4
 1776      27  0  1  1794    4       6  0  0  2933    4      27  0  1  1792    4       6  0  0  2934    4
 1780      27  0  0  1783    4       1  1  2     2    0      27  0  1  1790    4       6  0  0  2935    4
 1784      27  0  1  1788    4      24  1  0   950    4
 PROCEDURE  282
 1786                                                         1  1  3     1    0       2  0  0  3311    4
 1788       1  1  3     1    0       7  0  0  3311    4       1  1  3     1    0       7  0  0  3311    4
 1792       1  1  3     1    0       7  0  0  3311    4       1  1  3     1    0       7  0  0  3311    4
 1796       1  1  3     1    0       7  0  0  3311    4       1  1  3     1    0       7  0  0  3311    4
 1800       1  1  3     1    0       7  0  0  3311    4       1  1  3     1    0       7  0  0  3311    4
 1804       1  1  3     1    0       7  0  0  3311    4       1  1  3     2    0       7  0  0  3311    4
 1808       1  1  3     1    0       4  0  0  3311    4       2  0  0  3396    4      24  0  2  2328    4
 1812      28  1  2  2962    4       6  1  0  2874    4       7  1  0  2962    4      24  1  0   950    4
 PROCEDURE  283
 1816       0  0  0     0    0       6  1  0  2820    4      28  1  1  2918    4       6  0  0  3346    4
 1820      27  0  0  1945    4      24  0  1  6786    4      26  0  1  1822    4       0  0  0  1825    3
 1824       0  0  0  1847    3       6  0  0  6720    4      27  0  0  1829    4      24  0  2  2432    4
 1828      24  1  0  1830    4      24  0  2  2434    4      26  0  0  2799    4       6  0  0  6781    4
 1832       1  1  2     2    0      27  0  1  1844    4       6  0  0  3346    4      27  0  3  1844    4
 1836       1  1  3     0    0       2  1  0  2926    4       6  0  0  6720    4      27  0  0  1842    4
 1840      24  0  2  2440    4      24  1  0  1843    4      24  0  2  2442    4      26  0  0  2799    4
 1844       1  1  3     0    0       2  1  0  2962    4      26  0  1  1816    4      24  0  2  2434    4
 1848      24  1  2    21    4      28  0  2     8    0      24  1  2    21    4      24  0  2    18    0
 1852      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      28  1  1  2936    4
 1856       6  1  0  2926    4      18  0  1     4    0       2  1  0  2926    4       6  0  0  3346    4
 1860      27  0  3  1844    4       6  0  0  6781    4       1  1  2     1    0      27  0  1  1844    4
 1864       6  1  0  2936    4       2  1  0  2926    4      24  1  2    21    4      24  0  2    20    0
 1868      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      28  1  1  2936    4
 1872      26  0  1  1816    4
 PROCEDURE  284
 1873                                0  0  0     0    0       6  1  0  2850    4      28  1  1  2924    4
 1876       6  0  0  6777    4      27  0  1  2237    4       6  0  0  3346    4      27  0  0  1899    4
 1880      24  0  2  2334    4      24  1  2    17    4      28  0  2     4    0       6  0  0  3394    4
 1884      27  0  0  1892    4       6  0  0  6781    4       1  1  2     1    0      27  0  0  1944    4
 1888      24  1  2    17    4       6  1  0    20    0       2  1  0  2934    4      24  1  0  1944    4
 1892      24  1  2    17    4      24  0  2    20    0      18  1  1  4123    0       1  1  3    30    0
 1896      18  1  1     5    0      28  1  1  2934    4      24  1  0  1943    4      24  0  1  6781    4
 1900      26  0  1  1900    4       0  0  0  1918    3       0  0  0  1922    3       0  0  0  1926    3
 1904       0  0  0  1905    3      24  1  2    17    4      24  0  2     9    0      18  1  1  4123    0
 1908       1  1  3    36    0      18  1  1     5    0      28  1  0  2927    4      24  1  2    17    4
 1912      24  0  2    44    0      18  1  1  4123    0       1  1  3     6    0      18  1  1     5    0
 1916      28  1  1  2958    4      26  0  1  1873    4      24  0  2  2358    4      24  1  2    17    4
 1920      28  0  2     4    0      24  1  0  1935    4      24  0  2  2378    4      24  1  2    17    4
 1924      28  0  2     4    0      24  1  0  1935    4      24  1  2    17    4      24  0  2    12    0
 1928      18  1  1  4123    0       1  1  3    18    0      18  1  1     5    0      28  1  1  2924    4
 1932      24  1  2    17    4       6  1  0     5    0       2  1  0  2918    4       6  0  0  3394    4
 1936      27  0  1  1944    4      24  1  2    17    4      24  0  2    32    0      18  1  1  4123    0
 1940       1  1  3    18    0      18  1  1     5    0      28  1  1  2946    4       2  1  0  2962    4
 1944      26  0  1  1873    4
 PROCEDURE  285
 1945                               24  0  1  6781    4      26  0  1  1946    4       0  0  0  1951    3
 1948       0  0  0  1956    3       0  0  0  1959    3       0  0  0  1844    3
 PROCEDURE  286
 1951                                                                                 24  0  2  2446    4
 1952      26  0  0  2799    4       1  1  3     0    0       2  1  0  2938    4      24  1  0  1844    4
 1956      24  0  2  2464    4      26  0  0  2799    4      24  1  0  1844    4      24  0  2  2494    4
 1960      26  0  0  2799    4      24  0  2  2414    4      24  1  2    21    4      28  0  2     4    0
 1964      24  1  0  1844    4
 PROCEDURE  287
 1965                                0  0  0     0    0       5  1  0  2526    4      27  0  3  1998    4
 1968      27  0  0  1991    4       4  1  0  2526    4       5  1  0  2534    4      27  0  1  1977    4
 1972       6  0  0  6781    4       1  1  2     3    0      27  0  0  1998    4       1  1  3    16    0
 1976      24  1  0  1996    4       4  1  0  2534    4       5  1  0  2528    4      27  0  0  1993    4
 1980      27  0  3  1998    4       4  1  0  2528    4       5  1  0  2524    4      27  0  0  1992    4
 1984      27  0  3  1998    4       4  1  0  2524    4       5  1  0  2550    4      27  0  1  1998    4
 1988       6  0  0  3341    4      27  0  1  1998    4       1  1  3     1    0       1  1  1     1    0
 1992       1  1  1     1    0       1  1  1     1    0       2  0  0  6781    4       1  1  2    16    0
 1996       2  0  0  3346    4      26  0  1  1965    4       1  1  3     0    0       2  0  0  3346    4
 2000      26  0  1  1965    4
 PROCEDURE  288
 2001                                0  0  0     0    0       6  0  0  3418    4      27  0  0  2010    4
 2004       6  0  0  3419    4      27  0  0  2009    4      24  0  1  2544    4      24  0  1  2318    4
 2008       2  1  0  3010    4       2  0  0  3418    4      26  1  1  2876    4       6  1  1  3008    4
 2012      27  0  1  2015    4      25  0  1  4098    0      24  1  0  2011    4      24  0  3     0    4
 2016       6  0  0     2   22       3  1  0  3011    4       1  1  3   144    0       5  0  0  2522    4
 2020       5  1  0  3011    4      27  0  2  2034    4       6  0  0  2522    4      24  1  2    19    4
 2024       3  1  0     5    0      26  1  1  2522    4       6  1  0  2532    4      24  1  2    19    4
 2028       2  1  1     6    0      26  0  0  2065    4       6  1  0  2820    4      24  1  2    19    4
 2032      28  1  1     4    0       2  0  0  2522    4       1  1  3     6    0       2  0  0  3310    4
 2036      26  1  1  2522    4      24  0  2  3010    4      18  1  1  4123    0       6  1  0  3011    4
 2040      18  1  1     5    0       0  1  0  2806    4       0  0  3     0    4      24  1  2    19    4
 2044      24  0  2     0    0      24  0  3     0    4       4  0  0     2   22       2  0  0  2812    4
 2048       0  1  1  2806    4      24  0  3  2812    4      28  1  1     6    0       6  1  0  3011    4
 2052       7  0  0  2522    4       6  1  0  2878    4      28  1  1  3010    4      26  0  1  2001    4
 PROCEDURE  289
 2056       0  0  0     0    0       6  1  0  2532    4      24  1  2    19    4       2  1  0    50    0
 2060      26  0  0  2065    4       6  1  0  2820    4      24  1  2    19    4      28  1  1     4    0
 2064      26  0  1  2056    4
 PROCEDURE  290
 2065                                0  0  0     0    0       0  1  0  2806    4       0  0  3     0    4
 2068       0  0  2    18    4       6  1  0  2840    4       4  0  0    10    4      25  1  1  4096    0
 2072      24  0  3     0    4      23  0  2     0  256       0  1  1  2806    4      26  0  1  2065    4
 PROCEDURE  291
 2076       0  0  0     0    0       0  1  0  2806    4       0  0  3     0    4       0  0  2    16    4
 2080       6  1  0  2880    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 2084      23  0  2     0  256       0  1  1  2806    4      26  0  1  2076    4
 PROCEDURE  292
 2087                                                                                  0  0  0     0    0
 2088      26  0  0  2193    4      24  1  2    21    4       6  1  0     4    0       5  1  0  2568    4
 2092      27  0  0  2107    4      24  1  2    21    4       0  1  2    49    0       1  1  3     0    0
 2096      18  1  1     7    0       2  1  0  2614    4      26  1  1  2614    4      18  1  1     3    0
 2100       2  0  0  2001    4       1  0  1     3    0       1  1  3   126    0      24  0  1  2001    4
 2104      18  1  1     0    0      24  1  2    21    4      14  1  1     0    0      26  0  1  2087    4
 PROCEDURE  293
 2108       0  0  0     0    0       6  1  0  2882    4      28  1  1  2918    4      24  0  2  2432    4
 2112      26  0  0  2799    4       6  1  0  2924    4      26  0  0  1965    4      26  0  1  2108    4
 PROCEDURE  294
 2116       0  0  0     0    0      24  1  2    21    4       6  1  0     4    0      18  0  1  4124    0
 2120      18  0  1     4    0       5  1  0  2536    4      27  0  0  2127    4      24  1  2    21    4
 2124       6  1  0     4    0       5  1  0  2568    4      27  0  1  2129    4       6  1  0  2884    4
 2128      24  1  0  2150    4       1  1  3     0    0       2  1  0  2922    4      24  0  2  2440    4
 2132      26  0  0  2799    4       0  1  2  2922    4       1  1  3     0    0      18  1  1     2    0
 2136       1  1  2   105    0      27  0  0  2147    4       1  1  1    21    0      27  0  0  2146    4
 2140       1  1  2    25    0      27  0  0  2145    4       1  1  1    34    0      27  0  1  2152    4
 2144       1  1  3     1    0       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0
 2148       2  0  0  8069    4       1  1  3     1    0       3  1  0  3352    4      26  0  1  2116    4
 2152       1  1  3     0    0      24  1  0  2150    4
 PROCEDURE  295
 2154                                                         0  0  0     0    0       6  1  0  2548    4
 2156       2  1  0  2960    4      26  0  1  2154    4
 PROCEDURE  296
 2158                                                         0  0  0     0    0       6  1  0  2548    4
 2160      24  0  1  2544    4      24  0  1  2310    4       2  1  0  3024    4      26  0  1  2158    4
 PROCEDURE  297
 2164       0  0  0     0    0       1  1  3    15    0      26  0  1  2164    4
 PROCEDURE  298
 2167                                                                                  0  0  0     0    0
 2168      24  1  2    21    4      24  0  2    18    0      18  1  1  4123    0       1  1  3    16    0
 2172      18  1  1     5    0      28  1  1  2946    4      26  0  1  2167    4
 PROCEDURE  299
 2175                                                                                  0  0  0     0    0
 2176       6  0  0  6777    4      27  0  0  2181    4      24  0  3  8102    4       6  1  0     6    0
 2180      24  1  0  2183    4      24  1  2    17    4       6  1  0    10    0       5  1  0  2536    4
 2184      27  0  0  2631    4      26  0  1  2175    4
 PROCEDURE  300
 2186                                                         0  0  0     0    0       1  1  3     0    0
 2188      27  1  0  2192    4      18  1  1     2    0      27  0  0  2189    4      18  1  1     8    0
 2192      26  0  1  2186    4
 PROCEDURE  301
 2193                                0  0  0     0    0       0  1  0  2806    4       0  0  3     0    4
 2196       0  0  2    20    4       6  1  0  2880    4       4  0  0    11    4      25  1  1  4096    0
 2200      24  0  3     0    4      23  0  2     0  256       0  1  1  2806    4      26  0  1  2193    4
 PROCEDURE  302
 2204       0  0  0     0    0       6  0  0  6777    4      27  0  0  2225    4      24  0  3  8102    4
 2208       6  1  0     1    0       2  0  0  2076    4      24  0  1  2076    4      23  0  0     0    0
 2212       0  0  0  8102    3      24  1  0  2224    4      26  0  0  2076    4       0  1  0  2806    4
 2216       0  0  3     0    4      24  1  2    17    4      24  0  2     6    0       3  0  0  8102    4
 2220      24  1  2    17    4       4  1  0     5    0       2  0  0  8103    4       0  1  1  2806    4
 2224      26  0  1  2204    4      26  0  0  2076    4      26  0  1  2204    4
 PROCEDURE  303
 2227                                                                                  0  0  0     0    0
 2228       6  0  0  6777    4      27  0  0  2234    4      24  0  3  8102    4       6  1  0     6    0
 2232      26  0  0  1965    4      26  0  1  2227    4      24  1  2    17    4       6  1  0    10    0
 2236      24  1  0  2232    4
 PROCEDURE  304
 2237                                0  0  3  2903    4       6  1  0  2820    4      28  1  1  2964    4
 2240       6  0  0  3346    4      27  0  0  2272    4      24  0  3  8102    4       6  1  0     1    0
 2244      18  0  1     5    0       4  0  0  8102    4      28  1  1  2964    4      24  0  2  2348    4
 2248      28  0  2  2966    4       6  0  0  6781    4       1  1  2     1    0      27  0  1  2256    4
 2252       6  0  0  3346    4      27  0  3  2256    4       6  1  0  2976    4       2  1  0  2926    4
 2256       6  0  0  3394    4      27  0  0  2266    4       6  0  0  6781    4       1  1  2     1    0
 2260      27  0  1  2263    4       6  0  0  3346    4      27  0  3  2288    4       6  1  0  2978    4
 2264       2  1  0  2934    4      24  1  0  2288    4      24  0  2  2978    4      18  1  1  4123    0
 2268       1  1  3    26    0      18  1  1     5    0      28  1  1  2934    4      24  1  0  2288    4
 2272       6  0  0  6781    4       1  1  2     4    0      27  0  0  2302    4      24  0  3  8102    4
 2276       6  1  0     1    0       3  0  0  2614    4      24  0  1  6781    4       5  0  0  2310    4
 2280      27  0  2  2290    4       6  0  0  2614    4      18  0  1     5    0       4  0  0  8102    4
 2284      28  1  1  2964    4      24  0  1  6781    4       6  0  0  2314    4      28  0  2  2966    4
 2288       0  0  3  2905    4      26  0  1  1873    4       2  0  0  2615    4       6  0  0  3394    4
 2292      27  0  1  2299    4       6  0  0  2615    4      18  0  1     5    0       4  0  0  8102    4
 2296      24  0  1  6781    4       4  0  0  2310    4      28  1  1  2946    4      24  0  1  6781    4
 2300       6  0  0  2310    4      24  1  0  2282    4      24  0  3  8102    4       6  1  0     1    0
 2304       1  1  2     6    0      18  0  1     5    0       4  0  0  8102    4       1  1  1     7    0
 2308      28  1  0  2927    4      24  1  0  2288    4
  SECTION   305
 2310                                                            18       0               18       0
 2312          18       0               1+       0               1+       0              936       3
 2316         94Ю       3              968       3                +       0               16       0
 2320          16       0               1Ю       0               2Ю       0                0       0
  SECTION   306
 2324    0   3312   3     8707   0  2  2  0  3   0         0   6698   3     8194   0  2  0  0  2   1
 2328    0   3396   3    20485   0  5  0  0  5   1         0   3396   3        5   3  0  0  0  5   0
 2332    0   3396   3        5   3  0  0  0  5   1
  SECTION   307
 2334                                                      0   2918   3    20485   0  5  0  0  5   0
 2336    0   2920   3        5   3  0  0  0  5   0         0   6725   3    20485   0  5  0  0  5   0
 2340    0   2924   3        5   3  0  0  0  5   0         0   6724   3    40970   2 10  0  0 10   0
 2344    0   2926   3        5   3  0  0  0  5   0         0   2932   3    16389   0  4  0  0  5   1
 2348    0   2918   3    20485   0  5  0  0  5   0         0   2920   3        5   3  0  0  0  5   0
 2352    0   2924   3        5   3  0  0  0  5   0         0   2926   3        5   3  0  0  0  5   0
 2356    0   2932   3    20485   0  5  0  0  5   1
  SECTION   308
 2358                                                      0   2918   3    20485   0  5  0  0  5   0
 2360    0   2920   3        5   3  0  0  0  5   0         0   2924   3        5   3  0  0  0  5   0
 2364    0   2926   3        5   3  0  0  0  5   0         0   2928   3    21765  14  5  5  0  5   0
 2368    0   2930   3     8962   0  2  3  0  2   0         0   2932   3    12803   0  3  2  0  3   0
 2372    0   2934   3    40970  14 10  0  0 10   0         0   2938   3        5   3  0  0  0  5   0
 2376    0   2940   3    20485   0  5  0  0  5   1
  SECTION   309
 2378                                                      0   2918   3    20485   0  5  0  0  5   0
 2380    0   2920   3        5   3  0  0  0  5   0         0   2938   3    20485   0  5  0  0  5   0
 2384    0   2940   3    20485   0  5  0  0  5   0         0   2942   3    20485   0  5  0  0  5   0
 2388    0   2944   3    20485   0  5  0  0  5   0         0   2937   3     8962   0  2  3  0  2   0
 2392    0   2929   3    12803   0  3  2  0  3   0         0   2930   3     8962   0  2  3  0  2   0
 2396    0   2931   3    12803   0  3  2  0  3   0         0   2932   3     8962   0  2  3  0  2   0
 2400    0   2933   3    12803   0  3  2  0  3   0         0   2934   3     5121   0  1  4  0  1   0
 2404    0   2935   3     8962   0  2  3  0  2   0         0   2936   3     8962   0  2  3  0  2   1
  SECTION   310
 2408    0   2918   3    20485   0  5  0  0  5   0         0   2920   3        5   3  0  0  0  5   0
 2412    0   6724   3    20485   0  5  0  0  5   0         0   2924   3        5   3  0  0  0  5   0
 2416    0   2926   3        5   3  0  0  0  5   0         0   2928   3        5   3  0  0  0  5   0
 2420    0   2930   3        5   3  0  0  0  5   0         0   2932   3        5   3  0  0  0  5   0
 2424    0   2934   3        5   3  0  0  0  5   0         0   2936   3        5   3  0  0  0  5   0
 2428    0   2938   3        5   3  0  0  0  5   0         0   2940   3        5   3  0  0  0  5   1
  SECTION   311
 2432    0   2920   3        5   3  0  0  0  5   0         0   2924   3        5   3  0  0  0  5   0
 2436    0   2926   3        3   3  0  0  0  3   0         0   2934   3        5  11  0  0  0  5   1
 2440    0   2920   3        5   3  0  0  0  5   0         0   2924   3        5   3  0  0  0  5   0
 2444    0   2934   3        5   3  0  0  0  5   1
  SECTION   312
 2446                                                      0   2920   3        6   3  0  0  0  6   0
 2448    0   2924   3        3   3  0  0  0  3   0         0   2926   3        3   3  0  0  0  3   0
 2452    0   2928   3        5  14  0  0  0  5   0         0   2930   3        1   0  0  0  0  1   0
 2456    0   2932   3        2   0  0  0  0  2   0         0   2934   3       10  14  0  0  0 10   0
 2460    0   2946   3        5   3  0  0  0  5   0         0   2954   3        5   3  0  0  0  5   1
  SECTION   313
 2464    0   2920   3        6   3  0  0  0  6   0         0   2938   3        3   0  0  0  0  3   0
 2468    0   2940   3        5   0  0  0  0  5   0         0   2942   3        3   0  0  0  0  3   0
 2472    0   2944   3        5   0  0  0  0  5   0         0   2937   3        1   0  0  0  0  1   0
 2476    0   2929   3        1   0  0  0  0  1   0         0   2930   3        2   0  0  0  0  2   0
 2480    0   2931   3        2   0  0  0  0  2   0         0   2932   3        2   0  0  0  0  2   0
 2484    0   2933   3        2   0  0  0  0  2   0         0   2934   3        1   0  0  0  0  1   0
 2488    0   2935   3        1   0  0  0  0  1   0         0   2936   3        1   0  0  0  0  1   0
 2492    0   2946   3        5   3  0  0  0  5   1
  SECTION   314
 2494                                                      0   2920   3        6   3  0  0  0  6   0
 2496    0   2924   3        5   3  0  0  0  5   0         0   2946   3        5   3  0  0  0  5   1
  SECTION   315
 2500    0   2927   3    16389   0  4  0  0  5   0         0   2928   3    16389  12  4  0  0  5   1
  SECTION   316
 2504       83‼91       0              ‼11       0            ££000       0              Ю14       1
 2508          54       1              :64       3              ‼50       3                0       0
  SECTION   317
 2512           2       0            10000       0              £££       0               70       0
 2516           7       0                8       0               80       0              £00       0
 2520           4       0                0       0                0       0                0       0
  SECTION   318
 2524       26355       0            73515       0            57273       0            53666       0
 2528       65369       0            67696       0                0       0            5‼000       0
 2532          7.       0            7.000       0            35572       0            65667       0
 2536       40000       0            55655       0            46772       0            54746       0
 2540       35572       0            56596       0              3££       0            ££+00       0
 2544           0       0                0       0            55573       0            72585       0
 2548       :5:5:       0            5:5:5       0            37455       0            75516       0
 2552       £6£6£       0            6£6£6       0            45577       0            59655       0
 2556       £4£4£       0            4£4£4       0               42       0                0       0
 2560       15965       0            53585       0            :5:69       0            5:5:5       0
 2564       :5:59       0            5:5:5       0            :5:5‼       0            5:5:5       0
 2568       16454       0            73695       0              ‼82       3               10       0
 2572       55972       0            56596       0
  SECTION   319
 2574                                                             1       0                0       0
 2576          16       0                0       0              256       0                0       0
 2580        4096       0                0       0            65536       0                0       0
 2584       48576       0               10       0            77216       0              167       0
 2588       35456       0             2684       0            67296       0            42949       0
 2592       £££££       0            £££££       0                1       0                0       0
 2596           Ю       0                0       0               64       0                0       0
 2600         3.8       0                0       0             2710       0                0       0
 2604       186Ю0       0                0       0            £4240       0                0       0
 2608       89680       0                9       0            5.100       0               5£       0
 2612       Ю+Ю00       0              3‼9       0                0       0                0       0
 2616          3£       0                0       0            16773       0            53585       0
 2620       56554       0            67695       0
 PROCEDURE  320
 2622                                                         0  0  0     0    0       1  1  3     0    0
 2624       2  1  0  3396    4       4  1  0  3396    4      18  1  1     2    0       2  1  0  3396    4
 2628      27  1  1  2625    4       6  1  0  3396    4      26  0  1  2622    4
 PROCEDURE  321
 2631                                                                                  0  0  3  2905    4
 2632       1  1  3     1    0       7  0  0  6693    4       0  0  3  2903    4       6  0  0  2544    4
 2636       1  1  2     3    0      27  0  1  2640    4       1  1  3     1    0       2  0  0  3016    4
 2640      26  0  0  2001    4       6  0  0  6693    4      18  0  1     2    0       2  0  0  3396    4
 2644      24  0  2  2328    4      28  1  2  3014    4      24  1  2    21    4       6  1  0     4    0
 2648      18  0  1  4124    0      18  0  1     4    0       5  1  0  2536    4      27  0  0  2657    4
 2652       6  1  0  2842    4       3  0  0  6782    4       2  1  0  3022    4      26  0  0  2193    4
 2656      24  1  0  2646    4       6  1  0  2572    4      24  1  2    21    4       2  1  0     4    0
 2660       6  1  0  2536    4       2  1  0  3016    4      26  0  0  2001    4      26  0  0  2795    4
 2664      26  1  1  2886    4      26  1  2  2888    4      24  0  3     0    4       6  0  0     2   22
 2668      26  0  0   938    4       0  0  3  2903    4      18  1  1  4127    0      24  0  3     0    4
 2672       2  0  0     6   22      18  1  1     1    0       2  0  0   938    4       1  1  3     1    0
 2676      24  0  1   938    4      18  0  3     0    0       3  0  0   938    4      18  1  3     2    0
 2680      18  1  1  4120    0      15  0  3  3380    4      27  0  0  2702    4      24  0  3     0    4
 2684       6  0  0     6   22       1  0  1     0    0      18  1  3     3    0      18  1  1  4127    0
 2688      24  0  3     0    4       2  0  0     6   22      27  1  1  2693    4       0  0  2   938    4
 2692      24  1  0  2695    4       0  0  2   938    4      18  1  3    10    0      15  0  3  3408    4
 2696      27  0  1  2702    4      24  0  3     0    4       6  0  0     2   22       2  0  2  6724    4
 2700      25  0  2     1    0      24  1  0  2702    4      25  0  1     1    0      24  1  0  2666    4
 PROCEDURE  322
 2704       6  0  0  2915    4       3  0  0  6775    4      24  0  0  6690    4       7  0  0  6699    4
 2708      26  1  3  3320    4       6  0  3  6700    4      18  0  1     9    0      18  0  1  4119    0
 2712       5  0  0  6719    4      27  0  3  2715    4       7  0  0  6719    4      25  0  3     1    0
 2716      24  1  0  2709    4       1  1  3     1    0       7  0  0  6719    4       6  0  0  6699    4
 2720       2  0  0  6698    4       6  0  0  6719    4       2  0  0  6699    4
 PROCEDURE  323
 2723                                                                                 26  0  0  2056    4
 2724      26  0  0  2056    4       6  1  0  2552    4      24  1  2    19    4       2  1  0     4    0
 2728       1  1  3     6    0      24  1  2    19    4       2  0  0    10    0      26  0  0  2056    4
 2732       6  1  0  2554    4      24  1  2    19    4       2  1  0     4    0      26  0  0  2056    4
 2736      26  1  1  2890    4      26  1  2  2892    4       6  0  1  3428    4      24  1  2    19    4
 2740       2  1  2     5    0      25  0  2     2    0      24  1  0  2748    4       6  1  0  2532    4
 2744      24  1  2    19    4       2  1  0    52    0      26  0  0  2065    4      26  1  2  2892    4
 2748      25  0  1     1    0      24  1  0  2738    4      26  0  0  2065    4      26  0  0  2056    4
 2752      26  0  0  2056    4      24  1  2    21    4       6  1  0     4    0       5  1  0  2572    4
 2756      27  0  0  2767    4      24  1  2    21    4      24  0  2     4    0      18  1  1  4123    0
 2760       1  1  3    50    0      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0
 2764      26  0  0  2056    4      26  0  0  2193    4      24  1  0  2753    4       0  1  0  2806    4
 2768       0  0  3     0    4       6  1  0  2894    4       4  0  0    10    4      25  1  1  4096    0
 2772      24  0  3     0    4      23  0  2     0  256       0  1  1  2806    4       0  1  0  2806    4
 2776       0  0  3     0    4       6  1  0  2896    4       4  0  0    11    4      25  1  1  4096    0
 2780      24  0  3     0    4      23  0  2     0  256       0  1  1  2806    4       6  1  0  3320    4
 2784       2  1  0  5476    4       2  0  0  6779    4       0  1  0  2806    4       0  0  3     0    4
 2788       6  1  0  2898    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 2792      23  0  2     0  256       0  1  1  2806    4      24  1  0    33    4
 PROCEDURE  324
 2795                                                                                  0  0  0     0    0
 2796       6  0  0  2795    4       2  0  0  2001    4      24  1  0  2022    4
 PROCEDURE  325
 2799                                                                                  0  0  0     0    0
 2800      24  1  2     0    4      28  0  3     4    0      26  0  1  2799    4      24  1  2    21    4
 2804       6  0  0     0    0      28  0  2     4    0
  SECTION  1017
 2806                                                             0       0                0       0
 2808           0       0                0       0                0       0                0       0
 2812           0       0                0       0                0       0                0       0
 2816           0       0                0       0                0       0                0       0
 2820           0       0            2002.       0                0       0            202.2       0
 2824        8004       0             5146       0                0       0               11       0
 2828           0       0            20078       0                0       0            73000       0
 2832        8004       0             5142       0                0       0               12       0
 2836       £££££       0            £££££       0                0       0                .       0
 2840           0       0                8       0            £5£5£       0            5£5£5       0
 2844       :5:5:       0              5:5       0                0       0              384       0
 2848           1       0                1       0                0       0            20028       0
 2852           0       0            51000       0            25569       0                7       0
 2856           0       0                5       0                0       0            2003+       0
 2860           0       0            20012       0                2       0               1.       0
 2864          1+       0                0       0                0       0                0       0
 2868           0       0                ‼       0            48576       0               10       0
 2872       27464       0                7       0            30000       0                7       0
 2876          2+       0                2       0                0       0            2002+       0
 2880           0       0                7       0                0       0            20008       0
 2884           0       0                1       0                1       0               64       0
 2888           0       0               +8       0                0       0              456       0
 2892           0       0               30       0                0       0               21       0
 2896           0       0               22       0                0       0               1‼       0
 2900           0       0                0       0
  SECTION  1018
 2902                                                             2       0                0       0
 2904        6700       0            66666       0                2-      0            £££££       0
 2908          30       0             7200       0               14       0             8192       0
 2912           3-      0                3       0                5-      0            £££00       0
 2916        9999       0                1-      0
  SECTION  1019
 PROCEDURE 1004
CHAPT       5
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  326
   33                                0  1  0  2372    4       0  0  3     0    4       1  1  3     5    0
   36       0  0  2  2440    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  2372    4       6  1  0    16    4       2  1  0    30    4       6  1  0  2386    4
   44      24  1  2    15    4      28  0  0     0    0      24  0  2   358    4      24  1  2    15    4
   48      28  1  2     2    0
 PROCEDURE  327
   49                                6  1  0  2388    4      28  0  0  3163    4       1  1  3     1    0
   52       2  0  0  2480    4       1  1  3     8    0       2  0  0  2479    4      26  1  3  5476    4
   56       1  1  3     1    0      18  1  1  4118    0      15  0  3  3163    4       7  0  3  3163    4
   60      25  0  3     1    0      24  1  0    56    4       1  1  3     2    0       7  0  0  6698    4
   64       4  0  0  2254    4       5  0  0  6698    4       3  0  0   402    4      27  0  0    72    4
   68      18  0  1     5    0       4  0  0  6698    4      24  1  2  2169    4      28  1  1     0    0
   72       6  0  0  2169    4       4  0  0   402    4       2  0  0  6698    4
 PROCEDURE  328
   75                                                                                  0  1  0  2372    4
   76       0  0  3     0    4       0  1  2  2390    4       6  1  0  2392    4       4  0  0    10    4
   80      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  2376    4
   84       6  0  0  6785    4      27  0  1    94    4       6  0  0  6784    4       1  1  1    10    0
   88      18  0  1     5    0       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4
   92      23  0  2   160    0       0  0  3  2441    4       6  1  0  2394    4      28  0  0  2476    4
   96       6  1  0  2396    4      28  0  0  5476    4       6  1  0  2398    4      28  0  0  2448    4
  100       1  1  3     1    0       7  0  0  6690    4       1  1  3   998    0       4  0  0  6690    4
  104       3  0  0  2481    4       1  1  1     1    0       3  0  0  2482    4       1  1  1     1    0
  108       2  0  0  2483    4       6  1  0  2400    4       4  0  0  6785    4       3  1  0  2372    4
  112      26  1  1  2372    4
 PROCEDURE  329
  113                               26  0  0  2031    4      24  1  2    19    4       6  1  0     6    0
  116       5  1  0   390    4      27  0  0   143    4      24  1  2    19    4       6  1  0     4    0
  120       5  1  0  2402    4      27  0  1   113    4       1  1  3     4    0       0  0  2  2442    4
  124      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512       0  0  0   122    3
  128       0  0  0   130    3       0  0  0   140    3       0  1  0  2372    4       0  0  3     0    4
  132       6  1  0  2404    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
  136      23  0  2     0  256       0  1  1  2372    4      24  0  3     1    4      24  1  0    43    0
  140      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  768      24  0  2   250    4
  144      24  1  2    19    4      28  0  2     4    0      24  0  2   250    4      24  1  2    19    4
  148      28  1  2     2    0       6  1  0  2452    4      18  0  1     2    0       4  1  0  2455    4
  152       2  0  0  2588    4       6  1  0  2456    4       2  1  0  3160    4       6  0  0  6785    4
  156      27  0  0   157    4      26  0  0   236    4       0  1  0  2372    4       0  0  3     0    4
  160       0  1  2  2406    4       6  1  0  2408    4       4  0  0    11    4      25  1  1  4096    0
  164      24  0  3     0    4      23  0  2     0  256       0  0  3  2376    4      24  0  2   260    4
  168      24  1  2    21    4      28  1  2     4    0      26  0  0  1630    4       6  0  0  2128    4
  172      24  1  2    21    4       2  1  0     5    0       6  1  0  2156    4      24  1  2    21    4
  176       2  1  0     6    0      26  0  0  1630    4      24  0  2   268    4      24  1  2    21    4
  180      28  1  2     4    0      24  1  2    21    4       2  1  0    16    0      26  0  0  1630    4
  184      26  0  0  2031    4      24  0  2   250    4      24  1  2    19    4      28  0  2     4    0
  188       6  1  0  2452    4      26  0  0  2019    4       2  0  0  3162    4      24  0  2   250    4
  192      24  1  2    19    4      28  1  2     2    0      26  0  0   236    4      24  0  2   276    4
  196      24  1  2    21    4      28  1  2     4    0      26  0  0  1630    4
 PROCEDURE  330
  199                                                                                  0  0  2  2443    4
  200      10  0  0  6697    4       1  1  1   204    0       2  0  0  2576    4       1  1  3     0    0
  204      18  0  3     3    0      18  0  1  4127    0       4  0  0  6719    4       4  0  0  6719    4
  208       3  0  0  2516    4       2  0  0  2515    4       1  1  3     0    0       3  1  0  2372    4
  212      26  1  2  2372    4      26  1  1  2410    4      26  0  0  2031    4
 PROCEDURE  331
  215                                                                                 24  0  3     0    4
  216       6  0  0     2   22      27  0  0   222    4       6  1  0  2156    4      24  1  2    21    4
  220       2  1  1     4    0      26  0  0  1630    4      24  0  2   324    4      24  1  2    19    4
  224      28  0  2     4    0       6  1  0  2396    4      28  1  1  3098    4      26  0  0  1570    4
  228      24  0  2   324    4      24  1  2    19    4      28  1  2     2    0      26  0  0   236    4
  232      26  0  0  2031    4
 PROCEDURE  332
  233                               26  0  0  1929    4      26  0  0  1929    4      24  1  0   408    4
 PROCEDURE  333
  236       0  0  0     0    0      24  1  2    19    4      24  0  2     0    0      18  1  1  4123    0
  240       1  1  3    52    0      18  1  1     5    0      24  1  2    17    4      28  1  1     0    0
  244       1  0  1    15    0      24  1  2    17    4      14  0  0     2    0      26  0  0  1520    4
  248      26  0  1   236    4       0  0  0     0    0
  SECTION   334
  250                                                      0   2448   3        5   3  0  0  0  5   0
  252    0   2450   3      181   3  0  0 11  5   0         0   2452   3     9493   2  2  5  1  5   0
  256    0   2454   3       37   3  0  0  2  5   0         0   2456   3       21   3  0  0  1  5   1
  260    0    398   3        5   3  0  0  0  5   0         0    396   3        5   3  0  0  0  5   0
  264    0   2128   3        5   0  0  0  0  5   0         0    401   3      833   0  0  3  4  1   0
  268    0   2452   3     1795   2  0  7  0  3   0         0   2454   3      770   3  0  3  0  2   0
  272    0   2456   3        5   3  0  0  0  5   0         0   2156   3        5   3  0  0  0  5   1
  276    0   6695   3    16389   0  4  0  0  5   0         0   6694   3    16389   0  4  0  0  5   0
  280    0   2454   3        5   3  0  0  0  5   0         0   6690   3    16389   0  4  0  0  5   0
  284    0   6719   3    16389   0  4  0  0  5   0         0   2156   3        5   3  0  0  0  5   1
  288    0   2458   3        5   3  0  0  0  5   0         0   2448   3       85   3  0  0  5  5   0
  292    0   2450   3    17733   2  4  5  4  5   0         0   2452   3    17717   2  4  5  3  5   0
  296    0   2454   3    17669   2  4  5  0  5   0         0   2456   3    17717   2  4  5  3  5   1
  300    0   2448   3        5   3  0  0  0  5   0         0   2450   3      245   3  0  0 15  5   0
  304    0   2452   3    17685   2  4  5  1  5   0         0   2454   3    17701   2  4  5  2  5   0
  308    0   2456   3    17701   2  4  5  2  5   0         0   2458   3    17669   2  4  5  0  5   1
  312    0   2450   3        5   3  0  0  0  5   0         0   2452   3    17669   2  4  5  0  5   0
  316    0   2454   3    17669   2  4  5  0  5   0         0   2456   3    17669   2  4  5  0  5   0
  320    0   2476   3    16389   0  4  0  0  5   0         0   2458   3    17669   2  4  5  0  5   1
  SECTION   335
  324    0   2448   3        5   3  0  0  0  5   0         0   2450   3       21   3  0  0  1  5   0
  328    0   2452   3    16389   0  4  0  0  5   0         0   2454   3    16405   0  4  0  1  5   0
  332    0   2455   3    20501   0  5  0  1  5   0         0   2456   3    20501   0  5  0  1  5   0
  336    0   2457   3    20501   0  5  0  1  5   0         0   2458   3    20501   0  5  0  1  5   0
  340    0   2459   3    20501   0  5  0  1  5   0         0   2460   3    20501   0  5  0  1  5   0
  344    0   2461   3    20501   0  5  0  1  5   0         0   2462   3    20501   0  5  0  1  5   0
  348    0   2463   3    20501   0  5  0  1  5   0         0   2464   3    20501   0  5  0  1  5   0
  352    0   2465   3    20501   0  5  0  1  5   0         0   2466   3    20501   0  5  0  1  5   0
  356    0   2467   3    20501   0  5  0  1  5   1         0    396   3      101   3  0  0  6  5   0
  360    0   6719   3     1089   0  0  4  4  1   0         0   6700   3     5201   0  1  4  5  1   0
  364    0   6701   3     5201   0  1  4  5  1   0         0   6702   3     5201   0  1  4  5  1   0
  368    0   6703   3     5201   0  1  4  5  1   0         0   6704   3     5201   0  1  4  5  1   0
  372    0   6705   3     5201   0  1  4  5  1   0         0   6706   3     5201   0  1  4  5  1   0
  376    0   6707   3     5201   0  1  4  5  1   0         0   6708   3     5201   0  1  4  5  1   0
  380    0   6709   3     5201   0  1  4  5  1   0         0   6710   3     5201   0  1  4  5  1   0
  384    0   6711   3     5201   0  1  4  5  1   0         0   6712   3     5201   0  1  4  5  1   0
  388    0   6713   3     5201   0  1  4  5  1   1
  SECTION   336
  390                                                         65764       0            67696       0
  392       36978       0            55657       0            16772       0            53585       0
  396       45577       0            59655       0            £6£6£       0            6£6£6       0
  400        8000       0             5149       0
 PROCEDURE  337
  402                                                         6  0  0  2476    4       6  0  0  2477    4
 PROCEDURE  338
  404       0  0  0     0    0       6  0  0   404    4       2  0  0  1485    4      24  1  0  1494    4
 PROCEDURE  339
  408      26  0  0   404    4      26  0  0   612    4       1  1  3     0    0       2  0  0  2279    4
  412       6  0  0  2515    4       1  1  1     1    0       3  0  0  2517    4       1  1  1     4    0
  416       2  0  0  2515    4       6  0  0  6698    4      18  0  1     5    0       4  0  0  2169    4
  420       3  1  0  2372    4      26  1  1  2372    4       6  0  0  2168    4       2  0  0  2594    4
  424       6  1  0  2158    4       2  1  0  2520    4       1  1  3     1    0       2  0  0  2587    4
  428       1  1  3    65    0       2  1  0  2502    4       2  1  0  2504    4      26  0  0  1655    4
  432       1  1  3     1    0       2  1  0  2518    4       2  0  0  2585    4       2  0  0  2472    4
 PROCEDURE  340
  436       6  0  0  2515    4      18  0  1     5    0       2  1  0  2476    4      26  1  3  2476    4
  440      24  0  3     0    4       6  1  0     6   22       2  0  0  2474    4      26  0  0  1686    4
  444      25  0  3     1    0      24  1  0   440    4       1  1  3     3    0       7  0  0  2481    4
  448       7  0  0  2482    4       7  0  0  2483    4       1  1  3     0    0       1  0  1     1    0
  452      24  0  0  2587    4      15  0  0  6699    4       3  0  0  2527    4       4  0  0  2527    4
  456       2  0  0  2479    4       6  0  0  2481    4      18  0  1     2    0       4  0  0  2479    4
  460       2  0  0  2480    4       6  1  0  2412    4       2  1  0  2488    4       2  1  0  2490    4
  464       6  1  0  2170    4       2  1  0  2492    4       2  1  0  2486    4      26  0  0  1686    4
  468      26  0  0   994    4       1  1  3  1792    0       2  0  0  2473    4       6  0  0  2240    4
  472      26  0  0   568    4      26  0  0  1686    4      26  0  0  1686    4       6  0  0  2293    4
  476      26  0  0  1458    4
 PROCEDURE  341
  477                                0  0  3  2441    4      24  0  3  8088    4       6  1  0     6    0
  480       5  1  0  2066    4      27  0  1   485    4       1  1  3     1    0       2  0  0  2518    4
  484      24  1  0   501    4      26  0  0   532    4      24  0  3  8088    4       6  1  0    15    0
  488      18  0  1  4124    0       2  0  0  2523    4      24  0  3  8088    4       6  1  0     6    0
  492       5  1  0  2062    4      27  0  1   497    4
 PROCEDURE  342
  494                                                         1  1  3     2    0       2  0  0  2518    4
  496      24  1  0   500    4       1  1  3     2    0       2  0  0  2518    4
 PROCEDURE  343
  499                                                                                  1  1  3     1    0
  500       1  1  1     1    0       1  1  1     1    0       3  1  0  2503    4       2  0  0  8073    4
  504      24  1  2    17    4       6  1  0    13    0
 PROCEDURE  344
  506                                                        26  0  0  2019    4       3  1  0  2505    4
  508       3  0  0  2486    4       5  0  0  3162    4      27  0  1   513    4       6  0  0  2519    4
  512       2  0  0  6781    4       6  0  0  2519    4       2  0  0  2487    4      26  0  0   542    4
  516      26  0  0  1655    4       1  1  3   128    0       2  0  0  2522    4      26  0  0  1929    4
  520      26  0  0  1511    4      26  0  0   572    4      24  1  0   584    4
 PROCEDURE  345
  523                                                                                 24  0  1  8073    4
  524      26  0  1   524    4       0  0  0   778    3       0  0  0  1323    3       0  0  0   999    3
  528       0  0  0   584    3       0  0  0   584    3       0  0  0   584    3       0  0  0   583    3
 PROCEDURE  346
  532       0  0  0     0    0       1  1  3     0    0       0  0  2  2160    4      15  0  0  2519    4
  536      27  0  0   541    4       2  0  0  2518    4       2  1  0  2472    4       2  1  0  2474    4
  540      26  0  0  1686    4      26  0  1   532    4
 PROCEDURE  347
  542                                                         0  0  0     0    0       1  0  1     0    0
  544       6  0  0  2486    4      18  1  1  4119    0      13  0  0  2444    4       2  0  0   557    4
  548      18  1  1     9    0       2  0  0   577    4       0  0  2  2130    4      24  0  1   577    4
  552      18  1  3     0    0      24  0  1   557    4      15  0  0  6723    4       2  0  0  6775    4
  556      26  0  1   542    4
 PROCEDURE  348
  557                                0  0  0     0    0       2  0  0  2475    4       6  0  0  2479    4
  560       2  0  0  2474    4      26  0  0  1686    4      26  0  1   557    4
 PROCEDURE  349
  563                                                                                  0  0  0     0    0
  564       2  0  0  2476    4       2  0  0  2477    4      26  0  0  2007    4      26  0  1   563    4
 PROCEDURE  350
  568       0  0  0     0    0       2  0  0  2475    4      26  0  0  1686    4      26  0  1   568    4
 PROCEDURE  351
  572       0  0  0     0    0       6  1  0  2414    4      24  1  2    17    4      28  1  1     2    0
  576      26  0  1   572    4
 PROCEDURE  352
  577                                0  0  0     0    0       2  0  0  2475    4       6  0  0  2480    4
  580       2  0  0  2474    4      26  0  0  1686    4      26  0  1   577    4      26  0  0   577    4
 PROCEDURE  353
  584      26  0  0  1485    4      24  0  3  8088    4       6  1  0     6    0       5  1  0  2064    4
  588      27  0  3   523    4      26  0  0   612    4      24  0  3  8088    4       6  1  0     6    0
  592       5  1  0  2064    4      27  0  0   657    4       4  1  0  2064    4       5  1  0  2062    4
  596      27  0  0   657    4       4  1  0  2062    4       5  1  0  2066    4      27  0  0   657    4
  600       4  1  0  2066    4       5  1  0  2070    4      27  0  1   606    4       1  1  3     1    0
  604       2  0  0  2524    4      24  1  0   669    4       4  1  0  2070    4       5  1  0  2068    4
  608      27  0  1   523    4      26  0  0  1511    4      26  0  0   572    4      24  1  0   584    4
 PROCEDURE  354
  612       0  0  0     0    0      26  0  0   572    4       6  1  0  3056    4      24  1  2    17    4
  616       2  1  0     2    0       6  1  0  3058    4      24  1  2    17    4       2  1  0     6    0
  620       6  1  0  3060    4      24  1  2    17    4       2  1  0    10    0       6  1  0  3062    4
  624      18  0  1  4124    0      24  1  2    17    4       2  1  0    12    0       6  1  0  3064    4
  628      24  1  2    17    4       2  1  0    16    0       6  1  0  3060    4       5  1  0  2068    4
  632      27  0  1   637    4       6  1  0  3066    4      24  1  2    17    4       2  1  0    16    0
  636      24  1  0   640    4       6  1  0  3066    4      24  1  2    17    4       2  1  0    48    0
  640       6  1  0  3060    4       5  1  0  2066    4      27  0  0   647    4       6  1  0  3068    4
  644      24  1  2    17    4       2  1  0    20    0      24  1  0   650    4       6  1  0  3068    4
  648      24  1  2    17    4       2  1  0    20    0      24  0  2  3070    4      18  1  1  4123    0
  652       1  1  3    26    0      18  1  1     5    0      24  1  2    17    4      28  1  1    22    0
  656      26  0  1   612    4
 PROCEDURE  355
  657                               24  1  2    17    4       6  1  0    13    0       2  0  0  2511    4
  660      24  0  0  2587    4       6  0  0  6699    4      18  0  1  4126    0      26  0  0  2025    4
  664       5  0  0  2511    4      27  0  2   477    4       1  1  1     1    0      27  0  1   477    4
  668       0  0  3  2441    4      26  0  0   532    4      26  0  0   673    4      26  0  0   684    4
  672      24  1  0   706    4
 PROCEDURE  356
  673                                0  0  0     0    0      26  1  2  2416    4       6  0  2  2489    4
  676      18  0  3     2    0      18  1  1  4127    0       1  0  2     4    0      18  0  3     2    0
  680       2  0  2  2489    4      25  0  2     2    0      24  1  0   675    4      26  0  1   673    4
 PROCEDURE  357
  684       0  0  0     0    0       6  1  0  2416    4       2  1  0  2476    4       2  0  0  2488    4
  688       2  0  0  2478    4      26  1  3  2478    4       6  0  3  2161    4       2  1  0  2502    4
  692       6  0  3  2481    4       2  1  0  2505    4      26  0  0  1655    4       6  0  3  2164    4
  696       2  0  0  2518    4      24  0  0  2476    4       6  1  0  2488    4       2  1  0  2506    4
  700       1  1  3     1    0       7  0  0  2478    4      23  0  0     2    0       0  0  0  2476    3
  704      24  1  0   689    4      26  0  1   684    4
 PROCEDURE  358
  706                                                         1  1  3     1    0       2  1  0  2503    4
  708       1  1  3  1001    0       4  0  0  2587    4       2  1  0  2505    4      26  0  0  1655    4
  712       6  0  0  2519    4      24  0  1  2587    4       2  0  0  3177    4       6  1  0  2082    4
  716       2  1  0  2502    4       2  1  0  2504    4      26  0  0  1670    4       1  1  3     1    0
  720       4  0  0  2587    4       3  0  0  2587    4       6  0  0  2524    4      27  0  0   428    4
  724      24  1  0   726    4
 PROCEDURE  359
  725                               24  1  0   732    4      26  0  0  1717    4       6  0  0  2186    4
  728       2  1  0  2450    4       6  0  0   725    4       2  0  0  1855    4      24  1  0  1760    4
  732       1  1  3     1    0       2  0  0  6775    4      26  0  0  1929    4      26  0  0  1520    4
  736       6  0  0  3162    4       2  0  0  2511    4      26  0  0  1428    4       2  0  0  6698    4
  740       6  0  0  6781    4       2  0  0  6696    4       6  1  0  2088    4      24  1  2    21    4
  744       2  1  0     4    0       6  1  0  2156    4      24  1  2    21    4       2  1  0     6    0
  748      26  0  0  1630    4      26  0  0  2031    4      24  1  2    19    4       6  1  0     4    0
  752       5  1  0  2418    4      27  0  0   763    4      24  1  2    19    4      24  0  2     4    0
  756      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0      24  1  2    21    4
  760      28  1  1     4    0      26  0  0  1630    4      24  1  0   749    4      24  0  2  3098    4
  764      18  1  1  4123    0       1  1  3   100    0      18  1  1     5    0      24  1  2    21    4
  768      28  1  1     0    0       0  1  0  2372    4       0  0  3     0    4       6  1  0  2420    4
  772       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  776       0  1  1  2372    4      24  1  0    33    4
 PROCEDURE  360
  778                                                         1  1  3     1    0       2  0  0  2575    4
  780      26  0  0  1731    4       6  1  0  2450    4       2  1  0  2472    4       2  0  0  2478    4
  784       2  0  0  2501    4       6  0  0  2586    4      27  0  0   584    4      27  0  3   584    4
  788       1  1  2    17    0      27  0  2   584    4       6  0  0  2586    4       2  0  0  8074    4
  792       6  0  0  2526    4       2  0  0  8082    4
 PROCEDURE  361
  794                                                         1  1  3     0    0      24  0  1  8074    4
  796      26  0  1   796    4       0  0  0   583    3       0  0  0   583    3       0  0  0   583    3
  800       0  0  0   583    3       0  0  0   583    3       0  0  0   583    3       0  0  0   583    3
  804       0  0  0   583    3       0  0  0   583    3       0  0  0   583    3       0  0  0   919    3
  808       0  0  0   918    3       0  0  0   917    3       0  0  0   916    3       0  0  0   583    3
  812       0  0  0   583    3
 PROCEDURE  362
  813                                0  0  0     0    0       6  1  0  2454    4      27  0  0   897    4
  816       1  1  2   999    0      27  0  2   897    4       6  1  0  2456    4      27  0  1   824    4
  820       6  0  0  2486    4       5  0  0  2454    4      27  0  2   887    4      24  1  0   839    4
  824      24  0  3     0    4       6  1  0     2   22      18  0  1     5    0       4  0  0  2169    4
  828       3  1  0  2372    4      26  1  2  2372    4      25  0  2     0    0      24  1  0   833    4
  832      24  1  0   839    4       6  0  0  2450    4      24  0  3     0    4       5  0  2     1    0
  836      27  0  0   888    4      25  0  2     2    0      24  1  0   833    4       6  1  0  2454    4
  840      26  0  0  2025    4      18  0  1     2    0       2  0  0  2494    4       6  1  0  2456    4
  844      26  0  0  2025    4       1  1  1     2    0       7  0  0  2494    4       0  0  3  2441    4
  848       6  0  0  2593    4       3  1  0  2372    4      26  1  2  2372    4      27  0  0   866    4
  852       1  1  2   300    0      27  0  3   855    4      26  0  1   813    4       6  0  2  2593    4
  856       5  0  0  2494    4      27  0  3   866    4
 PROCEDURE  363
  858                                                         6  0  2  2593    4       2  0  2  2596    4
  860       6  0  2  2594    4       2  0  2  2597    4       6  0  2  2595    4       2  0  2  2598    4
  864      25  0  2  4099    0      24  1  0   855    4       6  0  0  2494    4       2  0  2  2596    4
  868       6  1  0  2450    4       2  0  2  2597    4       6  1  0  2456    4       3  0  2  2598    4
  872      27  0  0   885    4       1  1  3     1    0       2  0  0  2473    4       6  0  0  2297    4
  876      18  0  1     4    0       4  0  0  2594    4       2  0  2  2598    4       1  1  3    10    0
  880       5  0  0  2297    4       3  0  0  2297    4      27  0  1   885    4       1  1  2     1    0
  884       7  0  0  2594    4       1  1  3     3    0       7  0  0  2593    4      26  0  1   813    4
 PROCEDURE  364
  888      24  1  2    24    4       0  0  2     0    0      18  1  3    30    0       2  1  0  2454    4
  892      18  1  3    10    0       2  1  0  2456    4      24  0  3     0    4       6  0  0     4   22
  896      26  0  0   898    4      26  0  1   813    4
 PROCEDURE  365
  898                                                         0  0  0     0    0       2  0  0  2590    4
  900      24  0  3     0    4       6  1  0     2   22       2  1  0  2494    4       6  0  0  2495    4
  904       5  0  0  2590    4      27  0  0   915    4      18  0  1     5    0       4  0  0  2590    4
  908       1  1  1     2    0      24  0  3  2590    4      28  1  1     0    0       1  1  2     2    0
  912       7  0  0  2494    4       7  0  0  2495    4      26  1  1  2494    4      26  0  1   898    4
 PROCEDURE  366
  916       1  1  3    10    0       1  1  1    10    0       1  1  1    10    0       1  1  2     1    0
  920       4  0  0  2526    4       3  0  0  2476    4       1  1  2    23    0      27  0  0   974    4
  924       1  1  2     9    0      27  0  2   583    4       6  0  0  2454    4      27  0  0   934    4
  928       3  0  0  2511    4      26  0  0  1428    4      18  0  3     1    0      24  1  0   934    4
  932       6  0  0  2527    4       4  0  0  2527    4       2  0  0  2510    4       6  0  0  2458    4
  936       1  1  2     2    0      27  0  1   941    4       1  1  3     1    0       3  0  0  2458    4
  940       7  1  0  2456    4       6  0  0  2476    4       3  0  0   813    4      18  0  3     1    0
  944       0  0  2  2110    4      15  0  0  2458    4      18  0  3     2    0       0  0  2  2172    4
  948      15  0  0  2460    4      18  0  3     1    0      18  0  1     3    0       3  0  0  2476    4
  952      18  0  1  4123    0      27  0  0   961    4       6  0  0  2476    4      27  0  1   958    4
  956       1  1  3     2    0       2  0  0  2473    4       1  1  3     0    0       5  0  0  2476    4
  960       2  0  0  2476    4       2  1  0  2458    4       2  1  0  2460    4       6  0  0  2476    4
  964       5  0  0  2226    4      27  0  0   969    4       6  0  0   813    4       1  1  2    27    0
  968      27  0  1   970    4
 PROCEDURE  367
  969                               26  0  0   813    4      26  0  0  1942    4      26  0  0  1958    4
  972      26  0  0  1686    4      24  1  0   584    4
 PROCEDURE  368
  974                                                         6  0  0  2460    4       0  0  2  2458    4
  976      27  1  1   926    4       2  0  0  2510    4       6  0  0  2241    4       2  0  0  2476    4
  980      26  0  0  1958    4      26  0  0  1686    4      26  0  0  1725    4       6  0  0  2454    4
  984      27  0  0   991    4       2  0  0  2511    4      26  0  0  1428    4       3  0  0  2510    4
  988       4  0  0  2510    4      27  0  0   991    4       1  1  2     1    0       2  0  0  2510    4
  992       2  0  0  2476    4      24  1  0   970    4
 PROCEDURE  369
  994                                                         0  0  0     0    0       6  0  0  2253    4
  996      26  0  0   568    4      26  0  0  1472    4      26  0  1   994    4
 PROCEDURE  370
  999                                                                                  6  1  0  2388    4
 1000      28  0  0  2531    4      26  0  0  1137    4      26  0  0  1174    4       1  1  3     0    0
 PROCEDURE  371
 1004      26  0  0  1174    4       1  1  3     1    0       2  0  0  2506    4       2  1  0  2574    4
 1008      26  1  2  2536    4       6  0  0  2500    4       1  1  2    81    0      27  0  0  1028    4
 1012       1  1  2     1    0      27  0  0  1025    4       1  1  2     1    0      27  0  1  1018    4
 1016       1  1  3    16    0      24  1  0  1023    4       1  1  2     1    0      27  0  0  1026    4
 1020       1  1  2    19    0      27  0  0  1027    4       1  1  3    15    0       2  0  2  2531    4
 PROCEDURE  372
 1024       1  1  3     1    0       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0
 1028       1  1  1     1    0       3  0  2  2538    4       2  0  0  8075    4      26  0  0  1174    4
 1032       1  1  2   123    0      27  0  0  1039    4       6  1  0  2574    4      18  0  1     2    0
 1036       4  0  0  2500    4       2  1  0  2574    4      24  1  0  1031    4
 PROCEDURE  373
 1039                                                                                 18  1  1    10    0
 1040       2  1  0  2572    4       6  1  0  2575    4      26  0  0  2019    4      27  0  3  1045    4
 1044       7  0  2  2531    4       0  1  2  2572    4       1  1  3     0    0
 PROCEDURE  374
 1047                                                                                 26  0  0  1174    4
 1048       1  1  2   122    0      27  0  0  1061    4       1  1  2     2    0      27  0  0  1076    4
 1052       1  1  2     1    0      27  0  0  1083    4      24  0  1  8075    4      26  0  1  1055    4
 1056       0  0  0  1199    3       0  0  0  1209    3       0  0  0  1227    3       0  0  0  1251    3
 1060       0  0  0  1283    3       1  1  3     1    0       2  0  0  2537    4      26  0  0  1065    4
 1064      24  1  0  1003    4
 PROCEDURE  375
 1065                                0  0  0     0    0       6  1  0  2502    4      24  0  0  2536    4
 1068      24  0  0  2531    4      18  0  3     0    0       4  1  0  2504    4       2  1  0  2502    4
 1072       2  1  0  2504    4       1  1  3     1    0       7  0  0  2536    4      26  0  1  1065    4
 PROCEDURE  376
 1076      26  0  0  1174    4      26  0  0  1065    4      26  1  2  2536    4       6  0  2  2538    4
 1080       2  0  0  8075    4       6  0  0  2500    4      24  1  0  1048    4
 PROCEDURE  377
 1083                                                                                 26  0  0  1065    4
 1084       6  0  0  2508    4      27  0  0  1094    4       6  0  0  2523    4      27  0  0  1092    4
 1088       1  1  3     0    0       5  1  0  2502    4       2  1  0  2502    4      24  1  0  1094    4
 1092       5  0  0  2502    4       2  0  0  2502    4      24  0  3  8088    4       6  1  0     7    0
 1096       2  0  0  2507    4      26  0  0  1520    4      26  0  0  1115    4       6  0  0  2507    4
 1100      27  0  1   584    4      26  0  0  1485    4      26  0  0  1137    4       1  1  3     0    0
 1104      26  0  0  1174    4       1  1  2   122    0      27  0  0  1111    4       6  0  0  2537    4
 1108      27  0  1  1078    4       6  0  0  2500    4      24  1  0  1048    4       2  0  0  2531    4
 1112       2  1  0  2532    4       2  1  0  2534    4      24  1  0  1004    4
 PROCEDURE  378
 1115                                                                                  0  0  0     0    0
 1116       6  0  0  2503    4       2  0  0  2475    4       6  0  0  2502    4      24  0  0  2544    4
 1120       2  0  0  2473    4       6  0  0  2523    4      27  0  1  1129    4       6  0  0  2507    4
 1124      27  0  1  1129    4       1  1  3     2    0       5  0  0  2544    4       3  0  0  2544    4
 1128      27  0  1  1136    4       6  1  0  2502    4      27  0  2  1135    4       6  0  0  2503    4
 1132      27  0  1  1135    4       1  1  3   128    0       7  0  0  2474    4      26  0  0  1686    4
 1136      26  0  1  1115    4
 PROCEDURE  379
 1137                                0  0  0     0    0       6  1  0  2422    4      28  0  0  2502    4
 1140       6  1  0  3056    4      24  1  2    17    4       2  1  0     2    0       6  1  0  3058    4
 1144      24  1  2    17    4       2  1  0     6    0      24  0  2  3062    4      18  1  1  4123    0
 1148       1  1  3    18    0      18  1  1     5    0      24  1  2    17    4      28  1  1    12    0
 1152       6  1  0  3080    4      24  1  2    17    4       2  1  0    48    0      24  0  2  3082    4
 1156      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      24  1  2    17    4
 1160      28  1  1    32    0       6  0  0  2544    4      27  0  1  1164    4       2  0  0  2472    4
 1164      24  1  2    17    4       6  1  0    46    0       5  1  0  2086    4      27  0  0  1094    4
 1168      26  1  3  2424    4       0  1  2  3062    4       1  1  3     2    0       2  0  0  2514    4
 1172       2  0  0  2536    4      26  0  1  1137    4
 PROCEDURE  380
 1174                                                         0  0  0     0    0      18  1  1     2    0
 1176       2  1  0  2500    4      25  0  3     2    0      24  1  0  1184    4      24  0  0  2514    4
 1180       0  1  2  3062    4       1  1  3     2    0       7  0  0  2514    4      26  1  3  2424    4
 1184       6  1  0  2500    4      26  0  1  1174    4
 PROCEDURE  381
 1186                                                         0  0  0     0    0       1  1  2   122    0
 1188      27  0  0  1192    4       1  1  2     2    0      27  0  0  1192    4       1  1  2     1    0
 1192      26  0  1  1186    4
 PROCEDURE  382
 1193                                0  0  0     0    0       6  1  0  2504    4      18  0  1     1    0
 1196       4  1  0  2501    4       2  1  0  2504    4      26  0  1  1193    4
 PROCEDURE  383
 1199                                                                                  6  0  0  2506    4
 1200      27  0  0  1204    4       1  1  3     8    0      24  0  0  2536    4       7  0  0  2531    4
 1204       6  1  0  2504    4      18  0  1     2    0       4  0  0  2500    4       2  1  0  2504    4
 1208      24  1  0  1047    4
 PROCEDURE  384
 1209                                6  0  0  2500    4       1  1  2    16    0      27  0  0  1222    4
 1212       6  0  0  2506    4      27  0  0  1217    4       1  1  3     1    0      24  0  0  2536    4
 1216       7  0  0  2531    4       6  1  0  2504    4       4  1  0  2504    4       4  1  0  2501    4
 1220       2  1  0  2504    4      24  1  0  1046    4       6  0  0  2536    4      27  0  1  1046    4
 1224       1  1  3     1    0       2  0  0  2508    4      24  1  0  1046    4
 PROCEDURE  385
 1227                                                                                  6  0  0  2500    4
 1228       1  1  2    16    0      27  0  1  1244    4       6  0  0  2536    4      27  0  1  1235    4
 1232       1  1  3     1    0       2  0  0  2508    4      24  1  0  1047    4       1  1  3     1    0
 1236      24  0  0  2536    4      24  0  0  2531    4      18  0  3     0    0       0  0  3  2445    4
 1240       5  1  0  2504    4       2  1  0  2504    4       0  0  3  2441    4      24  1  0  1047    4
 PROCEDURE  386
 1244       6  0  0  2506    4      27  0  0  1249    4       1  1  3     4    0      24  0  0  2536    4
 1248       7  0  0  2531    4      26  0  0  1193    4      24  1  0  1047    4
 PROCEDURE  387
 1251                                                                                  6  0  0  2500    4
 1252       1  1  2    16    0      27  0  1  1257    4       1  1  3     1    0       2  0  0  2509    4
 1256      24  1  0  1258    4      26  0  0  1193    4      26  0  0  1174    4      26  0  0  1186    4
 1260      27  0  1  1251    4      18  1  1    10    0       2  1  0  2510    4       6  1  0  2504    4
 1264      26  0  0  2019    4       2  1  0  2504    4       0  1  2  2510    4       6  0  0  2509    4
 1268      27  0  0  1281    4       6  0  0  2536    4      27  0  0  1278    4       1  1  3     1    0
 1272      24  0  0  2536    4      24  0  0  2531    4      18  0  3     0    0       5  1  0  2504    4
 1276       2  1  0  2504    4      24  1  0  1280    4
 PROCEDURE  388
 1278                                                         1  1  3     1    0       2  0  0  2508    4
 1280       2  0  0  2509    4       6  0  0  2500    4      24  1  0  1048    4
 PROCEDURE  389
 1283                                                                                  6  0  0  2500    4
 1284       1  1  2    77    0      27  0  0  1292    4       1  1  1    77    0      26  0  0  1186    4
 1288      27  0  0  1314    4      26  0  0  1193    4      26  0  0  1174    4      24  1  0  1283    4
 PROCEDURE  390
 1292      18  1  1    10    0       2  1  0  2574    4       6  1  0  2504    4      26  0  0  2019    4
 1296       2  0  0  2511    4      26  1  2  2544    4      26  0  0  1428    4       3  0  2  2472    4
 1300      27  0  0  1303    4       1  1  2     1    0       7  0  2  2472    4       6  0  0  2511    4
 1304      18  0  1     2    0       7  0  2  2472    4       1  1  3     0    0       2  1  0  2504    4
 1308       0  1  2  2574    4      26  0  0  1174    4      26  0  0  1186    4      27  0  0  1316    4
 1312      26  0  0  1193    4      24  1  0  1309    4      26  1  2  2544    4       2  0  2  2472    4
 1316      18  1  1    10    0       2  1  0  2510    4       6  1  0  2504    4      26  0  0  2019    4
 1320       2  1  0  2504    4       0  1  2  2510    4      24  1  0  1281    4
 PROCEDURE  391
 1323                                                                                 24  0  2  2326    4
 1324      28  0  2  3056    4      24  0  2  2326    4      24  1  2    17    4      28  1  2     2    0
 1328       6  1  0  3076    4      24  1  2    17    4       2  1  0    48    0      24  0  2  3078    4
 1332      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      24  1  2    17    4
 1336      28  1  1    32    0      26  0  0  1520    4
 PROCEDURE  392
 1338                                                        26  1  2  2426    4       6  0  2  2451    4
 1340      26  0  0  2019    4       2  0  2  2451    4      25  0  2     1    0      24  1  0  1339    4
 1344      26  1  2  2428    4       6  0  2  2464    4       1  1  2   100    0      27  0  3  1352    4
 1348       1  1  2   899    0      27  0  2  1352    4       6  0  0  2446    4       7  0  2  2465    4
 1352      25  0  2     2    0      24  1  0  1345    4       1  1  3     0    0       0  0  2  2523    4
 1356      15  0  0  2160    4      27  0  1  1364    4       6  0  0  2467    4      27  0  1  1363    4
 1360       6  0  0  2465    4      27  0  1  1363    4       6  0  0  2188    4       2  0  0  2474    4
 1364       6  0  0  2464    4       2  0  0  2511    4      26  0  0  1428    4
 PROCEDURE  393
 1367                                                                                  3  0  0  2472    4
 1368      27  0  0  1371    4       1  1  2     1    0       7  0  0  2472    4       6  0  0  2511    4
 1372      18  0  1     2    0       7  0  0  2472    4       6  0  0  2451    4      27  0  0  1380    4
 1376       1  1  2     1    0      27  0  0  1379    4       6  0  0  2229    4       4  0  0  2193    4
 1380       2  0  0  2475    4       6  0  0  2461    4      27  0  0  1388    4       1  1  2     2    0
 1384      27  0  0  1386    4       6  0  0  2231    4       4  0  0  2189    4       7  0  0  2475    4
 PROCEDURE  394
 1388       6  0  0  2452    4      27  0  0  1392    4       6  0  0  2231    4       7  0  0  2475    4
 1392       6  0  0  2460    4      18  0  1     1    0       4  0  0  2458    4      18  0  1     1    0
 1396       4  0  0  2459    4      18  0  1     1    0       4  0  0  2453    4       7  0  0  2475    4
 1400       6  0  0  2463    4      27  0  0  1409    4       1  1  3     0    0       5  0  0  2475    4
 1404      27  0  0  1407    4       2  0  0  2475    4      24  1  0  1409    4
 PROCEDURE  395
 1407                                                                                  1  1  3   128    0
 1408       7  0  0  2472    4       6  0  0  2465    4       2  0  0  2473    4       6  0  0  2462    4
 1412      27  0  0  1421    4       7  0  0  2585    4       6  0  0  2585    4       1  1  2     2    0
 1416      27  0  1  1421    4       1  1  2     1    0       2  0  0  2585    4       6  0  0  2229    4
 1420       7  0  0  2473    4       6  0  0  2463    4      26  0  0  1686    4      24  1  0   584    4
 1424       2  0  0  2585    4       2  0  0  2585    4      26  0  0  1686    4      24  1  0   584    4
 PROCEDURE  396
 1428       0  0  0     0    0       6  0  0  2511    4      27  0  0  1444    4       1  1  2   100    0
 1432      27  0  2  1445    4       1  0  1     1    0       1  1  3     0    0      24  0  0  2511    4
 1436      15  0  0  3098    4       2  0  0  2494    4       0  0  2  2231    4      24  0  0  2511    4
 1440      15  0  0  3098    4       1  0  1     1    0      24  0  0  2494    4      15  0  0  6699    4
 1444      26  0  1  1428    4
 PROCEDURE  397
 1445                                1  1  2   899    0      27  0  3  1451    4      27  0  1  1453    4
 1448       2  0  0  2511    4       6  0  0  2527    4      26  0  1  1428    4       1  1  1   999    0
 1452      18  0  1     2    0       1  0  0  6700    4      18  1  1    10    0       5  0  0  2182    4
 1456       2  0  0  2494    4      24  1  0  1441    4
 PROCEDURE  398
 1458                                                         0  0  0     0    0      27  0  3  1463    4
 1460       4  0  0  2519    4       5  0  0  2487    4      24  1  0  1465    4       5  0  0  2519    4
 1464       4  0  0  2487    4       2  0  0  2475    4       6  0  0  2486    4      18  0  1     2    0
 1468       4  0  0  2479    4       2  0  0  2474    4      26  0  0  1686    4      26  0  1  1458    4
 PROCEDURE  399
 1472       0  0  0     0    0      27  0  0  1478    4       2  0  0  2475    4       1  1  3     1    0
 1476       5  0  0  2475    4       5  0  0  2475    4       4  0  0  2280    4      26  0  0   557    4
 1480      26  0  1  1472    4
 PROCEDURE  400
 1481                                0  0  0     0    0       1  1  3     0    0      26  0  0  1472    4
 1484      26  0  1  1481    4
 PROCEDURE  401
 1485                                0  0  0     0    0      24  0  3  8088    4       6  1  0     1    0
 1488       2  0  0  2019    4      24  0  1  2019    4      23  0  0     0    0       0  0  0  8088    3
 1492      24  1  0  1494    4      26  0  0  2031    4       1  1  3     0    0       1  0  1    15    0
 1496      24  0  3  8088    4      15  1  0     2    0       2  0  0  2279    4      24  0  3  8088    4
 1500      14  1  0     2    0       6  1  0  2430    4      28  1  1  3054    4      24  0  3  8088    4
 1504      24  0  2     0    0      18  1  1  4123    0      24  0  3  8088    4       6  1  0     1    0
 1508      18  1  1     5    0      28  1  1  3054    4      26  0  1  1485    4
 PROCEDURE  402
 1511                                                                                  0  0  0     0    0
 1512      24  1  2    19    4       6  1  0     4    0      24  1  2    19    4       2  1  0     2    0
 1516      24  1  2    19    4       2  1  0     4    0      26  0  0  1520    4      26  0  1  1511    4
 PROCEDURE  403
 1520       0  0  0     0    0       6  1  0  2156    4      24  1  2    17    4       2  1  0    50    0
 1524      24  1  2    17    4       6  1  0    46    0      26  0  0  1641    4      27  0  0  1544    4
 1528      24  1  2    17    4       6  1  0    48    0      27  0  0  1546    4      26  0  0  1641    4
 1532      27  0  0  1544    4      24  1  2    17    4       6  1  0    32    0       5  1  0  2432    4
 1536      27  0  1  1541    4       1  0  1    63    0      24  1  2    17    4      14  1  0    48    0
 1540      24  1  0  1546    4       6  0  0  8079    4       1  1  1     1    0       2  0  0  8079    4
 1544       1  1  3     1    0       2  0  0  2279    4       6  1  0  6774    4      27  0  1  1553    4
 1548       6  0  0  2279    4      27  0  0  1559    4       6  0  0  2298    4      27  0  1  1553    4
 1552      26  0  0  1570    4       6  0  0  2522    4      24  1  2    17    4       2  1  0     1    0
 1556      26  0  0  1587    4       1  1  3     1    0       3  0  0  2522    4       2  0  0  2298    4
 1560      26  0  1  1520    4
 PROCEDURE  404
 1561                                0  0  0     0    0      24  0  1  2154    4       2  0  0  7344    4
 1564      23  0  0     1    0       0  0  0  2154    3      26  0  1  1561    4       6  0  0  1566    4
 1568       2  0  0  1562    4      26  0  1  1561    4
 PROCEDURE  405
 1570                                                         0  0  0     0    0       6  1  0    16    4
 1572       2  1  0  2150    4       6  0  0     8    4       2  0  0    16    4       5  0  0     8    4
 1576       1  1  2    64    0       2  0  0    17    4      24  1  2    17    4       2  1  0     0    0
 1580       6  1  0  2156    4      24  1  2    17    4       2  1  0     2    0      26  0  0  1587    4
 1584       6  1  0  2150    4       2  1  0    16    4      26  0  1  1570    4
 PROCEDURE  406
 1587                                                                                  0  0  0     0    0
 1588       6  0  0  6785    4      27  0  0  1599    4      24  1  2    17    4      24  0  2     0    0
 1592      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0      24  1  2    13    4
 1596      28  1  1     4    0      26  0  0  2051    4      26  0  1  1587    4       6  0  0  6784    4
 1600       1  1  2     9    0      27  0  0  1621    4       6  0  0  2231    4      24  1  2    17    4
 1604       2  0  0     1    0       6  1  0  2434    4      24  1  2    13    4      28  1  1     0    0
 1608      24  1  2    17    4      24  0  2     0    0      24  1  2    13    4      29  0  1     0    0
 1612       1  1  3     4    0      18  0  1     5    0       4  0  0     7    4       0  0  2    12    4
 1616      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0       0  0  3  2441    4
 1620      26  0  1  1587    4      24  1  2    17    4      24  0  2     0    0      18  1  1  4123    0
 1624       1  1  3    54    0      18  1  1     5    0      24  1  2    13    4      28  1  1     0    0
 1628       1  1  3     9    0      24  1  0  1613    4
 PROCEDURE  407
 1630                                                         0  0  0     0    0       0  1  0  2372    4
 1632       0  0  3     0    4       0  0  2    20    4       6  1  0  2400    4       4  0  0    11    4
 1636      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2372    4
 1640      26  0  1  1630    4
 PROCEDURE  408
 1641                                0  0  0     0    0      18  0  1  4126    0      18  0  1     2    0
 1644       1  1  1    93    0       5  1  0  2086    4      27  0  1  1654    4       6  0  0  8078    4
 1648       1  1  1     1    0       2  0  0  8078    4      24  1  2    17    4       6  1  0     7    0
 1652      26  0  0  1561    4       1  1  3     0    0      26  0  1  1641    4
 PROCEDURE  409
 1655                                                                                  0  0  0     0    0
 1656      26  1  2  2520    4       6  1  0  2502    4       4  1  0  2076    4      24  1  2    21    4
 1660       2  1  2     4    0       6  1  0  2504    4      24  1  2    21    4       2  1  2     6    0
 1664       6  0  0  2519    4      24  1  2    21    4       2  1  2     9    0      24  1  2    21    4
 1668       2  1  2    10    0      24  1  0  1704    4
 PROCEDURE  410
 1670                                                         0  0  0     0    0      26  1  2  2520    4
 1672       6  1  0  2502    4      24  1  2    21    4       2  1  2     4    0       6  1  0  2504    4
 1676      24  1  2    21    4       2  1  2     6    0       6  0  0  2474    4      24  1  2    21    4
 1680       2  1  2     9    0       6  0  0  2475    4      24  1  2    21    4       2  1  2    11    0
 1684       6  0  0  1670    4      24  1  0  1703    4
 PROCEDURE  411
 1686                                                         0  0  0     0    0       6  0  0  2518    4
 1688       7  0  0  2519    4      26  1  2  2520    4       6  0  0  2472    4      24  1  2    21    4
 1692       2  1  2     5    0       6  0  0  2473    4      24  1  2    21    4       2  1  2     7    0
 1696       6  0  0  2474    4      24  1  2    21    4       2  1  2     9    0       6  0  0  2475    4
 1700      24  1  2    21    4       2  1  2    11    0       6  0  0  1686    4       2  0  0  1655    4
 PROCEDURE  412
 1704      25  0  2     8    0      24  1  0  1711    4       6  1  0  2156    4      24  1  2    21    4
 1708       2  1  2     4    0      26  0  0  1630    4      26  1  2  2436    4      24  0  3     0    4
 1712       6  1  0     4   22       2  1  0  2520    4       2  0  0  2473    4       2  1  0  2474    4
 1716      26  0  1  1655    4
 PROCEDURE  413
 1717                                0  0  0     0    0       6  0  0  2520    4      27  0  0  1724    4
 1720      26  1  2  2520    4       6  0  0  1717    4       2  0  0  1655    4      24  1  0  1706    4
 1724      26  0  1  1717    4
 PROCEDURE  414
 1725                                0  0  0     0    0      26  0  0  1485    4       1  1  3     1    0
 1728       2  0  0  2575    4      26  0  0  1731    4      26  0  1  1725    4
 PROCEDURE  415
 1731                                                                                  0  0  0     0    0
 1732       6  0  0  2575    4      27  0  1  1740    4      26  0  0  1989    4      26  0  0  1485    4
 1736      24  0  3  8088    4       6  1  0     6    0       5  1  0  2084    4      27  0  1   585    4
 1740      24  0  2  2308    4      28  0  2  3056    4      24  0  2  2308    4      24  1  2    17    4
 1744      28  1  2     2    0       6  1  0  3074    4      24  1  2    17    4       2  1  0    28    0
 1748       6  1  0  3076    4      24  1  2    17    4       2  1  0    48    0      24  0  2  3078    4
 1752      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      24  1  2    17    4
 1756      28  1  1    32    0       6  1  0  2452    4       5  1  0  2084    4      27  0  0  1855    4
 1760       1  1  3     0    0       2  1  0  2496    4      25  0  1     0    0      24  1  0  1765    4
 1764      24  1  0  1807    4      24  0  3     0    4       6  0  1     1    0       5  1  0  2450    4
 1768      27  0  0  1800    4      27  0  2  1807    4       6  1  0  2086    4       2  1  0  2496    4
 1772      26  0  0  1775    4      26  0  0  1916    4      24  1  0  1760    4
 PROCEDURE  416
 1775                                                                                  0  0  0     0    0
 1776      24  0  3     0    4       6  0  1     0    0       3  0  0  2476    4      24  0  3     0    4
 1780       2  0  1     1    0       6  1  0  2496    4      27  0  1  1791    4       1  0  1     3    0
 1784      15  0  0  2450    4       1  1  2     2    0      27  0  1  1791    4      24  0  3     0    4
 1788       6  0  0     2   22      26  0  0   898    4      24  1  0  1797    4       6  0  0  2486    4
 1792      18  0  3    10    0       4  0  0  2519    4       5  0  0  2487    4      24  0  3     0    4
 1796       2  0  1     0    0      25  0  1     2    0      24  1  0  1799    4      26  0  1  1775    4
 PROCEDURE  417
 1800      26  0  0  1775    4      24  0  3     0    4       6  0  1     1    0       5  0  0  2450    4
 1804      27  0  1  1847    4      26  0  0  1916    4      24  1  0  1800    4
 PROCEDURE  418
 1807                                                                                  6  0  0  2593    4
 1808      27  0  0  1855    4       6  0  0  2596    4      27  0  0  1855    4       5  1  0  2450    4
 1812      27  0  0  1816    4      27  0  2  1855    4       6  1  0  2086    4       2  1  0  2496    4
 1816       6  0  0  2598    4      18  0  1     6    0      18  0  1  4127    0      27  0  0  1823    4
 1820      24  0  3     0    4       5  1  0     2   22      27  0  2  1823    4       6  0  0  2597    4
 1824       2  0  0  2476    4       6  0  0  2598    4      27  0  0  1836    4      18  0  1  4124    0
 1828       2  0  0  1775    4       6  0  0  2519    4       5  0  0  2487    4       0  0  2  2178    4
 1832      24  0  1  1775    4      18  1  3     0    0      24  0  3  2598    4      14  0  0     0    0
 1836       6  0  0  2593    4       1  1  2     3    0       3  0  0  2593    4      27  0  1  1842    4
 1840       2  0  0  2596    4      24  1  0  1845    4      24  0  2  2599    4       4  1  0  2592    4
 1844      28  0  0  2596    4       6  1  0  2496    4      27  0  1  1773    4       6  0  0  2596    4
 1848       5  0  0  2450    4      27  0  1  1852    4      26  0  0  1916    4      24  1  0  1816    4
 1852      24  0  2  2366    4      24  1  2    17    4      28  1  2     2    0
 PROCEDURE  419
 1855                                                                                  1  1  3     0    0
 1856       0  1  2  2454    4      26  0  0  1980    4       2  1  0  2454    4       2  0  0  2464    4
 1860       1  0  1     1    0      15  1  0  2456    4       1  1  2    12    0      27  0  1  1871    4
 1864       1  1  3     1    0       2  0  0  2464    4       6  1  0  2456    4      18  0  1  4127    0
 1868      27  0  2  1870    4       1  1  1     1    0       2  1  0  2456    4
 PROCEDURE  420
 1871                                                                                  6  1  0  3092    4
 1872       5  1  0  2086    4       3  1  0  2574    4      27  0  0  1875    4      26  0  0  1520    4
 1876       6  1  0  2455    4       1  1  2   256    0      27  0  3  1885    4       1  1  2  2201    0
 1880      27  0  2  1885    4       0  0  3  2445    4       6  0  0  2446    4       7  1  0  2456    4
 1884       0  0  3  2441    4       6  1  0  2452    4       5  1  0  2084    4      27  0  0  1901    4
 1888       0  1  2  2452    4      26  0  0  1980    4       2  1  0  2452    4       6  1  0  2453    4
 1892      18  1  1  4127    0       2  0  0  2586    4      18  1  1     1    0       1  1  1     1    0
 1896       2  0  0  2526    4
 PROCEDURE  421
 1897                                6  0  0  2586    4      26  0  0  2019    4       1  1  1     1    0
 1900       2  0  0  2586    4       6  1  0  2574    4      27  0  1  1905    4       2  0  0  2586    4
 1904      24  1  0   584    4      24  0  2  2130    4      12  1  0  2456    4       2  1  0  2456    4
 1908      24  0  2  2130    4      12  1  0  2460    4       2  1  0  2460    4      24  0  2  2130    4
 1912      12  1  0  2455    4       2  1  0  2454    4       2  0  0  2575    4      26  0  1  1731    4
 PROCEDURE  422
 1916       0  0  0     0    0       6  1  0  2496    4      27  0  1  1921    4       6  1  0  6774    4
 1920      27  0  0  1928    4      24  0  2  2360    4      24  1  2    15    4      28  1  2     2    0
 1924       6  1  0  2496    4      24  1  2    15    4       2  1  0    46    0      26  0  0  1929    4
 1928      26  0  1  1916    4
 PROCEDURE  423
 1929                                0  0  0     0    0       6  1  0  2156    4      24  1  2    15    4
 1932       2  1  0    50    0       6  1  0    14    4       2  1  0    16    4      26  0  0  1520    4
 1936       6  1  0    30    4       2  1  0    16    4       6  1  0  2414    4      24  1  2    15    4
 1940      28  1  1     2    0      26  0  1  1929    4
 PROCEDURE  424
 1942                                                         0  0  0     0    0       1  1  3     0    0
 1944       5  1  0  2456    4      27  0  0  1957    4      27  0  3  1957    4       2  1  0  2456    4
 1948       1  1  3   128    0       7  0  0  2510    4       6  1  0  2458    4       1  1  2     2    0
 1952      27  0  1  1957    4       1  1  2     1    0       7  1  0  2456    4       1  1  3     1    0
 1956       2  1  0  2458    4      26  0  1  1942    4
 PROCEDURE  425
 1958                                                         0  0  0     0    0       6  0  0  2476    4
 1960       2  0  0  2475    4       6  1  0  2454    4      18  0  1     2    0       4  0  0  2510    4
 1964       2  0  0  2474    4       6  1  0  2458    4      27  0  0  1972    4       1  1  2     2    0
 1968      27  0  1  1971    4       1  1  3     1    0       7  1  0  2456    4       6  0  0  2209    4
 1972      24  0  1  2460    4       4  0  0  2205    4       4  0  0  2456    4       1  0  1    15    0
 1976      15  0  0  2475    4      14  0  0  2475    4       1  1  3     0    0      26  0  1  1958    4
 PROCEDURE  426
 1980       0  0  0     0    0       1  1  3     0    0       2  1  0  2494    4       6  1  0  2494    4
 1984      18  1  1     2    0       2  1  0  2494    4      27  1  1  1983    4       6  1  0  2494    4
 1988      26  0  1  1980    4
 PROCEDURE  427
 1989                                0  0  0     0    0      24  0  2  2454    4      18  1  1  4123    0
 1992       1  1  3     8    0      18  1  1     5    0      28  1  1  2502    4       6  0  0  2464    4
 1996       2  0  0  2465    4      26  0  1  1989    4
 PROCEDURE  428
 1998                                                         0  0  0     0    0      24  0  2  2502    4
 2000      18  1  1  4123    0       1  1  3     8    0      18  1  1     5    0      28  1  1  2454    4
 2004       6  0  0  2465    4       2  0  0  2464    4      26  0  1  1998    4
 PROCEDURE  429
 2007                                                                                  0  0  0     0    0
 2008       6  1  0  2460    4       2  0  0  2478    4      26  0  0  1401    4       6  0  0  2478    4
 2012       2  1  0  2460    4       6  1  0  2456    4      27  0  2  2016    4      26  0  0  1942    4
 2016      26  0  0  1958    4      26  0  0  1686    4      26  0  1  2007    4
 PROCEDURE  430
 2019                                                                                  0  0  0     0    0
 2020       2  1  0  2150    4       0  0  3  2441    4      24  0  2  2130    4      12  1  0  2150    4
 2024      26  0  1  2019    4
 PROCEDURE  431
 2025                                0  0  0     0    0       2  1  0  2150    4       0  0  3  2445    4
 2028      24  0  2  2110    4      12  1  0  2150    4      26  0  1  2025    4
 PROCEDURE  432
 2031                                                                                  0  0  0     0    0
 2032       0  1  0  2372    4       0  0  3     0    4       0  0  2    18    4       6  1  0  2438    4
 2036       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 2040       0  1  1  2372    4       0  1  0  2372    4       0  0  3     0    4      24  1  2    19    4
 2044      24  0  2     6    0       3  0  0  8088    4      24  1  2    19    4       4  1  0     5    0
 2048       2  0  0  8089    4       0  1  1  2372    4      26  0  1  2031    4
 PROCEDURE  433
 2051                                                                                  0  0  0     0    0
 2052       6  1  0  2400    4       0  0  2    12    4      25  1  1  4096    0       4  0  0     7    4
 2056      24  0  3     0    4      23  0  2   160    0      26  0  1  2051    4       0  0  0     0    0
  SECTION   434
 2060       37455       0            75516       0            26355       0            73515       0
 2064       57273       0            53666       0            65369       0            67696       0
 2068       35572       0            65667       0            40000       0            55655       0
 2072       46772       0            54746       0            35572       0            56596       0
 2076       75500       0            73786       0            56554       0            56595       0
 2080           0       0            6Ю000       0            7554.       0            73786       0
 2084           0       0            53000       0            :5:5:       0            5:5:5       0
 2088       7554£       0            73786       0                1       0                0       0
 2092           2       0                0       0                4       0                0       0
 2096           8       0                0       0               10       0                0       0
 2100          20       0                0       0               40       0                0       0
 2104          80       0                0       0              100       0                0       0
 2108         200       0                0       0
  SECTION   435
 2110                                                             1       0                0       0
 2112          16       0                0       0              256       0                0       0
 2116        4096       0                0       0            65536       0                0       0
 2120       48576       0               10       0            77216       0              167       0
 2124       35456       0             2684       0            67296       0            42949       0
 2128       £££££       0            £££££       0                1       0                0       0
 2132           Ю       0                0       0               64       0                0       0
 2136         3.8       0                0       0             2710       0                0       0
 2140       186Ю0       0                0       0            £4240       0                0       0
 2144       89680       0                9       0            5.100       0               5£       0
 2148       Ю+Ю00       0              3‼9       0                0       0                0       0
 2152           0       0                0       0                0       0                +       0
  SECTION   436
 2156          7.       0            7.000       0                0       0               90       0
 2160           1       0               45       0               45       0               44       0
 2164           4       0                4       0                2       0                0       0
 2168         Ю17       1               54       1               ‼4       0               ‼4       0
 2172           3       0            7£££0       0             1£££       0            66666       0
 2176       66.64       0            66666       0              3££       0             1000       0
 2180          3£       0                0       0
  SECTION   437
 2182                                                          1Ю2‼       3             8006       0
 2184       +8006       0                7       0            £££££       0            £££££       0
 2188       60000       0            40000       0            50000       0            30000       0
 2192       70000       0            20000       0            90000       0            Ю0000       0
 2196       ‼0000       0            :0000       0            20001-      0            8+000-      0
 2200       80000-      0             Ю000       0            1.000       0            1Ю000       0
 2204       1+000       0                0       0             2000       0             4000       0
 2208        6000       0             8000       0            28000       0            38000       0
 2212       22000-      0            26000-      0            2Ю000-      0            2.000-      0
 2216       12000       0            £0000       0            .0000       0            14000       0
 2220       ‼0000-      0            ‼2000-      0            ‼4000-      0            ‼6000-      0
 2224       ‼8000-      0            ‼Ю000-      0            88000-      0            Ю0000-      0
 2228       Ю2000-      0            10000       0            2Ю00Ю-      0            80000       0
 2232       88000       0            1.001       0            48000       0            2Ю005-      0
 2236       Ю8000-      0            68000       0            +0000       0            90000-      0
 2240       74000-      0            70000-      0            2‼016-      0            Ю4000-      0
 2244       2‼017-      0            +0000-      0            84000-      0            :2000-      0
 2248       +4000-      0            +6000-      0            ++000-      0            +.000-      0
 2252       2‼01‼-      0            9‼000-      0              Ю14       1                1       0
 2256       £0000-      0            £8000-      0            .8000-      0            .0008-      0
 2260       .0000-      0            £0008-      0            40000-      0            48000-      0
 2264       58000-      0            40008-      0            50000-      0            60000-      0
 2268       .0004-      0            £8004-      0            68000-      0             407+       0
 2272         400       0            6808Ю       0              500       0             409+       0
 2276         200       0              300       0            Ю6000-      0                0       0
  SECTION   438
 2280       86000-      0            82000-      0            28006       0            38006       0
 2284       ‼8002-      0            1Ю002       0            22005-      0             6004       0
 2288       20001       0            88001-      0            ‼4002-      0            88007-      0
 2292       Ю5££‼-      0            Ю1££Ю-      0            20006       0            86006-      0
 2296       74002-      0                0       0                0       0            8+006-      0
 2300       1Ю00Ю       0            30002       0            1Ю014       0             4002       0
 2304       88005-      0            :6000-      0             8000-      0                0       0
  SECTION   439
  SECTION   440
 2308    0   2448   3        5   3  0  0  0  5   0         0   2450   3     1365   2  0  5  5  5   0
 2312    0   2452   3       69   3  0  0  4  5   0         0   2454   3       53   3  0  0  3  5   0
 2316    0   2456   3    17669   6  4  5  0  5   0         0   2458   3     6162   2  1  8  1  2   0
 2320    0   2460   3     9987   2  2  7  0  3   0         0   2462   3    36954   6  9  0  5 10   0
 2324    0   2152   3        5   3  0  0  0  5   1
  SECTION   441
 2326                                                      0   2448   3        5   3  0  0  0  5   0
 2328    0   2450   3       85   0  0  0  5  5   0         0   2464   3    16405   0  4  0  1  5   0
 2332    0   2465   3    16405   0  4  0  1  5   0         0   2466   3    16405   0  4  0  1  5   0
 2336    0   2467   3    16405   0  4  0  1  5   0         0   2451   3     4882   0  1  3  1  2   0
 2340    0   2452   3     8707   0  2  2  0  3   0         0   2453   3     4898   0  1  3  2  2   0
 2344    0   2458   3     8723   0  2  2  1  3   0         0   2459   3     4898   0  1  3  2  2   0
 2348    0   2460   3     8723   0  2  2  1  3   0         0   2461   3     1057   0  0  4  2  1   0
 2352    0   2462   3     4882   0  1  3  1  2   0         0   2463   3     4882   0  1  3  1  2   1
  SECTION   442
 2356    0   2475   3    16405  12  4  0  1  5   0         0   2474   3    12548   0  3  1  0  4   1
  SECTION   443
 2360    0   2496   3      515   3  0  2  0  3   0         0   2476   3       21   0  0  0  1  5   0
 2364    0   2080   3        1   3  0  0  0  1   1         0   2448   3        3   3  0  0  0  3   0
 2368    0   2476   3       21   0  0  0  1  5   0         0   2080   3        1   3  0  0  0  1   1
  SECTION   444
  SECTION  1020
 2372           0       0                0       0                0       0                0       0
 2376           0       0                0       0                0       0                0       0
 2380           0       0                0       0                0       0                0       0
 2384           0       0                0       0                0       0            20032       0
 2388           0       0            2000.       0             8004       0             5142       0
 2392           0       0               11       0                0       0            20078       0
 2396           0       0            20064       0                0       0            20022       0
 2400           0       0                8       0            50000       0            56596       0
 2404           0       0               22       0             8004       0             5146       0
 2408           0       0               12       0                0       0               30       0
 2412           .       0                .       0                0       0            20030       0
 2416           0       0                6       0            55972       0            56596       0
 2420           0       0               21       0                0       0            20008       0
 2424           0       0                Ю       0                0       0               14       0
 2428           0       0                4       0                0       0            2002+       0
 2432       17171       0            71717       0                0       0            20180       0
 2436           0       0               90       0                0       0                7       0
  SECTION  1021
 2440           2       0                0       0                3       0               10       0
 2444          14       0            66666       0                2-      0             7200       0
  SECTION  1022
 PROCEDURE 1005
CHAPT       6
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  445
   33                                0  1  0  3044    4       0  0  3     0    4       1  1  3     6    0
   36       0  0  2  3148    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  3044    4      24  1  2    21    4      24  0  2     0    0      18  1  1  4123    0
   44       1  1  3   100    0      18  1  1     5    0      28  1  1  3284    4       0  1  0  3044    4
   48       0  0  3     0    4       0  1  2  3058    4       6  1  0  3060    4       4  0  0    11    4
   52      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  3048    4
   56       6  1  0  3062    4      28  0  0  3244    4       6  1  0  3064    4      24  1  2    15    4
   60      28  0  0     0    0       1  1  3     0    0       2  0  0  5476    4      24  0  2  3163    4
   64      18  1  1  4123    0       1  1  3    14    0      18  1  1     5    0      28  0  0  3249    4
   68       6  1  0  3066    4      28  0  0  3163    4      26  1  3  3068    4       6  0  0  6690    4
   72      18  0  1     5    0       1  1  1     1    0       3  1  0  3044    4      26  1  1  3044    4
   76       1  1  3     0    0       1  0  1     1    0      15  0  1  6699    4       2  0  0  3246    4
   80      24  0  3     0    4       6  0  0     2   22       2  0  0  3245    4       1  1  3    16    0
   84      18  1  1  4118    0      15  0  1  6699    4      18  1  1  4126    0      27  1  1    90    4
   88      24  0  1  3246    4       6  0  0  3248    4       4  0  3  3178    4       2  0  0  3247    4
   92       2  0  0  3248    4
 PROCEDURE  446
   93                               26  0  0   185    4       6  0  0  3247    4       4  0  0  3248    4
   96      24  0  1  3246    4       5  0  0  3162    4      27  0  3   101    4      24  0  1  3246    4
  100       7  0  0  3162    4      25  0  3     1    0      24  1  0   103    4      25  0  1     1    0
  104      24  1  0    76    4      26  1  1  6718    4      26  1  2  3068    4       1  1  3    16    0
  108      18  1  1  4118    0      15  0  1  6700    4      27  0  0   115    4       6  0  1  3163    4
  112       2  0  2  3178    4       6  0  1  3249    4       7  0  1  3163    4      25  0  2     1    0
  116      24  1  0   117    4      25  0  1     1    0      24  1  0   107    4       6  0  0  2576    4
  120       2  0  0  3247    4       2  0  0  3245    4       6  0  0  6719    4       2  0  0  3246    4
  124       2  0  0  3248    4      26  0  0   185    4       6  0  0  3247    4       4  0  0  3248    4
  128       2  0  1  3162    4       1  1  3   220    0       5  0  0  3163    4      27  0  3   133    4
  132       7  0  0  3163    4       6  1  0  3062    4      28  0  0  3244    4       6  0  0  6719    4
  136       1  1  2     7    0      27  0  3   139    4       1  1  3     0    0       1  1  1     7    0
  140       2  0  0  6719    4      26  0  0   456    4      26  0  0   456    4      26  0  0   456    4
  144      24  1  2    21    4       6  1  0     5    0       2  0  0  3246    4      24  1  2    21    4
  148       6  1  0     7    0       2  0  0  3247    4       6  1  0  3066    4      28  0  0  3212    4
  152       0  1  0  3044    4       0  0  3     0    4       0  1  2  3070    4       6  1  0  3072    4
  156       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  160       0  1  1  3044    4       0  1  0  3044    4       0  0  3     0    4       0  0  2  3149    4
  164       6  1  0  3074    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
  168      23  0  2     0  256       0  1  1  3044    4       6  1  0   644    4      24  1  2    19    4
  172       2  1  0     4    0       6  1  0   680    4      24  1  2    19    4       2  1  0     6    0
  176       6  1  0   645    4      24  1  2    19    4       2  1  0     9    0       1  1  3     3    0
  180      24  1  2    19    4       2  1  0    10    0      26  0  0   548    4      26  0  0   187    4
  184      24  1  0   213    4
 PROCEDURE  447
  185                                0  0  0     0    0      26  0  1   185    4
 PROCEDURE  448
  187                                                                                  0  0  0     0    0
  188       6  0  0  3246    4      24  1  2    19    4       3  1  0     5    0      24  1  2    19    4
  192       2  1  0    13    0       6  0  0  3247    4      24  1  2    19    4       3  1  0     7    0
  196      24  1  2    19    4       2  1  0    15    0       1  1  3     2    0      24  1  2    19    4
  200       2  1  0    11    0       1  1  3     3    0      24  1  2    19    4       3  1  0    19    0
  204       1  1  3     2    0       4  0  0  6788    4      24  1  2    19    4       2  1  0    17    0
  208       6  1  0   645    4      24  1  2    19    4       2  1  0    21    0      26  0  0   548    4
  212      26  0  1   187    4
 PROCEDURE  449
  213                                6  1  0  3064    4      24  1  2    15    4      28  1  1     0    0
  216      26  1  1  3076    4      26  0  0   491    4      25  0  1     1    0      24  1  0   217    4
  220       2  0  0   548    4       2  0  0   491    4       1  1  3   128    0       2  0  0   745    4
  224      24  0  2   848    4      24  1  2    15    4      28  1  2     0    0      26  0  0   491    4
  228      26  0  0   491    4       6  1  0   645    4      24  1  2    19    4       2  1  0     5    0
  232       1  1  3    85    0      24  1  2    19    4       2  1  0     7    0       6  0  0  3246    4
  236      24  1  2    19    4       2  1  0     9    0       6  0  0  3247    4      24  1  2    19    4
  240       2  1  0    11    0       6  1  0   654    4      24  1  2    19    4       2  1  0    12    0
  244      26  0  0   548    4      26  0  0   456    4      24  1  2    21    4      24  0  2     4    0
  248      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0      28  1  1  3192    4
  252       2  1  0  3205    4       2  1  0  3203    4       2  1  0  3207    4
 PROCEDURE  450
  255                                                                                 24  0  2  3192    4
  256      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      24  1  2    19    4
  260      28  1  1     4    0       2  0  0  6718    4       6  0  0  6696    4      24  1  2    19    4
  264       2  1  0    21    0       6  0  0  6698    4      24  1  2    19    4       2  1  0    23    0
  268      26  1  2  6718    4      26  1  1  3078    4       6  0  2  3163    4      27  0  1   274    4
  272       6  1  0   676    4       3  0  2  3163    4      24  1  2    19    4       2  1  1    25    0
  276       1  1  3    32    0      18  1  1  4118    0      15  0  2  6700    4      27  0  0   285    4
  280       1  1  3     0    0      24  1  2    19    4       5  1  1    25    0      24  1  2    19    4
  284       2  1  1    25    0      25  0  1     2    0      24  1  0   287    4      25  0  2     1    0
  288      24  1  0   270    4       6  0  0  3246    4      24  1  2    19    4       2  1  0    39    0
  292       6  0  0  3247    4      24  1  2    19    4       2  1  0    41    0       6  1  0  3080    4
  296      24  1  2    19    4       2  1  0    42    0      26  0  0   548    4
 PROCEDURE  451
  299                                                                                 26  1  1   848    4
  300      26  1  2   850    4      24  0  3     0    4       6  1  0     2   22       2  1  0   848    4
  304      24  0  3     0    4       6  1  0     4   22       2  1  0   850    4      26  1  2  3082    4
  308       6  1  2  3193    4      27  0  0   312    4       6  1  0   588    4      24  1  0   313    4
  312       6  1  0   590    4       2  1  2  3212    4      25  0  2     2    0      24  1  0   308    4
  316       6  0  0  6696    4      26  0  0   565    4       2  0  0  6696    4       0  0  3  3150    4
  320      24  0  2   822    4      24  1  2    15    4      28  1  2     2    0      26  0  0   491    4
  324      26  0  0   491    4       6  1  0  3201    4       2  1  0  3214    4
 PROCEDURE  452
  327                                                                                  6  1  0  3203    4
  328       2  0  0  3252    4       6  1  0  3201    4       2  0  0  3253    4       6  1  0  3066    4
  332      28  0  0  3212    4       6  1  0  6718    4       5  1  0  3084    4       3  1  0  3044    4
  336      26  1  2  3044    4       6  0  2  3163    4      26  0  0   565    4       2  0  2  3212    4
  340       0  0  3  3150    4       6  0  2  3163    4       5  0  0  3151    4      27  0  3   346    4
  344       1  1  3     1    0       3  0  0  3222    4      25  0  2     1    0      24  1  0   337    4
  348       1  1  3  1286    0       3  0  0   696    4       2  0  2  3212    4       6  0  0  3222    4
  352      27  0  0   362    4       6  0  0  8078    4       1  1  1     1    0       2  0  0  8078    4
  356       6  1  0  3086    4      26  1  2  3076    4      24  1  2    15    4       3  1  2    40    0
  360      25  0  2     2    0      24  1  0   358    4      24  0  2   794    4      24  1  2    15    4
  364      28  1  2     2    0      26  0  0   491    4      26  0  0   491    4      24  0  2   772    4
  368      24  1  2    15    4      28  1  2     2    0      26  0  0   491    4       6  1  0  3088    4
  372      28  0  0  3212    4
 PROCEDURE  453
  373                               24  0  2   890    4      24  1  2    15    4      28  1  2     2    0
  376      26  0  0   491    4
 PROCEDURE  454
  377                                6  1  0   646    4      24  1  2    15    4       2  1  0     2    0
  380       6  1  0   648    4      24  1  2    15    4       2  1  0     4    0       6  1  0   668    4
  384      24  1  2    15    4       2  1  0     6    0      26  0  0   491    4      26  0  0   491    4
  388      24  1  0   406    4
 PROCEDURE  455
  389                               24  0  2   924    4      24  1  2    15    4      28  1  2     2    0
  392      26  0  0   491    4      26  0  0   491    4       6  1  0  3090    4       2  1  0  8088    4
  396       6  1  0  3092    4       2  1  0  8092    4       3  1  0  3044    4      26  1  1  3044    4
  400      24  1  0   990    4
 PROCEDURE  456
  401                               24  0  2   928    4      24  1  2    15    4      28  1  2     2    0
  404      26  0  0   491    4      24  1  0   389    4
 PROCEDURE  457
  406                                                        24  0  2   932    4      24  1  2    15    4
  408      28  1  2     2    0      26  0  0   491    4      26  0  0   491    4      24  1  0   401    4
 PROCEDURE  458
  412       0  0  0     0    0       6  0  0   586    4      26  0  0   565    4       2  0  0   586    4
  416       6  0  0   587    4      26  0  0   565    4       2  0  0   587    4       6  0  0   588    4
  420      26  0  0   565    4       2  0  0   588    4       0  0  3  3150    4      24  0  2   936    4
  424       0  1  0  3044    4       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0
  428      24  0  3     0    4       4  0  0     2   22       2  0  0  3050    4       0  1  1  3044    4
  432      24  0  3  3050    4      28  1  2     2    0      25  0  1     6    0      24  1  0   438    4
  436      26  0  0   491    4      26  1  1  3094    4      26  0  1   412    4
 PROCEDURE  459
  439                                                                                  0  0  0     0    0
  440       0  1  0  3044    4       0  0  3     0    4       0  0  2    18    4       6  1  0  3096    4
  444       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  448       0  1  1  3044    4      26  0  1   439    4
 PROCEDURE  460
  450                                                         0  0  0     0    0      25  0  2     8    0
  452      24  1  0   455    4      26  0  0   456    4      26  1  2  3098    4      26  0  1   450    4
 PROCEDURE  461
  456       0  0  0     0    0       0  1  0  3044    4       0  0  3     0    4       0  0  2    20    4
  460       6  1  0  3096    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
  464      23  0  2     0  256       0  1  1  3044    4      26  0  1   456    4
 PROCEDURE  462
  467                                                                                  0  0  0     0    0
  468      24  1  2    19    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0
  472      18  1  1     5    0      24  1  2    21    4      28  1  1     4    0       6  1  0   640    4
  476      24  1  2    21    4       2  1  0    52    0       0  1  0  3044    4       0  0  3     0    4
  480       0  0  2    20    4       6  1  0  3100    4       4  0  0    11    4      25  1  1  4096    0
  484      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4       6  1  0  3102    4
  488      24  1  2    21    4      28  0  0     0    0      26  0  1   467    4
 PROCEDURE  463
  491                                                                                  0  0  0     0    0
  492       0  0  3  3150    4       6  1  0   640    4      24  1  2    15    4       2  1  0    50    0
  496       6  0  0   745    4      24  1  2    15    4       2  1  0     0    0       1  1  3     1    0
  500       2  0  0   745    4       6  0  0  6785    4      27  0  0   512    4      24  1  2    15    4
  504      24  0  2     0    0      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0
  508      24  1  2    13    4      28  1  1     4    0      26  0  0   577    4      24  1  0   543    4
  512       6  0  0  6784    4       1  1  2     9    0      27  0  0   534    4       6  0  0  3152    4
  516      24  1  2    15    4       2  0  0     1    0       6  1  0  3104    4      24  1  2    13    4
  520      28  1  1     0    0      24  1  2    15    4      24  0  2     0    0      24  1  2    13    4
  524      29  0  1     0    0       1  1  3     4    0      18  0  1     5    0       4  0  0     7    4
  528       0  0  2    12    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
  532       0  0  3  3150    4      24  1  0   543    4      24  1  2    15    4      24  0  2     0    0
  536      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0      24  1  2    13    4
  540      28  1  1     0    0       1  1  3     9    0      24  1  0   526    4       6  1  0  3064    4
  544      24  1  2    15    4      28  0  0     0    0       2  0  0  3245    4      26  0  1   491    4
 PROCEDURE  464
  548       0  0  0     0    0       6  1  0   640    4      24  1  2    19    4       2  1  0    52    0
  552       0  1  0  3044    4       0  0  3     0    4       0  0  2    18    4       6  1  0  3100    4
  556       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  560       0  1  1  3044    4       6  1  0  3102    4      24  1  2    19    4      28  0  0     0    0
  564      26  0  1   548    4
 PROCEDURE  465
  565                                0  0  0     0    0       2  1  0   696    4       0  0  3  3153    4
  568      24  0  2   718    4      12  1  0   696    4      26  0  1   565    4
 PROCEDURE  466
  571                                                                                  0  0  0     0    0
  572       2  1  0   696    4       0  0  3  3150    4      24  0  2   698    4      12  1  0   696    4
  576      26  0  1   571    4
 PROCEDURE  467
  577                                0  0  0     0    0       6  1  0  3100    4       0  0  2    12    4
  580      25  1  1  4096    0       4  0  0     7    4      24  0  3     0    4      23  0  2   160    0
  584      26  0  1   577    4       0  0  0     0    0
  SECTION   468
  586                                                         7734.       0            564.6       0
  588       85572       0                7       0             6566       0                0       0
  592       6544.       0              646       0            7674.       0                5       0
  596       96669       0            67695       0            97378       0                5       0
  600       97273       0            56596       0            3654.       0            63665       0
  604       16773       0            53585       0            7554£       0            73786       0
  608       35572       0            56596       0            1654.       0            73695       0
  612       55172       0            51695       0            34.69       0            51637       0
  616       35572       0            66747       0            65769       0            67696       0
  620       46455       0              516       0            95951       0            72556       0
  624       9544.       0                5       0            3554.       0              697       0
  628       86755       0              737       0            .6656       0            72734       0
  632       65362       0            52636       0            97955       0              725       0
  636       25973       0                7       0            56554       0            67695       0
  640          7.       0            7.000       0            35871       0            5Ю005       0
  644       £6£6£       0            6£6£6       0            25553       0                7       0
  648       6654.       0            73596       0            96653       0              676       0
  652       46955       0            55547       0            27243       0            67517       0
  656       +7200       0            64695       0            23000       0            44104       0
  660       5644+       0            59735       0            36972       0              537       0
  664       97353       0            72765       0            20000       0            58557       0
  668       16973       0            72735       0            35572       0            65667       0
  672       66663       0            72676       0            36978       0            55657       0
  676       186Ю0       0                0       0
  SECTION   469
  678                                                          5.5.       0                0       0
  680       45577       0            59655       0            15965       0            53585       0
  684         3££       0            7£££0       0             3030       0            30483       0
  688       20059       0            67737       0            37454       0            65536       0
  692           0       0            55540       0
  SECTION   470
  694                                                             1       0                0       0
  696           0       0                0       0
  SECTION   471
  698                                                             1       0                0       0
  700           Ю       0                0       0               64       0                0       0
  704         3.8       0                0       0             2710       0                0       0
  708       186Ю0       0                0       0            £4240       0                0       0
  712       89680       0                9       0            5.100       0               5£       0
  716       Ю+Ю00       0              3‼9       0                1       0                0       0
  720          16       0                0       0              256       0                0       0
  724        4096       0                0       0            65536       0                0       0
  728       48576       0               10       0            77216       0              167       0
  732       35456       0             2684       0            67296       0            42949       0
  736       £££££       0            £££££       0
  SECTION   472
  738                                                             7       0            80000       0
  740           0       0               3£       0            £0000       0               7£       0
  744          80       0                0       0
  SECTION   473
  SECTION   474
  746                                                      0    604   3       20   3  0  0  1  4   0
  748    0    622   3        1   3  0  0  0  1   0         0   3200   3     1057   3  0  4  2  1   0
  752    0    608   3       53   3  0  0  3  5   0         0   3202   3     4898   0  1  3  2  2   0
  756    0    610   3      117   3  0  0  7  5   0         0    612   3       37   3  0  0  2  5   0
  760    0   3204   3     4898   0  1  3  2  2   0         0    640   3      101   3  0  0  6  5   1
  764    0   3216   3        5   0  0  0  0  5   0         0   3215   3        5   0  0  0  0  5   0
  768    0   3212   3        5   0  0  0  0  5   0         0   3214   3        5   0  0  0  0  5   1
  SECTION   475
  772    0    608   3       20   3  0  0  1  4   0         0    624   3      547   3  0  2  2  3   0
  776    0    626   3      356   3  0  1  6  4   0         0    628   3      292   3  0  1  2  4   0
  780    0    668   3      101   3  0  0  6  5   0         0    602   3       37   3  0  0  2  5   0
  784    0    614   3      101   3  0  0  6  5   0         0    616   3        5   3  0  0  0  5   0
  788    0    632   3       69   3  0  0  4  5   0         0    634   3       21   3  0  0  1  5   0
  792    0    604   3      165   3  0  0 10  5   1
  SECTION   476
  794                                                      0    634   3       53   3  0  0  3  5   0
  796    0    630   3      802   3  0  3  2  2   0         0    604   3       36   3  0  0  2  4   0
  800    0    622   3        1   3  0  0  0  1   0         0   3212   3    16421   4  4  0  2  5   0
  804    0   3213   3    16421   4  4  0  2  5   0         0   3214   3    16421   4  4  0  2  5   0
  808    0   3215   3    16421   4  4  0  2  5   0         0   3216   3    16421   4  4  0  2  5   0
  812    0   3217   3    16421   4  4  0  2  5   0         0   3218   3    16421   4  4  0  2  5   1
  816    0   3212   3        5   0  0  0  0  5   0         0   3214   3        5   3  0  0  0  5   0
  820    0   3216   3        5   3  0  0  0  5   1
  SECTION   477
  822                                                      0    586   3       69   3  0  0  4  5   0
  824    0   3212   3      547   3  0  2  2  3   0         0    592   3      372   3  0  1  7  4   0
  828    0    594   3      547   3  0  2  2  3   0         0   3214   3      547   3  0  2  2  3   0
  832    0    596   3      117   3  0  0  7  5   0         0    598   3      515   3  0  2  0  3   0
  836    0   3196   3     1057   3  0  4  2  1   0         0    674   3      117   3  0  0  7  5   0
  840    0    642   3        4   3  0  0  0  4   0         0   6698   3     1025   0  0  4  0  1   0
  844    0    642   3     1025   3  0  4  0  1   0         0   6696   3    12548   0  3  1  0  4   1
  SECTION   478
  848    0    744   3    16389   0  4  0  0  5   0         0    618   3       21   3  0  0  1  5   0
  852    0    620   3      260   3  0  1  0  4   0         0   3246   3       53   0  0  0  3  5   0
  856    0    622   3       53   3  0  0  3  5   0         0    602   3        1   3  0  0  0  1   0
  860    0   3247   3    16437   0  4  0  3  5   0         0    604   3      244   3  0  0 15  4   0
  864    0    622   3        1   3  0  0  0  1   0         0   6719   3     1057   0  0  4  2  1   0
  868    0    608   3       53   3  0  0  3  5   0         0    548   3     1057   0  0  4  2  1   0
  872    0    610   3      101   3  0  0  6  5   0         0    612   3       37   3  0  0  2  5   0
  876    0    491   3     1057   0  0  4  2  1   1
  SECTION   479
  878                                                      0   3192   3      101   3  0  0  6  5   0
  880    0    586   3    12484   0  3  0 12  4   0         0   3218   3    12756   0  3  1 13  4   0
  884    0   3220   3      691   3  0  2 11  3   0         0   3216   3    12740   0  3  1 12  4   0
  888    0   3214   3    12740   0  3  1 12  4   1         0    610   3       21   3  0  0  1  5   0
  892    0    612   3       37   3  0  0  2  5   0         0    668   3       37   3  0  0  2  5   0
  896    0    602   3       37   3  0  0  2  5   0         0    604   3      117   3  0  0  7  5   0
  900    0    634   3      101   3  0  0  6  5   1         0    586   3    20565   0  5  0  5  5   0
  904    0   3212   3    12724   0  3  1 11  4   0         0    571   3     1233   0  0  4 13  1   0
  908    0   3216   3    12660   0  3  1  7  4   1         0   3192   3        5   3  0  0  0  5   0
  912    0   3194   3        5   3  0  0  0  5   0         0   3196   3        5   3  0  0  0  5   0
  916    0   3198   3        5   3  0  0  0  5   1
  SECTION   480
  918                                                      0    586   3     4914   0  1  3  3  2   0
  920    0    642   3        1   3  0  0  0  1   0         0    587   3    12548   0  3  1  0  4   1
  924    0    656   3        5   3  0  0  0  5   0         0    658   3        5   3  0  0  0  5   1
  928    0    660   3        5   3  0  0  0  5   0         0    662   3        5   3  0  0  0  5   1
  932    0    664   3        5   3  0  0  0  5   0         0    666   3        5   3  0  0  0  5   1
  936    0    588   3    16389   0  4  0  0  5   0         0    642   3        4   3  0  0  0  4   0
  940    0    586   3     1025   0  0  4  0  1   0         0    642   3     1025   3  0  4  0  1   0
  944    0    587   3    12548   0  3  1  0  4   1
  SECTION   481
  946                                                      0   3260   3        5   0  0  0  0  5   0
  948    0    738   3        5   0  0  0  0  5   0         0   3246   3        5   0  0  0  0  5   0
  952    0   3247   3        5   0  0  0  0  5   0         0    604   3        5   3  0  0  0  5   1
  956    0    604   3        5   3  0  0  0  5   0         0   3260   3    16437   0  4  0  3  5   1
  960    0   3192   3        5   3  0  0  0  5   0         0   3194   3       20   3  0  0  1  4   0
  964    0   3200   3        5   3  0  0  0  5   0         0   3196   3        5   3  0  0  0  5   0
  968    0   3198   3        5   3  0  0  0  5   0         0   3202   3        5   3  0  0  0  5   1
  SECTION   482
  972           0       0                0       0                0       0            4£000       0
  976          30       0                0       0               30       0                0       0
  980          30       0                0       0               30       0                0       0
  984          30       0                0       0               30       0                0       0
  988          30       0                0       0
 PROCEDURE  483
  990                                                        24  0  2  2144    4      24  1  2    15    4
  992      28  1  2     0    0       0  1  0  3044    4       0  0  3     0    4      24  1  2    15    4
  996      24  0  2     0    0      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1280
 1000       0  1  1  3044    4       6  1  0  3064    4      24  1  2    15    4      28  1  1     0    0
 1004       6  1  0  3106    4      28  1  1  3384    4       6  1  0  3094    4       2  1  0  8102    4
 1008      26  1  2  3098    4      26  0  0  1862    4      24  1  2    21    4      24  0  2     4    0
 1012      18  1  1  4123    0       1  1  3     8    0      18  1  1     5    0      28  1  1  3192    4
 1016      24  0  3     1    4       2  0  0    84    0       6  1  0  3192    4      18  1  1  4126    0
 1020       5  1  0  2008    4      27  0  0  1033    4       6  1  0  3108    4       4  0  0  6785    4
 1024       3  1  0  3044    4      26  1  1  3044    4       1  1  3     8    0       0  0  2  3148    4
 1028      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512       0  0  0    43    1
 1032       0  0  0  1008    3      24  1  2    21    4       6  1  0     1    0       2  0  0  1783    4
 1036      26  1  2  3098    4      24  1  2    21    4       6  1  2     4    0      18  1  1  4126    0
 1040       5  1  0  2008    4      27  0  1  1058    4      18  1  1     2    0       1  1  2    70    0
 1044      27  0  0  1058    4       1  1  2     1    0      27  0  0  1058    4      27  0  3  1051    4
 1048       1  1  2     8    0      27  0  0  1062    4      24  1  0  1058    4      24  1  2    21    4
 1052       6  1  2     7    0       2  0  0  3384    4      24  1  2    21    4       6  1  2     9    0
 1056      24  0  1  3384    4       2  0  0  3384    4      25  0  2     8    0      24  1  0  1037    4
 1060      26  0  0  1862    4      24  1  0  1036    4       0  1  0  3044    4       0  0  3     0    4
 1064       0  1  2  3110    4       6  1  0  3072    4       4  0  0    11    4      25  1  1  4096    0
 1068      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4      26  0  0  1862    4
 1072      24  1  2    21    4       6  1  0     1    0       5  0  0  1783    4      27  0  1  1071    4
 1076      24  0  2  5476    4      18  1  1  4123    0       1  1  3   100    0      18  1  1     5    0
 1080      28  1  1  3384    4       1  1  3   204    0       2  0  0  4384    4      24  0  1  6719    4
 1084       6  0  0  4385    4      24  0  1  6719    4       2  0  0  3177    4      24  0  2  3178    4
 1088      18  1  1  4123    0       6  0  0  6719    4      18  1  1     5    0      28  0  0  4386    4
 1092      24  0  1  6719    4       6  0  0  3162    4       2  0  0  4385    4       2  0  0  6783    4
 PROCEDURE  484
 1096       6  0  0  3246    4      24  1  2    19    4       2  1  0     7    0       6  0  0  3247    4
 1100      24  1  2    19    4       2  1  0     9    0       6  1  0  2056    4      24  1  2    19    4
 1104       2  1  0     4    0      26  0  0  1960    4      26  0  0  1960    4
 PROCEDURE  485
 1107                                                                                 26  1  1  3094    4
 1108       1  1  3     1    0       2  0  0  3260    4      24  0  2  2176    4      24  1  2    19    4
 1112      28  1  2     4    0      26  0  0  1960    4      24  0  2  2186    4      24  1  2    15    4
 1116      28  1  2     2    0       1  1  3     2    0       3  0  0  3260    4      26  0  0  1897    4
 1120      26  1  2  3098    4      24  1  0  1123    4
 PROCEDURE  486
 1122                                                        26  0  0  1856    4      26  0  0  1977    4
 1124       6  1  0  3192    4      18  1  1  4126    0       5  1  0  2008    4      27  0  1  1365    4
 1128      18  1  1     2    0       1  1  2    72    0      27  0  2  1214    4       1  1  1     8    0
 1132       2  0  0  8077    4       6  1  0  3197    4       2  0  0  3267    4       6  1  0  3195    4
 1136      26  0  0  1990    4       3  0  0  3261    4       2  0  0  2074    4       0  0  3  3150    4
 PROCEDURE  487
 1140      24  0  1  8076    4      26  0  1  1141    4       0  0  0  1180    3       0  0  0  1144    3
 1144       6  1  0  3195    4      27  0  0  1122    4       6  1  0  3197    4      26  0  0  1990    4
 1148       0  0  3  3150    4       2  0  0  3280    4      24  0  2  2190    4       0  1  0  3044    4
 1152       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0       4  0  0  8102    4
 1156       2  0  0  3050    4       0  1  1  3044    4      24  0  3  3050    4      28  1  2     2    0
 1160       6  0  0  8077    4       1  1  2     6    0      27  0  1  1173    4       6  1  0  3112    4
 1164       0  1  0  3044    4       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0
 1168       4  0  0  8102    4       2  0  0  3050    4       0  1  1  3044    4      24  0  3  3050    4
 1172       2  1  0     2    0      23  0  0     4    0       0  0  0  8102    3      24  1  0  1122    4
 1176      26  0  0  1897    4       6  1  0  3094    4       2  1  0  8102    4      24  1  0  1122    4
 1180       6  1  0  8092    4       2  1  0  2038    4       6  0  0  3245    4      27  0  0  1185    4
 1184      26  0  0  1783    4       6  1  0  2038    4       2  1  0  8092    4       2  0  0  3281    4
 1188       6  0  0  8077    4       1  1  2     1    0      27  0  1  1194    4       6  1  0  2028    4
 1192       0  1  2  2030    4      24  1  0  1208    4
 PROCEDURE  488
 1194                                                         1  1  2     5    0      27  0  1  1200    4
 1196       6  1  0  3114    4      24  1  2    15    4       2  1  0     2    0      24  1  0  1212    4
 1200       1  1  2     1    0      27  0  1  1206    4       6  1  0  3092    4       2  1  0  8102    4
 1204       6  1  0  3116    4      24  1  0  1197    4       6  1  0  2032    4       0  1  2  2034    4
 1208       0  1  0  3262    4      24  0  2  2216    4      24  1  2    15    4      28  1  2     2    0
 1212      26  0  0  1897    4      24  1  0  1122    4
 PROCEDURE  489
 1214                                                        26  0  0  1856    4      26  0  0  1977    4
 1216       6  1  0  3192    4       5  1  0  2020    4      27  0  0  1859    4       6  1  0  3192    4
 1220      18  0  1  4126    0       5  1  0  2008    4      27  0  1  1214    4       6  0  0  2124    4
 1224      24  1  2    19    4       2  1  1     5    0      24  1  2    19    4       2  1  1     6    0
 1228      26  0  0  1960    4      26  1  1  3094    4       6  0  0  3245    4      27  0  0  1233    4
 1232      26  0  0  1783    4
 PROCEDURE  490
 1233                                1  1  3     0    0       2  0  0  3272    4       2  0  0  3281    4
 1236      24  0  2  2176    4      24  1  2    19    4      28  1  2     4    0       6  0  0  3260    4
 1240      26  0  0  1996    4      24  1  2    19    4       2  1  0     5    0      24  0  1  8076    4
 1244      26  0  1  1244    4       0  0  0  1250    3       0  0  0  1247    3      26  0  0  1897    4
 1248       6  1  0  3094    4       2  1  0  8102    4      24  0  2  2186    4      24  1  2    15    4
 1252      28  1  2     2    0       6  1  0  3092    4       2  1  0  8092    4       0  0  3  3153    4
 1256       1  1  3     1    0       7  0  0  3260    4       0  0  3  3150    4       6  0  0  3260    4
 1260       1  1  2     1    0       5  0  0  6719    4      27  0  1  1274    4      24  0  2  2046    4
 1264      18  1  1  4123    0       1  1  3     6    0      18  1  1     5    0      24  1  2    15    4
 1268      28  1  1    10    0       1  1  3   202    0       2  0  0  3272    4      26  0  0  1897    4
 1272      26  0  0  1960    4      24  1  0  1324    4       6  1  0  3192    4       5  1  0  2004    4
 1276      26  1  1  3068    4      27  0  0  1282    4      26  1  1  3094    4      26  0  0  1897    4
 1280      26  0  0  1960    4      24  1  0  1124    4       6  0  0  6783    4      27  0  0  1317    4
 1284      18  0  1     5    0       3  1  0  3044    4      26  1  3  3044    4       6  1  0  3118    4
 1288      24  1  2    15    4      28  1  1     2    0      26  0  0  1897    4      26  0  0  1897    4
 1292      26  0  0  1897    4       6  1  0  3120    4      24  1  2    15    4       2  1  0     4    0
 1296       6  1  0  3122    4      24  1  2    15    4       2  1  0     6    0      26  0  0  1897    4
 1300      24  0  3     1    4       6  0  3    87    0      26  0  0  1990    4       2  0  0  1990    4
 1304      24  0  3     1    4       6  0  3    86    0       2  0  0  1897    4       0  0  3  3150    4
 1308      24  0  2  2140    4      24  1  2    15    4      28  1  2     4    0      26  0  0  1897    4
 1312      25  0  3     2    0      24  1  0  1300    4      26  0  0  1897    4      26  0  0  1897    4
 1316      26  0  0  1897    4      24  0  2  3384    4      18  1  1  4123    0       1  1  3  1000    0
 1320      18  1  1     5    0      24  0  3     1    4      28  1  1  1084    0      24  1  0  2270    4
 PROCEDURE  491
 1324       1  1  3  3840    0       2  1  0  3213    4       1  1  3   202    0       2  1  0  3215    4
 1328      26  0  0  1818    4       1  1  3    20    0       2  0  0  8092    4       1  1  3     0    0
 1332       2  1  0  3213    4       2  1  0  3215    4      26  0  0  1772    4      26  0  0  1772    4
 1336      24  1  0  1223    4
 PROCEDURE  492
 1337                                0  0  0     0    0      24  1  2    19    4       2  1  2     5    0
 1340      25  0  2     2    0      24  1  0  1344    4      26  0  0  1960    4      26  1  2  3094    4
 1344      26  0  1  1337    4
 PROCEDURE  493
 1345                                0  0  0     0    0      25  0  2     2    0      24  1  0  1351    4
 1348      26  0  0  1354    4      26  0  0  1574    4      26  1  2  3094    4      24  1  2    17    4
 1352       6  1  2     5    0      26  0  1  1345    4
 PROCEDURE  494
 1354                                                         0  0  0     0    0       0  1  0  3044    4
 1356       0  0  3     0    4       0  0  2    16    4       6  1  0  3096    4       4  0  0     9    4
 1360      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4
 1364      26  0  1  1354    4
 PROCEDURE  495
 1365                               24  0  1  8077    4      26  0  1  1366    4       0  0  0  1374    3
 1368       0  0  0  1513    3       0  0  0  1633    3       0  0  0  1633    3       0  0  0  1680    3
 1372       0  0  0  1374    3       0  0  0  1706    3
 PROCEDURE  496
 1374                                                         6  1  0  3197    4      18  1  1  4126    0
 1376       2  0  0  3262    4      18  1  3     1    0       2  0  0  3268    4      18  1  3     7    0
 1380       2  1  0  3213    4       0  1  2  3199    4       6  1  0  3195    4      27  0  0  1401    4
 1384       1  1  2     1    0      27  0  0  1432    4       1  1  2     1    0      27  0  1  1399    4
 1388      15  0  0  2117    4       2  0  0  3263    4       0  0  2  3268    4      27  1  0  1394    4
 1392       4  0  0  3263    4      24  1  0  1395    4       5  0  0  3263    4      24  0  1  3262    4
 1396       5  0  0  3384    4       2  1  0  3215    4      24  1  0  1427    4       6  1  0  3195    4
 1400       2  1  0  3213    4
 PROCEDURE  497
 1401                               15  0  0  2117    4       2  0  0  3263    4       6  1  0  3199    4
 1404       2  1  0  3215    4       0  0  2  3268    4      27  1  0  1409    4       5  0  0  3263    4
 1408       2  0  0  3263    4       6  0  0  3263    4      24  0  1  3262    4       4  0  0  3384    4
 1412      27  0  3  1416    4       0  0  2  2117    4      14  1  0  3215    4      24  1  0  1427    4
 PROCEDURE  498
 1416       6  0  0  3154    4       2  1  0  3215    4       2  1  0  3213    4      26  1  3  6783    4
 1420       6  0  0  3262    4      18  0  1     5    0       4  0  0  2074    4      24  0  3     1    4
 1424       2  1  3    86    0       1  1  3     2    0       7  0  0  6783    4      26  0  0  1818    4
 1428      24  0  1  8076    4      26  0  1  1429    4       0  0  0  1472    3       0  0  0  1122    3
 PROCEDURE  499
 1432       6  0  0  2129    4      27  0  0  1445    4       0  1  0  3044    4       0  0  3     0    4
 1436       6  0  0     1    4       4  0  0  8088    4       2  0  0  3050    4       0  1  1  3044    4
 1440      24  0  3  3050    4       6  0  0    84    0      18  0  3     2    0      18  0  1  4125    0
 1444      24  1  0  1454    4       0  0  2  2128    4       0  1  0  3044    4       0  0  3     0    4
 1448       6  0  0     1    4       4  0  0  8088    4       2  0  0  3050    4       0  1  1  3044    4
 1452      24  0  3  3050    4      15  0  0    84    0      24  0  1  3262    4       4  0  0  3384    4
 1456       2  0  0  3262    4       0  1  2  3199    4      15  0  0  2118    4      27  0  3  1462    4
 1460       4  0  0  3262    4      24  1  0  1463    4       5  0  0  3262    4       2  1  0  3215    4
 1464       1  1  3     1    0       5  0  0  2129    4       3  0  0  2129    4      27  0  1  1427    4
 1468      23  0  0  4097    0       0  0  0  8088    3      24  1  0  1471    4      24  1  0  1427    4
 PROCEDURE  500
 1472       0  1  2  3215    4      18  1  1     6    0       2  0  0  3265    4      18  1  3     1    0
 1476       2  0  0  3269    4      18  1  3     2    0       2  0  0  3270    4      18  1  3    13    0
 1480       2  0  0  3268    4       6  1  0  3215    4      27  0  2  1485    4       1  1  3    16    0
 1484       7  0  0  3265    4
 PROCEDURE  501
 1485                                6  1  0  3213    4      26  0  0  1990    4       2  0  0  3216    4
 1488       6  0  0  3268    4      26  0  0  1990    4       2  1  0  3214    4       6  0  0  3265    4
 1492      26  0  0  1990    4       2  1  0  3212    4       0  0  3  3150    4      24  0  2  2228    4
 1496       0  1  0  3044    4       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0
 1500       4  0  0  8092    4       2  0  0  3050    4       0  1  1  3044    4      24  0  3  3050    4
 1504      28  1  2     4    0       1  1  3     1    0       7  0  0  3281    4       2  0  0  3245    4
 1508      23  0  0    10    0       0  0  0  8092    3      24  1  0  1122    4      26  0  0  1783    4
 1512      24  1  0  1122    4
 PROCEDURE  502
 1513                                6  1  0  3193    4      18  1  1  4126    0       2  0  0  3262    4
 1516      18  1  3     1    0       2  0  0  3265    4      18  1  3     7    0       3  1  0  3213    4
 1520       2  1  0  3217    4
 PROCEDURE  503
 1521                                6  1  0  3198    4       2  1  0  3218    4       6  1  0  3197    4
 1524      27  0  0  1545    4      24  0  1  3262    4       6  0  0  3384    4       1  0  1    15    0
 1528      15  1  0  3197    4       2  0  0  3266    4       6  1  0  3219    4      27  0  2  1534    4
 1532       5  0  0  3266    4      24  1  0  1535    4       4  0  0  3266    4       2  1  0  3219    4
 1536       0  0  2  3265    4      27  1  0  1546    4       5  1  0  3219    4      27  0  0  1543    4
 1540       2  1  0  3219    4       2  0  0  3265    4      24  1  0  1546    4       2  0  0  3265    4
 1544       6  0  0  2122    4       2  1  0  3217    4      24  0  1  3262    4       6  0  0  3384    4
 1548       4  1  0  3195    4       2  1  0  3215    4       6  0  0  3265    4      27  0  0  1554    4
 1552       6  0  0  2122    4       2  1  0  3217    4      26  0  0  1818    4       6  1  0  3213    4
 1556      26  0  0  1990    4       2  0  0  3266    4       0  1  2  3215    4      18  1  1     6    0
 1560       1  1  3     0    0      18  1  1     4    0      26  0  0  1990    4       2  0  0  3274    4
 1564       0  0  3  3150    4       1  0  1    16    0      15  1  0  3215    4       7  0  0  3266    4
 1568       6  1  0  3216    4       2  1  0  3212    4       6  1  0  3218    4       2  1  0  3214    4
 1572      26  0  0  1818    4      24  1  0  1584    4
 PROCEDURE  504
 1574                                                         0  0  0     0    0      24  1  2    17    4
 1576      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0
 1580      24  1  2    19    4      28  1  1     4    0      26  0  0  1960    4      26  0  1  1574    4
 PROCEDURE  505
 1584       1  0  1    15    0      24  0  1  8076    4      26  0  1  1586    4       0  0  0  1589    3
 1588       0  0  0  1122    3      15  1  0  3215    4      26  0  0  1990    4       0  0  3  3150    4
 1592       2  0  0  2038    4       2  0  0  3234    4       6  1  0  3215    4      27  0  3  1599    4
 1596       6  1  0  3213    4      18  0  1  4125    0      27  0  0  1601    4       1  1  3     1    0
 1600       2  0  0  3234    4      26  1  3  3124    4       0  1  2  3215    4      18  1  1     6    0
 1604       2  0  3  3212    4      18  1  1     1    0      25  0  3     1    0      24  1  0  1604    4
 1608      26  1  3  3124    4       6  0  3  3212    4      26  0  0  1990    4       2  0  3  3212    4
 1612      25  0  3     1    0      24  1  0  1609    4       0  0  3  3150    4      24  0  2  2196    4
 1616       0  1  0  3044    4       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0
 1620       4  0  0  8092    4       2  0  0  3050    4       0  1  1  3044    4      24  0  3  3050    4
 1624      28  1  2     4    0       1  1  3     2    0       7  0  0  3281    4       2  0  0  3245    4
 1628      23  0  0    20    0       0  0  0  8092    3      24  1  0  1122    4      26  0  0  1783    4
 1632      24  1  0  1122    4
 PROCEDURE  506
 1633                                6  1  0  3100    4       2  1  0  8096    4      24  0  1  8096    4
 1636       6  1  0  3193    4      18  1  1  4126    0       2  0  0  3262    4      18  1  1     2    0
 1640       2  1  0  3213    4       0  0  2  2125    4      15  1  0  3213    4      27  0  0  1646    4
 1644       6  0  0  2122    4       2  1  0  3213    4      24  0  1  8096    4       6  1  0  3195    4
 1648      27  0  2  1652    4      24  0  1  3262    4       5  0  0  3384    4      24  1  0  1654    4
 1652      24  0  1  3262    4       4  0  0  3384    4       2  1  0  3215    4      26  0  0  1818    4
 1656       6  1  0  3215    4      24  0  1  8096    4       2  0  0  3216    4       6  1  0  3213    4
 1660      24  0  1  8096    4       2  0  0  3218    4      23  0  0     4    0       0  0  0  8096    3
 1664      24  1  0  1635    4      24  0  1  8076    4      26  0  1  1666    4       0  0  0  1669    3
 1668       0  0  0  1122    3      24  0  2  2160    4       0  1  0  3044    4       0  0  3     0    4
 1672      24  1  2    15    4      24  0  2     0    0       4  0  0  8092    4       2  0  0  3050    4
 1676       0  1  1  3044    4      24  0  3  3050    4      28  1  2     4    0      24  1  0  1625    4
 PROCEDURE  507
 1680       6  1  0  3100    4       2  1  0  8096    4       1  1  3     0    0       2  1  0  3213    4
 1684      24  0  1  8096    4       6  1  0  3192    4       2  1  0  3214    4      26  0  0  1818    4
 1688      23  0  0     2    0       0  0  0  8096    3      24  1  0  1684    4      24  0  1  8076    4
 1692      26  0  1  1692    4       0  0  0  1695    3       0  0  0  1122    3       6  1  0  3100    4
 1696       2  1  0  8096    4      24  0  1  8096    4       6  1  0  3193    4       2  0  0  3216    4
 1700       2  0  0  3218    4      26  0  0  1753    4      23  0  0     2    0       0  0  0  8096    3
 1704      24  1  0  1697    4      24  1  0  1122    4
 PROCEDURE  508
 1706                                                         6  1  0  3192    4       5  1  0  2024    4
 1708      27  0  1  1747    4       6  1  0  3197    4       2  0  0  3262    4       6  1  0  3199    4
 1712      24  0  0  3262    4       4  0  0  3384    4       5  0  0  3267    4       3  1  0  3215    4
 1716       7  0  0  3267    4       1  1  3  3840    0       2  1  0  3213    4      26  0  0  1818    4
 1720      24  0  1  8076    4      26  0  1  1721    4       0  0  0  1724    3       0  0  0  1122    3
 1724       6  1  0  3213    4       2  0  0  3218    4       6  1  0  3215    4       2  0  0  3216    4
 1728       1  1  3     1    0       2  0  0  3245    4      24  0  2  2156    4       0  1  0  3044    4
 1732       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0       4  0  0  8102    4
 1736       2  0  0  3050    4       0  1  1  3044    4      24  0  3  3050    4      28  1  2     4    0
 1740      23  0  0    10    0       0  0  0  8102    3      24  1  0  1122    4      26  0  0  1897    4
 1744       6  1  0  3092    4       2  1  0  8102    4      24  1  0  1122    4       1  1  3     1    0
 1748       7  0  0  3267    4       6  1  0  3199    4       2  1  0  3215    4       6  1  0  3197    4
 1752      24  1  0  1718    4
 PROCEDURE  509
 1753                                0  0  0     0    0       1  1  3     1    0       7  0  0  3281    4
 1756       2  0  0  3245    4      24  0  2  2156    4       0  1  0  3044    4       0  0  3     0    4
 1760      24  1  2    15    4      24  0  2     0    0       4  0  0  8092    4       2  0  0  3050    4
 1764       0  1  1  3044    4      24  0  3  3050    4      28  1  2     4    0      23  0  0    10    0
 1768       0  0  0  8092    3      24  1  0  1771    4      26  0  0  1783    4      26  0  1  1753    4
 PROCEDURE  510
 1772       0  0  0     0    0      26  0  0  1818    4       6  1  0  3215    4       2  0  0  3216    4
 1776       2  0  0  3218    4      24  0  1  8076    4      26  0  1  1778    4       0  0  0  1781    3
 1780       0  0  0  1782    3      26  0  0  1753    4      26  0  1  1772    4
 PROCEDURE  511
 1783                                                                                  0  0  0     0    0
 1784       6  0  0  3272    4      26  0  0  1990    4       2  0  0  2040    4      24  0  2  2226    4
 1788      24  1  2    15    4      28  1  2     2    0      26  0  0  1897    4       0  0  3  3150    4
 1792       6  0  0  3281    4       7  0  0  3272    4       1  1  3     0    0       2  0  0  3281    4
 1796       6  1  0  3092    4       2  1  0  8092    4      26  0  1  1783    4       0  0  0     0    0
  SECTION   512
 1800           0       0                0       0                0       0            4£000       0
 1804           0       0                0       0                0       0                0       0
 1808           0       0                0       0                0       0                0       0
 1812           0       0                0       0                0       0                0       0
 1816           0       0                0       0
 PROCEDURE  513
 1818                                                         0  0  0     0    0       6  1  0  3212    4
 1820      24  1  2    19    4       2  1  1     4    0       6  1  0  3214    4      24  1  2    19    4
 1824       2  1  1     6    0      25  0  1     4    0      24  1  0  1829    4      26  0  0  1960    4
 1828      26  1  1  3094    4      26  0  1  1818    4
 PROCEDURE  514
 1830                                                         0  0  0     0    0       0  1  0  3044    4
 1832       0  0  3     0    4       0  0  2    18    4       6  1  0  3096    4       4  0  0    10    4
 1836      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4
 1840      26  0  1  1830    4
 PROCEDURE  515
 1841                                0  0  0     0    0      26  0  0  1830    4      24  1  2    19    4
 1844       6  1  0     4    0       5  1  0  3126    4      27  0  1  1842    4       0  1  0  3044    4
 1848       0  0  3     0    4       6  1  0  3128    4       4  0  0    10    4      25  1  1  4096    0
 1852      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4      26  0  1  1841    4
 PROCEDURE  516
 1856       0  0  0     0    0      25  0  2     8    0      24  1  0  1861    4      26  0  0  1862    4
 1860      26  1  2  3098    4      26  0  1  1856    4
 PROCEDURE  517
 1862                                                         0  0  0     0    0       0  1  0  3044    4
 1864       0  0  3     0    4       0  0  2    20    4       6  1  0  3096    4       4  0  0    11    4
 1868      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4
 1872      26  0  1  1862    4
 PROCEDURE  518
 1873                                0  0  0     0    0      24  1  2    19    4      24  0  2     4    0
 1876      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0      24  1  2    21    4
 1880      28  1  1     4    0       6  1  0  2020    4      24  1  2    21    4       2  1  0    52    0
 1884       0  1  0  3044    4       0  0  3     0    4       0  0  2    20    4       6  1  0  3100    4
 1888       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1892       0  1  1  3044    4       6  1  0  3102    4      24  1  2    21    4      28  0  0     0    0
 1896      26  0  1  1873    4
 PROCEDURE  519
 1897                                0  0  0     0    0       0  0  3  3150    4       6  1  0  2020    4
 1900      24  1  2    15    4       2  1  0    50    0       1  1  3     1    0      24  1  2    15    4
 1904       2  1  0     0    0       6  0  0  6785    4      27  0  0  1916    4      24  1  2    15    4
 1908      24  0  2     0    0      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0
 1912      24  1  2    13    4      28  1  1     4    0      26  0  0  1952    4      24  1  0  1947    4
 1916       6  0  0  6784    4       1  1  2     9    0      27  0  0  1938    4       6  0  0  3152    4
 1920      24  1  2    15    4       2  0  0     1    0       6  1  0  3104    4      24  1  2    13    4
 1924      28  1  1     0    0      24  1  2    15    4      24  0  2     0    0      24  1  2    13    4
 1928      29  0  1     0    0       1  1  3     4    0      18  0  1     5    0       4  0  0     7    4
 1932       0  0  2    12    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
 1936       0  0  3  3150    4      24  1  0  1947    4      24  1  2    15    4      24  0  2     0    0
 1940      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0      24  1  2    13    4
 1944      28  1  1     0    0       1  1  3     9    0      24  1  0  1930    4       6  1  0  3064    4
 1948      24  1  2    15    4      28  0  0     0    0       2  0  0  3245    4      26  0  1  1897    4
 PROCEDURE  520
 1952       0  0  0     0    0       6  1  0  3100    4       0  0  2    12    4      25  1  1  4096    0
 1956       4  0  0     7    4      24  0  3     0    4      23  0  2   160    0      26  0  1  1952    4
 PROCEDURE  521
 1960       0  0  0     0    0       6  1  0  2020    4      24  1  2    19    4       2  1  0    52    0
 1964       0  1  0  3044    4       0  0  3     0    4       0  0  2    18    4       6  1  0  3100    4
 1968       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1972       0  1  1  3044    4       6  1  0  3102    4      24  1  2    19    4      28  0  0     0    0
 1976      26  0  1  1960    4
 PROCEDURE  522
 1977                                0  0  0     0    0      24  0  2  2168    4       0  1  0  3044    4
 1980       0  0  3     0    4      24  1  2    21    4      24  0  2     0    0      24  0  3     0    4
 1984       4  0  0     4   22       2  0  0  3050    4       0  1  1  3044    4      24  0  3  3050    4
 1988      28  0  2     4    0      26  0  1  1977    4
 PROCEDURE  523
 1990                                                         0  0  0     0    0       2  1  0  2072    4
 1992       0  0  3  3153    4      24  0  2  2096    4      12  1  0  2072    4      26  0  1  1990    4
 PROCEDURE  524
 1996       0  0  0     0    0       2  1  0  2072    4       0  0  3  3150    4      24  0  2  2076    4
 2000      12  1  0  2072    4      26  0  1  1996    4
  SECTION   525
 2002                                                         16773       0            53585       0
 2004       7554£       0            73786       0            35572       0            56596       0
 2008       86755       0              737       0            .6656       0            72734       0
 2012       65362       0            52636       0            97955       0              725       0
 2016       25973       0                7       0            56554       0            67695       0
 2020          7.       0            7.000       0            16973       0            72735       0
 2024       35572       0            65667       0            66663       0            72676       0
 2028       96653       0              676       0            46955       0            55547       0
 2032       25553       0                7       0            66500       0            73596       0
 2036       £6£6£       0            6£6£6       0                0       0                0       0
 2040           0       0                0       0                0       0                0       0
 2044       5715Ю       0              666       0
  SECTION   526
 2046                                                         36951       0            55777       0
 2048       85167       0              535       0            90000       0            73556       0
 2052         3££       0            7£££0       0             5.5.       0                0       0
 2056       56554       0            56595       0            45577       0            59655       0
 2060       15965       0            53585       0             3044       0            30483       0
 2064       96657       0              676       0            67473       0                6       0
 2068        5.5.       0                0       0
  SECTION   527
 2070                                                             1       0                0       0
 2072           0       0                0       0                0       0                0       0
  SECTION   528
 2076           1       0                0       0                Ю       0                0       0
 2080          64       0                0       0              3.8       0                0       0
 2084        2710       0                0       0            186Ю0       0                0       0
 2088       £4240       0                0       0            89680       0                9       0
 2092       5.100       0               5£       0            Ю+Ю00       0              3‼9       0
 2096           1       0                0       0               16       0                0       0
 2100         256       0                0       0             4096       0                0       0
 2104       65536       0                0       0            48576       0               10       0
 2108       77216       0              167       0            35456       0             2684       0
 2112       67296       0            42949       0            £££££       0            £££££       0
  SECTION   529
 2116           7       0             1£££       0            £.000-      0               7£       0
 2120        8000       0             6000       0             £000       0            80000       0
 2124       £0000       0               80       0            £0000-      0                £       0
 2128         3££       0                0       0               3£       0                0       0
  SECTION   530
 2132    0   3216   3        5   0  0  0  0  5   0         0   3215   3        5   0  0  0  0  5   0
 2136    0   3212   3        5   0  0  0  0  5   0         0   3214   3        5   0  0  0  0  5   1
 2140    0   1990   3     8707   0  2  2  0  3   0         0   1897   3    16421   0  4  0  2  5   1
 2144    0   2062   3        5   3  0  0  0  5   0         0   2064   3      276   3  0  1  1  4   0
 2148    0   2066   3      531   3  0  2  1  3   0         0   3246   3       37   0  0  0  2  5   0
 2152    0   3247   3    16421   0  4  0  2  5   0         0   2068   3      770   3  0  3  0  2   1
  SECTION   531
 2156    0   3216   3    16501   4  4  0  7  5   0         0   3218   3    16421   0  4  0  2  5   1
 2160    0   3216   3    16501   4  4  0  7  5   0         0   3218   3    16421   0  4  0  2  5   0
 2164    0   3220   3    16581   4  4  0 12  5   0         0   3222   3    16421   0  4  0  2  5   1
 2168    0   3192   3        5   3  0  0  0  5   0         0   3194   3        5   3  0  0  0  5   0
 2172    0   3196   3        5   3  0  0  0  5   0         0   3198   3        5   3  0  0  0  5   1
  SECTION   532
 2176    0   3260   3        5   0  0  0  0  5   0         0   2116   3        5   0  0  0  0  5   0
 2180    0   3246   3        5   0  0  0  0  5   0         0   3247   3        5   0  0  0  0  5   0
 2184    0   2002   3        5   3  0  0  0  5   1         0   2002   3        5   3  0  0  0  5   0
 2188    0   3260   3    16437   0  4  0  3  5   1         0   3261   3    12564   0  3  1  1  4   0
 2192    0   2044   3     1025   3  0  4  0  1   0         0   3280   3    12548   0  3  1  0  4   1
 2196    0   3266   3       65   0  0  0  4  1   0         0   3274   3    12596   0  3  1  3  4   0
 2200    0   3266   3     4898   0  1  3  2  2   0         0   2038   3    16453   0  4  0  4  5   0
 2204    0   3212   3     4898   0  1  3  2  2   0         0   3213   3     4882   0  1  3  1  2   0
 2208    0   3214   3     4882   0  1  3  1  2   0         0   3215   3     4882   0  1  3  1  2   0
 2212    0   3216   3     4882   0  1  3  1  2   0         0   3234   3     1073   0  0  4  3  1   1
 2216    0   3262   3        5   3  0  0  0  5   0         0   3264   3        5   3  0  0  0  5   0
 2220    0   3261   3    12564   0  3  1  1  4   1         0   3212   3        5   3  0  0  0  5   0
 2224    0   3214   3        5   3  0  0  0  5   1         0   2040   3    16389   0  4  0  0  5   1
  SECTION   533
 2228    0   3212   3     4962   0  1  3  6  2   0         0   3269   3     1057   0  0  4  2  1   0
 2232    0   3270   3     1057   0  0  4  2  1   0         0   3214   3    12580   0  3  1  2  4   0
 2236    0   3216   3    12564   0  3  1  1  4   1
 PROCEDURE  534
 2238                                                         0  1  0  3044    4       0  0  3     0    4
 2240       1  1  3     6    0       0  0  2  3148    4      25  1  1  4096    0      24  0  3     0    4
 2244      23  0  2     0 1024       0  1  1  3044    4      24  0  1  8078    4      26  0  1  2247    4
 2248       0  0  0  2238    3      24  0  1  8079    4      26  0  1  2250    4       0  0  0  2238    3
 2252      24  0  1  8080    4      26  0  1  2253    4       0  0  0  2238    3      24  0  1  8081    4
 2256      26  0  1  2256    4       0  0  0  2238    3      24  0  1  8082    4      26  0  1  2259    4
 2260       0  0  0  2238    3       0  1  0  3044    4       0  0  3     0    4       0  0  2    14    4
 2264       6  1  0  3100    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 2268      23  0  2     0  256       0  1  1  3044    4
 PROCEDURE  535
 2270                                                         6  1  0  3130    4      24  1  2    19    4
 2272      28  1  1     4    0       1  1  3    85    0      24  1  2    19    4       2  1  0     4    0
 2276      26  0  0  2540    4       6  1  0  2712    4      24  1  2    19    4       2  1  0     4    0
 2280       6  0  0  3246    4      24  1  2    19    4       2  1  0     7    0      26  0  0  2540    4
 2284       6  1  0  2722    4      24  1  2    19    4       2  1  0     6    0       6  1  0  2729    4
 2288      24  1  2    19    4       2  1  0     9    0       1  1  3     4    0      24  1  2    19    4
 2292       2  1  0    10    0       6  1  0  2728    4      24  1  2    19    4       2  1  0     4    0
 2296      26  0  0  2540    4       6  0  0  3246    4      24  1  2    19    4       3  1  0     5    0
 2300      24  1  2    19    4       2  1  0    13    0       6  0  0  3247    4      24  1  2    19    4
 2304       3  1  0     7    0      24  1  2    19    4       2  1  0    15    0       1  1  3     2    0
 2308      24  1  2    19    4       2  1  0    11    0       1  1  3     3    0      24  1  2    19    4
 2312       3  1  0    19    0       1  1  3     2    0       4  0  0  6788    4      24  1  2    19    4
 2316       2  1  0    17    0       6  1  0  2729    4      24  1  2    19    4       2  1  0    21    0
 2320      26  0  0  2540    4       0  1  0  3044    4       0  0  3     0    4       6  1  0  3132    4
 2324       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 2328       0  1  1  3044    4       6  1  0  3130    4      24  1  2    15    4      28  1  1     0    0
 2332      26  1  1  3124    4      26  0  0  2576    4      25  0  1     1    0      24  1  0  2333    4
 2336      24  0  2  2780    4      18  1  1  4123    0       1  1  3    22    0      18  1  1     5    0
 2340      24  1  2    15    4      28  1  1    10    0      26  0  0  2576    4
 PROCEDURE  536
 2343                                                                                 26  1  1  3134    4
 2344       6  0  0  6782    4      27  0  0  2348    4       6  1  0  2776    4      24  1  0  2349    4
 2348       6  1  0  2778    4      24  1  2    15    4       2  1  0    12    0      26  0  0  2980    4
 2352      25  0  1     4    0      24  1  0  2354    4       1  1  3     0    0       2  0  0  2758    4
 2356       6  0  0  8078    4      26  0  0  2966    4      26  0  0  2989    4      24  0  2  2932    4
 2360      24  1  2    15    4      28  1  2    18    0      26  0  0  2980    4      25  0  1     4    0
 2364      24  1  0  2365    4       1  1  3     0    0       2  0  0  2758    4       6  0  0  8079    4
 2368      26  0  0  2966    4      26  0  0  2989    4      26  0  0  2980    4       0  0  3  3150    4
 2372      26  0  0  2576    4      25  0  1     1    0      24  1  0  2372    4       6  0  0  3155    4
 2376       2  1  0  2742    4      24  0  2  2730    4      18  1  1  4123    0       1  1  3    14    0
 2380      18  1  1     5    0      24  1  2    15    4      28  1  1     6    0      25  1  1  4096    0
 2384      23  0  2  2386    4      24  1  0  2392    4       0  0  0     0    0      24  0  3     0    4
 2388       0  0  2   156    0      24  0  3     0    4       6  1  0   138    0      26  0  3  2386    4
 2392       2  1  0  2742    4       6  0  0  8080    4       2  0  0  2724    4      24  0  2  2896    4
 2396      24  1  2    15    4      28  1  2    20    0      26  0  0  2576    4      24  0  2  2802    4
 2400      18  1  1  4123    0       1  1  3     8    0      18  1  1     5    0      24  1  2    15    4
 2404      28  1  1    20    0      26  0  0  2576    4       6  0  0  6785    4      27  0  0  2410    4
 2408       6  1  0  3136    4      24  1  0  2413    4       6  0  0  6784    4       1  1  1    20    0
 2412      18  0  1     5    0       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4
 2416      23  0  2   160    0       0  0  3  3150    4       0  1  0  3044    4       0  0  3     0    4
 2420       0  1  2  3138    4       6  1  0  3140    4       4  0  0    10    4      25  1  1  4096    0
 2424      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4       1  1  3     1    0
 2428       2  0  0  2762    4       2  0  0  2762    4       0  1  0  3044    4       0  0  3     0    4
 2432       0  1  2  3058    4       6  1  0  3142    4       4  0  0    11    4      25  1  1  4096    0
 2436      24  0  3     0    4      23  0  2     0  256       0  0  3  3048    4       0  1  0  2756    4
 2440      24  0  2  2912    4      24  1  2    21    4      28  1  2     4    0       0  1  0  3044    4
 2444       0  0  3     0    4      24  1  2    21    4      24  0  2     4    0      25  1  1  4096    0
 2448      24  0  3     0    4      23  0  2     0 1280       0  1  1  3044    4      26  0  0  2632    4
 2452      26  0  0  2632    4      26  0  0  2656    4       1  1  3     2    0      24  1  2    19    4
 2456       2  1  0    11    0       6  1  0  2714    4      24  1  2    19    4       2  1  0    12    0
 2460      26  0  0  2632    4
 PROCEDURE  537
 2461                               26  0  0  2656    4       1  1  3     2    0       4  0  0  6788    4
 2464      24  1  2    19    4       2  1  0     9    0       6  0  0  3156    4      24  1  2    19    4
 2468       2  1  0    13    0      26  0  0  2632    4      26  0  0  2656    4      24  1  2    19    4
 2472       6  1  0     6    0       5  1  0  2722    4      27  0  0  2477    4      26  0  0  2632    4
 2476      24  1  0  2470    4      26  0  0  2632    4      26  0  0  2656    4       1  1  3     2    0
 2480       4  0  0  6788    4      24  1  2    19    4       2  1  0     9    0       6  0  0  3156    4
 2484      24  1  2    19    4       2  1  0    13    0      26  0  0  2632    4       0  1  0  3044    4
 2488       0  0  3     0    4       6  1  0  3136    4       4  0  0    11    4      25  1  1  4096    0
 2492      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4       0  1  0  3044    4
 2496       0  0  3     0    4       0  1  2  3138    4       6  1  0  3072    4       4  0  0    10    4
 2500      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4
 2504      26  1  1  3068    4       1  1  3     6    0       2  0  0  2724    4       6  0  0  6785    4
 2508      27  0  0  2515    4       6  0  0  8078    4       1  1  1     0    0      27  0  1  2517    4
 2512       6  0  0  6782    4       1  1  1     0    0      27  0  1  2517    4       6  0  0  6783    4
 2516      27  0  0  2519    4       1  1  3     7    0       2  0  0  2724    4       6  0  0  2724    4
 2520       0  0  2  3157    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512
 2524       0  0  0  2532    3       0  0  0  2536    3       0  0  0  2995    3       0  0  0  2528    3
 2528      26  0  0  2956    4      26  1  1  3144    4      24  0  3     1    4      24  1  0    43    0
 2532      26  0  0  2956    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  768
 2536      26  0  0  2956    4      26  1  1  3094    4      24  0  3     1    4      24  1  0    43    0
 PROCEDURE  538
 2540       0  0  0     0    0       6  1  0  2726    4      24  1  2    19    4       2  1  0    52    0
 2544       0  1  0  3044    4       0  0  3     0    4       0  0  2    18    4       6  1  0  3100    4
 2548       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 2552       0  1  1  3044    4       6  1  0  3102    4      24  1  2    19    4      28  1  1     0    0
 2556      26  0  1  2540    4
 PROCEDURE  539
 2557                                0  0  0     0    0       0  1  0  3044    4       0  0  3     0    4
 2560       0  1  2  3058    4       6  1  0  3060    4       4  0  0    11    4      25  1  1  4096    0
 2564      24  0  3     0    4      23  0  2     0  256       0  0  3  3048    4       0  1  0  3044    4
 2568       0  0  3     0    4       6  1  0  3128    4       4  0  0    11    4      25  1  1  4096    0
 2572      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4      26  0  1  2557    4
 PROCEDURE  540
 2576       0  0  0     0    0       0  0  3  3150    4       6  1  0  2726    4      24  1  2    15    4
 2580       2  1  0    50    0       6  0  0  2762    4      24  1  2    15    4       2  1  0     1    0
 2584       1  1  3     1    0       2  0  0  2762    4       6  0  0  6785    4      27  0  0  2597    4
 2588      24  1  2    15    4      24  0  2     0    0      18  1  1  4123    0       1  1  3    54    0
 2592      18  1  1     5    0      24  1  2    13    4      28  1  1     4    0      26  0  0  2972    4
 2596      24  1  0  2628    4       6  0  0  6784    4       1  1  2     9    0      27  0  0  2619    4
 2600       6  0  0  3152    4      24  1  2    15    4       2  0  0     1    0       6  1  0  3104    4
 2604      24  1  2    13    4      28  1  1     0    0      24  1  2    15    4      24  0  2     0    0
 2608      24  1  2    13    4      29  0  1     0    0       1  1  3     4    0      18  0  1     5    0
 2612       4  0  0     7    4       0  0  2    12    4      25  1  1  4096    0      24  0  3     0    4
 2616      23  0  2   160    0       0  0  3  3150    4      24  1  0  2628    4      24  1  2    15    4
 2620      24  0  2     0    0      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0
 2624      24  1  2    13    4      28  1  1     0    0       1  1  3     9    0      24  1  0  2611    4
 2628       6  1  0  3064    4      24  1  2    15    4      28  1  1     0    0      26  0  1  2576    4
 PROCEDURE  541
 2632       0  0  0     0    0      24  1  2    19    4      24  0  2     4    0      18  1  1  4123    0
 2636       1  1  3    50    0      18  1  1     5    0      24  1  2    21    4      28  1  1     4    0
 2640       6  1  0  2726    4      24  1  2    21    4       2  1  0    52    0       0  1  0  3044    4
 2644       0  0  3     0    4       0  0  2    20    4       6  1  0  3100    4       4  0  0    11    4
 2648      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4
 2652       6  1  0  3102    4      24  1  2    21    4      28  1  1     0    0      26  0  1  2632    4
 PROCEDURE  542
 2656       0  0  0     0    0       0  1  0  3044    4       0  0  3     0    4       0  0  2    18    4
 2660       6  1  0  3096    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
 2664      23  0  2     0  256       0  1  1  3044    4      26  0  1  2656    4
 PROCEDURE  543
 2667                                                                                  0  0  0     0    0
 2668      24  0  3     5    4      26  1  2    20    0      26  0  0  2680    4      24  0  3     5    4
 2672      26  1  2    22    0      26  0  0  2680    4      24  0  3     5    4      26  1  2    24    0
 2676      25  0  2   204    0      26  0  0  2680    4      26  1  1  3068    4      26  0  3  2667    4
 PROCEDURE  544
 2680       0  0  0     0    0      23  0  3  2810    4      24  0  3     0    4      23  1  2     0    0
 2684      25  0  2     2    0      24  1  0  2682    4      26  0  1  2680    4
 PROCEDURE  545
 2687                                                                                  0  0  0     0    0
 2688      24  1  2    19    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0
 2692      18  1  1     5    0      24  1  2    21    4      28  1  1     4    0       6  1  0  2726    4
 2696      24  1  2    21    4       2  1  0    52    0       6  1  0  3064    4      24  1  2    19    4
 2700      28  1  1     4    0       0  1  0  3044    4       0  0  3     0    4       0  0  2    20    4
 2704       6  1  0  3100    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
 2708      23  0  2     0  256       0  1  1  3044    4      26  0  1  2687    4       0  0  0     0    0
  SECTION   546
 2712       56554       0            67695       0            15965       0            53585       0
 2716       55972       0            56596       0            16773       0            53585       0
 2720       36653       0            51636       0            45577       0            59655       0
 2724          30       0                0       0               7.       0            7.000       0
 2728       £6£6£       0            6£6£6       0            45500       0            64515       0
 2732        3048       0            52780       0            40059       0            30304       0
 2736       45500       0            72727       0             7255       0            45000       0
 2740       16300       0            69595       0             3030       0            44303       0
 2744          71       0                0       0            66663       0            72676       0
 2748        3044       0            30483       0            25572       0            64516       0
 2752       77800       0            53666       0            27243       0            67517       0
 2756          30       0                0       0               30       0                0       0
 2760          30       0                0       0               30       0                0       0
 2764        6664       0            67730       0            35554       0            59737       0
 2768       25172       0            54597       0            67472       0            73696       0
 2772       85569       0            66735       0                0       0            72000       0
 2776       85572       0                7       0             6566       0                0       0
 2780        5965       0                0       0            95366       0            73556       0
 2784           0       0            54550       0                0       0                0       0
 2788       95951       0            72556       0            57464       0            63006       0
 2792       97200       0            52556       0             5965       0            66560       0
 2796       95366       0            73556       0             6955       0            54550       0
 2800       97372       0            67666       0            83030       0            7Ю304       0
 2804       97272       0            30005       0             487‼       0            74550       0
 2808          7.       0            7.000       0
  SECTION   547
 2810                                                             1       0                0       0
 2812           Ю       0                0       0               64       0                0       0
 2816         3.8       0                0       0             2710       0                0       0
 2820       18600       0                0       0            £4240       0                0       0
 2824       89680       0                9       0            5.100       0               5£       0
 2828       Ю+Ю00       0              3‼9       0                1       0                0       0
 2832          16       0                0       0              256       0                0       0
 2836        4096       0                0       0            65536       0                0       0
 2840       48576       0               10       0            77216       0              167       0
 2844       35456       0             2684       0            67296       0            42949       0
 2848       £££££       0            £££££       0                1       0                0       0
 2852           +       0                0       0               78       0                0       0
 2856          £0       0                0       0              960       0                0       0
 2860        5:+0       0                0       0            3Ю980       0                0       0
 2864       49£00       0                2       0            .3600       0               16       0
 2868       .1+00       0               .4       0                1       0                0       0
 2872          14       0                0       0             1014       0                0       0
 2876       17014       0                0       0            73014       0                2       0
 2880       69014       0               43       0             5014       0              699       0
 2884       81014       0            11184       0            £££££       0            £££££       0
 2888       £££££       0            £££££       0                0       0               14       0
 PROCEDURE  548
 2892       0  0  0     0    0       6  0  0  3158    4       7  0  0  2892    4      26  0  3  2892    4
  SECTION   549
 2896    0   2044   3      274   3  0  1  1  2   0         0   2742   3     9234   2  2  4  1  2   0
 2900    0   2744   3     1025   3  0  4  0  1   0         0   2742   3     8450   0  2  1  0  2   0
 2904    0   2744   3     1025   3  0  4  0  1   0         0   2742   3     8962   0  2  3  0  2   0
 2908    0   2746   3       37   3  0  0  2  5   0         0   2724   3    20501   0  5  0  1  5   1
 2912    0   2748   3       37   3  0  0  2  5   0         0   2750   3       21   3  0  0  1  5   0
 2916    0   2754   3       21   3  0  0  1  5   0         0   2752   3       21   3  0  0  1  5   0
 2920    0   2044   3      258   3  0  1  0  2   0         0   2758   3    20501   0  5  0  1  5   0
 2924    0   2068   3      770   3  0  3  0  2   1         0   3027   3     8707   0  2  2  0  3   0
 2928    0   2687   3    16421   0  4  0  2  5   1         0   2756   3    12564   0  3  1  1  4   1
 2932    0   7344   3    20549   0  5  0  4  5   0         0   7345   3    20501   0  5  0  1  5   0
 2936    0   7346   3    20501   0  5  0  1  5   0         0   7347   3    20501   0  5  0  1  5   0
 2940    0   7348   3    20501   0  5  0  1  5   0         0   7349   3    20501   0  5  0  1  5   0
 2944    0   7350   3    20501   0  5  0  1  5   0         0   7351   3    20501   0  5  0  1  5   0
 2948    0   7352   3    20501   0  5  0  1  5   0         0   7353   3    20501   0  5  0  1  5   0
 2952    0   7354   3    20501   0  5  0  1  5   0         0   7355   3    20501   0  5  0  1  5   1
 PROCEDURE  550
 2956       0  0  0     0    0       0  1  0  3044    4       0  0  3     0    4       6  1  0  3128    4
 2960       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 2964       0  1  1  3044    4      26  0  1  2956    4
 PROCEDURE  551
 2966                                                         0  0  0     0    0       2  0  0  2956    4
 2968       0  0  3  3153    4      24  0  2  2830    4      12  0  0  2956    4      26  0  1  2966    4
 PROCEDURE  552
 2972       0  0  0     0    0       6  1  0  3100    4       0  0  2    12    4      25  1  1  4096    0
 2976       4  0  0     7    4      24  0  3     0    4      23  0  2   160    0      26  0  1  2972    4
 PROCEDURE  553
 2980       0  0  0     0    0       6  1  1  2764    4      24  1  2    15    4       2  1  0     6    0
 2984       6  1  1  2766    4      24  1  2    15    4       2  1  0     8    0      26  0  0  2576    4
 2988      26  0  1  2980    4
 PROCEDURE  554
 2989                                0  0  0     0    0       2  0  0  2756    4      24  0  2  2930    4
 2992      24  1  2    15    4      28  1  2    12    0      26  0  1  2989    4
 PROCEDURE  555
 2995                                                                                 26  0  0  2956    4
 2996      26  0  0  2892    4      26  1  1  3076    4       1  1  3    14    0      24  0  3     5    4
 3000      24  0  3    67    0      23  1  0     0    0       1  1  3     2    0       7  0  0     5    4
 3004      25  0  1     1    0      24  1  0  2998    4       1  1  3    14    0      24  0  3     5    4
 3008      23  1  0   106    0       0  1  0  3044    4       0  0  3     0    4       1  1  3     8    0
 3012       0  0  2  3149    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
 3016       0  1  1  3044    4      24  0  3     1    4      24  1  0    33    0       0  1  0  3044    4
 3020       0  0  3     0    4       1  1  3     7    0       0  0  2  3148    4      25  1  1  4096    0
 3024      24  0  3     0    4      23  0  2     0 1024       0  1  1  3044    4
 PROCEDURE  556
 3027                                                                                  0  0  0     0    0
 3028       6  1  0  3146    4      24  1  2    19    4       2  1  0    52    0       0  1  0  3044    4
 3032       0  0  3     0    4       0  0  2    18    4       6  1  0  3100    4       4  0  0    10    4
 3036      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3044    4
 3040       6  1  0  3064    4      24  1  2    19    4      28  1  1     4    0      26  0  1  3027    4
  SECTION  1023
 3044           0       0                0       0                0       0                0       0
 3048           0       0                0       0                0       0                0       0
 3052           0       0                0       0                0       0                0       0
 3056           0       0                0       0             8004       0             5146       0
 3060           0       0               11       0                0       0            20028       0
 3064           0       0            20032       0                0       0            2000.       0
 3068           0       0                0       0                6       0                Ю       0
 3072           0       0               24       0                0       0               27       0
 3076           0       0                Ю       0                0       0                .       0
 3080       36653       0            51636       0                0       0                4       0
 3084           0       0                1       0            :5:5:       0            5:5:5       0
 3088           0       0            2001£       0              9+3       0                0       0
 3092           0       0               28       0                0       0               30       0
 3096           0       0                7       0                0       0               90       0
 3100           0       0                8       0                0       0            20034       0
 3104           0       0            20180       0                0       0            20438       0
 3108           0       0                9       0            £££££       0                4       0
 3112       37354       0                5       0            57354       0            53666       0
 3116       37455       0            75516       0                0       0            2002.       0
 3120       60000       0            69555       0            65369       0            67696       0
 3124           0       0                5       0            55972       0            56596       0
 3128           0       0               1‼       0                0       0            20030       0
 3132           0       0               22       0                0       0                :       0
 3136           0       0               1+       0                3       0                Ю       0
 3140           0       0               23       0                0       0               12       0
 3144           2       0               30       0               7.       0            7.000       0
  SECTION  1024
 3148           2       0                1       0                0       0             2001       0
 3152       80000       0            66666       0            78000-      0               30       0
 3156       £££££       0                4       0            £0000       0                3       0
  SECTION  1025
 PROCEDURE 1006
CHAPT       7
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  557
   33                                0  0  0     0    0
  SECTION  1026
   34                                                             0       0                0       0
   36           0       0                0       0                0       0                0       0
   40           0       0                0       0                0       0                0       0
   44           0       0                0       0                0       0                0       0
   48        8004       0             5146       0
  SECTION  1027
  SECTION  1028
 PROCEDURE 1007
CHAPT       8
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  558
   33                                0  0  0     0    0
  SECTION  1029
   34                                                             0       0                0       0
   36           0       0                0       0                0       0                0       0
   40           0       0                0       0                0       0                0       0
   44           0       0                0       0                0       0                0       0
   48        8004       0             5146       0
  SECTION  1030
  SECTION  1031
 PROCEDURE 1008
CHAPT       9
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    2      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    2
 PROCEDURE  559
   33                                0  0  3   194    2      25  1  1  4096    0      23  0  2    36    2
   36      23  0  2    36    2      23  0  3     0    2       1  1  2     1    0      27  0  1   150    2
   40      24  1  0    82    2      24  1  0    47    2      24  1  0    45    2      24  1  0    45    2
   44      24  1  0    45    2       1  1  3    10    0      24  1  0    94    2      26  1  0    11    0
   48      24  1  0    54    2      24  1  0    52    2      24  1  0    52    2      24  1  0    52    2
   52       1  1  3    11    0      24  1  0    94    2      26  1  0    18    0      24  1  0    61    2
   56      24  1  0    59    2      24  1  0    59    2      24  1  0    59    2       1  1  3    18    0
   60      24  1  0    94    2      26  1  0    34    0      24  1  0    68    2      24  1  0    66    2
   64      24  1  0    66    2      24  1  0    66    2       1  1  3    34    0      24  1  0    94    2
   68      26  1  0    42    0      24  1  0    75    2      24  1  0    73    2      24  1  0    73    2
   72      24  1  0    73    2       1  1  3    42    0      24  1  0    94    2      26  1  0    50    0
   76      24  1  0    82    2      24  1  0    80    2      24  1  0    80    2      24  1  0    80    2
   80       1  1  3    50    0      24  1  0    94    2      26  1  0    58    0      24  1  0   142    2
   84      24  1  0    87    2      24  1  0    87    2      24  1  0    87    2      26  1  0    63    0
   88      24  1  0    93    2      24  1  0   142    2      24  1  0   142    2      24  1  0   142    2
   92      24  1  0   142    2       1  1  3    58    0       2  0  0    34    2
 PROCEDURE  560
   95                                                                                  6  0  0   141    2
   96      24  0  3     0    2       1  1  2  3964    0      24  0  3     0    2      24  0  3     3    0
  100       3  0  0    22    0       3  0  0     3    2       1  1  1  2091    0       2  0  0    33    2
  104      24  0  1     3    2       1  1  3     0    0       2  0  0     4    2      24  0  2     0    2
  108       4  1  0   192    2      24  0  3     3    2      28  0  0     0    0       0  1  0   178    2
  112       0  0  3     0    2       1  1  3     9    0       0  0  2   195    2      25  1  1  4096    0
  116      24  0  3     0    2      23  0  2     0 1024       0  1  1   178    2
 PROCEDURE  561
  119                                                                                 25  1  1  4096    0
  120      23  0  2   121    2       0  0  0     0    0      24  0  3     0    2      24  0  3     2    0
  124      24  0  3     6    0       6  0  0     2    0       5  0  0   139    2       4  0  0    34    2
  128      27  0  0   137    2       1  1  3   248    0      18  1  0  4118    0      24  0  3     5    2
  132      24  0  3    32    0      15  0  0    24    0      18  1  0  4118    0       6  0  0    34    2
  136      26  0  1    33    2      25  1  0  4096    0      24  1  0   119    2      26  1  0     0    0
 PROCEDURE  562
  140       0  0  1  4096    0       0  0  1  8190    0       0  1  0   178    2       0  0  3     0    2
  144      24  0  2   160    2      25  1  1  4096    0      24  0  3     0    2      23  0  2     0 1280
  148       0  1  1   178    2      24  1  0    33    2       0  1  0   178    2       0  0  3     0    2
  152      24  0  2   168    2      25  1  1  4096    0      24  0  3     0    2      23  0  2     0 1280
  156       0  1  1   178    2      25  1  1  4096    0      24  0  3     0    2      26  0  2     0  768
  SECTION   563
  160       86755       0            6£737       0            97355       0            76695       0
  164       36366       0            69005       0            45.5.       0            72555       0
  168       60065       0            6£546       0             7359       0            66730       0
  172       25851       0            64557       0             3049       0            69550       0
  176        5.5.       0            30303       0
  SECTION  1032
  178                                                             0       0                0       0
  180           0       0                0       0                0       0                0       0
  184           0       0                0       0                0       0                0       0
  188           0       0                0       0                0       0                0       0
  192           0       0               16       0
  SECTION  1033
  194                                                             0       0                2       0
  196           0       0             2001       0
  SECTION  1034
 PROCEDURE 1009
CHAPT      10
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0   11
   12       0  0  0     0   12       0  0  0     0   13       0  0  0     0   14       0  0  0     0   15
   16       0  0  0     0   16       0  0  0     0   17       0  0  0     0   18       0  0  0     0   19
   20       0  0  0     0   20       0  0  0     0   21       0  0  0     0   22       0  0  0     0   23
   24       0  0  0     0   24       0  0  0     0   25       0  0  0     0    0      25  1  1  4096    0
   28      24  0  3     0    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4       0  0  0     0    0
  SECTION   564
   34                                                             0       0                0       0
   36           0       0                0       0                0       0                0       0
   40           0       0                0       0                0       0                0       0
  SECTION   565
   44           0       0               18       0               19       0                0       0
   48           0       0                0       0                0       0                0       0
   52           0       0                0       0                0       0                0       0
  SECTION   566
   56           0       0                0       0            66666       0                0       0
   60        .000       0                0       0                0       0             4000       0
   64           0       0                0       0             2000       0                0       0
   68           0       0             3+00       0
 PROCEDURE  567
   70                                                         0  0  1  3259    4       0  0  0   704    0
   72       0  0  1  2939    4       0  0  0  1024    0      14  0  1  2934    4       2  0  0     1    0
   76      26  0  1    30    0
 PROCEDURE  568
   77                                0  0  0     0    0      25  1  1  4096    0      24  0  2    81    4
   80       2  0  1    30    0      26  0  3    82    4      15  0  1    83    4      25  1  1  4096    0
   84      26  0  1    77    4
 PROCEDURE  569
   85                                0  0  0     0    0       0  0  3    58    4       1  0  1     3    0
   88       1  1  3     1    0      15  1  0    57    4       0  0  3    59    4      14  1  0     3    4
   92       1  0  1    15    0       6  1  0     2    4      14  1  0    56    4      26  0  1    85    4
 PROCEDURE  570
   96       0  0  0     0    0      24  0  3    53    4      19  0  1     0    0      26  0  0    85    4
  100      24  0  3    53    4      26  1  0     0    0       0  0  0   259    0      24  1  0   100    4
  104      24  1  0   112    4      24  1  0   106    4      24  0  3    53    4      24  0  3    64    0
  108       6  1  0     1    0       5  1  0    57    4      27  0  1   117    4      26  0  1    96    4
  112       0  0  0   261    0      24  0  3    53    4      19  1  2     0    0       0  0  0   261    0
  116      24  1  0   115    4       0  0  0   270    0      24  0  3    53    4      19  1  2     0    0
  120       0  0  0   270    0      24  1  0   120    4
 PROCEDURE  571
  122                                                         0  0  0     0    0      25  1  1  8191    0
  124      25  1  0   127    0       0  0  3    59    4      24  1  1    59    4      26  1  1    60    4
  128       6  0  0    76    4       2  0  1     9    0      26  0  0    77    4
 PROCEDURE  572
  131                                                                                 26  1  2    62    4
  132       6  0  0    60    4       7  0  1     4    0       7  0  1     5    0       1  1  3    14    0
  136      23  1  2     0    0      25  0  2     2    0      24  1  0   136    4      25  1  2     0    0
  140       2  0  1     1    0       6  1  0    74    4      28  0  0     0    4       6  0  1     1    0
  144       3  0  0    54    4      27  0  0   149    4      25  1  2     0    0      23  1  1     0    0
  148      23  1  1    32    0       1  1  3    15    0      23  1  0  3964    4      23  1  1   140    0
  152      23  1  1   142    0      23  1  1   144    0      23  1  1   146    0      23  1  1   148    0
  156      23  1  1   150    0      23  1  1   152    0      26  0  1   122    4
 PROCEDURE  573
  159                                                                                  0  0  1   204    4
  160      26  0  0    96    4       6  1  0    72    4      24  0  3    59    4      24  0  3     4    0
  164      28  1  0     0    0       6  0  1   129    0       2  0  0    53    4      25  0  2   512    0
  168      24  1  0   160    4      26  0  1   159    4
 PROCEDURE  574
  170                                                        26  0  0   122    4       6  0  1   129    0
  172       2  0  0    53    4       6  0  0    42    4      18  0  0  4127    0       4  0  0    37    4
  176       2  0  1   153    0       1  0  1     3    0       6  0  0    35    4      14  0  1   144    0
  180      14  0  1   145    0       1  1  1    64    0      14  0  1   143    0
 PROCEDURE  575
  183                                                                                 24  0  3    53    4
  184      24  0  3    64    0       6  1  0     0    0       2  1  0    56    4       6  0  0    74    4
  188      24  0  3    53    4       2  0  0    64    0      26  1  2    64    4
 PROCEDURE  576
  191                                                                                 26  0  0    96    4
  192       6  1  0    70    4      24  0  3    59    4      28  1  0   160    0      25  0  2   512    0
  196       6  0  0    74    4      24  0  3    53    4       2  0  0    64    0      26  0  0   159    4
  200      26  1  2    66    4      26  0  0   159    4      26  1  2    68    4      26  0  0   159    4
 PROCEDURE  577
  204       6  1  0  2574    4      28  0  0    44    4       6  1  0  2556    4      28  0  0  2130    4
  208       2  0  1     1    0       6  1  0    74    4      28  0  0     0    4       6  0  1     1    0
  212       3  0  0    54    4      27  0  0   218    4       6  0  0  2178    4       2  0  0  2175    4
  216       6  0  0  2180    4      24  1  0   221    4       6  0  0  2179    4       2  0  0  2175    4
  220       6  0  0  2181    4       2  0  0  2177    4
 PROCEDURE  578
  222                                                        25  1  2  4095    0       1  1  2  3072    0
  224      27  0  1   233    4      25  1  1  4095    0      25  1  2  4095    0      27  0  0   226    4
  228      25  1  2  4032    0      27  0  1   225    4      25  1  2    63    0       3  0  0    34    4
  232       2  0  0    44    4      25  1  1  4032    0      25  1  0   127    0       6  0  0    44    4
  236       1  1  2    46    0      27  0  2   243    4       1  1  1    32    0      27  0  2   242    4
  240       1  1  3     1    0      24  1  0   243    4       1  1  2    38    0       2  0  0  2148    4
  244       6  0  0  2119    4      24  0  3    44    4       2  0  0    64    0       2  1  1   154    0
  248       6  0  0  2122    4       3  0  1     1    0       3  0  1    17    0       2  0  1    25    0
  252      24  0  2  2078    4       2  0  1    31    0       6  0  0  2149    4      27  0  0   258    4
  256      26  0  0  1465    4      24  1  0   384    4
 PROCEDURE  579
  258                                                         6  0  0  2135    4      27  0  0   261    4
  260      26  0  0  1865    4       6  0  0  2128    4       2  0  1    30    0      25  1  0  4096    0
  264       6  0  0  2148    4      27  0  1   268    4       6  1  0  2428    4      24  1  0   269    4
  268       6  1  0  2426    4       2  1  1   154    0      24  0  3    44    4      19  0  0     0    0
  272      26  1  3    62    4      25  0  3     1    0      24  1  0   273    4      26  0  0  1811    4
  276      24  0  2  2302    4      26  0  0  1937    4      24  1  0   260    4      26  0  0    77    4
  280      26  0  0  1817    4       6  1  0  2424    4      24  0  3  2490    4       2  1  0     0    0
 PROCEDURE  580
  284       6  0  0    48    4      27  0  0   296    4      26  0  0  2010    4       6  0  1   156    0
  288      27  0  1   294    4      26  0  0  2018    4      24  1  0   287    4      24  0  2  2278    4
  292      26  0  0  1937    4      24  1  0   289    4       6  1  0  2616    4      24  1  0   297    4
  296       6  1  0  2618    4       3  1  0  2606    4       2  1  0  2612    4
 PROCEDURE  581
  299                                                                                  6  0  0    49    4
  300      27  0  0   309    4      26  0  0  2005    4       6  0  1   157    0      27  0  1   309    4
  304      26  0  0  2018    4      24  1  0   302    4      24  0  2  2382    4      26  0  0  1937    4
  308      24  1  0   304    4
 PROCEDURE  582
  309                                6  0  0    54    4      27  0  1   321    4      26  0  0  2005    4
  312      24  0  2   320    4       2  0  1    31    0       0  0  1    59    4      26  0  0  2018    4
  316      24  1  0   314    4      24  0  2  2388    4      26  0  0  1937    4      24  1  0   315    4
  320      26  0  0    77    4
 PROCEDURE  583
  321                                6  0  0    50    4      27  0  0   336    4      26  0  0  2005    4
  324      24  0  2   335    4       2  0  1    31    0       2  1  1     6    0      26  0  2   328    4
  328       0  0  0     0    0      15  1  3  3965    4      26  0  0  2018    4      24  1  0   327    4
  332      24  0  2  2326    4      26  0  0  1937    4      24  1  0   330    4      26  0  0    77    4
 PROCEDURE  584
  336      26  0  0  2005    4      24  0  2   347    4       2  0  1    31    0       0  0  3  2190    4
  340       1  1  1     1    0       0  0  3  2930    4      26  0  0  2018    4      24  1  0   337    4
  344      24  0  2  2364    4      26  0  0  1937    4      24  1  0   342    4       0  0  3  2930    4
  348      26  0  0    77    4      24  0  2  2078    4       2  0  1    31    0
 PROCEDURE  585
  351                                                                                 25  1  1  2047    0
  352      25  1  0   128    0      26  0  0  1805    4       2  1  1   156    0      24  0  2  2420    4
  356      26  0  0  1937    4      24  0  2  2626    4      24  0  3  2490    4      28  1  2     4    0
 PROCEDURE  586
  360      25  1  2    15    0      27  0  1   363    4      26  0  0  1865    4       3  0  0   394    4
  364       3  0  0   404    4      18  0  0     1    0       3  0  0  2359    4       3  0  0  2363    4
  368      25  1  2  1919    0      25  1  1  2047    0       1  1  2     5    0      27  0  3   388    4
  372       1  1  2    11    0      27  0  2   379    4       1  1  1     2    0      27  0  2   388    4
  376       1  1  3     5    0       2  0  0   394    4      24  1  0   388    4      25  1  0   128    0
  380      26  0  0  1811    4      24  0  2  2360    4      26  0  0  1937    4      24  1  0   362    4
  384       1  1  3     1    0       2  0  0  2132    4      25  1  0   127    0      24  1  0   415    4
 PROCEDURE  587
  388      26  0  0  1805    4      24  0  2  2356    4      26  0  0  1937    4      25  1  2     0    0
  392      24  0  1   394    4      24  1  0   394    4       0  0  0     0    0      24  1  0  1158    4
  396      24  1  0   386    4      24  1  0  1159    4      24  1  0   384    4       6  0  0   404    4
  400       1  1  2     4    0       2  0  1   180    0      24  1  0   351    4       0  0  0     0    0
  404       0  0  0     0    0       1  1  3   492    0       7  0  0    19    0      24  1  0     0    0
  408      24  0  2  1158    4      27  0  1   411    4      24  0  2   386    4       0  0  2   414    4
  412      14  0  0   407    4      24  1  0   405    4       0  0  0  8191    0
 PROCEDURE  588
  415                                                                                  6  0  0    53    4
  416       1  1  1     1    0       3  0  0  2153    4       1  1  1     1    0       3  0  0  2154    4
  420       1  1  1     1    0       2  0  0  2155    4       6  0  0    74    4      24  0  3  2153    4
  424       3  0  0    64    0      24  0  3  2154    4       3  0  0    64    0      24  0  3  2155    4
  428       3  0  0    64    0      24  0  3    45    4       3  0  0    64    0      24  0  3    46    4
  432       2  0  0    64    0
 PROCEDURE  589
  433                                6  0  0    45    4      26  0  0  1422    4       2  1  0  2934    4
  436      26  0  0  1434    4      25  1  0     0    0      26  0  0  1485    4       6  0  0  2149    4
  440      27  0  1   444    4       6  1  0  2934    4       5  1  0  2444    4      27  0  0   506    4
  444       6  1  0  2934    4       5  1  0  2422    4      27  0  0   454    4      26  0  0  1405    4
  448       6  1  0  2934    4       2  1  0  2350    4      24  0  2  2350    4      26  0  0  1937    4
  452      26  0  0  1481    4      24  1  0   436    4
 PROCEDURE  590
  454                                                         2  0  0  2149    4       6  1  0  2558    4
  456      28  0  0  2224    4      24  0  2  2620    4      28  0  3  2934    4      26  1  2  2156    4
  460      25  1  2     0    0       0  0  2  2206    4      15  0  2  2224    4      27  0  1   500    4
  464      24  0  2  2256    4      12  0  2  2224    4       2  0  2    34    4      25  0  2     1    0
  468      24  1  0   461    4       6  0  0  2227    4      27  0  0   500    4       1  1  2     9    0
  472      27  0  2   500    4       6  0  0  2232    4      27  0  0   480    4       1  1  2     5    0
  476      27  0  2   500    4       6  0  0  2227    4       1  1  2     5    0      27  0  2   500    4
  480       6  0  0  2227    4      18  0  0     3    0      18  0  3     1    0       2  0  0    37    4
  484       6  0  0  2232    4      18  0  0     3    0      18  0  3     1    0       2  0  0    42    4
 PROCEDURE  591
  488      26  1  2  2158    4       6  0  2  2228    4      27  0  0   492    4       1  1  3     1    0
  492       2  0  2    38    4      25  0  2     1    0      24  1  0   489    4      26  0  0  1805    4
  496      24  0  2  2680    4      24  0  3  2490    4      28  1  2     2    0      24  1  0   452    4
 PROCEDURE  592
  500      26  0  0  1805    4       6  0  2  2210    4       2  0  0  2274    4      24  0  2  2272    4
  504       3  0  0  2149    4      24  1  0   451    4
 PROCEDURE  593
  506                                                         6  1  0  2937    4      26  0  0  1942    4
  508      24  1  0   452    4      26  0  0  1485    4       6  1  0  2938    4      18  0  0  4120    0
  512       1  1  2   126    0      27  0  1   515    4       2  1  0  2938    4       6  1  0  2935    4
  516      27  0  0   527    4       5  0  0  2150    4      27  0  1   525    4       6  1  0  2937    4
  520       5  0  0  2151    4      27  0  1   525    4       6  1  0  2939    4       5  0  0  2152    4
  524      27  0  0   538    4       6  1  0  2939    4      27  0  0   534    4      26  0  0  1805    4
  528      24  0  2  2372    4      26  0  0  1937    4      24  0  2  2634    4      24  0  3  2490    4
  532      28  1  2     6    0      24  1  0   452    4       1  1  3     1    0       2  0  0  2134    4
  536       6  1  0  2578    4      28  1  0  2150    4
 PROCEDURE  594
  538                                                        26  0  0  1485    4       6  1  0  2576    4
  540      28  1  0  2141    4      26  1  2  2160    4       6  0  2  2141    4       5  0  0  2207    4
  544      27  0  0   548    4      25  0  2     1    0      24  1  0   542    4      24  1  0   551    4
  548       3  0  2  2141    4      25  0  2     1    0      24  1  0   548    4
 PROCEDURE  595
  551                                                                                 26  0  0  1485    4
  552       6  1  0  2934    4       5  1  0  2446    4      27  0  0   559    4       6  1  0  2935    4
  556       2  0  0  2130    4       6  1  0  2937    4      24  1  0   564    4       1  1  3     1    0
  560       2  0  0  2133    4       6  1  0  2937    4       2  0  0  2130    4       6  1  0  2939    4
  564       3  0  0  2131    4       5  0  0  2207    4      27  0  1   568    4       2  0  0  2131    4
  568       6  0  0  2130    4       5  0  0  2207    4      27  0  1   572    4       2  1  0  2130    4
  572      26  0  0  1485    4       6  0  0  2431    4       2  0  0  2937    4      24  0  2  2624    4
  576      28  0  3  2934    4      26  0  0  1481    4       6  1  0  2132    4      27  0  1   581    4
  580      26  0  0  1465    4
 PROCEDURE  596
  581                                6  0  0  2134    4      27  0  0   749    4       6  0  0  2153    4
  584      26  0  0  1422    4       6  0  1   175    0       2  0  0  2237    4      26  0  0  1491    4
  588       6  1  0  2941    4       2  0  0  3937    4      26  0  0  1521    4       6  1  0  2949    4
  592       3  0  0  2225    4      18  0  0  4126    0       1  1  2   128    0      27  0  1   600    4
  596       6  1  0  2940    4      18  0  0  4126    0       1  1  2    81    0      27  0  0   606    4
  600      26  0  0  1805    4      24  0  2  2702    4      24  0  3  2490    4      28  1  2     2    0
  604      26  0  0  1476    4      24  1  0   587    4      26  0  0  1783    4
 PROCEDURE  597
  607                                                                                 26  0  0  1521    4
  608       6  1  0  2940    4       5  1  0  2448    4      27  0  1   607    4      26  0  0  1521    4
  612      26  1  2  2164    4       6  1  2  2939    4       5  0  0  2190    4      27  0  1   620    4
  616      26  0  0  1805    4      24  0  2  2376    4      26  0  0  1937    4      24  1  0   604    4
  620       6  1  2  2939    4       5  0  0  2150    4      27  0  1   628    4       6  1  2  2941    4
  624       5  0  0  2151    4      27  0  1   628    4       6  1  2  2943    4      27  0  1   631    4
  628      25  0  2     8    0      24  1  0   613    4      24  1  0   611    4
 PROCEDURE  598
  631                                                                                 26  0  0  1521    4
  632       6  1  0  2939    4       5  0  0  2190    4      27  0  1   639    4       1  0  1     1    0
  636      15  0  0  2940    4       1  1  2     5    0      27  0  0   647    4       6  1  0  2944    4
  640       5  1  0  2450    4      27  0  1   631    4      26  0  0  1499    4      26  0  0  1506    4
  644       6  1  0  2935    4       2  0  0    56    4      24  1  0   632    4       6  1  0  2943    4
  648       5  0  0  2150    4      27  0  1   642    4       6  1  0  2945    4       5  0  0  2151    4
  652      27  0  1   642    4
 PROCEDURE  599
  653                               26  0  0  1521    4       6  1  0  2976    4       5  1  0  2452    4
  656      27  0  0   664    4       6  1  0  2939    4       5  0  0  2190    4      27  0  1   653    4
  660       6  1  0  2941    4       1  1  2     6    0      27  0  0   653    4      26  0  0  1521    4
 PROCEDURE  600
  664      26  1  2  2158    4       6  0  0  2881    4       2  0  0  2263    4       2  0  0  2264    4
  668       6  1  0  2959    4       4  0  0  2261    4       2  0  0  2266    4       0  0  2  2220    4
  672      15  0  0  2266    4       1  1  1   512    0       2  0  0    65    4       6  0  0  2266    4
  676       5  0  0  2881    4      27  0  3   682    4       7  0  0  2263    4       2  0  0  2264    4
  680       6  0  0    66    4       2  0  0    65    4
 PROCEDURE  601
  682                                                        26  0  0  1521    4       6  1  0  2941    4
  684       1  1  2     7    0      27  0  1   682    4       6  1  0  2946    4       5  1  0  2454    4
  688      27  0  1   682    4
 PROCEDURE  602
  689                                6  0  2  2261    4       2  0  0  2266    4      26  1  3  2164    4
  692      26  0  0  1521    4       6  0  0  2266    4       1  1  2   160    0      27  0  3   730    4
  696       6  0  0    53    4       1  1  2   128    0      27  0  3   704    4       6  0  0  2266    4
  700       1  1  2   192    0      27  0  3   704    4       1  1  2     4    0      27  0  3   730    4
  704       6  1  3  2939    4       5  0  0  2208    4      27  0  0   740    4       4  0  0  2209    4
  708      27  0  1   713    4       6  1  0  2580    4      24  0  3  2266    4      28  1  0     0    0
  712      24  1  0   730    4
 PROCEDURE  603
  713                                1  0  1     1    0      25  1  2     0    0      15  1  3  2938    4
  716       2  1  3  2938    4       6  1  3  2941    4      27  0  3   724    4      24  0  3    59    4
  720      24  0  1     6    0      24  0  1  2938    4       4  0  0  2260    4      24  1  0   728    4
  724      24  0  3    59    4      24  0  1     6    0      24  0  1  2938    4       5  0  0  2260    4
  728      24  0  3  2266    4       2  0  0     0    0
 PROCEDURE  604
  730                                                        23  0  0     1    0       0  0  0  2266    3
  732      24  1  0   737    4      26  0  0  1805    4      24  0  2  2334    4      26  0  0  1937    4
  736      24  1  0  2078    4      25  0  3     4    0      24  1  0   693    4      24  1  0   691    4
  740      25  0  2     2    0      24  1  0   682    4      26  0  0  1476    4       6  0  0  2237    4
  744       2  0  1   175    0       0  0  2  2220    4      15  0  0  2266    4       1  1  1   512    0
  748       2  0  0    67    4
 PROCEDURE  605
  749                               24  0  2  2738    4      28  1  2  2238    4       6  0  0  2130    4
  752      27  0  0   807    4       6  0  0  2154    4      26  0  0  1422    4       2  0  0  2134    4
  756      26  0  0  1491    4       6  1  0  2941    4      27  0  0   788    4       3  0  0    61    4
  760       5  0  0  2130    4      27  0  0   798    4       6  1  0  2941    4       5  0  0  2131    4
  764      27  0  0   796    4       6  0  0  2130    4       4  0  0  2222    4      27  0  1   771    4
  768       6  1  0  2941    4       2  0  0  2130    4      24  1  0   776    4       6  0  0  2131    4
  772       4  0  0  2222    4      27  0  1   788    4       6  1  0  2941    4       2  0  0  2131    4
  776       6  1  0  2239    4       5  0  0  2222    4      27  0  1   782    4       6  1  0  2940    4
  780       2  1  0  2238    4      24  1  0   757    4       6  1  0  2241    4       5  0  0  2222    4
  784      27  0  1   757    4       6  1  0  2940    4       2  1  0  2240    4      24  1  0   757    4
  788      26  0  0  1805    4      24  0  2  2394    4      26  0  0  1937    4      24  0  2  2724    4
  792      24  0  3  2490    4      28  1  2     6    0      26  0  0  1476    4      24  1  0   756    4
  796       6  0  0  2130    4       2  0  0  2131    4      26  0  0  1805    4       6  0  0  2931    4
  800       2  1  0  3934    4      24  0  2  2790    4      24  0  3  2490    4      28  1  2     2    0
  804      26  0  0  2084    4      24  0  3  2186    4      19  1  1     0    0
 PROCEDURE  606
  807                                                                                  6  0  0  2141    4
  808      27  0  0  1040    4       6  0  0    46    4      26  0  0  1422    4       1  1  3     1    0
  812       0  0  3  2932    4       7  0  0  2152    4       0  0  3  2930    4      26  1  2  2160    4
  816      25  1  2     0    0       2  0  0  2146    4      26  0  0  1434    4      25  1  0     0    0
  820      24  0  3  2186    4      19  0  1     0    0       6  1  0  2558    4      28  0  0  2224    4
  824      26  0  0  1434    4      24  1  0   893    4      24  0  2  2622    4      28  0  3  2934    4
  828       6  1  0  2230    4       0  1  2  2232    4      27  1  0   863    4       1  1  3    18    0
 PROCEDURE  607
  832       2  0  0  2344    4      26  0  0  1805    4      24  0  2  2342    4      26  0  0  1937    4
  836      26  1  3  2162    4       1  0  1  1792    0      15  1  3  2934    4      15  1  0  2410    4
  840      27  0  0   852    4      15  1  0  2414    4      27  0  1   845    4       6  1  0  2416    4
  844      14  1  3  2934    4      25  1  2     0    0      18  1  0  4126    0      27  1  1   838    4
  848      25  0  3     2    0      24  1  0   837    4
 PROCEDURE  608
  850                                                        25  0  3  4098    0      24  1  0   854    4
  852       6  1  0  2418    4      14  1  3  2934    4       6  1  0  2276    4       2  1  3  2936    4
  856       6  1  0  2602    4      24  0  3  2490    4      28  1  1     8    0      26  0  0  1481    4
  860       6  0  0  2146    4      27  0  3  2078    4      24  1  0   816    4
 PROCEDURE  609
  863                                                                                  6  0  0  2229    4
  864      27  0  0   917    4       1  1  1   152    0      27  0  0  1013    4       1  1  2   304    0
  868      27  0  0   895    4       1  1  2     1    0      27  0  0   895    4       1  1  1   136    0
  872      27  0  0   875    4       1  1  3  5149    0      24  1  0   832    4
 PROCEDURE  610
  875                                                                                  6  0  0  2146    4
  876      27  0  0   879    4       1  1  3   257    0      24  1  0   832    4       6  0  0  2228    4
  880       5  0  2  2141    4      27  0  1   885    4       1  1  3     1    0       2  0  0  2146    4
  884      24  1  0   820    4      26  0  0  1805    4      24  0  2  2398    4      26  0  0  1937    4
  888       6  0  2  2141    4       2  0  0  2229    4      24  0  2  2742    4      24  0  3  2490    4
  892      28  1  2     6    0      26  0  0  1481    4      24  1  0   816    4
 PROCEDURE  611
  895                                                                                  6  0  0  2146    4
  896      27  0  1   899    4       1  1  3  5136    0      24  1  0   832    4       6  0  0  2228    4
  900      27  0  3   915    4       0  0  3    58    4       5  0  0  2228    4       0  0  3    59    4
  904      27  0  1   915    4      24  0  2  2242    4      12  0  0  2228    4       3  0  0  2193    4
  908       3  0  0  2195    4       5  0  0    63    4      27  0  2   915    4       6  0  0  2229    4
  912       1  1  2   154    0       2  0  0  2146    4      24  1  0   820    4       1  1  3  4372    0
  916      24  1  0   832    4
 PROCEDURE  612
  917                                6  0  0  2146    4      27  0  3   921    4       1  1  3    48    0
  920      24  1  0   832    4       1  1  1     1    0      27  0  1   934    4       6  1  0  2224    4
  924       0  1  2  2226    4      27  0  0   928    4       1  1  3    19    0      24  1  0   832    4
  928       6  1  0  2582    4      24  0  3  2195    4      28  0  0     0    0      23  0  0     1    0
  932       0  0  0  2195    3      24  1  0   820    4
 PROCEDURE  613
  934                                                         6  0  0  2224    4      27  0  3   945    4
  936       0  0  3    58    4       5  0  0  2224    4       0  0  3    59    4      27  0  1   945    4
  940      24  0  2  2242    4      12  0  0  2224    4       3  0  0  2224    4       1  1  2    32    0
  944      27  0  3   947    4       1  1  3    17    0      24  1  0   832    4
 PROCEDURE  614
  947                                                                                  6  0  0  2225    4
  948      27  0  0   953    4       1  1  2     1    0      27  0  0   953    4       1  1  3    20    0
  952      24  1  0   832    4       6  0  0  2226    4      27  0  3   957    4       1  1  2     4    0
  956      27  0  3   959    4       1  1  3    36    0      24  1  0   832    4
 PROCEDURE  615
  959                                                                                  6  0  0  2228    4
  960      27  0  3   965    4       0  0  3  2932    4       5  0  0  2228    4       0  0  3  2930    4
  964      27  0  0   967    4       1  1  3    25    0      24  1  0   832    4      24  0  2  2242    4
  968      12  0  0  2228    4       2  0  0  2228    4       6  0  0  2227    4      27  0  0   978    4
  972       1  1  2     1    0      27  0  0   976    4       1  1  3    41    0      24  1  0   832    4
  976       6  0  0  2193    4       7  0  0  2228    4
 PROCEDURE  616
  978                                                         6  0  0  2228    4       5  0  0    63    4
  980      27  0  3   983    4       1  1  3  6441    0      24  1  0   832    4       6  0  0  2228    4
  984       5  0  0  2881    4      27  0  3   987    4       2  0  0  2228    4       6  0  0  2224    4
  988      18  0  3     1    0       4  0  0  2225    4      18  0  3     2    0       4  0  0  2226    4
  992      18  0  3     1    0      18  0  0     3    0       4  0  0  2228    4       2  0  0  2236    4
 PROCEDURE  617
  996       6  0  0  2224    4       1  1  2    16    0      27  0  1  1005    4       6  0  0  2236    4
 1000      27  0  1  1006    4       6  1  0  2580    4      24  0  3  2195    4      28  1  0     0    0
 1004      24  1  0   931    4      27  0  3  1009    4      25  1  2     0    0       5  0  0  2236    4
 1008       2  0  0  2236    4       6  0  0  2236    4      24  0  3  2195    4       2  0  0     0    0
 1012      24  1  0   931    4
 PROCEDURE  618
 1013                                6  0  0  2146    4      27  0  1  1017    4       1  1  3  4112    0
 1016      24  1  0   832    4      25  1  2     0    0       2  0  0  2146    4      26  0  0  1481    4
 1020       6  0  2  2142    4      27  0  0  1024    4      25  0  2     1    0      24  1  0   816    4
 1024      26  0  0  1805    4      24  0  2  2348    4      26  0  0  1937    4      24  0  2  2752    4
 1028      24  0  3  2490    4      28  1  2     4    0       2  0  0  2141    4      26  1  2  2168    4
 1032      24  0  3  2490    4       6  1  2     0    0      27  0  1  1040    4       6  1  0  2370    4
 1036      24  0  3  2490    4       2  1  2     0    0      25  0  2  4098    0      24  1  0  1032    4
 PROCEDURE  619
 1040       6  0  0  2130    4      27  0  0  1100    4       6  0  0  2154    4      26  0  0  1422    4
 1044      26  1  3  2156    4       6  1  0  2562    4      28  0  0  2934    4       6  0  0    41    4
 1048      27  0  0  1050    4       1  1  3   128    0       2  1  0  2903    4       6  1  0  2586    4
 1052      28  1  1  2934    4       6  1  0  2588    4      28  0  1  2951    4       6  1  0  2590    4
 1056      28  0  1  2969    4       6  1  0  2592    4      28  0  1  3217    4       6  1  0  2594    4
 1060      28  1  1  3190    4       6  1  0  2596    4      28  0  1  3255    4       6  1  0  2430    4
 1064       3  1  0  3962    4       3  1  0  3354    4       2  1  0  3270    4      26  0  0  1434    4
 1068      25  1  0     0    0      26  0  0  1593    4      26  0  0  1593    4
 PROCEDURE  620
 1071                                                                                  6  1  0  2436    4
 1072       2  1  0    56    4      24  0  2     0    4       4  1  0  2598    4      28  0  1  2939    4
 1076       6  1  0  2882    4       3  1  0    56    4       2  1  0  2934    4       2  1  0  2936    4
 1080      26  1  2    64    4      26  0  0  1583    4      26  1  2    66    4      26  0  0  1583    4
 1084      26  1  2    68    4      26  0  0  1583    4      26  0  0  1593    4
 PROCEDURE  621
 1087                                                                                 25  1  2     0    0
 1088      26  0  0  1663    4       6  0  0  2133    4      27  0  1  1109    4      26  0  0  1717    4
 1092       6  0  0  2131    4      27  0  1  1103    4      26  0  0  1805    4      24  0  2  2380    4
 1096      26  0  0  1937    4      24  0  2  2728    4      24  0  3  2490    4      28  1  2     4    0
 1100       6  0  0    55    4      27  0  0  1177    4      24  1  0  1392    4       6  0  0  2131    4
 1104       2  0  0  2130    4       2  0  0  2131    4       6  0  0  2155    4       3  0  0  2154    4
 1108      24  1  0   754    4
 PROCEDURE  622
 1109                                6  0  0    53    4      26  0  0  1422    4      26  0  0  1491    4
 1112       6  1  0  2941    4       2  0  0  3937    4      26  0  0  1521    4       6  1  0  2949    4
 1116       2  0  0  2225    4      26  0  0  1783    4       6  0  0  2154    4       3  0  0  2146    4
 1120      26  0  0  1422    4      26  0  0  1623    4       6  0  0    61    4       2  0  0  3937    4
 1124       6  1  0  2951    4      24  0  3  2186    4       7  0  0    64    0      27  0  1  1130    4
 1128       6  1  0  2460    4      24  1  0  1131    4       6  1  0  2462    4      26  0  0  1798    4
 PROCEDURE  623
 1132       6  0  0    53    4      26  0  0  1422    4      26  0  0  1521    4       6  0  0  2154    4
 1136      26  0  0  1422    4      26  0  0  1623    4       6  0  0  2134    4      27  0  0  1132    4
 1140      26  0  0  1752    4
 PROCEDURE  624
 1141                                6  0  0  2131    4      27  0  0  1150    4      26  0  0  2084    4
 1144      24  0  3    53    4      19  1  1     0    0       6  0  0    74    4      24  0  3    53    4
 1148       2  0  0    64    0      24  1  0  1103    4       6  0  0  2132    4      27  0  0  1156    4
 1152      26  0  0  2084    4      24  0  3    53    4      19  1  1     0    0      24  1  0  1094    4
 1156      26  0  0  1465    4      24  1  0  1094    4
 PROCEDURE  625
 1158                                                        26  0  0  1465    4       6  0  0  2127    4
 1160       3  0  0  2126    4       3  0  0  2125    4       2  0  0  2124    4      26  0  0  2010    4
 1164      25  1  2  2047    0      27  0  1  1171    4      26  0  0  2018    4      24  1  0  1164    4
 1168      24  0  2  2284    4      26  0  0  1937    4      24  1  0  1164    4      18  0  0     2    0
 1172       4  0  0  2192    4      25  1  1  2047    0      26  0  0  1942    4      24  1  0  1163    4
 1176      25  1  0   127    0
 PROCEDURE  626
 1177                                6  1  0  2570    4       4  0  1   164    0      28  0  0  2936    4
 1180       1  0  1    16    0      15  0  0  2151    4      18  0  0  4125    0      27  0  1  1185    4
 1184       1  1  3   768    0      18  0  0     1    0       2  0  0  2312    4       6  1  0  2310    4
 1188      24  0  3  2954    4       2  1  1  8190    0      24  0  2  2312    4       4  1  0  2572    4
 1192      24  0  3  2954    4      28  1  1     0    0      24  0  2  2648    4      24  0  3  2954    4
 1196      28  1  2    14    0
 PROCEDURE  627
 1197                                6  0  0    47    4       5  0  0  2881    4       2  0  0  2167    4
 1200      24  0  2  1205    4      24  1  0  1863    4      26  1  2  2166    4      24  0  2  1361    4
 1204       2  0  1    31    0       1  1  3    14    0      23  1  2     0    0      25  0  2     2    0
 1208      24  1  0  1206    4       6  0  0    52    4      27  0  0  1215    4       6  0  0  2967    4
 1212      27  0  1  1215    4       2  0  0    52    4      24  1  0  1373    4      24  0  2  2078    4
 1216       2  0  1    31    0      24  0  2  1222    4      24  1  0  1863    4      26  1  2  2166    4
 1220      25  1  2     0    0       2  1  2     0    0      25  0  2     2    0      24  1  0  1221    4
 PROCEDURE  628
 1224       6  0  0    52    4      27  0  0  1242    4       4  0  0  2172    4       2  0  0  2173    4
 1228      26  1  2  2172    4      24  0  2  1373    4       2  0  1    31    0       1  1  3    14    0
 1232      23  1  2     0    0      25  0  2     2    0      24  1  0  1232    4      24  0  2  2078    4
 1236       2  0  1    31    0      26  1  2  2172    4      25  1  2     0    0       2  1  2     0    0
 1240      25  0  2     2    0      24  1  0  1239    4
 PROCEDURE  629
 1242                                                        24  0  2  1247    4      24  1  0  1863    4
 1244       6  1  0  2558    4      24  0  3    59    4      28  0  0   128    0       6  0  0  2433    4
 1248       2  0  1   135    0       6  0  0  2219    4       2  0  1   137    0       6  0  0    54    4
 1252      27  0  1  1255    4       6  1  0  2434    4       2  1  1   134    0
 PROCEDURE  630
 1255                                                                                  6  1  0  2568    4
 1256       4  0  1   162    0      24  0  3    59    4      28  0  0    64    0       6  0  0  2119    4
 1260      24  0  3    44    4       2  0  0    64    0
 PROCEDURE  631
 1262                                                         6  0  0    53    4       1  1  2   128    0
 1264      27  0  2  1267    4      25  1  2     0    0      24  1  0  1272    4       6  1  0  2566    4
 1268       4  0  1   162    0      24  0  3    59    4      28  0  0   192    0       1  1  2    64    0
 1272       2  0  0  2968    4       6  0  0  2223    4      27  0  1  1277    4       6  0  0    48    4
 1276       2  0  0  2961    4
 PROCEDURE  632
 1277                                1  1  3     0    0       2  1  1     4    0       1  0  1     1    0
 1280      24  0  3    59    4      15  0  2    64    0       1  1  2     4    0      27  0  0  1289    4
 1284       1  1  2     5    0      27  0  0  1289    4      25  0  2     1    0      25  1  2     0    0
 1288      24  1  0  1280    4      24  0  3    59    4      15  0  2    64    0      18  0  0     4    0
 1292       4  0  1     4    0       1  0  1    19    0      14  0  1   153    0
 PROCEDURE  633
 1295                                                                                  6  0  0    53    4
 1296       2  0  0  2960    4       1  1  3   255    0      24  0  3    53    4       2  0  0    71    0
 PROCEDURE  634
 1300       0  0  2  2221    4      15  0  0    45    4       3  0  0  2235    4       3  0  1   188    0
 1304       1  1  1     4    0       2  0  1   189    0       6  0  0    45    4       2  0  1   186    0
 1308       1  0  1     1    0      24  0  3  2235    4      15  0  0    70    0       1  1  2     6    0
 1312      27  0  0  1315    4       1  1  3     3    0      24  1  0  1316    4       1  1  3     6    0
 1316       4  0  0  2235    4       2  0  1   187    0
 PROCEDURE  635
 1318                                                         6  0  0  2966    4       3  0  1     6    0
 1320       1  1  1    20    0      26  0  0  1377    4       6  0  0    52    4      27  0  1  1326    4
 1324       2  0  0  2967    4      24  1  0  1334    4
 PROCEDURE  636
 1326                                                        24  0  3  2967    4       6  0  0     0    0
 1328       4  0  0    52    4       2  0  0    47    4       6  0  0  2967    4       3  0  1     6    0
 1332       1  1  1    12    0      26  0  0  1377    4
 PROCEDURE  637
 1334                                                        24  0  2  2936    4       4  1  0  2570    4
 1336      24  0  3  2939    4      28  0  0     0    0       1  1  3     1    0       2  0  0  2140    4
 1340      26  0  0  1847    4
 PROCEDURE  638
 1341                                6  0  1   160    0       2  0  0  1361    4       2  0  1     0    0
 1344       2  0  1   160    0       2  0  1   162    0       2  0  1   164    0       6  1  0  2560    4
 1348      24  0  3     0    4      28  0  0     4    0       6  0  0  2121    4       2  0  1     9    0
 1352       6  0  0  2151    4       2  0  1   181    0       6  0  0  2152    4       2  0  1   182    0
 1356       6  0  0    44    4       3  0  1   190    0      25  1  2  4095    0       1  1  2   127    0
 1360      25  1  1  4095    0
 PROCEDURE  639
 1361                               26  0  0    77    4       1  0  1     8    0       6  0  1     4    0
 1364      14  0  0  2167    4       4  0  0  2881    4      14  0  1   153    0      14  0  0    47    4
 1368      26  0  0  1805    4      24  0  2  2402    4      26  0  0  1937    4       2  0  0    52    4
 1372      24  1  0  1215    4      26  0  0    77    4       1  0  1     4    0      14  0  1   153    0
 1376      24  1  0  1368    4
 PROCEDURE  640
 1377                                0  0  0     0    0       2  0  1     7    0      24  0  3     0    4
 1380       6  0  3     0    0       5  0  0    47    4      27  0  0  1386    4      25  0  3     2    0
 1384      24  1  0  1379    4      24  1  0  1391    4       6  1  0  2190    4      24  0  3     0    4
 1388       3  1  3     0    0      25  0  3     2    0      24  1  0  1387    4      26  0  1  1377    4
 PROCEDURE  641
 1392      26  0  0  1805    4      24  0  2  2648    4      24  0  3  2490    4      28  1  2     4    0
 1396       6  1  0  2464    4      24  0  3  2490    4       2  1  0     2    0      25  1  2     0    0
 1400       2  1  0  2132    4       2  0  0  2134    4       2  0  0  2146    4       2  0  0  2149    4
 1404      24  1  0   351    4
 PROCEDURE  642
 1405                                0  0  0     0    0      25  1  2     0    0       1  0  1  1792    0
 1408      15  1  0  2934    4      15  1  0  2410    4      27  0  1  1413    4       6  1  0  2418    4
 1412      24  1  0  1416    4      15  1  0  2414    4      27  0  1  1417    4       6  1  0  2416    4
 1416      14  1  0  2934    4      25  1  2     0    0      18  1  0  4126    0      27  1  1  1408    4
 1420      26  0  0  1805    4      26  0  1  1405    4
 PROCEDURE  643
 1422                                                         0  0  0     0    0       3  0  0  2186    4
 1424      18  1  0  4127    0      18  1  3     1    0      18  0  3     1    0      18  1  3     3    0
 1428       3  0  0  2187    4       1  1  2   256    0      27  0  3  1433    4       1  1  1   352    0
 1432       2  0  0  2187    4      26  0  1  1422    4
 PROCEDURE  644
 1434                                                         0  0  0     0    0       6  0  0  2186    4
 1436       1  0  1     3    0      14  0  0  1439    4      26  0  0  2005    4      26  1  0     0    0
 1440      24  1  0  1446    4      26  0  0  1865    4      24  1  0  1452    4      24  1  0  1460    4
 1444      24  0  3  1434    4      24  1  0     1    0
 PROCEDURE  645
 1446                                                        26  0  0  2018    4      24  1  0  1439    4
 1448      24  0  2  2658    4      24  0  3  2490    4      28  1  2     2    0      24  1  0  1441    4
 PROCEDURE  646
 1452       6  1  0  2934    4       4  1  0  2412    4      27  0  0  1459    4      26  0  0  1405    4
 1456      24  0  2  2664    4      24  0  3  2490    4      28  1  2     2    0      26  0  1  1434    4
 PROCEDURE  647
 1460      26  0  0  1805    4      24  0  2  2674    4      24  0  3  2490    4      28  1  2     2    0
 1464      24  1  0  1444    4
 PROCEDURE  648
 1465                                0  0  0     0    0      24  0  3    53    4      26  1  0     0    0
 1468      24  1  0  1475    4      24  1  0  1466    4      24  1  0  1472    4      24  1  0  1472    4
 1472      26  0  0  2084    4      24  0  3    53    4      19  1  2     0    0      26  0  1  1465    4
 PROCEDURE  649
 1476       0  0  0     0    0      26  0  0  2084    4      24  0  3  2186    4      19  1  2     0    0
 1480      26  0  1  1476    4
 PROCEDURE  650
 1481                                0  0  0     0    0      24  0  3  2186    4      19  1  3     0    0
 1484      26  0  1  1481    4
 PROCEDURE  651
 1485                                0  0  0     0    0      24  0  3    45    4      19  0  1     0    0
 1488      26  0  0  1434    4      24  1  0   452    4      26  0  1  1485    4
 PROCEDURE  652
 1491                                                                                  0  0  0     0    0
 1492      26  0  0  1434    4      25  1  0     0    0      26  0  0  1499    4       1  1  3     5    0
 1496       2  0  0    56    4      26  0  0  1521    4      26  0  1  1491    4
 PROCEDURE  653
 1499                                                                                  0  0  0     0    0
 1500      24  0  3  2186    4      19  0  3     0    0      26  0  0  1434    4      25  1  0     0    0
 1504      26  0  0  1777    4      26  0  1  1499    4
 PROCEDURE  654
 1506                                                         0  0  0     0    0      25  1  2     0    0
 1508       2  0  0  2182    4      24  0  3  2186    4      19  0  1     0    0      26  0  0  1434    4
 1512      24  1  0  1515    4      24  1  1    59    4      26  0  1  1506    4      26  0  0  1571    4
 1516      24  1  0  1509    4      23  0  0     1    0       0  0  0  2182    3      24  1  0  1569    4
 1520      24  1  0  2078    4
 PROCEDURE  655
 1521                                0  0  0     0    0      25  1  2     0    0       2  0  0  2147    4
 1524       2  0  0  2184    4       0  0  3  2932    4       1  1  3     1    0       7  0  0    56    4
 1528       0  0  3  2930    4      26  0  0  1506    4       0  0  3  2932    4       6  1  0  2935    4
 1532       5  0  0    56    4       0  0  3  2930    4      27  0  1  1536    4      26  0  1  1521    4
 1536       0  0  3  2932    4       1  1  1     1    0       0  0  3  2930    4      27  0  0  1529    4
 PROCEDURE  656
 1540      26  0  0  1571    4      24  1  0  1529    4       6  1  0  2935    4       5  1  0  2477    4
 1544      18  0  0  4126    0      27  0  1  1551    4       6  0  0  2134    4      27  0  1   616    4
 1548       6  1  0  2939    4       3  0  0  2134    4      24  1  0  1532    4      26  0  0  2074    4
 1552       6  0  0  2147    4      27  0  1  1560    4       1  1  3     1    0       2  0  0  2147    4
 1556      26  0  0  1405    4      24  0  2  2710    4      24  0  3  2490    4      28  1  2     2    0
 1560       6  1  0  2935    4       5  0  0    56    4      27  0  3  1529    4      26  0  0  2084    4
 1564      26  0  0  1771    4      26  0  0  2074    4      26  0  0  1771    4      26  0  0  2074    4
 1568      26  0  0  1771    4      26  0  0  1762    4      24  1  0  1509    4
 PROCEDURE  657
 1571                                                                                  0  0  0     0    0
 1572       1  0  1  1792    0      25  1  2     0    0      15  1  0  2934    4      15  1  0  2412    4
 1576      27  0  0  1582    4      25  1  2     0    0      18  1  0  4126    0      27  1  1  1573    4
 1580      24  0  3  1571    4      24  1  0     1    0      26  0  1  1571    4
 PROCEDURE  658
 1583                                                                                  0  0  0     0    0
 1584      26  0  0  1593    4       6  1  0    56    4       2  1  0  2934    4       6  0  1     4    0
 1588       4  1  0  2598    4      28  0  1  2939    4      25  0  2   512    0      24  1  0  1584    4
 1592      26  0  1  1583    4
 PROCEDURE  659
 1593                                0  0  0     0    0      24  0  3  2186    4      19  0  0     0    0
 1596      26  0  0    85    4      26  0  0  1434    4      24  1  0  1600    4      26  0  1  1593    4
 PROCEDURE  660
 1600      25  0  3     1    0      24  1  0  1616    4       6  1  0  2239    4       5  0  0    61    4
 1604      27  0  1  1608    4       6  1  0  2418    4       2  1  0  2238    4      24  1  0  1610    4
 1608       6  1  0  2418    4       2  1  0  2240    4       1  1  3     2    0      26  0  0  1663    4
 1612      26  0  0  1717    4       6  0  0  2133    4      27  0  0  1092    4      24  1  0  1141    4
 1616      26  0  0  2084    4      24  0  3  2186    4      19  1  1     0    0      26  0  0  1434    4
 1620      25  1  0     0    0      26  0  0  2084    4      24  1  0  1045    4
 PROCEDURE  661
 1623                                                                                  0  0  0     0    0
 1624      25  1  2     0    0       2  0  0  2182    4       2  0  0  2184    4      24  0  3  2186    4
 1628      19  0  0     0    0       6  1  0  2935    4       2  0  0    57    4      26  0  0  1434    4
 1632      24  1  0  1634    4      26  0  1  1623    4
 PROCEDURE  662
 1634                                                        23  0  0     1    0       0  0  0  2182    3
 1636      24  1  0  1638    4      24  1  0  2078    4      26  0  0  1762    4       6  0  0    57    4
 1640       5  1  0  2935    4       1  1  2     1    0      27  0  1  1652    4       6  1  0  2412    4
 1644       2  1  0  2934    4      24  0  3  2186    4      19  0  0     0    0      26  0  0  1434    4
 1648      25  1  0     0    0       6  0  0    57    4       2  1  0  2935    4      24  1  0  1627    4
 1652      26  0  0  2074    4      27  0  2  1661    4      26  0  0  2084    4      26  0  0  1771    4
 1656      26  0  0  2074    4      26  0  0  1771    4      26  0  0  2074    4      26  0  0  1771    4
 1660      24  1  0  1638    4      26  0  0  1777    4      24  1  0  1639    4
 PROCEDURE  663
 1663                                                                                  0  0  0     0    0
 1664       2  0  0  2149    4       1  1  3     1    0       2  1  0  2935    4       2  1  0  2936    4
 1668       6  1  0  2466    4       2  1  0  2938    4       6  0  0    61    4       2  1  0  2941    4
 1672       6  1  0  2430    4       2  1  0  2942    4      26  0  0  1623    4       6  0  0  2149    4
 1676      27  0  1  1697    4
 PROCEDURE  664
 1677                                6  1  0  2412    4       2  1  0  3934    4       2  1  0  3936    4
 1680       6  1  0  2604    4      28  1  1  3938    4      24  0  2  2642    4      28  1  2  3948    4
 1684       6  1  0  2468    4       2  1  0  3956    4       6  0  0  2931    4       2  1  0  3958    4
 1688       6  0  1   175    0       2  1  0  3961    4       6  0  0  2123    4      24  0  3  2186    4
 1692       2  0  0    64    0      26  0  0  1623    4       6  0  0    74    4      24  0  3  2186    4
 1696       2  0  0    64    0
 PROCEDURE  665
 1697                               26  0  0  1712    4      26  0  0  1623    4      26  0  0  1712    4
 1700      26  0  0  1623    4      26  0  0  1712    4       6  1  0  2472    4       2  1  0  2940    4
 1704      26  0  0  1623    4      26  0  0  1712    4      26  0  0  1623    4      26  0  0  1712    4
 1708       6  0  0    61    4       2  1  0  2941    4      26  0  0  1623    4      26  0  1  1663    4
 PROCEDURE  666
 1712       0  0  0     0    0       1  1  3     1    0       7  0  0  2934    4       7  0  0  2938    4
 1716      26  0  1  1712    4
 PROCEDURE  667
 1717                                0  0  0     0    0       1  1  3     1    0       7  0  0  2934    4
 1720       6  1  0  2474    4       2  1  0  2938    4       1  1  3  7453    0       2  1  0  2940    4
 1724       6  0  0  2931    4       2  1  0  2942    4       1  1  3     1    0       2  1  0  2944    4
 1728       6  0  1   175    0       2  1  0  2947    4       6  1  0  2468    4       2  1  0  2948    4
 1732       2  1  0  2950    4       6  1  0  2430    4       2  1  0  2952    4      26  0  0  1623    4
 PROCEDURE  668
 1736       1  1  3     1    0       7  0  0  2934    4       6  1  0  2472    4       2  1  0  2936    4
 1740       6  1  0  2470    4       2  1  0  2938    4       6  1  0  2430    4       2  1  0  2940    4
 1744      26  0  0  1623    4       6  1  0  2476    4       2  1  0  2934    4       1  1  3     9    0
 1748       2  1  0  2938    4      26  0  0  1623    4      26  0  0  1752    4      26  0  1  1717    4
 PROCEDURE  669
 1752       0  0  0     0    0       6  1  0  2478    4       3  1  0  2934    4       2  1  0  2936    4
 1756      24  0  3  2186    4      19  0  0     0    0      26  0  0  1434    4      24  1  0  1756    4
 1760      26  0  0  1476    4      26  0  1  1752    4
 PROCEDURE  670
 1762                                                         0  0  0     0    0      26  0  0  2084    4
 1764      26  0  0  1771    4      26  0  0  1771    4      26  0  0  1771    4      26  0  0  2084    4
 1768      26  0  0  1777    4      26  0  0  1777    4      26  0  1  1762    4
 PROCEDURE  671
 1771                                                                                  0  0  0     0    0
 1772      24  0  3  2186    4      19  1  0     0    0      26  0  0  1434    4      25  1  0     0    0
 1776      26  0  1  1771    4
 PROCEDURE  672
 1777                                0  0  0     0    0      24  0  3  2186    4      19  1  3     0    0
 1780      26  0  0  1434    4      25  1  0     0    0      26  0  1  1777    4
 PROCEDURE  673
 1783                                                                                  0  0  0     0    0
 1784       6  1  0  2951    4      24  0  3  2186    4       7  0  0    64    0       6  0  0  2146    4
 1788      27  0  1  1797    4       6  1  0  2943    4       2  0  0  3936    4       6  1  0  2951    4
 1792      27  0  1  1795    4       6  1  0  2456    4      24  1  0  1796    4       6  1  0  2458    4
 1796      26  0  0  1798    4      26  0  1  1783    4
 PROCEDURE  674
 1798                                                         0  0  0     0    0       2  1  0  3934    4
 1800      26  0  0  1805    4      24  0  2  2764    4      24  0  3  2490    4      28  1  2     2    0
 1804      26  0  1  1798    4
 PROCEDURE  675
 1805                                0  0  0     0    0      26  0  0  1817    4      24  0  2  2606    4
 1808      24  0  3  2490    4      28  1  2     0    0      26  0  1  1805    4
 PROCEDURE  676
 1811                                                                                  0  0  0     0    0
 1812      26  0  0  1817    4      24  0  2  2610    4      24  0  3  2490    4      28  1  2     0    0
 1816      26  0  1  1811    4
 PROCEDURE  677
 1817                                0  0  0     0    0       6  0  0  2139    4      27  0  0  1821    4
 1820      26  0  0  1847    4       6  0  0  2135    4      27  0  1  1829    4      24  0  2  2498    4
 1824       3  0  0  2135    4       3  0  0  2490    4       2  0  0  2491    4       2  0  0  2492    4
 1828      26  0  1  1817    4
 PROCEDURE  678
 1829                                6  0  0  2136    4      27  0  1  1839    4       6  0  0  2135    4
 1832       1  1  1    20    0       3  0  0  2136    4       3  0  0  2490    4       5  0  0  2120    4
 1836      27  0  1  1828    4      24  0  2  2498    4      24  1  0  1833    4
 PROCEDURE  679
 1839                                                                                  1  1  1    20    0
 1840       3  0  0  2137    4       3  0  0  2490    4       3  0  0  2139    4       5  0  0  2120    4
 1844      27  0  1  1828    4      24  0  2  2498    4      24  1  0  1840    4
 PROCEDURE  680
 1847                                                                                  0  0  0     0    0
 1848      24  0  2  1853    4      24  1  0  1863    4      24  0  2  1861    4       2  0  1    30    0
 1852      25  1  0  4096    0       1  1  3  4000    0       0  0  2  2583    4      11  0  0  2583    4
 1856      27  0  1  1854    4       1  1  2  8191    0       4  0  0  2583    4      27  0  0  1853    4
 1860      24  1  0  1858    4      26  0  0    77    4       6  0  0  1847    4       2  0  0  1865    4
 1864      24  1  0  1866    4
 PROCEDURE  681
 1865                                0  0  0     0    0       6  0  0  2135    4      27  0  1  1886    4
 1868       6  0  0  2136    4      27  0  1  1879    4       6  0  0  2140    4      27  0  3  2027    4
 1872      27  0  1  1341    4      25  1  2     0    0       1  1  2     3    0       7  0  0  1865    4
 1876      26  0  1  1865    4      25  1  0  2048    0      24  1  0  1873    4
 PROCEDURE  682
 1879                                                                                  6  0  0  2136    4
 1880       3  0  0  2135    4       2  0  0  2491    4       6  0  0  2137    4       2  0  0  2136    4
 1884       2  0  0  2137    4       2  0  0  2492    4
 PROCEDURE  683
 1886                                                        25  1  1  2048    0      24  0  3    44    4
 1888      26  1  0     0    0      24  1  0  1877    4      24  1  0  1873    4      24  1  0  1930    4
 1892      24  1  0  1893    4       6  0  0  2138    4      27  0  0  1899    4      25  1  2     0    0
 1896       3  0  0  2135    4       2  1  0  2138    4      24  1  0  1868    4
 PROCEDURE  684
 1899                                                                                  6  0  0  2148    4
 1900      27  0  3  1907    4      24  0  3  2491    4       6  1  0     0    0       2  1  1   154    0
 1904      24  0  3    44    4      19  0  0     0    0      24  1  0  1920    4
 PROCEDURE  685
 1907                                                                                  0  1  2  2494    4
 1908      24  0  3  2491    4       6  1  0     0    0      24  0  3  2492    4      18  0  0     0    0
 1912      14  1  1   154    0      24  0  3    44    4      19  0  0     0    0      23  0  0     2    0
 1916       0  0  0  2492    3      24  1  0  1887    4      25  1  2     0    0       2  0  0  2492    4
 PROCEDURE  686
 1920       1  0  1    15    0      24  0  3  2491    4      15  0  0     0    0       5  0  0  2276    4
 1924      27  0  1  1927    4       1  1  3     1    0       2  0  0  2138    4       1  1  3     2    0
 1928       7  0  0  2491    4      24  1  0  1887    4
 PROCEDURE  687
 1930                                                         6  0  0  2135    4       1  1  2     2    0
 1932       2  0  0  2491    4       2  1  1   154    0      24  0  3    44    4      19  0  0     0    0
 1936      24  1  0  1887    4
 PROCEDURE  688
 1937                                0  0  0     0    0       4  1  0  2564    4      24  0  3  2490    4
 1940      28  1  1     2    0      26  0  1  1937    4
 PROCEDURE  689
 1942                                                         0  0  0     0    0       3  0  1   138    0
 1944       2  0  1   175    0       0  0  3    58    4       1  0  1     3    0      15  0  1   175    0
 1948       5  0  0  2192    4      27  0  0  1959    4       1  1  2     1    0      27  0  0  1954    4
 1952       1  1  1   256    0      27  0  1  2000    4       6  0  1   175    0      14  0  0  2192    4
 1956      26  0  0  1805    4      24  0  2  2294    4      26  0  0  1937    4
 PROCEDURE  690
 1959                                                                                  1  0  1     4    0
 1960      25  1  2     0    0      15  0  1   175    0       1  0  1    12    0      14  0  1   138    0
 1964       0  0  3    59    4       1  0  1     4    0      25  1  2     0    0      15  0  1   175    0
 1968      18  0  0  4126    0       3  0  0  2193    4      27  0  0  2000    4       1  1  2    13    0
 1972      27  0  2  2000    4
 PROCEDURE  691
 1973                                0  0  2  2157    4      25  1  2     0    0      15  0  1   175    0
 1976      27  0  0  1979    4       1  1  3    41    0      24  1  0  1980    4       1  1  3    48    0
 1980       2  0  0  2195    4       1  0  1    24    0      15  0  1   175    0      27  0  0  2000    4
 1984      18  1  0     1    0      14  1  1   138    0      18  0  0  4124    0       0  0  3    58    4
 1988      24  0  1  2193    4       5  0  0  2193    4      27  0  2  2000    4       0  0  3    59    4
 1992       1  0  1     8    0      25  1  2     0    0      15  0  1   175    0      18  0  0  4125    0
 1996       1  1  2    10    0      27  0  2  2000    4      24  0  3  1942    4      24  1  0     1    0
 PROCEDURE  692
 2000       0  0  3  2930    4      26  0  0  1805    4      24  0  2  2290    4      26  0  0  1937    4
 2004      26  0  1  1942    4
 PROCEDURE  693
 2005                                0  0  0     0    0       6  0  0  2175    4       1  1  2     1    0
 2008       2  0  0  2174    4      26  0  1  2005    4
 PROCEDURE  694
 2010                                                         0  0  0     0    0       6  0  0  2175    4
 2012      18  0  0  4127    0       2  0  0  2174    4       6  0  0  2175    4       5  0  0  2174    4
 2016       2  0  0  2174    4      26  0  1  2010    4
 PROCEDURE  695
 2018                                                         0  0  0     0    0      23  0  0     1    0
 2020       0  0  0  2174    3      24  1  0  2027    4      25  1  2     0    0       2  0  0  2174    4
 2024      26  0  0  1811    4      24  0  3  2018    4      24  1  0     1    0
 PROCEDURE  696
 2027                                                                                 24  0  2  2033    4
 2028       2  0  1    30    0      24  1  1  2029    4       0  1  1  2214    4      26  0  3  2032    4
 2032      15  0  1  2044    4       0  1  0  2214    4      24  1  1    59    4      25  1  2     0    0
 2036       1  1  2     1    0       7  0  0  2174    4       6  0  1     8    0       2  0  0  2032    4
 2040      26  0  0    77    4       6  0  0  2018    4       1  1  1     3    0      24  1  0  1863    4
  SECTION   697
 PROCEDURE  698
 2044      25  1  2     0    0       0  0  2  2157    4      15  0  0  2032    4       2  0  0  2062    4
 2048      25  1  1  4096    0      24  1  1    59    4      24  0  1  2062    4       6  0  0  2124    4
 2052      24  1  0  2039    4       1  1  3  2000    0       0  0  2  2583    4      11  0  0  2583    4
 2056      27  0  1  2054    4      24  1  0  2045    4      26  1  1  2170    4      25  0  1     1    0
 2060      24  1  0  2059    4      24  1  0  2044    4       0  0  0     0    0      25  1  2     0    0
 2064       1  1  2  4096    0       4  0  0  2583    4      27  0  0  2045    4      24  1  0  2065    4
 2068       1  1  3   500    0      18  1  0  4119    0      13  0  0  2242    4       1  1  2     1    0
 2072      27  0  2  2069    4      24  1  0  2044    4
 PROCEDURE  699
 2074                                                         0  0  0     0    0      23  0  0     1    0
 2076       0  0  0  2184    3      26  0  1  2074    4      26  0  0  1811    4      24  0  2  2268    4
 2080      26  0  0  1937    4       6  0  0    76    4       2  0  0  2140    4      26  0  0  1865    4
 PROCEDURE  700
 2084       0  0  0     0    0      25  1  2     0    0       2  0  0  2176    4      23  0  0     1    0
 2088       0  0  0  2176    3      26  0  0  1865    4      26  0  1  2084    4
 PROCEDURE  701
 2091                                                                                  2  0  0    44    4
 2092      18  1  1    10    0       2  0  0    53    4      26  0  0   122    4      25  1  2     0    0
 2096       1  0  1     4    0      15  0  1   153    0      18  1  0     1    0       2  0  0    52    4
 2100      15  0  1   153    0       2  0  0    47    4       6  0  1   186    0       1  1  2    28    0
 2104      27  0  3  2109    4       6  0  1   186    0       3  0  0    45    4       1  1  1     2    0
 2108       2  0  0    46    4      25  1  2     0    0       1  0  1     3    0      15  0  1   175    0
 2112       2  0  0  2192    4      24  0  2     0    4       0  0  2  2220    4      14  0  0    68    4
 2116       3  0  0  2223    4       2  0  0  2149    4      24  1  0   208    4
 PROCEDURE  702
 2119                                                                                 14  0  0   154    0
 2120       0  0  1  2558    4      26  0  1     2    0      26  0  1    31    0      14  0  1  3934    4
 2124      15  0  1  2053    4      15  0  1  2058    4      15  0  1  2063    4      15  0  1  2068    4
 2128      15  0  1   279    4       0  0  0     0    0
  SECTION   703
 2130                                                             0       0                0       0
 2132           0       0                0       0                0       0                0       0
 2136           0       0                0       0                0       0                0       0
 2140           0       0                0       0                0       0                0       0
 2144           0       0                0       0                0       0                0       0
 2148           0       0                0       0
  SECTION   704
 2150                                                             0       0                0       0
 2152           0       0                0       0                0       0                0       0
  SECTION   705
 2156           0       0                3       0                0       0                4       0
 2160           0       0                5       0                0       0                8       0
 2164           0       0               30       0             1££.       0                0       0
 2168           .       0                4       0                0       0             1000       0
 2172        6000       0                0       0
  SECTION   706
 2174                                                             0       0                0       0
 2176           0       0                0       0              100       0              400       0
 2180         400       0             1000       0                0       0                Ю       0
 2184           0       0               64       0
  SECTION   707
 2186                                                             0       0                0       0
 2188           0       0                0       0
  SECTION   708
 2190                                                         £££££       0            £££££       0
 2192          68       0                0       0               32       0                0       0
 2196          32       0               31       0               32       0               31       0
 2200          32       0               32       0               31       0               32       0
 2204          31       0               32       0
  SECTION   709
 2206                                                         £££88       0            .0000       0
 2208       £0000       0            .1000       0               73       0               53       0
 2212          64       0               72       0                0       0                0       0
 2216           0       0                0       0                0       0             8000       0
 2220        £.00       0               38       0            3.1.4       0                0       0
  SECTION   710
 2224           0       0                0       0                0       0                0       0
 2228           0       0                0       0                0       0                0       0
 2232           0       0                0       0                0       0                0       0
 2236           0       0                0       0                0       0                0       0
 2240           0       0                0       0
  SECTION   711
 2242                                                             1       0                0       0
 2244           Ю       0                0       0               64       0                0       0
 2248         3.8       0                0       0             2710       0                0       0
 2252           1       0                0       0               20       0                0       0
 2256           1       0                0       0                8       0                0       0
 PROCEDURE  712
 2260       0  0  0     0    0       0  0  0   142    0       0  0  0   142    0       0  0  1     0    0
 2264       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  1     0    4
  SECTION   713
 2268       16554       0            51525       0             5.5.       0            66650       0
 2272          69       0            53540       0                0       0            55610       0
 2276        5.5.       0                0       0            65362       0            53636       0
 2280       35551       0              676       0             5.5.       0            72550       0
 2284       35500       0            54517       0            55172       0            67635       0
 2288        5.5.       0            55000       0            35500       0            54517       0
 2292       15.5.       0            69556       0            76778       0            58516       0
 2296       55576       0                6       0            85551       0                7       0
 2300        5.5.       0            69000       0            35569       0            59657       0
 2304       77300       0            69746       0            55172       0            67635       0
 2308        5.5.       0            55000       0
  SECTION   714
 2310                                                         97272       0              5.5       0
 2312           0       0            74550       0            60055       0              576       0
 2316       50056       0            75556       0            35569       0            51727       0
 2320       17273       0              645       0             6966       0            55690       0
 2324       96555       0            74735       0            36266       0            63665       0
 2328        6763       0            74730       0            25500       0            55517       0
 2332        5.5.       0                0       0            27355       0            64517       0
 2336       36666       0            69007       0            16957       0              635       0
 2340        5.5.       0            55000       0            40069       0            64665       0
 2344           0       0            55610       0                0       0                0       0
 2348       47200       0            64665       0                0       0                0       0
 2352       67300       0              656       0             5.5.       0            53540       0
 2356       30000       0            66677       0             5.5.       0                0       0
 2360       95561       0            66006       0             5.5.       0                0       0
  SECTION   715
 2364       56956       0            66755       0            60067       0            63667       0
 2368       17255       0            63555       0             5.5.       0                0       0
 2372       65700       0            67696       0            10000       0            69556       0
 2376       75500       0            73516       0            15.5.       0            69556       0
 2380       75572       0            73516       0            45569       0            73596       0
 2384       35551       0              676       0             5.5.       0            72550       0
 2388       10067       0            74005       0            17255       0            63555       0
 2392        5.5.       0                0       0            66557       0            76696       0
 2396       16755       0              735       0            66557       0            76696       0
 2400       65472       0              646       0            66557       0            76696       0
 2404       36669       0              727       0            25979       0            55007       0
 2408        5.5.       0            55000       0
  SECTION   716
 2410                                                         .7.7.       0            7.7.7-      0
 2412       £5£5£       0            5£5£5-      0            10101       0             1010       0
 2416       +7+7+       0            7+7+7       0            :5:5:       0            5:5:5       0
 2420        4747       0            5‼000       0            +6+6+       0            6+6+6       0
 2424       .5.5.       0            5.5.5       0               1.       0                0       0
 2428           0       0            1.000       0               7.       0            7.000       0
 2432           0       0            10000       0             +0+0       0            +0+0+       0
 2436       £0041       0            5£5£5       0            85457       0            54525       0
 2440       9537:       0            72556       0               71       0            76550       0
 2444       ‼6‼6‼       0            6‼6‼6       0            35163       0            73667       0
 2448       45577       0            59655       0            27259       0            67517       0
 2452       36653       0            51636       0            16773       0            53585       0
 2456       35967       0                6       0            85967       0                5       0
 2460       36667       0                6       0            86667       0                5       0
 2464       40000       0            55655       0
  SECTION   717
 2466                                                            41       0            45000       0
 2468        3030       0            30493       0            55972       0            56596       0
 2472       £6£6£       0            6£6£6       0               47       0            5.000       0
 2476       £4£43       0            4£4£4       0            5547‼       0            7Ю556       0
 2480       75500       0            73516       0            16973       0            72735       0
 2484       17273       0              645       0             6966       0            55690       0
 2488       96555       0            74735       0
  SECTION   718
 2490                                                             0       0                0       0
 2492           0       0                Ю       0                0       0            3£000       0
  SECTION   719
 2496       4525.       0            5.635       0                0       0                0       0
 2500           0       0                0       0                0       0                0       0
 2504           0       0                0       0                0       0                0       0
 2508           0       0                0       0                0       0                0       0
 2512           0       0                0       0                0       0                0       0
  SECTION   720
 2516       4525.       0            5.635       0                0       0                0       0
 2520           0       0                0       0                0       0                0       0
 2524           0       0                0       0                0       0                0       0
 2528           0       0                0       0                0       0                0       0
 2532           0       0                0       0                0       0                0       0
  SECTION   721
 2536       4525.       0            5.635       0                0       0                0       0
 2540           0       0                0       0                0       0                0       0
 2544           0       0                0       0                0       0                0       0
 2548           0       0                0       0                0       0                0       0
 2552           0       0                0       0                0       0                0       0
  SECTION   722
 2556           0       0            20014       0                0       0            2000Ю       0
 2560           0       0            2003+       0                0       0            20404       0
 2564           0       0                Ю       0               40       0               30       0
 2568           0       0               40       0                0       0               22       0
 2572           0       0               10       0
  SECTION   723
 2574                                                      0     34   3        9   0  0  0  0  9   0
 2576    0   2935   3       10   0  0  0  0 10   0         0   2935   3        6   0  0  0  0  6   0
 2580    0   2433   3        2   0  0  0  0  2   0         0   2228   3        1   0  0  0  0  1   0
 2584    0   2934   3        8   0  0  0  0  8   0         0   2808   3       16   0  0  0  1  0   0
 2588    0   2824   3        7   0  0  0  0  7   0         0   2831   3       55   0  0  0  3  7   0
 2592    0   2886   3       13   0  0  0  0 13   0         0   2900   3        8   0  0  0  0  8   0
 2596    0   2908   3        5   0  0  0  0  5   0         0      0   0      512   0  0  2  0  0   0
 2600    0   2150   3        3   0  0  0  0  3   0         0   2934   3       10   0  0  0  0 10   0
 2604    0   2480   3       10   0  0  0  0 10   0
  SECTION   724
 2606                                                      0     59   3    12291   0  3  0  0  3   0
 2608    0   2440   3     1041   3  0  4  1  1   1         0   2472   3        1   3  0  0  0  1   0
 2612    0     59   3    12291   0  3  0  0  3   0         0   2440   3     1025   3  0  4  0  1   0
 2616    0    156   0      530   0  0  2  1  2   0         0     59   3    12291   0  3  0  0  3   0
  SECTION   725
 2620    0   2224   3     2224   3  0  8 11  0   0         0   2224   3     2224   8  0  8 11  0   1
 2624    0     55   3       55   0  0  0  3  7   1
  SECTION   726
 2626                                                      0   2150   3       53   0  0  0  3  5   0
 2628    0   2151   3       21   0  0  0  1  5   0         0   2152   3     8978   0  2  3  1  2   0
 2632    0   2276   3      786   3  0  3  1  2   1         0   2934   3        5   3  0  0  0  5   0
 2636    0   2936   3       21   3  0  0  1  5   0         0   2938   3       21   3  0  0  1  5   0
 2640    0   2276   3      786   3  0  3  1  2   1         0   2150   3       85   0  0  0  5  5   0
 2644    0   2151   3        5   0  0  0  0  5   0         0   2152   3    16389   0  4  0  0  5   1
 2648    0   2150   3       53   0  0  0  3  5   0         0   2151   3       21   0  0  0  1  5   0
 2652    0   2152   3     8978   0  2  3  1  2   0         0   2276   3      769   3  0  3  0  1   0
 2656    0   2276   3      770   3  0  3  0  2   1
  SECTION   727
 2658                                                      0   2440   3      514   3  0  2  0  2   0
 2660    0   2187   3     4627   0  1  2  1  3   0         0   2276   3      802   3  0  3  2  2   1
 2664    0   2438   3        2   3  0  0  0  2   0         0   2187   3     4627   0  1  2  1  3   0
 2668    0   2440   3     1041   3  0  4  1  1   0         0   2934   3        5   3  0  0  0  5   0
 2672    0   2276   3      770   3  0  3  0  2   1         0   2442   3        2   3  0  0  0  2   0
 2676    0   2187   3     4627   0  1  2  1  3   0         0   2276   3      802   3  0  3  2  2   1
  SECTION   728
 2680    0   2422   3        5   3  0  0  0  5   0         0   2224   3      786   0  0  3  1  2   0
 2684    0   2225   3      786   0  0  3  1  2   0         0   2226   3      786   0  0  3  1  2   0
 2688    0   2227   3     1041   0  0  4  1  1   0         0     38   3     1041   0  0  4  1  1   0
 2692    0     39   3     1041   0  0  4  1  1   0         0     40   3     1041   0  0  4  1  1   0
 2696    0     41   3     1041   0  0  4  1  1   0         0   2232   3     1041   0  0  4  1  1   0
 2700    0   2276   3      802   3  0  3  2  2   1
  SECTION   729
 2702                                                      0   2438   3      515   3  0  2  0  3   0
 2704    0   2225   3       37   0  0  0  2  5   0         0   2940   3      786   3  0  3  1  2   0
 2708    0   2276   3      770   3  0  3  0  2   1         0   2440   3        3   3  0  0  0  3   0
 2712    0   2187   3     4611   0  1  2  0  3   0         0   2440   3     1025   3  0  4  0  1   0
 2716    0     56   3    16389   0  4  0  0  5   0         0   2440   3     1025   3  0  4  0  1   0
 2720    0   2934   3        5   3  0  0  0  5   0         0   2276   3      770   3  0  3  0  2   1
  SECTION   730
 2724    0     61   3    16437   0  4  0  3  5   0         0   2276   3      770   3  0  3  0  2   1
 2728    0   2440   3     1025   3  0  4  0  1   0         0   2238   3        5   3  0  0  0  5   0
 2732    0   2440   3     1025   3  0  4  0  1   0         0   2240   3        5   3  0  0  0  5   0
 2736    0   2276   3      786   3  0  3  1  2   1         0   2130   3    20485   0  5  0  0  5   0
 2740    0   2131   3    20485   0  5  0  0  5   1
  SECTION   731
 2742                                                      0   2440   3     1025   3  0  4  0  1   0
 2744    0   2229   3    16389   0  4  0  0  5   0         0   2440   3     1025   3  0  4  0  1   0
 2748    0   2228   3    16389   0  4  0  0  5   0         0   2276   3      786   3  0  3  1  2   1
 2752    0   2141   3    20501   0  5  0  1  5   0         0   2142   3    20501   0  5  0  1  5   0
 2756    0   2143   3    20501   0  5  0  1  5   0         0   2144   3    20501   0  5  0  1  5   0
 2760    0   2145   3    20501   0  5  0  1  5   0         0   2276   3      818   3  0  3  3  2   1
  SECTION   732
 2764    0   3934   3      515   3  0  2  0  3   0         0   2187   3     4611   0  1  2  0  3   0
 2768    0   2440   3     1025   3  0  4  0  1   0         0   2225   3        5   0  0  0  0  5   0
 2772    0   2440   3     1025   3  0  4  0  1   0         0   3936   3        5   0  0  0  0  5   0
 2776    0   2440   3     1025   3  0  4  0  1   0         0   3937   3    16389   0  4  0  0  5   0
 2780    0   2440   3     1025   3  0  4  0  1   0         0   2940   3      770   3  0  3  0  2   0
 2784    0   2442   3     1025   3  0  4  0  1   0         0   2944   3      770   3  0  3  0  2   0
 2788    0   2276   3      818   3  0  3  3  2   1
  SECTION   733
 2790                                                      0   2460   3      515   3  0  2  0  3   0
 2792    0   2187   3     4611   0  1  2  0  3   0         0   2440   3     1025   3  0  4  0  1   0
 2796    0   2468   3        5   3  0  0  0  5   0         0   2440   3     1025   3  0  4  0  1   0
 2800    0   3934   3        5   3  0  0  0  5   0         0   2440   3     1025   3  0  4  0  1   0
 2804    0     61   3    16389   0  4  0  0  5   0         0   2276   3      834   3  0  3  4  2   1
 PROCEDURE  734
 2808       0  0  2   256    0       5  1  0  1152    0       0  0  2   256    0       2  0  0     0    0
 2812       0  0  2   256    0       2  0  0     0    0       0  0  2   256    0       2  0  0     0    0
 2816       0  0  2   256    0       2  0  0     0    0       0  0  2   256    0       6  1  0   257    0
 2820       2  0  0    16    0       6  1  0   260    0       3  0  0     0    0       4  1  0   263    0
 PROCEDURE  735
 2824       6  0  0    28    0       2  0  0   327    0       2  1  0     2    0       2  0  0     4    0
 2828       1  1  3   141    0       2  0  0     5    0      24  1  0   320    0
 PROCEDURE  736
 2831                                                                                  6  0  0    65    0
 2832       3  0  0    64    0       3  0  0    72    0       3  0  0   192    0       3  0  0   200    0
 2836      24  0  1   129    0      26  1  0     0    0      24  1  0    34    0      24  1  0    28    0
 2840      24  1  0    28    0      24  1  0    28    0       6  0  0    66    0      27  0  2    42    0
 2844       1  1  3     8    0      24  1  0    41    0       0  0  0     0    0       0  0  0     0    0
 2848       1  1  3     0    0       5  0  0    66    0       3  0  0    66    0       7  0  0    23    0
 2852      27  0  3    22    0       0  0  0   259    0      24  1  0    22    0       7  0  0   129    0
 2856      24  0  1   129    0      19  0  1     0    0      24  0  1   129    0      26  1  0     0    0
 2860       0  0  0   259    0      24  1  0    44    0       0  0  0   261    0      25  1  0     0    0
 2864       6  1  0   256    0       5  1  0    68    0      27  0  1    58    0       6  1  0    62    0
 2868      24  0  1    67    0      28  1  0     0    4      24  0  1    67    0      24  1  0   170    4
 2872       6  1  0   256    0       5  1  0    70    0      27  0  0    42    0       0  0  0   270    0
 2876       0  0  0   261    0       0  0  0  1024    0       0  0  0     0    0      15  0  0   256    0
 2880       0  0  0     8    0       0  0  1     0    0
  SECTION   737
 2882                                                         £0042       0            5£5£5       0
 2884        4100       0            58480       0
 PROCEDURE  738
 2886                                                        25  1  1  4096    0       1  1  3  8158    0
 2888       2  0  0    64    0      19  0  1     0    0      26  1  0     0    0       0  0  0   769    0
 2892      24  1  0   145    0       0  0  0  8159    0       0  0  0    32    0       6  1  0   148    0
 2896      28  1  0  8191    0      24  1  0  8191    0       0  0  0     0    0       0  0  0     0    0
  SECTION   739
 2900        4100       0            5+480       0                0       0                0       0
 2904          20       0              480       0               41       0                0       0
 PROCEDURE  740
 2908       6  0  1    34    0       2  0  2    17    0      25  0  1     2    0      25  0  2     1    0
 2912      24  1  0    17    0       0  0  0     0    0
  SECTION  1035
 2914                                                             0       0                0       0
 2916           0       0                0       0                0       0                0       0
 2920           0       0                0       0                0       0                0       0
 2924           0       0                0       0                0       0                0       0
 2928           0       0               16       0
  SECTION  1036
 2930                                                             0       0               30       0
 2932       66666       0             2001       0
  SECTION  1037
 PROCEDURE 1010
 
 
 
 
 
                       INTERCODE     TRIAL DATA   SERIAL NUMBERS OF INTERCODE REPORTS
          PT OMITTED        NO             NO
          DISASTROUS         0              0
          OTHERS             0              0
 
 
 
 
 
          MADE BY 08000 ISSUE 8  SERIAL   801 ON 31/ 8/15  SPOOL  8000